main.~pas

来自「一个不错的酒店管理系统 用delphi7实现」· ~PAS 代码 · 共 67 行

unit MAIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons,ORDER,BK,DL;

type
  TMAINForm = class(TForm)
    Label1: TLabel;
    BtBOOK: TBitBtn;
    BtORDER: TBitBtn;
    BtMANa: TBitBtn;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    procedure BtBOOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtORDERClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MAINForm: TMAINForm;

implementation

{$R *.dfm}

procedure TMAINForm.BtBOOKClick(Sender: TObject);
begin
 Application.CreateForm(TBKForm,BKForm);
 with BKForm do
 try
  showModal;
  finally
  Free;
  end;
end;

procedure TMAINForm.FormShow(Sender: TObject);
begin
 Application.CreateForm(TDLForm,DLForm);
with DLForm do
try
 showModal;
 finally
 Free;
 end;
end;

procedure TMAINForm.BtORDERClick(Sender: TObject);
begin
 Application.CreateForm(TORDERForm,ORDERForm);
 with ORDERForm do
 try
  showModal;
  finally
  Free;
  end;
end;

end.