umain.pas

简单易用的按件按时计工资管理系统

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBaseMain, ImgList, Menus, ActnList;

type
  TMainForm = class(TBaseMain)
    actionsFun: TActionList;
    actNavigator: TAction;
    N4: TMenuItem;
    N5: TMenuItem;
    actPayOrder: TAction;
    actRep: TAction;
    actBaseInfo: TAction;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure actNavigatorExecute(Sender: TObject);
    procedure actPayOrderExecute(Sender: TObject);
    procedure actRepExecute(Sender: TObject);
    procedure actBaseInfoExecute(Sender: TObject);
  private
    { Private declarations }
  protected
    FNavigatorVisible: Boolean;
    procedure CreateObjects; override;
    procedure FreeObjects; override;
    procedure InitVars; override;
    procedure ShowNavigator(AShow: boolean);

    procedure RefreshSysData;
  public
    { Public declarations }
    property NavigatorVisible:Boolean read FNavigatorVisible write FNavigatorVisible;

  end;

var
  MainForm: TMainForm;
implementation

uses uDM, uGlobal, uNavigator, uOrderBrowser, uRepBrowser, uBaseInfo,
  uPub_Resource;

{$R *.dfm}

{ TMain }

procedure TMainForm.CreateObjects;
begin
  inherited;
  if DM = nil then
    DM := TDM.Create(self);
  if Pub_Resource = nil then
    Pub_Resource := TPub_Resource.Create(self);

end;

procedure TMainForm.FreeObjects;
begin
  inherited;
  FreeAndNil(DM);
end;

procedure TMainForm.InitVars;
begin
  inherited;
  FNavigatorVisible := False;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  inherited;
  Pub_Login;
  if not HaveLogin then
  begin
    if DM <> nil then
      FreeAndNil(Dm);
    Halt;
  end else
  begin
    RefreshSysData;
  end;
end;

procedure TMainForm.ShowNavigator(AShow: boolean);
begin
  FNavigatorVisible := AShow;
  if AShow then
  begin
    Pub_Navigator := TfmNavigator.Create(self);
    Pub_Navigator.Show;
    actNavigator.Caption := '隐藏导航窗体';
  end else
  begin
    actNavigator.Caption := '显示导航窗体';
    if Pub_Navigator <> nil then
      Pub_Navigator.Close;
    
  end;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  inherited;
  ShowNavigator(not FNavigatorVisible)
end;

procedure TMainForm.actNavigatorExecute(Sender: TObject);
begin
  inherited;
  ShowNavigator(not FNavigatorVisible)
end;

procedure TMainForm.actPayOrderExecute(Sender: TObject);
begin
  inherited;
  TOrderBrowser.Create(self);
end;

procedure TMainForm.actRepExecute(Sender: TObject);
begin
  inherited;
  TRepBrowser.Create(self);
end;

procedure TMainForm.RefreshSysData;
begin
  DM.RefreshSysData ;
end;

procedure TMainForm.actBaseInfoExecute(Sender: TObject);
begin
  inherited;
  TBaseInfo.Create(self);
end;

end.