【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了ManageM.pas相关资料，希望对各位网友有所帮助!

    unit ManageM;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ImgList, ComCtrls, ToolWin, Menus, jpeg, ExtCtrls;
    
    type
      TManageMFrm = class(TForm)
        Image1: TImage;
        StatusBar1: TStatusBar;
        MainMenu1: TMainMenu;
        Room_M: TMenuItem;
        Room_Add: TMenuItem;
        Room_Modify: TMenuItem;
        Other_M: TMenuItem;
        Operator_M: TMenuItem;
        Report_M: TMenuItem;
        Quit: TMenuItem;
        Help: TMenuItem;
        About: TMenuItem;
        ToolBar1: TToolBar;
        ToolButton1: TToolButton;
        ToolButAdd: TToolButton;
        ToolButModify: TToolButton;
        ToolButton6: TToolButton;
        ToolButOperator: TToolButton;
        ToolButReport: TToolButton;
        ToolButton9: TToolButton;
        ToolButQuit: TToolButton;
        ToolButton11: TToolButton;
        ToolButAbout: TToolButton;
        ImageList1: TImageList;
        Dinner_M: TMenuItem;
        ToolButton2: TToolButton;
        procedure QuitClick(Sender: TObject);
        procedure AboutClick(Sender: TObject);
        procedure Room_AddClick(Sender: TObject);
        procedure Room_ModifyClick(Sender: TObject);
        procedure Operator_MClick(Sender: TObject);
        procedure Report_MClick(Sender: TObject);
        procedure Dinner_MClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      ManageMFrm: TManageMFrm;
    
    implementation
      uses About, RoomAdd, RoomModify, Operator,Report,login,restaurant;
    {$R *.dfm}
    
    procedure TManageMFrm.QuitClick(Sender: TObject);
    begin
      close;
      loginFrm.Show;
    end;
    
    procedure TManageMFrm.AboutClick(Sender: TObject);
    begin
      AboutFrm.show;
    end;
    
    procedure TManageMFrm.Room_AddClick(Sender: TObject);
    begin
      RoomAddFrm.ShowModal;
    end;
    
    procedure TManageMFrm.Room_ModifyClick(Sender: TObject);
    begin
      RoomModifyFrm.ShowModal;
    end;
    
    procedure TManageMFrm.Operator_MClick(Sender: TObject);
    begin
      OperatorFrm.ShowModal;
    end;
    
    procedure TManageMFrm.Report_MClick(Sender: TObject);
    begin
      ReportFrm.Show;
    end;
    
    procedure TManageMFrm.Dinner_MClick(Sender: TObject);
    begin 
      RestFrm.Show;
    end;
    
    end.
    

上一篇：HLINKCTL.CPP
下一篇：顶棚装饰工程施工