main.pas

delpi数据可例子生产企业人力资源管理系统.rar 生产企业人力资源管理系统.rar

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, SUIMemo, ComCtrls, SUIStatusBar, ToolWin,
  SUIToolBar, ExtCtrls, SUIForm, ImgList, jpeg;

type
  Tmain_form = class(TForm)
    suiForm1: TsuiForm;
    suiToolBar1: TsuiToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    suiStatusBar1: TsuiStatusBar;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Image1: TImage;
    ToolButton11: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_form: Tmain_form;


implementation

{$R *.dfm}

uses datamod, office, setup, chejian, about, login;

procedure Tmain_form.FormCreate(Sender: TObject);
begin
  suiform1.Caption:='某有限公司-人力资源管理系统';
end;

procedure Tmain_form.ToolButton1Click(Sender: TObject);
begin
  office_form.ShowModal;
end;

procedure Tmain_form.ToolButton7Click(Sender: TObject);
begin
  setup_form.ShowModal;
end;

procedure Tmain_form.ToolButton4Click(Sender: TObject);
begin
  chejian_form.ShowModal;
end;

procedure Tmain_form.ToolButton8Click(Sender: TObject);
begin
  about_form.ShowModal;
end;

procedure Tmain_form.FormActivate(Sender: TObject);
begin
  login_form.ShowModal;
end;

procedure Tmain_form.ToolButton10Click(Sender: TObject);
begin
  if MessageBox(Handle,'你确定真的要退出吗？','信息',MB_YESNO or MB_ICONWARNING)=IDYES then
  begin
    datamodule1.ADOConnection1.Close;
    Application.Terminate;
    close;
  end;
end;

end.