loginunit.pas

使用delphi语言

unit loginunit;

interface

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

type
  Tloginform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    Edit1: TEdit;
    Image2: TImage;
    Bevel1: TBevel;
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
  times:integer;
    { Public declarations }
  end;

var
  loginform: Tloginform;
  LoginYN: boolean;

implementation
   uses dmunit,mainunit;
{$R *.dfm}

procedure Tloginform.DBLookupComboBox1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then
    edit1.SetFocus;
end;

procedure Tloginform.BitBtn2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tloginform.FormCreate(Sender: TObject);
begin
  times:=0;
end;

procedure Tloginform.FormActivate(Sender: TObject);
begin
  dm.user.Open ;
  self.DBLookupComboBox1.SetFocus;
end;

procedure Tloginform.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    bitbtn1.Click;
end;

procedure Tloginform.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text<>trim(dm.user.FieldValues['密码']) then
  begin
    times:=times+1;
    if times<3 then
    begin
      messagebox(self.Handle,'请核对用户名称和密码，输入错误','提示信息',mb_iconinformation);
      exit;
    end
    else
      begin
        messagebox(self.Handle,'您已经第三次输入错误，请退出','提示信息',mb_iconinformation);
        dm.user.Active:=false;
        application.Terminate;
      end;
  end
  else
    begin
      mainform.Show;
      mainform.StatusBar1.Panels[0].Text:='欢迎您进入住房公积金管理系统';
      mainform.StatusBar1.Panels[1].Text:='操作员：    '+dm.user.FieldValues['用户名称'];
      mainform.StatusBar1.Panels[2].Text:='长春明日科技';
      mainform.name:=dm.user.FieldValues['用户名称'];
      mainform.bm:=dm.user.FieldValues['bm'];
      mainform.gz:=dm.user.FieldValues['gz'];
      mainform.base:=dm.user.FieldValues['base'];
      mainform.qcye:=dm.user.FieldValues['qcye'];
      mainform.infor:=dm.user.FieldValues['infor'];
      mainform.autodz:=dm.user.FieldValues['autodz'];
      mainform.autodel:=dm.user.FieldValues['autodel'];
      mainform.manual:=dm.user.FieldValues['manual'];
      mainform.getfunds:=dm.user.FieldValues['getfunds'];
      mainform.lx:=dm.user.FieldValues['lx'];
      mainform.dellx:=dm.user.FieldValues['dellx'];
      mainform.yecx:=dm.user.FieldValues['yecx'];
      mainform.mxcx:=dm.user.FieldValues['mxcx'];
      mainform.gr_dw:=dm.user.FieldValues['gr_dw'];
      mainform.user1:=dm.user.FieldValues['user1'];
      mainform.databack:=dm.user.FieldValues['databack'];
      dm.user.Active:=false;///
      LoginYN:=true;
      close;
    end;
end;

procedure Tloginform.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if not LoginYN  then
  begin
    application.Terminate;
  end;
end;

end.