managem.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 94 行

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.