unit_main.pas

it is art gallery manage system：include of author manage system、production manage system and produc

unit Unit_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ImgList;

type
  TfmMain = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton3: TToolButton;
    f: TMainMenu;
    mnFiles: TMenuItem;
    mnExit: TMenuItem;
    mnUsers: TMenuItem;
    mnFunctions: TMenuItem;
    mnTable: TMenuItem;
    mnWindows: TMenuItem;
    Cascade1: TMenuItem;
    TileHorizontally1: TMenuItem;
    TileVertically1: TMenuItem;
    N4: TMenuItem;
    MinimizeAll1: TMenuItem;
    procedure mnUsersClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

uses Unit_Production;

{$R *.dfm}

procedure TfmMain.mnUsersClick(Sender: TObject);
Var
  i: Integer;
  bCreateFlag: Boolean;
begin
  bCreateFlag:=True;
  For i:=0 To Application.ComponentCount-1 Do
  begin
    If Application.Components[i] Is TfmProductionMgr Then
    begin
//      TfmUserMgr(Application.Components[i]).WindowState:=wsNormal;
//      TfmUserMgr(Application.Components[i]).WindowState:=wsMaximized;
//      TfmUserMgr(Application.Components[i]).BorderIcons:=[biSystemMenu];
//      TfmUserMgr(Application.Components[i]).BorderIcons:=[biSystemMenu,biMinimize,biMaximize];
      TfmProductionMgr(Application.Components[i]).Show;
      bCreateFlag:=False;
    end;
  end;
  If bCreateFlag Then
    Application.CreateForm(TfmProductionMgr,fmProductionMgr);
end;

procedure TfmMain.ToolButton3Click(Sender: TObject);
begin
  close;
end;

end.