u_main.pas

以多个信息系统为例

unit u_main;

interface

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

type
  TF_main = class(TForm)
    MainMenu1: TMainMenu;
    M_system: TMenuItem;
    M_exit: TMenuItem;
    M_room: TMenuItem;
    M_operator: TMenuItem;
    M_code: TMenuItem;
    M_stat: TMenuItem;
    M_help: TMenuItem;
    M_content: TMenuItem;
    M_search: TMenuItem;
    N7: TMenuItem;
    M_about: TMenuItem;
    M_add_room: TMenuItem;
    M_modify_room: TMenuItem;
    StatusBar1: TStatusBar;
    M_other: TMenuItem;
    N12: TMenuItem;
    M_windows: TMenuItem;
    M_cascade: TMenuItem;
    M_horizental: TMenuItem;
    M_vertical: TMenuItem;
    M_minimize: TMenuItem;
    ActionList: TActionList;
    HelpContents: THelpContents;
    HelpTopicSearch: THelpTopicSearch;
    WindowCascade: TWindowCascade;
    WindowMinimizeAll: TWindowMinimizeAll;
    WindowTileHorizontal: TWindowTileHorizontal;
    WindowTileVertical: TWindowTileVertical;
    SystemExit: TAction;
    RoomAdd: TAction;
    ImageList: TImageList;
    HelpAbout: TAction;
    RoomModify: TAction;
    RoomStat: TAction;
    OtherOperator: TAction;
    OtherCode: TAction;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    procedure RoomAddExecute(Sender: TObject);
    procedure RoomModifyExecute(Sender: TObject);
    procedure HelpAboutExecute(Sender: TObject);
    procedure SystemExitExecute(Sender: TObject);
    procedure OtherOperatorExecute(Sender: TObject);
    procedure OtherCodeExecute(Sender: TObject);
    procedure RoomStatExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses u_about, u_operator, u_modify, u_add, u_code, u_stat;

{$R *.DFM}

procedure TF_main.RoomAddExecute(Sender: TObject);
begin
  Application.CreateForm(TF_add, F_add);
  RoomAdd.Enabled:=False;
end;

procedure TF_main.RoomModifyExecute(Sender: TObject);
begin
  Application.CreateForm(TF_modify, F_modify);
  RoomModify.Enabled:=False;
end;

procedure TF_main.HelpAboutExecute(Sender: TObject);
begin
  F_about.ShowModal;
end;

procedure TF_main.SystemExitExecute(Sender: TObject);
begin
  Close;
end;

procedure TF_main.OtherOperatorExecute(Sender: TObject);
begin
  Application.CreateForm(TF_operator, F_operator);
  OtherOperator.Enabled:=False;
end;

procedure TF_main.OtherCodeExecute(Sender: TObject);
begin
  Application.CreateForm(TF_code, F_code);
  OtherCode.Enabled:=False;
end;

procedure TF_main.RoomStatExecute(Sender: TObject);
begin
  Application.CreateForm(TF_stat, F_stat);
  RoomStat.Enabled:=False;
end;

end.