main.pas

Delphi写的权限管理源代码

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, RzPanel,
  ComCtrls, RzStatus, RzButton, ToolWin, ImgList, IniFiles;

type
  Tfrmmain = class(TForm)
    MainMenu: TMainMenu;
    SearchMenu: TMenuItem;
    SysMenu: TMenuItem;
    HelpMenu: TMenuItem;
    PecSearch: TMenuItem;
    FuzzManager: TMenuItem;
    FuzzInfo: TMenuItem;
    fuzzPur: TMenuItem;
    N23: TMenuItem;
    ExitSys: TMenuItem;
    help: TMenuItem;
    about: TMenuItem;
    InputMenu: TMenuItem;
    LoadPecPicture: TMenuItem;
    PecEnrol: TMenuItem;
    PecAuditing: TMenuItem;
    buttomBar: TRzStatusBar;
    PanName: TRzStatusPane;
    RzStatusPane3: TRzStatusPane;
    RzStatusPane4: TRzStatusPane;
    RzStatusPane5: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    RzStatusPane1: TRzStatusPane;
    Progress: TRzProgressStatus;
    RzStatusPane2: TRzStatusPane;
    OperMenu: TMenuItem;
    Notice: TMenuItem;
    Punish: TMenuItem;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    BtEnrol: TToolButton;
    PecStat: TMenuItem;
    QuarterStat: TMenuItem;
    CrossingStat: TMenuItem;
    TimesStat: TMenuItem;
    N5: TMenuItem;
    NativeStat: TMenuItem;
    TimeStat: TMenuItem;
    BtAud: TToolButton;
    BtNotice: TToolButton;
    Splitter1: TSplitter;
    BtLoadPic: TToolButton;
    BtPunish: TToolButton;
    Splitter2: TSplitter;
    Btsearch: TToolButton;
    BtExit: TToolButton;
    Splitter3: TSplitter;
    QX: TToolButton;
    procedure ExitSysClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure fuzzPurClick(Sender: TObject);
    procedure BtExitClick(Sender: TObject);
    procedure BtsearchClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure QXClick(Sender: TObject);
  private
    //procedure SetVisible;
    { Private declarations }
  public
    procedure SetVisible;
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;


implementation

uses Purview, DM, login;

{$R *.dfm}

procedure Tfrmmain.ExitSysClick(Sender: TObject);
begin
  Close;
end;

procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure Tfrmmain.fuzzPurClick(Sender: TObject);
begin
  if FrmPurview = nil then
    FrmPurview := TFrmPurview.Create(self);
  FrmPurview.Show;
end;


procedure Tfrmmain.BtExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure Tfrmmain.SetVisible;
var
  pur: string;
begin
  FrmDM.QSetVisible.Close;
  FrmDM.QSetVisible.SQL.Text := 'select * from jyqx where jybm='
    + quotedstr(Trim(FrmDM.QLogin.FieldByName('jybh').AsString));
  FrmDM.QSetVisible.Open;
  while not FrmDM.QSetVisible.Eof do
  begin
    pur := Trim(FrmDM.QSetVisible.FieldByName('QXMC').AsString);
    if pur = '数据录入' then
      InputMenu.Visible := True
    else
      if pur = '导入图片' then
      begin
        LoadPecPicture.Visible := True;
        BtLoadPic.Visible := True;
      end
      else
        if pur = '信息录入' then
        begin
          PecEnrol.Visible := True;
          BtEnrol.Visible := True;
        end
        else
          if pur = '信息审核' then
          begin
            PecAuditing.Visible := True;
            BtAud.Visible := True;
          end
          else
            if pur = '处理' then
              OperMenu.Visible := True
            else
              if pur = '信息发布' then
              begin
                Notice.Visible := True;
                BtNotice.Visible := True;
              end
              else
                if pur = '处罚' then
                begin
                  Punish.Visible := True;
                  BtPunish.Visible := True;
                end
                else
                  if pur = '数据查询' then
                    SearchMenu.Visible := True
                  else
                    if pur = '信息查询' then
                    begin
                      FrmMain.PecSearch.Visible := true;
                      Btsearch.Visible := True;
                    end
                    else
                      if pur = '信息统计' then
                        PecStat.Visible := True
                      else
                        if pur = '分季度统计信息' then
                          QuarterStat.Visible := True
                        else
                          if pur = '各地点信息统计' then
                            frmmain.CrossingStat.Visible := True
                          else
                            if pur = '分时段统计信息' then
                              TimeStat.Visible := true
                            else
                              if pur = '次数统计' then
                                TimesStat.Visible := True
                              else
                                if pur = '本地统计' then
                                  NativeStat.Visible := True
                                else
                                  if pur = '系统管理' then
                                    sysmenu.Visible := True
                                  else
                                    if pur = '员工信息配置' then
                                      FuzzManager.Visible := True
                                    else
                                      if pur = '基本信息配置' then
                                        FuzzInfo.Visible := True
                                      else
                                        if pur = '权限配置' then
                                        begin
                                          fuzzPur.Visible := True;
                                          Qx.Visible := True;
                                        end;
    FrmDM.QSetVisible.next;
  end;
  PanName.caption := Trim(FrmDm.QLogin.FieldValues['jyxm']);
end;

procedure Tfrmmain.BtsearchClick(Sender: TObject);
begin
  PecSearch.Click;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
  FrmLogin := TFrmLogin.Create(nil);
  if FrmLogin.ShowModal = mrok then
  begin
    SetVisible;
    self.Show;
  end
  else
    application.Terminate;
end;

procedure Tfrmmain.QXClick(Sender: TObject);
begin
  fuzzPur.Click;
end;

end.