Question

delphi中到数据库里验证字段

我做了一个登陆界面。要求输入用户名和密码
输入的用户名到数据库的一张表里验证，验证成功后在界面上的另一张表里显示出登陆信息，（比如说 姓名 工号 登陆时间等）
该如何实现代码
谢谢

Answer 1

用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;