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;

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值