frmmain.pas

毕业论文源码 毕业论文源码 毕业论文源码

unit frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    Menu_Sys: TMenuItem;
    Menu_Reg: TMenuItem;
    Menu_Room: TMenuItem;
    Menu_Order: TMenuItem;
    Menu_Help: TMenuItem;
    Menu_Sys_UserCrtl: TMenuItem;
    Menu_Sys_UserSetting: TMenuItem;
    Menu_Sys_ChangePass: TMenuItem;
    Menu_Sys_Dep: TMenuItem;
    N10: TMenuItem;
    Menu_Reg_Guest: TMenuItem;
    Menu_Reg_Team: TMenuItem;
    N13: TMenuItem;
    Menu_Reg_Dep: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    Menu_Room_Qry: TMenuItem;
    Menu_Room_Guest: TMenuItem;
    Menu_Order_Guest: TMenuItem;
    Menu_Order_TeamQry: TMenuItem;
    Menu_Order_Teem: TMenuItem;
    N26: TMenuItem;
    Menu_Help_About: TMenuItem;
    Menu_Order_History: TMenuItem;
    procedure Menu_Reg_GuestClick(Sender: TObject);
    procedure Menu_Sys_UserCrtlClick(Sender: TObject);
    procedure Menu_Sys_ChangePassClick(Sender: TObject);
    procedure Menu_Sys_UserSettingClick(Sender: TObject);
    procedure Menu_Help_AboutClick(Sender: TObject);
    procedure Menu_Room_QryClick(Sender: TObject);
    procedure Menu_Room_GuestClick(Sender: TObject);
    procedure Menu_Reg_TeamClick(Sender: TObject);
    procedure Menu_Order_TeemClick(Sender: TObject);
    procedure Menu_Order_GuestClick(Sender: TObject);
    procedure Menu_Order_TeamQryClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Menu_Order_HistoryClick(Sender: TObject);
//    procedure Menu_Order_HistoryClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    //当前登陆的用户名和密码
    userName,userPwd:string;
    //当前用户权限
    userPower:string;
    { Public declarations }
    //传递信息
    tmp: string;
    //传递参数
    pram: integer;
    procedure setPower;

  end;

var
  MainForm: TMainForm;

implementation

uses frmRegister, frmRegRoom, UserReg, PassWord, Duty, AboutB,
  frmRoomStateForm, frmGuestCostFrom, frmGroupCostForm, frmQueryBillForm,
  frmGroupQueryBillForm, frmLogInForm, frmHistoryQueryForm;

{$R *.dfm}

procedure TMainForm.setPower;
begin
   if userPower='1' then//管理权限
   begin

   end
   else if userPower='2' then//操作权限
   begin
      Menu_Sys_UserSetting.Enabled:=false;
//     Menu_Sys_ChangePass.Enabled:=false;
//      Menu_DataCtl_UserInfo.Enabled:=false;
//      Menu_DataCtl_MenuInfo.Enabled:=false;
   end
   else if userPower='3' then//访问权限
   begin
      Menu_Sys_UserSetting.Enabled:=false;
      Menu_Sys_ChangePass.Enabled:=false;
//      Menu_DataCtl_UserInfo.Enabled:=false;
//      Menu_DataCtl_MenuInfo.Enabled:=false;
//      Menu_DataCtl_OrderInfo.Enabled:=false;
//      Menu_Query_User.Enabled:=false;
 //    Menu_Query_User.Enabled:=false;
  //    Menu_Query_User.Enabled:=false;

      //将每个查询窗体关于修改，添加，删除按钮制成disabled

   end;
end;

procedure TMainForm.Menu_Reg_GuestClick(Sender: TObject);
begin
//    RegisterRoom := TRegisterRoom.Create(self);
//    RegisterRoom.Show();
    RegUserRoom:= TRegUserRoom.Create(self);
    RegUserRoom.Show();
end;

procedure TMainForm.Menu_Sys_UserCrtlClick(Sender: TObject);
begin
        UserRegForm := TUserRegForm.Create(self);
        UserRegForm.show();
end;

procedure TMainForm.Menu_Sys_ChangePassClick(Sender: TObject);
begin
        PasswdForm := TPasswdForm.create(self);
        Passwdform.show();
end;

procedure TMainForm.Menu_Sys_UserSettingClick(Sender: TObject);
begin
        DutyForm := TDutyForm.create(self);
        DutyForm.show();
end;

procedure TMainForm.Menu_Help_AboutClick(Sender: TObject);
begin
    AboutBox.ShowModal;
end;

procedure TMainForm.Menu_Room_QryClick(Sender: TObject);
begin
    RoomStateForm := TRoomStateForm.create(self);
    RoomStateForm.show;
end;

procedure TMainForm.Menu_Room_GuestClick(Sender: TObject);
begin
    GuestCostForm := TGuestCostForm.create(self);
    GuestCostForm.show;
end;

procedure TMainForm.Menu_Reg_TeamClick(Sender: TObject);
begin
    RegUserRoom:= TRegUserRoom.Create(self);
    RegUserRoom.Show();
    RegUserRoom.TabSheet2.Show;
end;

procedure TMainForm.Menu_Order_TeemClick(Sender: TObject);
begin
    GroupCostForm := TGroupCostForm.create(self);
    GroupCostForm.show;
end;

procedure TMainForm.Menu_Order_GuestClick(Sender: TObject);
begin
    QueryBillForm := TQueryBillForm.create(self);
    QueryBillForm.show;
end;

procedure TMainForm.Menu_Order_TeamQryClick(Sender: TObject);
begin
    GroupQueryBillForm := TGroupQueryBillForm.create(self);
    GroupQueryBillForm.show;
end;

procedure TMainForm.FormShow(Sender: TObject);
var
   rt:integer;
   n:integer;//失败次数
begin
   n:=0;
   frmLogIn:=TFrmLogIn.Create(application);
   while n<3 do
   begin
   rt:=frmLogIn.ShowModal;
   if rt=mrCancel then//用户按取消
   begin
        close;
        exit;
   end
   else if (rt=mrOk) and frmLogIn.canPass then //登陆成功
   begin
      userName:=frmLogIn.name.Text;
      userPwd:=frmLogIn.pwd.Text;
      userPower:=frmLogIn.power;
      setPower;
      exit;
   end
   else
   begin//失败
      n:=n+1;//失败次数增加
      if n>=3 then
      begin
         messageDlg('您已经失败3次，程序将终止',mtWarning,[mbOk],0);
         close;
         application.Terminate;
         exit;
      end
      else//重新尝试
         messageDlg('密码错误，请重试',mtWarning,[mbOk],0);
   end;
   end;

end;

procedure TMainForm.Menu_Order_HistoryClick(Sender: TObject);
begin
    HistoryQueryForm := THistoryQueryForm.create(self);
    HistoryQueryForm.show();
end;

end.