W
wangxinf1
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FlatButton1Click(Sender: TObject);
begin
with adotable1 do
begin
Open;
setkey();
fieldbyname('user').Value:= flatedit1.Text;
if gotokey() then
begin if
fieldbyname('password').Value= flatedit2.Text
then
form3.Show
else
begin
messagedlg('密码不对或用户不存在，请重新输入！',mtwarning,[mbok],0);
exit;
end;
end
else
begin
messagedlg('密码不对或用户不存在，请重新输入！',mtwarning,[mbok],0);
exit;
end;
end;
怎么老是在ｓｅｔｋｅｙ和ｇｏｔｏｋｅｙ出错阿？？？？
begin
with adotable1 do
begin
Open;
setkey();
fieldbyname('user').Value:= flatedit1.Text;
if gotokey() then
begin if
fieldbyname('password').Value= flatedit2.Text
then
form3.Show
else
begin
messagedlg('密码不对或用户不存在，请重新输入！',mtwarning,[mbok],0);
exit;
end;
end
else
begin
messagedlg('密码不对或用户不存在，请重新输入！',mtwarning,[mbok],0);
exit;
end;
end;
怎么老是在ｓｅｔｋｅｙ和ｇｏｔｏｋｅｙ出错阿？？？？