当前位置:编程学习 > Delphi >>

delphi中到数据库里验证字段

我做了一个登陆界面。要求输入用户名和密码
输入的用户名到数据库的一张表里验证,验证成功后在界面上的另一张表里显示出登陆信息,(比如说 姓名 工号 登陆时间等)
该如何实现代码
谢谢
答案:
用ADO连接表 就可以实现了啊 以下是以前一个的一段代码 可能不全 但大致原理应该有了 希望对你有帮助

procedure Tloginform.loginbtnClick(Sender: TObject);
var
dbpath:string;
tempname:string;
Groupname:string;
begin
ADOTable1.Active:=true;
ADOTable1.Locate('Username',useredit.Text,[]);
tempname:=adotable1['Username'];
if tempname= useredit.Text then
begin
if adotable1['Password'] = passedit.Text then
begin
case adotable1['Group'] of
0:Groupname:='普通职员';
1:groupname:='管理人员';
2:groupname:='超级用户';
end;
mainform.title.Caption:='用户:[ '+tempname+' ]登录成功!当前权限:['+Groupname+']';
loginform.Hide;
mainform.group:=adotable1['Group'];
mainform.Enabled:=true;

end
else
title.Caption:='    Error:密码验证失败!';
end
else
title.Caption:='    Error:指定用户ID不存在';
ADOTable1.active:=false;
end;

上一个:delphi和VC哪种语言好?
下一个:delphi_Case...Of语句使用?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,