M
mhywbs
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么用户名和密码都输入的和数据表里的一样,但总是返回失败对话框。
可能主要是这一种有问题:pass=ADOQuery1.FieldByName('userpass').AsString
程序如下:
var
user11,mm,pass:string;
begin
if trim(edit1.Text)='' then
begin
showmessage('请输入用户名');
edit1.SetFocus;
exit;
end;
if trim(edit2.Text)='' then
begin
showmessage('请输入密码');
edit2.SetFocus;
exit;
end;
user11:=edit1.text;
pass:=edit2.text;
label1.Caption :=pass;
ADOQuery1.SQL.text:='select * from user1 where username='''+user11+''' ';
ADOQuery1.Open;
if pass=ADOQuery1.FieldByName('userpass').AsString then
begin
adoquery1.Close;
showmessage('成功') ;
exit;
end
else
begin
adoquery1.Close;
showmessage('失败');
exit;
end;
end;
可能主要是这一种有问题:pass=ADOQuery1.FieldByName('userpass').AsString
程序如下:
var
user11,mm,pass:string;
begin
if trim(edit1.Text)='' then
begin
showmessage('请输入用户名');
edit1.SetFocus;
exit;
end;
if trim(edit2.Text)='' then
begin
showmessage('请输入密码');
edit2.SetFocus;
exit;
end;
user11:=edit1.text;
pass:=edit2.text;
label1.Caption :=pass;
ADOQuery1.SQL.text:='select * from user1 where username='''+user11+''' ';
ADOQuery1.Open;
if pass=ADOQuery1.FieldByName('userpass').AsString then
begin
adoquery1.Close;
showmessage('成功') ;
exit;
end
else
begin
adoquery1.Close;
showmessage('失败');
exit;
end;
end;