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;