main.dfm

Delphi写的权限管理源代码

object frmmain: Tfrmmain
  Left = -4
  Top = -4
  BorderStyle = bsToolWindow
  Caption = #31649#29702#26435#38480
  ClientHeight = 692
  ClientWidth = 1024
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu
  OldCreateOrder = False
  ObjectMenuItem = about
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object buttomBar: TRzStatusBar
    Left = 0
    Top = 673
    Width = 1024
    Height = 19
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object RzStatusPane1: TRzStatusPane
      Left = 0
      Top = 0
      Width = 50
      Height = 19
      Align = alLeft
      Caption = #25805#20316#21592
    end
    object PanName: TRzStatusPane
      Left = 50
      Top = 0
      Width = 77
      Height = 19
      Align = alLeft
      Alignment = taCenter
      Caption = 'SYS'
    end
    object RzStatusPane3: TRzStatusPane
      Left = 127
      Top = 0
      Width = 75
      Height = 19
      Align = alLeft
      Alignment = taRightJustify
      Caption = #30331#24405#26102#38388':'
    end
    object RzStatusPane4: TRzStatusPane
      Left = 202
      Top = 0
      Width = 148
      Height = 19
      Align = alLeft
      Alignment = taCenter
      Caption = '2007-3-12 14:32:10'
    end
    object RzStatusPane5: TRzStatusPane
      Left = 350
      Top = 0
      Width = 74
      Height = 19
      Align = alLeft
      Alignment = taRightJustify
      Caption = #31995#32479#26102#38388':'
    end
    object RzClockStatus1: TRzClockStatus
      Left = 424
      Top = 0
      Height = 19
      Align = alLeft
      Alignment = taCenter
    end
    object Progress: TRzProgressStatus
      Left = 753
      Top = 0
      Width = 271
      Height = 19
      Align = alClient
      ParentShowHint = False
      PartsComplete = 0
      Percent = 0
      TotalParts = 0
    end
    object RzStatusPane2: TRzStatusPane
      Left = 574
      Top = 0
      Width = 179
      Height = 19
      Align = alLeft
      Alignment = taCenter
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1024
    Height = 42
    ButtonHeight = 36
    ButtonWidth = 59
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 1
    object BtLoadPic: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #23548#20837#22270#29255
      ImageIndex = 7
      Visible = False
    end
    object BtEnrol: TToolButton
      Left = 63
      Top = 0
      AutoSize = True
      Caption = #20449#24687#24405#20837
      ImageIndex = 4
      Visible = False
    end
    object BtAud: TToolButton
      Left = 126
      Top = 0
      AutoSize = True
      Caption = #20449#24687#23457#26680
      ImageIndex = 1
      Visible = False
    end
    object Splitter1: TSplitter
      Left = 189
      Top = 0
      Width = 7
      Height = 36
      Beveled = True
    end
    object BtNotice: TToolButton
      Left = 196
      Top = 0
      AutoSize = True
      Caption = #20449#24687#21457#24067
      ImageIndex = 6
      Visible = False
    end
    object BtPunish: TToolButton
      Left = 259
      Top = 0
      Caption = #22788#32602
      ImageIndex = 12
      Visible = False
    end
    object Splitter2: TSplitter
      Left = 318
      Top = 0
      Width = 7
      Height = 36
      Beveled = True
    end
    object Btsearch: TToolButton
      Left = 325
      Top = 0
      AutoSize = True
      Caption = #20449#24687#26597#35810
      ImageIndex = 13
      Visible = False
      OnClick = BtsearchClick
    end
    object QX: TToolButton
      Left = 388
      Top = 0
      Caption = #26435#38480#31649#29702
      ImageIndex = 0
      Visible = False
      OnClick = QXClick
    end
    object Splitter3: TSplitter
      Left = 447
      Top = 0
      Width = 7
      Height = 36
      Beveled = True
    end
    object BtExit: TToolButton
      Left = 454
      Top = 0
      Caption = #36864#20986#31995#32479
      ImageIndex = 14
      OnClick = BtExitClick
    end
  end
  object MainMenu: TMainMenu
    AutoHotkeys = maManual
    Left = 528
    Top = 136
    object InputMenu: TMenuItem
      Caption = #25968#25454#24405#20837'(&E)'
      Visible = False
      object LoadPecPicture: TMenuItem
        Caption = #22270#29255#23548#20837
        Visible = False
      end
      object PecEnrol: TMenuItem
        Caption = #20449#24687#24405#20837
        Visible = False
      end
      object PecAuditing: TMenuItem
        Caption = #20449#24687#23457#26680
        Visible = False
      end
    end
    object OperMenu: TMenuItem
      Caption = #22788#29702'(&P)'
      GroupIndex = 1
      Visible = False
      object Notice: TMenuItem
        Caption = #20449#24687#21457#24067
        Visible = False
      end
      object Punish: TMenuItem
        Caption = #22788#32602
        Visible = False
      end
    end
    object SearchMenu: TMenuItem
      Caption = #25968#25454#26597#35810'(&S)'
      GroupIndex = 2
      Visible = False
      object PecSearch: TMenuItem
        Caption = #26597#35810
        Visible = False