S
sohuandsina
Unregistered / Unconfirmed
GUEST, unregistred user!
验证登陆数据库的:
[red]
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
results:variant;
begin
results:=table1.lookup('name',edit1.Text,'password');
if edit2.Text=results then
form2.Close;
form1.Show
else
showmessage('密码错误。')
end; [/red]
调试的时候说else是错的。
[red]
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
results:variant;
begin
results:=table1.lookup('name',edit1.Text,'password');
if edit2.Text=results then
form2.Close;
form1.Show
else
showmessage('密码错误。')
end; [/red]
调试的时候说else是错的。