u_logon.pas

来自「简单的人事工资管理系统.... 我是想下载源码菜拿来换的...呵呵~~ 」· PAS 代码 · 共 96 行

unit u_Logon;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, RzLabel, RzButton, Mask, RzEdit;

type
  TfrmLogon = class(TForm)
    img1: TImage;
    edt1: TRzEdit;
    edt2: TRzEdit;
    rzbtbtn1: TRzBitBtn;
    rzbtbtn2: TRzBitBtn;
    lbl1: TRzLabel;
    lbl2: TRzLabel;
    procedure rzbtbtn1Click(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
    procedure rzbtbtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogon: TfrmLogon;

implementation

uses DataModule,Unit1,U_Common;

{$R *.dfm}

procedure TfrmLogon.rzbtbtn1Click(Sender: TObject);
var
    SQL:string;
    p:Integer;
begin
 if Trim(edt1.Text)='' then
 begin
    Application.MessageBox('用户名不能为空!','出错啦!');
    Exit;
 end;

 if Trim(edt2.Text)='' then
 begin
    Application.MessageBox('密码不能为空!','出错啦!');
    Exit;
 end;

 SQL:='select * from admin where 帐号='+QuotedStr(edt1.Text)+' and 密码='+QuotedStr(edt2.Text);
 if OpenQuery(DataModule.DM.qryCommon,SQL,qmOpen) then
 begin
     //在主窗体显示用户名和等级
     MainForm.rzglyphsts1.Caption:=MainForm.rzglyphsts1.Caption+DM.qryCommon.fieldbyName('帐号').Value;
     P:=DM.qryCommon.fieldbyName('等级').Value;
     MainForm.DengJi:=p;
     MainForm.UserName:=DM.qryCommon.fieldbyName('帐号').Value;
     MainForm.PWD:=DM.qryCommon.fieldbyName('密码').Value;
     MainForm.rzglyphsts2.Caption:=MainForm.rzglyphsts2.Caption+GetPopedomStr(P);
     MainForm.DisplayMenuByPopedom(P);
     
     Self.ModalResult:=mrOk;
     Self.Close;
 end
 else
    Application.MessageBox('不存在该用户!','出错啦!');
end;

procedure TfrmLogon.edt1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key=#13 then
      edt2.SetFocus;
   if Key=#27 then
      Application.Terminate;
end;

procedure TfrmLogon.edt2KeyPress(Sender: TObject; var Key: Char);
begin
   if Key=#13 then
      rzbtbtn1.SetFocus;
   if Key=#27 then
      Application.Terminate;
end;

procedure TfrmLogon.rzbtbtn2Click(Sender: TObject);
begin
   Close;
   Application.Terminate;
end;

end.