还是那个登录的代码,加帐号密码时弹出错误提示对话框 :
看提示和调试显示是这句代码有问题:
if(Trim(Edit1.Text)=DataModule2.ADOQuery1.FieldByName('UserName').AsString) and (Trim(Edit2.Text)=DataModule2.ADOQuery1.FieldByName('password').AsString) then
我查了一下数据库,字段UserName没有写错呀,看了好久没看出啥问题,希望大神们指点一下,谢谢!
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if(Trim(Edit1.Text)='') then
begin
showMessage('请输入帐号');
Edit1.SetFocus();
exit;
end;
if(Trim(Edit2.Text)='') then
begin
showMessage('请输入密码');
Edit2.SetFocus();
exit;
end;
if(Trim(Edit1.Text)=DataModule2.ADOQuery1.FieldByName('username').AsString) and (Trim(Edit2.Text)=DataModule2.ADOQuery1.FieldByName('password').AsString) then
// and (Trim(Edit2.Text=DataModule2.ADOQuery1.FieldByName('Password').AsString) then //如果帐号密码正确
begin
with DataModule2.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from Users where UserName="'+Trim(Edit1.Text)+'"') ;
SQL.Add('and Password="'+Trim(Edit2.Text)+'"');
Open;
if RecordCount=1 then
begin
userrole:= fieldbyname('Grade').AsString;
showmessage(userrole);
end;
end;
end;
end;