delphi登陆界面代码
我的SQL的表中有个login的表,有yhm和yhmm,delphi的登录界面有两个edit和一个Button,哪位高手给个代码
补充:感谢啊……
我的SQL的表中有个login的表,有yhm和yhmm,delphi的登录界面有两个edit和一个Button,哪位高手给个代码
补充:感谢啊……
答案:procedure TForm1.Button1Click(Sender: TObject);
var
s,a:string; //s用户名a用户密码
begin
adoquery1.Close;
adoquery1.Active:=false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from a'); //a数据库的数据表名
adoquery1.Active:=true;
adoquery1.Open;
adoquery1.First; //查询用户名在数据表中对应的位置
s:=adoquery1.FieldByName('yhm').AsString;
s:=trim(s);
if s=edit1.Text then
begin
a:=adoquery1.FieldValues['yhmm'];
if (edit1.Text=s) and (edit2.Text=a) then
begin
showmessage('正确');
end
else
begin
end;
exit;
end
else
begin
repeat
adoquery1.next;
s:=adoquery1.FieldByName('yhm').AsString;
s:=trim(s);
until
adoquery1.Eof or(s=edit1.Text);
end;
if (edit1.Text=s) and (edit2.Text=adoquery1.FieldValues['yhmm']) then
begin
showmessage('正确');
end
else
begin
showmessage('错误');
end;
end;procedure TYhdlForm.sBitBtn1Click(Sender: TObject);
begin
sedit1.Text:=Enc(sedit1.Text);
adoquery1.Close;
adoquery1.SQL.Text:='select yhm from Y_yhb where yhm='+''''+scombobox1.Text+'''';
adoquery1.Open;
if not adoquery1.IsEmpty then
begin
adoquery1.Close;
adoquery1.SQL.Text:='select mima from Y_yhb where mima='+''''+sedit1.Text+''''+'and yhm='+''''+scombobox1.Text+'''';
adoquery1.Open;
if not adoquery1.IsEmpty then
begin
CzymForm.Show;
YhdlForm.Hide;
end
else
begin
Messagebox(YhdlForm.Handle, '密码错误,请重新输入!', '密码错误提示', MB_OK + MB_ICONINFORMATION);
sedit1.Clear;
sedit1.SetFocus;
end;
end
else
Messagebox(YhdlForm.Handle, '不存在此帐号,请重新输入!', '帐号错误提示', MB_OK + MB_ICONINFORMATION);
end;
上一个:delphi sql语句出错
下一个:Delphi简单调用DLL