mainformunit.pas

很好地delphi书籍源码

unit MainFormUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, DB, DBTables, ComCtrls, StdCtrls, Grids, ValEdit,
  ExtCtrls, DBGrids, ToolWin, jpeg;

type
  TMainForm = class(TForm)
    ToolbarImages: TImageList;
    MainMenu1: TMainMenu;
    Menu_1: TMenuItem;
    Menu1_1: TMenuItem;
    Menu1_6: TMenuItem;
    Menu_3: TMenuItem;
    Menu3_1: TMenuItem;
    Menu3_2: TMenuItem;
    Menu3_3: TMenuItem;
    Menu3_4: TMenuItem;
    StatusBar1: TStatusBar;
    Menu1_7: TMenuItem;
    Menu_4: TMenuItem;
    Menu4_2: TMenuItem;
    Menu2_4: TMenuItem;
    N11: TMenuItem;
    Menu2_1: TMenuItem;
    Menu2_2: TMenuItem;
    Menu2_3: TMenuItem;
    Menu3_5: TMenuItem;
    Menu1_5: TMenuItem;
    Menu_2: TMenuItem;
    N7: TMenuItem;
    Menu1_2: TMenuItem;
    Menu4_1: TMenuItem;
    Menu4_4: TMenuItem;
    N2: TMenuItem;
    ExitMenu_1: TMenuItem;
    Menu3_6: TMenuItem;
    N25: TMenuItem;
    Menu4_5: TMenuItem;
    N30: TMenuItem;
    ToolBar1: TToolBar;
    ToolB1: TToolButton;
    ToolB2: TToolButton;
    ToolB4: TToolButton;
    ToolB3: TToolButton;
    N26: TMenuItem;
    Menu4_3: TMenuItem;
    N6: TMenuItem;
    Menu1_3: TMenuItem;
    Image1: TImage;
    ToolB5: TToolButton;
    ToolBar2: TToolBar;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    N23: TMenuItem;
    Menu2_5: TMenuItem;
    Menu2_6: TMenuItem;
    Menu1_4: TMenuItem;
    TitleLabel: TLabel;
    N10: TMenuItem;
    N28: TMenuItem;
    procedure DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure Menu1_1Click(Sender: TObject);
    procedure Menu1_6Click(Sender: TObject);
    procedure ExitMenu_1Click(Sender: TObject);
    procedure Menu4_2Click(Sender: TObject);
    procedure Menu2_2Click(Sender: TObject);
    procedure HotelFeeRecord(Sender: TObject);
    procedure EditGuestInf(Sender: TObject);
    procedure Menu1_5Click(Sender: TObject);
    procedure Menu2_4Click(Sender: TObject);
    procedure Menu1_2Click(Sender: TObject);
    procedure Menu4_1Click(Sender: TObject);
    procedure Menu4_4Click(Sender: TObject);
    procedure Menu4_3Click(Sender: TObject);
    procedure Menu1_3Click(Sender: TObject);
    procedure Menu2_6Click(Sender: TObject);
    procedure Menu2_5Click(Sender: TObject);
    procedure Menu1_4Click(Sender: TObject);
    procedure ToolB4Click(Sender: TObject);

  private
    Waitress :String;
    Exact24_Hour:boolean;
    CurrDir:string;
    procedure MenueDrawItemX(xMenu: TMenu);
//    function  ChildFormExists(FormName:String):Boolean;
  public
  end;

var
  MainForm: TMainForm;

implementation

uses DataModuleUnit,MenuXPUnit, InputGuestInfUnit, InputGRoomUnit,
  GetYourInputUnit,ModGInfUnit,RoomPriceUnit, HotelRecordUnit,
  ShowGRoomFeeUnit,AddGRoomUnit, DecGRoomUnit, AccountUnit, RoomKindUnit,
  UserUnit,LoginUnit,MoneyFromHUnit1, OldGuestUnit, BookTicketUnit,
  LivingGuestUnit, BookRoomUnit;
{$R *.DFM}

{function TMainForm.ChildFormExists(FormName:String):Boolean;
var i:Integer;
begin
  Result:=False;
  For i:=0 to MDIChildCount-1 do
  begin
    if MDIChildren[i].Name=FormName then
    begin
      MDIChildren[i].WindowState:=wsMaximized;
      Result:=True;
      //如果Form已经存在，就显示它
      Break;
    end;
  end;
end;
}
procedure TMainForm.DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
  Selected: Boolean);
begin
  MenueDrawItem(Sender, ACanvas, ARect, Selected);
end;

procedure TMainForm.MenueDrawItemX(xMenu: TMenu);
var
  i: integer;
  B: TBitmap;
  FMenuItem: TMenuItem;
