您所在位置：主题：怎么样验证登陆是的密码框
小虾一个
[专家分：0] 发布于 2006-04-27 12:41:00
implementation
uses unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mima');
query1.SQL.Add('where id=:tt');
query1.SQL.Add('and password=:kk');
query1.ParamByName('tt').AsString:=edit1.Text;
query1.ParamByName('kk').AsString:=edit2.Text;
query1.Prepare;
query1.Open;
end;
if query1.RecordCount<>0then
begin
form2.Show;
form1.Visible:=false;
end
else showmessage('请重新输入');
end;
请问各位高手，在验证时怎么样做到以下：
a.当输入的用户名错误时，提示：用户不存在
b.当输入的密码错误时，提示：密码错误
uses unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mima');
query1.SQL.Add('where id=:tt');
query1.SQL.Add('and password=:kk');
query1.ParamByName('tt').AsString:=edit1.Text;
query1.ParamByName('kk').AsString:=edit2.Text;
query1.Prepare;
query1.Open;
end;
if query1.RecordCount<>0then
begin
form2.Show;
form1.Visible:=false;
end
else showmessage('请重新输入');
end;
请问各位高手，在验证时怎么样做到以下：
a.当输入的用户名错误时，提示：用户不存在
b.当输入的密码错误时，提示：密码错误
