unit MainFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdActns, ActnList, Login, UserInfoFrm, ChildWin,
  ComCtrls, ToolWin;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Menu_Sys_Quit: TMenuItem;
    Menu_Sys_ChangePass: TMenuItem;
    N7: TMenuItem;
    Menu_DataCtl_UserInfo: TMenuItem;
    Menu_DataCtl_MenuInfo: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Menu_Help_About: TMenuItem;
    Menu_Query_User: TMenuItem;
    OpenDialog: TOpenDialog;
    ActionList1: TActionList;
    FileNew1: TAction;
    FileOpen1: TAction;
    FileClose1: TWindowClose;
    FileSave1: TAction;
    FileSaveAs1: TAction;
    FileExit1: TAction;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrangeAll1: TWindowArrange;
    HelpAbout1: TAction;
    Menu_DataCtl_OrderInfo: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    Menu_Query_Meun: TMenuItem;
    Meun_Query_Order: TMenuItem;
    N16: TMenuItem;
    ToolBar1: TToolBar;
    Menu_Sys_UserSetting: TMenuItem;
    N2: TMenuItem;
    procedure Menu_Sys_QuitClick(Sender: TObject);

    procedure FormShow(Sender: TObject);
    procedure Menu_DataCtl_UserInfoClick(Sender: TObject);
    procedure Menu_DataCtl_MenuInfoClick(Sender: TObject);
    procedure Menu_DataCtl_OrderInfoClick(Sender: TObject);
    procedure Menu_Sys_ChangePassClick(Sender: TObject);
    procedure Menu_Sys_UserSettingClick(Sender: TObject);
    procedure Menu_Help_AboutClick(Sender: TObject);
    procedure Menu_Query_UserMoneyClick(Sender: TObject);
    procedure Menu_Query_UserClick(Sender: TObject);
    procedure Menu_Query_MeunClick(Sender: TObject);
    procedure Meun_Query_OrderClick(Sender: TObject);
    procedure Menu_Query_UserOrderClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    //當前登陸的用戶名和密碼
    userName,userPwd:string;
    //當前用戶權限
    userPower:string;
    //根據當前用戶權限設置菜單項和命令按鈕

    procedure setPower;
    procedure CreateMDIChild(const Name: string);
    //設置權限
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses frmMenuInfo, frmOrderInfo, changePwd, authorization, QueryUser,
  QueryMenu, QueryOrder;

{$R *.dfm}

procedure TForm1.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { create a new MDI child window }
  Child := TMDIChild.Create(Application);
  Child.Caption := Name;
  if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;

//用戶登陸
procedure TForm1.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 TForm1.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 TForm1.Menu_Sys_QuitClick(Sender: TObject);
begin
        close;
end;

procedure TForm1.Menu_DataCtl_UserInfoClick(Sender: TObject);
begin
        //顯示用戶管理窗體
        UserInfo := TUserInfo.Create(self);
        UserInfo.Show();
end;

procedure TForm1.Menu_DataCtl_MenuInfoClick(Sender: TObject);
begin
        //顯示菜單管理窗體
        MenuInfo := TMenuInfo.Create(self);
        MenuInfo.Show();
end;

procedure TForm1.Menu_DataCtl_OrderInfoClick(Sender: TObject);
begin
        //顯示訂單管理窗體
        OrderInfo := TOrderInfo.Create(self);
        OrderInfo.Show();
end;

procedure TForm1.Menu_Sys_ChangePassClick(Sender: TObject);
begin
    frmChangePwd := TfrmChangePwd.Create(self);
    frmChangePwd.Show();
end;

procedure TForm1.Menu_Sys_UserSettingClick(Sender: TObject);
begin
   frmAuthorization:=TFrmAuthorization.Create(self);
   frmAuthorization.ShowModal;
   frmAuthorization.Destroy;
end;
procedure TForm1.Menu_Help_AboutClick(Sender: TObject);
begin
    //
end;

procedure TForm1.Menu_Query_UserMoneyClick(Sender: TObject);
begin
    //
end;

procedure TForm1.Menu_Query_UserClick(Sender: TObject);
begin
    //
    frmQueryUser := TfrmQueryUser.Create(self);
    frmQueryUser.ShowModal();
end;

procedure TForm1.Menu_Query_MeunClick(Sender: TObject);
begin
    //
    frmQueryMenu := TfrmQueryMenu.Create(self);
    frmQueryMenu.ShowModal();
end;

procedure TForm1.Meun_Query_OrderClick(Sender: TObject);
begin
    //
    frmQueryOrder := TfrmQueryOrder.Create(self);
    frmQueryOrder.ShowModal();
end;

procedure TForm1.Menu_Query_UserOrderClick(Sender: TObject);
begin
    //
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    //
end;

end.