cover.pas

来自「关于DEPHI7.0的人力资源信息管理系统源代码」· PAS 代码 · 共 84 行

unit cover;

interface

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

type
  TFormCover = class(TForm)
    Label1: TLabel;
    LabeledEdit1: TLabeledEdit;
    Label2: TLabel;
    CmbUser: TComboBox;
    BTNEnter: TBitBtn;
    BTNClose: TBitBtn;
    BTNModify: TBitBtn;
    procedure BTNCloseClick(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
    procedure BTNEnterClick(Sender: TObject);
    procedure BTNModifyClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCover: TFormCover;

implementation

uses Main, Data;

{$R *.dfm}

procedure TFormCover.BTNCloseClick(Sender: TObject);
begin
  Self.Close;
end;

procedure TFormCover.LabeledEdit1Change(Sender: TObject);
begin
if (LabeledEdit1.Text <> '') And (CmbUser.Text <> '') then
  BTNEnter.Enabled := True;
end;

procedure TFormCover.BTNEnterClick(Sender: TObject);
begin
  if (CmbUser.Text = '人力资源经理') and
    (LabeledEdit1.Text = '123456') then
  begin
     FormMain := TFormMain.Create(Application);
     FormMain.Show;
     Self.Hide;
  end
  else
    begin
      Application.MessageBox('用户名或密码不正确'+#13#10+'     程序即将终止！',
               '人力资源管理信息系统',0);
      Application.Terminate;
    end;
end;

procedure TFormCover.BTNModifyClick(Sender: TObject);
var TempStr : string;
begin
  TempStr := DataModule1.DataSource3.DataSet.Fields[1].AsString;
if InputBox('修改密码','当前的密码的是：','')= TempStr then
   Showmessage('OK');
end;

procedure TFormCover.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//with DataModule1.DataSource3.DataSet do
//  if Active then
//     Close;
   Self.Destroy;
   Application.Terminate;
end;

end.