Delphi登录功能的源代码

这个比较简单的
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if trim(data.DataModule3.ADODataSet1.fieldbyname(‘密码 ‘).AsString)=trim(MaskEdit1.Text) then
begin
unit2.Form2.Show;
unit1.Form1.Hide;
end
else
begin
Application.MessageBox(‘密码不正确,请重新输入’,’系统提示’);
MaskEdit1.Text:=”;
MaskEdit1.SetFocus;
end;
end;

再来一个
procedure TForm1.suitempBitBtn1Click(Sender: TObject);
var username,password:string;
begin
if edit1.Text=” then
messagebox(Form1.Handle,’请输入用户名’,’警告’,mb_ok+mb_iconwarning)
else
if edit1.Text=” then
messagebox(Form1.Handle,’请输入密码’,’警告’,mb_ok+mb_iconwarning)
else
begin
username:=edit1.Text;
password:=edit2.Text;
with  ADOQuery1 do  //数据库查询来判断用户合法性
begin
close;
sql.Clear;
sql.Add(‘Select * from Login where username=’);
sql.Add(””+ UserName +””+’and password=’+””+ Password +””);
open;
first;
if recordcount=1 then
begin
login.Form1.Hide;
main.Form2.Show;
end
else
messagebox(form1.Handle,’请输入正确的密码’,’警告’,mb_ok+mb_iconwarning);
end;
end;

main.Form2.StatusBar1.Panels[2].Text:=DateTimeToStr(Now);
main.Form2.StatusBar1.Panels[1].Text:=’登录用户:’+login.Form1.Edit1.Text;
main.Form2.StatusBar1.Panels[0].Text:=’状态’;
end;

本文固定链接: http://www.ccsbbs.com.cn/archives/6309.html | 极限手指

该日志由 极限手指 于2013年04月04日发表在 Delphi 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: Delphi登录功能的源代码 | 极限手指

Delphi登录功能的源代码:等您坐沙发呢!

发表评论

您必须 [ 登录 ] 才能发表留言!