main.pas

工资管理系统的代码实例

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Controls, Forms, ActnList,
  ActnCtrls, StdActns, ExtCtrls, GZGLCommon, Ydgz, Gzjbwh, Slwh, Zyxxwh,
  ComCtrls, Menus, DB, ADODB, Qzdwh, Dialogs;

type
  TMainForm = class(TForm)
    sbMain: TStatusBar;
    mmMain: TMainMenu;
    mnYdgz: TMenuItem;
    mnGzjbwh: TMenuItem;
    mnSlwh: TMenuItem;
    mnZyxxwh: TMenuItem;
    alMain: TActionList;
    acYdgz: TAction;
    acGzjb: TAction;
    acSlwh: TAction;
    acZyxx: TAction;
    mnSdsxxwh: TMenuItem;
    mnSplitter: TMenuItem;
    acQzd: TAction;
    mnQzdwh: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure acYdgzExecute(Sender: TObject);
    procedure acGzjbExecute(Sender: TObject);
    procedure acSlwhExecute(Sender: TObject);
    procedure acZyxxExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure acQzdExecute(Sender: TObject);
  private
    { Private declarations }
    FYdgzForm: TForm;
    procedure MDIChildFormClose(Sender: TObject; var Action: TCloseAction);
  public
    { Public declarations }
  end;
var
  MainForm: TMainForm;

implementation
{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
var
  l_File: string;
begin
  FYdgzForm := nil;

  l_File := EXEPath + conDataFile;
  if not FileExists(l_File) then
  begin
    ShowMessage('文件不存在,无法打开数据库!');
    Exit;
  end;

  AdoGzgl := TAdoConnection.Create(nil);
  with AdoGzgl do
  begin
    ConnectionString := CNT_ConnectString;
    ConnectionString := Format(ConnectionString, [l_File]);
    LoginPrompt := False;
    Connected := True;
  end;
end;

procedure TMainForm.MDIChildFormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FYdgzForm.Free;
  FYdgzForm := nil;
end;

procedure TMainForm.acYdgzExecute(Sender: TObject);
begin
  if not Assigned(FYdgzForm) then
    FYdgzForm := TYdgzForm.Create(self);
  FYdgzForm.OnClose := MDIChildFormClose;
  FYdgzForm.Show;
end;

procedure TMainForm.acGzjbExecute(Sender: TObject);
begin
  with TGzjbForm.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TMainForm.acSlwhExecute(Sender: TObject);
begin
  with TSlwhForm.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TMainForm.acZyxxExecute(Sender: TObject);
begin
  with TZyxxwhForm.Create(nil) do
  try
    ShowModal;
  finally
    Free
  end;
end;

procedure TMainForm.acQzdExecute(Sender: TObject);
begin
  with TQzdwhForm.Create(nil) do
  try
    ShowModal;
  finally
    Free
  end;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  AdoGzgl.Connected := False;
  AdoGzgl := nil;
end;

end.