begin
  B := TBitmap.Create;
  B.Width := 1;
  B.Height := 1;
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TMenuItem then
      begin
        FMenuItem := TMenuItem(Components[i]);
        FMenuItem.OnDrawItem := DrawItem;
        if (FMenuItem.ImageIndex = -1) and
           (FMenuItem.Bitmap.width = 0) and (xMenu <> nil) then
          if FMenuItem.GetParentComponent.Name <> xMenu.Name then
            FMenuItem.Bitmap.Assign(b);
      end;
  B.Free;
  DrawMenuBar(handle);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  CurrDir:=ExtractFilePath(ParamStr(0));
  MenueDrawItemX(Menu);
  Exact24_Hour:=false;
  Menu_1.Visible:=false;
  Menu_2.Visible:=false;
  Menu_3.Visible:=false;
  Menu_4.Visible:=false;
  ToolBar1.Visible:=false;
  ToolBar2.Visible:=false;
  TitleLabel.Left:=(ClientWidth-TitleLabel.Width-ToolBar1.Width) div 2;
  Waitress:=Waiter;
  if GuestKind='客房部' then
  begin
    Menu_1.Visible:=true;
    Menu_2.Visible:=true;
    ToolBar1.Visible:=true;
  end;
  if GuestKind='服务部' then
  begin
    Menu_3.Visible:=true;
    ToolBar2.Visible:=true;
  end;
  if GuestKind='经理室' then  Menu_4.Visible:=true;
  if GuestKind='管理员' then
  begin
    ToolBar1.Visible:=true;
    ToolBar2.Visible:=true;
    Menu_1.Visible:=true;
    Menu_2.Visible:=true;
    Menu_3.Visible:=true;
    Menu_4.Visible:=true;
  end;
end;

procedure TMainForm.Menu1_1Click(Sender: TObject);
begin
  FrmInputGInfo:=TFrmInputGInfo.Create(self);
  FrmInputGInfo.NameL.Caption:=Waitress;
  FrmInputGInfo.ShowModal;

end;

procedure TMainForm.Menu1_6Click(Sender: TObject);
begin
  FrmDecGRoom:=TFrmDecGRoom.Create(self);
  FrmDecGRoom.ShowModal;
end;

procedure TMainForm.HotelFeeRecord(Sender: TObject);
var
  N:Word;
begin
  N:=0;
  if (Sender is TMenuItem ) then
     N:=(Sender as TMenuItem).Tag;
  if (Sender is TToolButton) then
     N:=(Sender as TToolButton).Tag;
  FrmHotelRecord:=TFrmHotelRecord.Create(Application,N);
  FrmHotelRecord.ShowModal;
end;

procedure TMainForm.ExitMenu_1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TMainForm.Menu4_2Click(Sender: TObject);
begin
  FrmRoomPrice:=TFrmRoomPrice.Create(Application);
  FrmRoomPrice.ShowModal;
end;

procedure TMainForm.Menu2_2Click(Sender: TObject);
begin
  FrmLookGRoomFee:=TFrmLookGRoomFee.Create(Application);
  FrmLookGRoomFee.ShowModal;
end;

procedure TMainForm.EditGuestInf(Sender: TObject);
var
   N:Word;
begin
  N:=(Sender as TMenuItem).Tag; //等于0 表示查询;1表示修改
  FrmModGInf:=TFrmModGInf.Create(Application,N);
  FrmModGInf.ShowModal;
end;

procedure TMainForm.Menu1_5Click(Sender: TObject);
begin
    FrmAddGRoom:=TFrmAddGRoom.Create(Application);
    FrmAddGRoom.ShowModal;

end;

procedure TMainForm.Menu2_4Click(Sender: TObject);
begin
  FrmRoomPrice:=TFrmRoomPrice.Create(Application);
  FrmRoomPrice.AddTButton.Visible:=false;
  FrmRoomPrice.ModTButton.Visible:=false;
  FrmRoomPrice.DelTButton.Visible:=false;
  FrmRoomPrice.ShowModal;

end;

procedure TMainForm.Menu1_2Click(Sender: TObject);
begin
  FrmAccount:=TFrmAccount.Create(Application);
  FrmAccount.ShowModal;
end;

procedure TMainForm.Menu4_1Click(Sender: TObject);
begin
  FrmRoomKind:=TFrmRoomKind.Create(Application);
  FrmRoomKind.ShowModal;
end;

procedure TMainForm.Menu4_4Click(Sender: TObject);
begin
  FrmUser:=TFrmUser.Create(Application);
  FrmUser.ShowModal;
end;

procedure TMainForm.Menu4_3Click(Sender: TObject);
begin

  FrmMoney_1:=TFrmMoney_1.Create(Application);
  FrmMoney_1.ShowModal;
end;

procedure TMainForm.Menu1_3Click(Sender: TObject);
begin
  FrmBookTicket:=TFrmBookTicket.Create(Application);
  FrmBookTicket.ShowModal;
end;

procedure TMainForm.Menu2_6Click(Sender: TObject);
begin
  FrmOldGuest:=TFrmOldGuest.Create(Application);
  FrmOldGuest.ShowModal;
end;

procedure TMainForm.Menu2_5Click(Sender: TObject);
begin
  FrmLivingGuest:=TFrmLivingGuest.Create(Application);
  FrmLivingGuest.ShowModal;
end;

procedure TMainForm.Menu1_4Click(Sender: TObject);
begin
  FrmBookRoom:=TFrmBookRoom.Create(Application);
  FrmBookRoom.ShowModal;
end;

procedure TMainForm.ToolB4Click(Sender: TObject);
begin
  FrmModGInf:=TFrmModGInf.Create(Application,0);
  FrmModGInf.ShowModal;
end;

end.