begin
with ADOQuery1 do
begin
sql.Clear;
ADOQuery1.SQL.Add('select * from 登陆 where 用户名="'+suiedit1.Text+ '"');
Open;
if eof then
Label1.Caption:= '用户不存在!'
else begin
if ADOQuery1.FieldByName('密码').Value=suiedit2.Text then
begin
label1.Caption:='';
ADOQuery1.Close;
form2.Show; //显示新窗口
form1.Hide; //关闭登录窗口
end
else
label1.Caption:='密码错误!';
suiedit2.SetFocus;
end;
end;
end;请大侠指教问题!!不知道为什么--我点击登陆窗口,显示第二个窗口的时候,出现这样的错误!!!
with ADOQuery1 do
begin
sql.Clear;
ADOQuery1.SQL.Add('select * from 登陆 where 用户名="'+suiedit1.Text+ '"');
Open;
if eof then
Label1.Caption:= '用户不存在!'
else begin
if ADOQuery1.FieldByName('密码').Value=suiedit2.Text then
begin
label1.Caption:='';
ADOQuery1.Close;
form2.Show; //显示新窗口
form1.Hide; //关闭登录窗口
end
else
label1.Caption:='密码错误!';
suiedit2.SetFocus;
end;
end;
end;请大侠指教问题!!不知道为什么--我点击登陆窗口,显示第二个窗口的时候,出现这样的错误!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货