主题:数据库连接后无法判断输入正确!
begin
if not StudentDM.LoginADOQR.Active then //如果数据库没有打开,则打开数据库
StudentDM.LoginADOQR.Active:=true;
if (not StudentDM.LoginADOQR.Locate('UserID',trim(UserIDEdt.Text),[]))
or (StudentDM.LoginADOQR.FieldByName('Password').AsString <> trim(PasswordEdt.Text)) then
begin
Edit1.Text:=trim(StudentDM.LoginADOQRUserID.Value);
Edit2.Text:=trim(StudentDm.LoginADOQRPassword.Value);
Application.MessageBox('账号或密码错误','提示信息',MB_ICONWarning);
UserIDEdt.SetFocus();
exit;
end
else
Application.Terminate();
end;
数据模块StudentDM;登陆LoginADOQR;我建立了两个框框,输入账号密码,都能进行,我的用户名和密码都是admin,因为不管输入正确还是错误,永远都提示的书账号密码错误信息...所以我又弄了两个Edit控件,在Edit1和Edit2中都能显示出admin........但是就是无法验证输入的admin是正确的,这是为什么啊?
if not StudentDM.LoginADOQR.Active then //如果数据库没有打开,则打开数据库
StudentDM.LoginADOQR.Active:=true;
if (not StudentDM.LoginADOQR.Locate('UserID',trim(UserIDEdt.Text),[]))
or (StudentDM.LoginADOQR.FieldByName('Password').AsString <> trim(PasswordEdt.Text)) then
begin
Edit1.Text:=trim(StudentDM.LoginADOQRUserID.Value);
Edit2.Text:=trim(StudentDm.LoginADOQRPassword.Value);
Application.MessageBox('账号或密码错误','提示信息',MB_ICONWarning);
UserIDEdt.SetFocus();
exit;
end
else
Application.Terminate();
end;
数据模块StudentDM;登陆LoginADOQR;我建立了两个框框,输入账号密码,都能进行,我的用户名和密码都是admin,因为不管输入正确还是错误,永远都提示的书账号密码错误信息...所以我又弄了两个Edit控件,在Edit1和Edit2中都能显示出admin........但是就是无法验证输入的admin是正确的,这是为什么啊?