用delphi做一个图书管理系统,再设计登陆界面时,在edit中输入用户名,要判断输入的用户名是否在连接的 10
数据中,有的话可以继续判断密码,没有则提示错误。我想问一下,怎么进行有户名在不在数据库中这个判断,还有就是如果在数据库中,怎么判断所输入的密码和当前用户名在数据库中的密码...
数据中,有的话可以继续判断密码,没有则提示错误。我想问一下,怎么进行有户名在不在数据库中这个判断,还有就是如果在数据库中,怎么判断所输入的密码和当前用户名在数据库中的密码一致,求大神指导?拜托了。。。
展开
1个回答
展开全部
首先,用户名是必须只有唯一的一个,这个要在数据存储前进行处理,假设,你的后台数据表中有两个字段USERNAME PASSWORD 分别存储用户名与密码。表名为LOGON
QRYLOGON为Tquery 连接此数据表
if not Assigned(QryLogon) then
QryLogon:=TQuery.Create(frmLogon);
if QryLogon.Active then QryLogon.Close;
QryLogon.SQL.Clear;
QryLogon.sql.Text:='select * from LOGON where LogonName=:LogonName and password=:password';
QryLogon.Params.ParamByName('LogonName').AsString:=username;
QryLogon.Params.ParamByName('Password').AsString:=password;
QryLogon.Prepare;
QryLogon.Execute;
if QryLogon.IsEmpty then
begin
showmessage('用户名不存在或密码失败!');
end;
QRYLOGON为Tquery 连接此数据表
if not Assigned(QryLogon) then
QryLogon:=TQuery.Create(frmLogon);
if QryLogon.Active then QryLogon.Close;
QryLogon.SQL.Clear;
QryLogon.sql.Text:='select * from LOGON where LogonName=:LogonName and password=:password';
QryLogon.Params.ParamByName('LogonName').AsString:=username;
QryLogon.Params.ParamByName('Password').AsString:=password;
QryLogon.Prepare;
QryLogon.Execute;
if QryLogon.IsEmpty then
begin
showmessage('用户名不存在或密码失败!');
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询