unit frm_mainU;

interface

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

type
  TFrm_main = class(TForm)
    Mmenu: TMainMenu;
    TBar: TToolBar;
    tbtnYZinfo: TToolButton;
    tbtnLouyuInfo: TToolButton;
    N1: TMenuItem;
    N2: TMenuItem;
    Nyzinfo: TMenuItem;
    N_Set: TMenuItem;
    NFeeSet: TMenuItem;
    tbtnFeeSet: TToolButton;
    Nlouyu: TMenuItem;
    N4: TMenuItem;
    NoperatorSet: TMenuItem;
    NChangePWD: TMenuItem;
    N5: TMenuItem;
    Nabout: TMenuItem;
    NClose: TMenuItem;
    NCar: TMenuItem;
    tbtnCarFee: TToolButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure NyzinfoClick(Sender: TObject);
    procedure NFeeSetClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure NlouyuClick(Sender: TObject);
    procedure NoperatorSetClick(Sender: TObject);
    procedure NCloseClick(Sender: TObject);
    procedure NCarClick(Sender: TObject);
    procedure NChangePWDClick(Sender: TObject);
    procedure NaboutClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    userID:integer;
  end;

var
  Frm_main: TFrm_main;

implementation

uses frm_loginU,frm_yzU,frm_FeeSetU,frm_louyuInfoU
     ,frm_OperatorSetU,frm_carFeeU,frm_pwdU,AboutBoxU,Control_OperatorU;

{$R *.dfm}

procedure TFrm_main.FormCreate(Sender: TObject);
begin
  Tfrm_login.Create(self);    //創(chuàng)建登錄窗體
end;

procedure TFrm_main.NyzinfoClick(Sender: TObject);
begin
  Tfrm_yz.Create(self);
end;

procedure TFrm_main.NFeeSetClick(Sender: TObject);
var
  frm_feeset:Tfrm_feeset;
begin
  frm_feeset:=Tfrm_feeset.Create(self);
  frm_feeset.ShowModal;
end;

procedure TFrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataM.ADOCon.Close;
end;

procedure TFrm_main.NlouyuClick(Sender: TObject);
var
  frm_louyu:Tfrm_louyu;
begin
  frm_louyu:=Tfrm_louyu.Create(self);
  frm_louyu.ShowModal;
end;

procedure TFrm_main.NoperatorSetClick(Sender: TObject);
var
  frm_OperatorSet:Tfrm_OperatorSet;
begin
  frm_OperatorSet:=Tfrm_OperatorSet.Create(self);
  frm_OperatorSet.ShowModal;
end;

procedure TFrm_main.NCloseClick(Sender: TObject);
begin
close;
end;

procedure TFrm_main.NCarClick(Sender: TObject);
var
  frm_carFee:Tfrm_carFee;
begin
  frm_carFee:=Tfrm_carFee.Create(self);
  frm_carFee.ShowModal;
end;

procedure TFrm_main.NChangePWDClick(Sender: TObject);
var
  frm_pwd:Tfrm_pwd;
begin
  frm_pwd:=Tfrm_pwd.Create(self);
  frm_pwd.userID:=userID;
  frm_pwd.ShowModal;
end;

procedure TFrm_main.NaboutClick(Sender: TObject);
begin
  AboutBox.Show;
end;

procedure TFrm_main.FormShow(Sender: TObject);
var
  userPower:string;
begin
  userPower:=Control_OperatorU.GetUserPower(self.userID);
  if userPower='操作員' then
    begin
      NoperatorSet.Enabled:=false;
    end
  else
    NoperatorSet.Enabled:=true;
end;

end.