main.pas

一个小型的酒店管理系统

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, ToolWin, Menus, ImgList;

type
  TMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    L: TMenuItem;
    MenuLogin: TMenuItem;
    MenuLogout: TMenuItem;
    N3: TMenuItem;
    MenuQuit: TMenuItem;
    D: TMenuItem;
    MenuDataIn: TMenuItem;
    MenuDataDe: TMenuItem;
    MenuDataMo: TMenuItem;
    F: TMenuItem;
    MenuFind: TMenuItem;
    MenuFind1: TMenuItem;
    MenuFind2: TMenuItem;
    H: TMenuItem;
    MenuHelp2: TMenuItem;
    StatusBar1: TStatusBar;
    Image1: TImage;
    N1: TMenuItem;
    MenuUser: TMenuItem;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    LoginBtn: TToolButton;
    LogoutBtn: TToolButton;
    QuitBtn: TToolButton;
    DataInsBtn: TToolButton;
    DataDelBtn: TToolButton;
    DataModiBtn: TToolButton;
    Find1Btn: TToolButton;
    UserBtn: TToolButton;
    HelpBtn: TToolButton;
    find2Btn: TToolButton;
    procedure MenuLoginClick(Sender: TObject);
    procedure MenuQuitClick(Sender: TObject);
    procedure MenuLogoutClick(Sender: TObject);
    procedure MenuDataInClick(Sender: TObject);
    procedure MenuHelp2Click(Sender: TObject);
    procedure MenuDataDeClick(Sender: TObject);
    procedure MenuDataMoClick(Sender: TObject);
    procedure MenuFind1Click(Sender: TObject);
    procedure MenuFind2Click(Sender: TObject);
    procedure MenuUserClick(Sender: TObject);
    procedure LoginBtnClick(Sender: TObject);
    procedure LogoutBtnClick(Sender: TObject);
    procedure QuitBtnClick(Sender: TObject);
    procedure DataInsBtnClick(Sender: TObject);
    procedure DataDelBtnClick(Sender: TObject);
    procedure DataModiBtnClick(Sender: TObject);
    procedure Find1BtnClick(Sender: TObject);
    procedure find2BtnClick(Sender: TObject);
    procedure UserBtnClick(Sender: TObject);
    procedure HelpBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

{$R *.dfm}

uses Login,Insert,Delete,Modify,Find1,Find2,User,Help2;

procedure TMainFrm.MenuLoginClick(Sender: TObject);
begin
  LoginFrm.Show;
end;

procedure TMainFrm.MenuQuitClick(Sender: TObject);
begin
  Close;
end;

procedure TMainFrm.MenuLogoutClick(Sender: TObject);
begin
  MainFrm.MenuLogout.Enabled := False;
  MainFrm.MenuDataIn.Enabled := False;
  MainFrm.MenuDataDe.Enabled := False;
  MainFrm.MenuDataMo.Enabled := False;
  MainFrm.MenuFind.Enabled := False;
  MainFrm.MenuFind1.Enabled := False;
  MainFrm.MenuFind2.Enabled := False;
  MainFrm.MenuUser.Enabled := False;
  MainFrm.MenuLogin.Enabled := True;
end;


procedure TMainFrm.MenuDataInClick(Sender: TObject);
var
  ConnTime: string;
begin
  ConnTime := DateToStr(Date());
  InsertFrm.ConnTime.Caption := '联系时间：' + ConnTime ;
  InsertFrm.StaPerson.Caption := '统计人：' + LoginFrm.User;
  InsertFrm.Show;
end;

procedure TMainFrm.MenuHelp2Click(Sender: TObject);
begin
  Help2Frm.Show;
end;

procedure TMainFrm.MenuDataDeClick(Sender: TObject);
begin
  DeleteFrm.Show;
end;

procedure TMainFrm.MenuDataMoClick(Sender: TObject);
begin
  ModiFrm.Show;
end;

procedure TMainFrm.MenuFind1Click(Sender: TObject);
begin
  Find1Frm.Show;
end;

procedure TMainFrm.MenuFind2Click(Sender: TObject);
begin
  Find2Frm.Show;
end;

procedure TMainFrm.MenuUserClick(Sender: TObject);
begin
  UserFrm.Show;
end;

procedure TMainFrm.LoginBtnClick(Sender: TObject);
begin
  LoginFrm.Show;
end;

procedure TMainFrm.LogoutBtnClick(Sender: TObject);
begin
  MainFrm.LogoutBtn.Enabled := False;
  MainFrm.DataInsBtn.Enabled := False;
  MainFrm.DataDelBtn.Enabled := False;
  MainFrm.DataModiBtn.Enabled := False;
  MainFrm.Find1Btn.Enabled := False;
  MainFrm.Find2Btn.Enabled := False;
  MainFrm.UserBtn.Enabled := False;
  MainFrm.LoginBtn.Enabled := True;
end;

procedure TMainFrm.QuitBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TMainFrm.DataInsBtnClick(Sender: TObject);
var
  ConnTime: string;
begin
  ConnTime := DateToStr(Date());
  InsertFrm.ConnTime.Caption := '联系时间：' + ConnTime ;
  InsertFrm.StaPerson.Caption := '统计人：' + LoginFrm.User;
  InsertFrm.Show;
end;

procedure TMainFrm.DataDelBtnClick(Sender: TObject);
begin
  DeleteFrm.Show;
end;

procedure TMainFrm.DataModiBtnClick(Sender: TObject);
begin
  ModiFrm.Show;
end;

procedure TMainFrm.Find1BtnClick(Sender: TObject);
begin
  Find1Frm.Show;
end;

procedure TMainFrm.find2BtnClick(Sender: TObject);
begin
  Find2Frm.Show;
end;

procedure TMainFrm.UserBtnClick(Sender: TObject);
begin
  UserFrm.Show;
end;

procedure TMainFrm.HelpBtnClick(Sender: TObject);
begin
  Help2Frm.Show;
end;

end.