frm_mainu.pas

小区物业管理系统是为小区管理者更好的维护小区各项业务处理工作而开发的管理软件

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);    //创建登录窗体
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.