一个其名其妙的问题,只要调用了数据表的代码中,条件语句的条件就不能判断,不解啊,苦恼啊,有那位专家能否帮我!!!小弟在线恭候,下为一例
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
with saledatemod.user do
begin
close;
sql.Clear;
sql.Add('select * from tuser where login='+quotedstr(edit1.Text));
open;
first;
if edit2.Text=n then //此处即无效了,但是在此之前加上showmessage(fieldbyname
('psw').asstring都可显示出正确数据
begin
mainfrm.ShowModal;
form1.Hide;
end
else
begin
showmessage('你输入的用户名和密码有误,请重新输入');
edit2.Text:='';
edit1.SetFocus;
end;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
with saledatemod.user do
begin
close;
sql.Clear;
sql.Add('select * from tuser where login='+quotedstr(edit1.Text));
open;
first;
if edit2.Text=n then //此处即无效了,但是在此之前加上showmessage(fieldbyname
('psw').asstring都可显示出正确数据
begin
mainfrm.ShowModal;
form1.Hide;
end
else
begin
showmessage('你输入的用户名和密码有误,请重新输入');
edit2.Text:='';
edit1.SetFocus;
end;
end;
end;
看看