unit10.~pas

自己做的一个人力资源管理

unit Unit10;

interface

uses
  SysUtils, Classes, DB, DBTables, ExtCtrls, ImgList, Controls;

type
  TDM = class(TDataModule)
    Database1: TDatabase;
    TID: TTable;
    TPerson: TTable;
    TJobMade: TTable;
    TAchievement: TTable;
    TPersonExp: TTable;
    TTitleExp: TTable;
    TWages: TTable;
    QID: TQuery;
    QPerson: TQuery;
    QJobMade: TQuery;
    QAchievement: TQuery;
    QPersonExp: TQuery;
    QTitleExp: TQuery;
    QWages: TQuery;
    DID: TDataSource;
    DPerson: TDataSource;
    DJobMade: TDataSource;
    DAchievement: TDataSource;
    DPersonExp: TDataSource;
    DTitleExp: TDataSource;
    DWages: TDataSource;
    MAINImageList: TImageList;
    SYSTEMTimer: TTimer;
    FORMImageList: TImageList;
    Query2: TQuery;
    DataSource2: TDataSource;
    Timer1: TTimer;
    procedure SYSTEMTimerTimer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TDM.SYSTEMTimerTimer(Sender: TObject);
begin
        if login_people.ProgressBar1.Position<100 then
           login_people.ProgressBar1.Position:=login_people.ProgressBar1.Position+10
        else
        begin
                  SYSTEMTimer.Enabled:=False;
                  login_people.Image2.Visible:=False;
                  login_people.Edit2.Clear;
                  login_people.Edit1.Clear;
                  login_people.ComboBox1.Clear;
                  login_people.ProgressBar1.Position:=0;
                  main_people.ShowModal;
end;    end;

procedure TDM.Timer1Timer(Sender: TObject);
begin
              main_people.StatusBar1.Panels[2].Text:=datetostr(now)+'   '+timetostr(now);
end;

end.