鱼C论坛

 找回密码
 立即注册
查看: 2868|回复: 2

用delphi7设计了一个登陆界面 oracle数据库

[复制链接]
发表于 2012-10-22 16:10:39 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
要求:用delphi7设计了一个登陆界面,数据库是oracle数据库,在oracle的system权限下有一张userinfo的表,表中有两个字段 username 和password ,现在我想通过登陆界面输入用户名和密码,点确定的时候 系统判断是不是userinfo表中的username和password. 是得话就跳到下一个窗口,不是的话,就提示错误.求高写个简单点的案例.菜鸟求教.谢谢!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 2012-10-22 16:12:28 | 显示全部楼层
//下面是我自己写的.可是运行总报错.
procedure TForm1.Button3Click(Sender: TObject);

begin
with adoquery1 do
begin
  adoquery1.Close;
  ADOQuery1.SQL.clear;
  ADOQuery1.SQL.Add('select * from yz_userinfo Where SYHMC='''+trim(combobox1.Text)+''' And SPWD='''+Trim(edit1.text)+'''');
  parameters[0].Value:=combobox1.Text;
  parameters[1].Value:=edit1.Text;
  open;
end;
if adoquery1.RecordCount<>0 then
   showmessage('登录成功!')
else showmessage('用户名或密码错误');

end;
end.
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 2012-10-22 20:54:34 | 显示全部楼层
高手都在潜水.:'(
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-12-23 13:23

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表