请教各位大神,想写一个登录的代码,请帮忙看看错在哪里。提示错误为:
估计可能是数据库连接的问题,是不是不允许用'sa'帐号进入呀?
我在DataModule里面加了ADOConnection控件、DataSource控件和ADOQuery控件,ADOConnection控件是用'sa'帐号手动设置连接的,测试也能连接呀,真的不知道错在哪里,请各位多指教,谢谢!
以下是一段很简单的源代码,能帮我看看错在哪吗?
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;
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('role').AsString;
// showmessage(userrole);
end;
end;
end;
end.