unit fBaseMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PRGICO, Menus, ExtCtrls, ComCtrls, Buttons, wwSpeedButton,
  wwDBNavigator, wwclearpanel, ToolWin, ImgList, StdCtrls, StdActns,
  DBActns, ActnList,ShellApi,AdoDb,DataMod,func;

type
  TfBaseMainform = class(TfPRGICO)
    StatusBar: TStatusBar;
    Timer1: TTimer;
    MainCoolBar: TCoolBar;
    ToolBar2: TToolBar;
    wwDBNavigator: TwwDBNavigator;
    wwDBNavigatorFirst: TwwNavButton;
    wwDBNavigatorProi: TwwNavButton;
    wwDBNavigatorNext: TwwNavButton;
    wwDBNavigatorLast: TwwNavButton;
    wwDBNavigatorRefresh: TwwNavButton;
    ToolButton2: TToolButton;
    spbNew: TSpeedButton;
    spbModify: TSpeedButton;
    spbDelete: TSpeedButton;
    spbPost: TSpeedButton;
    spbCancel: TSpeedButton;
    ToolBar3: TToolBar;
    SpeedButton2: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton1: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ToolBar1: TToolBar;
    SpeedButton9: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton12: TSpeedButton;
    Animate1: TAnimate;
    pnlNavigator: TPanel;
    Bevel1: TBevel;
    Label1: TLabel;
    SpeedButton13: TSpeedButton;
    TVnavigation: TTreeView;
    ImageList1: TImageList;
    ActionList1: TActionList;
    EditCopy: TEditCopy;
    EditCut: TEditCut;
    EditPaste: TEditPaste;
    EditSelectAll: TEditSelectAll;
    Exit: TAction;
    DataSetEdit: TDataSetEdit;
    Login: TAction;
    Logout: TAction;
    SystemLock: TAction;
    ChangePWS: TAction;
    UserRightsSet: TAction;
    SystemSet: TAction;
    WindowClose: TWindowClose;
    WindowCascade: TWindowCascade;
    WindowTileHorizontal: TWindowTileHorizontal;
    WindowTileVertical: TWindowTileVertical;
    WindowMinimizeAll: TWindowMinimizeAll;
    WindowArrange: TWindowArrange;
    DataSetFirst: TDataSetFirst;
    DataSetPrior: TDataSetPrior;
    DataSetNext: TDataSetNext;
    DataSetLast: TDataSetLast;
    DataSetPost: TDataSetPost;
    DataSetCancel: TDataSetCancel;
    DataSetRefresh: TDataSetRefresh;
    SearchFind: TSearchFind;
    SearchFindNext: TSearchFindNext;
    SearchReplace: TSearchReplace;
    SearchFindFirst1: TSearchFindFirst;
    WindowCloseAll: TAction;
    ShowTool: TAction;
    ShowStatusBar: TAction;
    Help: TAction;
    HowUseHelp: TAction;
    Aboutsystem: TAction;
    New: TAction;
    Modify: TAction;
    Delete: TAction;
    Post: TAction;
    Cancel: TAction;
    MainMenu: TMainMenu;
    S1: TMenuItem;
    mnuLogin: TMenuItem;
    mnuLogOut: TMenuItem;
    mnuLocksystem: TMenuItem;
    N5: TMenuItem;
    mnuChangePassword: TMenuItem;
    N6: TMenuItem;
    mnuSetright: TMenuItem;
    mnuSystemSet: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    E1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Find1: TMenuItem;
    FindFirst1: TMenuItem;
    FindNext1: TMenuItem;
    Replace1: TMenuItem;
    N37: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    V1: TMenuItem;
    N18: TMenuItem;
    N17: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    WindowMenu: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    H1: TMenuItem;
    N47: TMenuItem;
    N43: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N1: TMenuItem;
    ShowNavigator: TAction;
    N12121212121: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N44: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure UserRightsSetExecute(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure WindowCloseExecute(Sender: TObject);
    procedure WindowCloseAllExecute(Sender: TObject);
    procedure HelpExecute(Sender: TObject);
    procedure HelpUpdate(Sender: TObject);
    procedure HowUseHelpExecute(Sender: TObject);
    procedure ShowNavigatorExecute(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure ShowToolExecute(Sender: TObject);
    procedure ShowStatusBarExecute(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure ExitExecute(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure TVnavigationDblClick(Sender: TObject);
    procedure LoginExecute(Sender: TObject);
    procedure LogoutExecute(Sender: TObject);
    procedure SystemLockExecute(Sender: TObject);
    procedure ChangePWSExecute(Sender: TObject);
  private
    { Private declarations }
    procedure SetStatusMessage(Sender:TObject);
    procedure CreateChildForm(Const FormClass:TFormClass;Var FormVal;Const Wait:Boolean;const Sender: tObject);
    procedure InitNavigation;
    procedure NavigationAddFunction(const root:TTreeNode;const MenuItem: TMenuItem);
    function  GetRights(Const UserID:String;Const MenuID:String):TRights;
    procedure SetRight;
    procedure SetFunMenuVisible(const Menu:TObject;Const UserID:string);
    procedure SetSubFunMenuVisible(Const Menu:TMenuItem);
  public
    { Public declarations }
    function DoLogin(const UserID:String;const Password:String):Boolean;
  end;



var
  fBaseMainform: TfBaseMainform;

implementation

uses User, MenuManager, WaitingForm, Login, Lock, ChangePassword;

{$R *.dfm}
procedure TfBaseMainform.InitNavigation;
var
    i:Integer;
    tnRoot:TTreeNode;
begin
    TVnavigation.Items.Clear ;
    tnRoot:=TVnavigation.Items.Add(nil,'╰參