main.pas

来自「考勤管理系统很有借鉴的饿意义」· PAS 代码 · 共 90 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, Menus, ToolWin, ActnMan, ActnCtrls, StdActns, StdCtrls,
  XPStyleActnCtrls, jpeg, ExtCtrls, KqglCommon, Kqjl, dmKqgl, Ygxxwh, Kqtj,
  ComCtrls, Buttons;

type
  TMainForm = class(TForm)
    amMain: TActionManager;
    acKqjl: TAction;
    acYgxxwh: TAction;
    pnlMain: TPanel;
    acKqtj: TAction;
    imgBack: TImage;
    btKqjl: TBitBtn;
    btKqtj: TBitBtn;
    btYgxxwh: TBitBtn;
    lblTitle: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure acKqjlExecute(Sender: TObject);
    procedure acKqtjExecute(Sender: TObject);
    procedure acYgxxwhExecute(Sender: TObject);
  private
    FdmKqgl: TdmKqgl;
  public
  end;

var
  MainForm: TMainForm;

implementation
{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FdmKqgl := TdmKqgl.Create(self);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  FdmKqgl := nil;
end;

procedure TMainForm.FormResize(Sender: TObject);
begin
  with pnlMain do
  begin
    left := (MainForm.Width - Width) div 2;
    top := (MainForm.Height - Height) div 2;
  end;
end;

procedure TMainForm.acKqjlExecute(Sender: TObject);
begin
  with TKqjlForm.Create(Self, FdmKqgl) do
  try
    ShowModal;
  finally
    free
  end;
end;

procedure TMainForm.acKqtjExecute(Sender: TObject);
begin
  with TKqtjForm.Create(Self, FdmKqgl) do
  try
    ShowModal;
  finally
    free
  end;
end;

procedure TMainForm.acYgxxwhExecute(Sender: TObject);
begin
  with TYgxxwhForm.Create(Self, FdmKqgl) do
  try
    ShowModal;
  finally
    free
  end;
end;

end.