main.pas

关于DEPHI7.0的人力资源信息管理系统源代码

unit Main;

interface

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

type
  TFormMain = class(TForm)
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BTNReturn: TBitBtn;
    BTNAbout: TBitBtn;
    BTNClose: TBitBtn;
    BTNInput: TBitBtn;
    BTNManager: TBitBtn;
    BTNSearch: TBitBtn;
    BTNReport: TBitBtn;
    BTNDecision: TBitBtn;
    procedure BTNCloseClick(Sender: TObject);
    procedure BTNManagerClick(Sender: TObject);
    procedure BTNSearchClick(Sender: TObject);
    procedure BTNReportClick(Sender: TObject);
    procedure BTNDecisionClick(Sender: TObject);
    procedure BTNInputClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BTNReturnClick(Sender: TObject);
    procedure BTNAboutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OpenDataSource1;
    procedure CloseDataSource1;
  end;

var
  FormMain: TFormMain;

implementation

uses Data, EmpInfoManage, InfoSearch,InfoReport, Decision, Cover, About;
{$R *.dfm}

procedure TFormMain.OpenDataSource1;
begin
  DataModule1 := TDataModule1.Create(Application);
  with DataModule1.DataSource1.DataSet do
    if not Active  then
     try
        Open;
     except
        Application.MessageBox('基本信息数据库不存在或无法打开！','人力资源管理信息系统',0);
        raise;
     end;
  with DataModule1.DataSource2.DataSet do
    if not Active  then
     try
        Open;
     except
        Application.MessageBox('受教育情况数据库不存在或无法打开！','人力资源管理信息系统',0);
        raise;
     end;
  with DataModule1.DataSource4.DataSet do
    if not Active  then
     try
        Open;
     except
        Application.MessageBox('工作履历数据库不存在或无法打开！','人力资源管理信息系统',0);
        raise;
     end;
  with DataModule1.DataSource5.DataSet do
    if not Active  then
     try
        Open;
     except
        Application.MessageBox('工作合同数据库不存在或无法打开！','人力资源管理信息系统',0);
        raise;
     end;
  with DataModule1.DataSource6.DataSet do
    if not Active  then
     try
        Open;
     except
        Application.MessageBox('员工奖励数据库不存在或无法打开！','人力资源管理信息系统',0);
        raise;
     end;
  with DataModule1.DataSource7.DataSet do
    if not Active  then
     try
        Open;
     except
        Application.MessageBox('员工照片数据库不存在或无法打开！','人力资源管理信息系统',0);
        raise;
     end;
end;

procedure TFormMain.CloseDataSource1;
begin
  with DataModule1.DataSource1.DataSet do
    if Active then
       Close;
  with DataModule1.DataSource2.DataSet do
    if Active then
       Close;
  with DataModule1.DataSource4.DataSet do
    if Active then
       Close;
  with DataModule1.DataSource5.DataSet do
    if Active then
       Close;
  with DataModule1.DataSource6.DataSet do
    if Active then
       Close;
  with DataModule1.DataSource7.DataSet do
    if Active then
       Close;
  DataModule1.Destroy;
end;

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

procedure TFormMain.BTNManagerClick(Sender: TObject);
begin
  OpenDataSource1;
  FormEmpInfoManage := TFormEmpInfoManage.Create(Application);
  FormEmpInfoManage.Show;
  Self.Hide;
end;

procedure TFormMain.BTNSearchClick(Sender: TObject);
begin
  OpenDataSource1;
  FormEmpInfoSearch := TFormEmpInfoSearch.Create(Application);
  FormEmpInfoSearch.Show;
  Self.Hide;
end;

procedure TFormMain.BTNReportClick(Sender: TObject);
begin
  FormInfoReport := TFormInfoReport.Create(Application);
  FormInfoReport.Show;
  Self.Hide;
end;

procedure TFormMain.BTNDecisionClick(Sender: TObject);
begin
  OpenDataSource1;
  FormDecision := TFormDecision.Create(Application);
  FormDecision.Show;
  Self.Hide;
end;

procedure TFormMain.BTNInputClick(Sender: TObject);
begin
  OpenDataSource1;
  try
    DataModule1.DataSource1.DataSet.Edit;
    DataModule1.DataSource1.DataSet.Append;
  except
    Application.MessageBox('数据库不正常!'+#13#10+'无法添加新记录!','',0);
  end;
  BTNManagerClick(Sender);
end;

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FormCover.Destroy;
  Self.Destroy;
  Application.Terminate;
end;

procedure TFormMain.BTNReturnClick(Sender: TObject);
begin
  Self.close;
  FormCover.Show;
end;

procedure TFormMain.BTNAboutClick(Sender: TObject);
begin
  FormAbout := TFormAbout.Create(Application);
  FormAbout.Show;
  Self.Hide;
end;

end.