frmloginp.~pas

进销存管理系统包含开题报告、无错程序源代码、无个性标记的可执行程序、院优毕业论文、PPT答辩资料等

unit FrmLoginP;

interface

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

type
  TFrmLogin = class(TForm)
    Image1: TImage;
    tLab1: TLabel;
    TxtUser: TEdit;
    Tlab2: TLabel;
    TxtPass: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOT_DsUser: TADOTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TxtUserExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;
  FlagPass:Boolean;

implementation

uses DataM1P,SysPub, FrmMainP, FrmExplorP;


{$R *.dfm}

procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
IF FlagPass=True then
   Begin
   Action:=cafree;
   ADOT_DsUser.Active :=False;
   End
   Else
   Begin
   ADOT_DsUser.Active :=False;
   DataM1.ADOQ_DsRight.Active :=False;
   DataM1.Adoc.Connected :=False;
   Application.Terminate ;
   End
end;

procedure TFrmLogin.BitBtn2Click(Sender: TObject);
begin
DataM1.ADOQ_DsRight.Active :=False;
DataM1.Adoc.Connected :=False;
Application.Terminate ;
end;

procedure TFrmLogin.FormShow(Sender: TObject);
begin
TxtUser.SetFocus ;
end;

procedure TFrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
  If Key=Chr(13) Then
     SelectNext(ActiveControl,True,False);
end;

procedure TFrmLogin.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF (Key=Vk_RIGHT) Or (Key=Vk_Down) Then
     SelectNext(ActiveControl,True,False)
     Else
       IF (Key=Vk_LEFT) Or (Key=Vk_Up) Then
          SelectNext(ActiveControl,False,True);
end;

procedure TFrmLogin.FormCreate(Sender: TObject);
begin
  IF AdoT_DsUser.Active=False Then
     AdoT_DsUser.Active:=True;
  TxtPass.Text:='';
  FlagPass:=False;
end;

procedure TFrmLogin.BitBtn1Click(Sender: TObject);
begin
    IF (Trim(TxtUser.Text)='dspace') And (Trim(TxtPass.Text)='dspace') Then
        FlagPass:=True;
    IF FlagPass=False Then
    IF (Not(AdoT_DsUser.Locate('Fuserid',Trim(TxtUser.Text),[]))) Then
       Begin
       Application.MessageBox('用户名错误','提示信息',64);
       TxtUser.SetFocus ;
       Abort;
       End;
    //   Else
    //   FlagPass:=True;
    IF FlagPass=False Then
    IF AdoT_DsUser.FieldByName('FpassWord').AsString<>Trim(TxtPass.Text) Then
       Begin
       Application.MessageBox('密码错误!','提示信息',64);
       TxtPass.SetFocus ;
       Abort;
       End
       Else
       FlagPass:=True;
    _UserID:=TxtUser.Text ;
    _UserName:=AdoT_DsUser.FieldByName('FUserName').AsString ;
    _FpassFlag:=True;
    FrmLogin.Free ;
    FrmMain.SActiveControl(_FpassFlag);
    FrmMain.StatB1.Panels.Items[2].Text:=StB1_P3+_UserID+' '+_UserName;
    Application.CreateForm(TFrmexplor,Frmexplor);
    FrmExplor.Show ;
 
end;

procedure TFrmLogin.TxtUserExit(Sender: TObject);
begin
  IF TxtUser.Text<>'dspace' Then
  IF StrLen(Pchar(Trim(TxtUser.Text)))>5 Then
     Begin
       Application.MessageBox('用户名不得大于5位','提示信息',48);
       TxtUser.SetFocus ;
       Exit;
     End;
end;

end.