ulogin.pas

是个办公系统,可以实现财务上的管理和人员的流动

unit UlogIn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type
  TfrmLogIn = class(TForm)
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Bevel2: TBevel;
    Bevel3: TBevel;
    bbtnOK: TBitBtn;
    bbtnCancel: TBitBtn;
    ComboBox2: TComboBox;
    procedure bbtnCancelClick(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure bbtnOKClick(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogIn: TfrmLogIn;
  LogTimes:Integer=0;
  DeptName:string;
  LogInTime:TDateTime;
  UserName:string;
implementation

uses Umain, MyData, UtodayWork;

{$R *.dfm}

procedure TfrmLogIn.bbtnCancelClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmLogIn.ComboBox1DropDown(Sender: TObject);
begin
  ComboBox1.Items.Clear;
   with dm.AQDept do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct department from Users');
      open;
      first;
      while not dm.AQDept.Eof do
       begin
         ComboBox1.Items.Add(dm.AQDept.FieldValues['department']);
         dm.AQDept.Next;
       end;
    end;
end;

procedure TfrmLogIn.bbtnOKClick(Sender: TObject);
begin
  if Edit2.Text='' then
   begin
     ShowMessage('用户密码不能为空！');
     Exit;
   end;
  with dm.AQDept do
   begin
     close;
     sql.Clear;
     sql.Add('select * from Users where Department='''+Trim(ComboBox1.Text)+'''and UserName='''+Trim(ComboBox2.Text)+''' and PWD='''+frmMain.Encrypt(Trim(Edit2.Text))+'''');
     open;
   end;
   if dm.AQDept.Eof then
     begin
       LogTimes:=LogTimes+1;
       if LogTimes<3 then
        begin
          MessageBox(handle,pchar('密码第'+IntToStr(LogTimes)+'次错误,请重新输入!'),'密码错误',MB_OK OR MB_ICONERROR);
          Edit2.Text:='';
          Edit2.SetFocus;
        end
       else
        begin
         MessageBox(handle,'密码错误三次程序将关闭！','密码错误',MB_ICONERROR);
         Application.Terminate;
        end;
     end
   else if dm.AQDept.RecordCount<>0 then
    begin
      DeptName:=Trim(ComboBox1.Text);
      UserName:=Trim(ComboBox2.Text);
      LogInTime:=Now;
      self.Close;
    end;
end;

procedure TfrmLogIn.ComboBox2DropDown(Sender: TObject);
begin
  if ComboBox1.ItemIndex<0 then
   begin
     ShowMessage('请先选择该用户所在的部门!');
     Exit;
   end;
 ComboBox2.Items.Clear;
   with dm.AQDept do
    begin
      close;
      sql.Clear;
      sql.Add('select * from Users where Department='''+Trim(comboBox1.Text)+'''');
      open;
      first;
      while not dm.AQDept.Eof do
       begin
         ComboBox2.Items.Add(dm.AQDept.FieldValues['UserName']);
         dm.AQDept.Next;
       end;
    end;
   
end;

end.