frmmain.pas

实用的茶楼管理系统

unit frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ActnList, StdCtrls, Buttons, ExtCtrls;

type
  TMainForm = class(TForm)
    ActionList1: TActionList;
    Act_Menu: TAction;
    Act_Table: TAction;
    Act_OrderDishes: TAction;
    Act_Search: TAction;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Act_Exit: TAction;
    procedure Act_MenuExecute(Sender: TObject);
    procedure Act_TableExecute(Sender: TObject);
    procedure Act_OrderDishesExecute(Sender: TObject);
    procedure Act_SearchExecute(Sender: TObject);
    procedure Act_ExitExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses frmMenu, frmTable, frmOrderDishes, frmSearch;

{$R *.dfm}

procedure TMainForm.Act_MenuExecute(Sender: TObject);
begin
  MenuForm:= TMenuForm.Create(self);
  MenuForm.ShowModal;
end;

procedure TMainForm.Act_TableExecute(Sender: TObject);
begin
  TableForm:=TTableForm.Create(self);
  TableForm.ShowModal;
end;

procedure TMainForm.Act_OrderDishesExecute(Sender: TObject);
begin
  OrderDishesForm:=TOrderDishesForm.Create(self);
  OrderDishesForm.ShowModal;
end;

procedure TMainForm.Act_SearchExecute(Sender: TObject);
begin
  SearchForm:=TSearchForm.Create(self);
  SearchForm.ShowModal;  
end;

procedure TMainForm.Act_ExitExecute(Sender: TObject);
var
  msg:string;
begin
  msg:='确定退出吗？';
  if MessageBox(Application.Handle,Pchar(msg),Pchar('系统提示'),mb_OKCancel) = ID_OK then
    Application.Terminate;
end;

end.