unitacl.dfm

ACL权限控制软件

            Left = 1
            Top = 1
            Width = 350
            Height = 425
            Align = alClient
            Caption = #29992#25143#35282#33394#21015#34920
            TabOrder = 0
            object DBGridEh5: TDBGridEh
              Left = 2
              Top = 15
              Width = 346
              Height = 408
              Align = alClient
              DataSource = DataM.RoleAccessDataSource
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
              PopupMenu = PopupMenu5
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
            end
          end
        end
        object BitBtn15: TBitBtn
          Left = 511
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_SaveUser
          Anchors = [akRight, akBottom]
          Caption = #20445#23384#20462#25913'(&S)'
          TabOrder = 4
        end
        object BitBtn18: TBitBtn
          Left = 16
          Top = 482
          Width = 75
          Height = 25
          Action = DataActionList.Action_ModifyUser
          Anchors = [akLeft, akBottom]
          Caption = #20462#25913'(&M)'
          TabOrder = 5
        end
        object BitBtn19: TBitBtn
          Left = 104
          Top = 482
          Width = 75
          Height = 25
          Action = DataActionList.Action_doModifyUser
          Anchors = [akLeft, akBottom]
          Caption = #30830#23450#20462#25913'(&F)'
          TabOrder = 6
        end
        object BitBtn1: TBitBtn
          Left = 193
          Top = 453
          Width = 75
          Height = 24
          Anchors = [akLeft, akBottom]
          Caption = #23646#24615'(&Z)'
          Enabled = False
          TabOrder = 7
        end
      end
      object TabSheet3: TTabSheet
        Caption = #26435#38480#31649#29702
        ImageIndex = 2
        DesignSize = (
          611
          511)
        object BitBtn12: TBitBtn
          Left = 16
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_AddPermission
          Anchors = [akLeft, akBottom]
          Caption = #22686#21152'(&A)'
          TabOrder = 0
        end
        object BitBtn13: TBitBtn
          Left = 104
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_DelPermission
          Anchors = [akLeft, akBottom]
          Caption = #21024#38500'(&D)'
          TabOrder = 1
        end
        object Panel9: TPanel
          Left = 0
          Top = 12
          Width = 612
          Height = 427
          Anchors = [akLeft, akTop, akRight, akBottom]
          TabOrder = 2
          object GroupBox3: TGroupBox
            Left = 1
            Top = 1
            Width = 610
            Height = 425
            Align = alClient
            Caption = #26435#38480#21517#31216#21015#34920
            TabOrder = 0
            object DBGridEh4: TDBGridEh
              Left = 2
              Top = 15
              Width = 606
              Height = 408
              Align = alClient
              DataSource = DataM.PermissionMDataSource
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking]
              PopupMenu = PopupMenu3
              RowHeight = 4
              RowLines = 1
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
            end
          end
        end
        object BitBtn20: TBitBtn
          Left = 16
          Top = 482
          Width = 75
          Height = 25
          Action = DataActionList.Action_ModifyPermission
          Anchors = [akLeft, akBottom]
          Caption = #20462#25913'(&M)'
          TabOrder = 3
        end
        object BitBtn21: TBitBtn
          Left = 104
          Top = 482
          Width = 75
          Height = 25
          Action = DataActionList.Action_doModifyPermission
          Anchors = [akLeft, akBottom]
          Caption = #30830#23450#20462#25913'(&F)'
          TabOrder = 4
        end
        object BitBtn22: TBitBtn
          Left = 511
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_CreatePermission
          Anchors = [akRight, akBottom]
          Caption = #29983#25104#26435#38480'(&C)'
          TabOrder = 5
        end
        object BitBtn3: TBitBtn
          Left = 193
          Top = 453
          Width = 75
          Height = 24
          Anchors = [akLeft, akBottom]
          Caption = #23646#24615'(&Z)'
          Enabled = False
          TabOrder = 6
        end
      end
    end
  end
  object Panel4: TPanel
    Left = 72
    Top = 284
    Width = 237
    Height = 41
    Caption = 'Panel4'
    TabOrder = 1
    Visible = False
  end
  object PopupMenu1: TPopupMenu
    Left = 89
    Top = 153
    object N1: TMenuItem
      Action = DataActionList.Action_AddRole
    end
    object N2: TMenuItem
      Action = DataActionList.Action_DelRole
    end
    object S1: TMenuItem
      Action = DataActionList.Action_RoleUser
    end
    object M1: TMenuItem
      Action = DataActionList.Action_ModifyRole
    end
    object F1: TMenuItem
      Action = DataActionList.Action_doModifyRole
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 165
    Top = 157
    object A1: TMenuItem
      Action = DataActionList.Action_AddUser
    end
    object D1: TMenuItem
      Action = DataActionList.Action_DelUser
    end
    object M2: TMenuItem
      Action = DataActionList.Action_ModifyUser
    end
    object F2: TMenuItem
      Action = DataActionList.Action_doModifyUser
    end
  end
  object PopupMenu3: TPopupMenu
    Left = 237
    Top = 153
    object N3: TMenuItem
      Action = DataActionList.Action_AddPermission
    end
    object N4: TMenuItem
      Action = DataActionList.Action_DelPermission
    end
    object M3: TMenuItem
      Action = DataActionList.Action_ModifyPermission
    end
    object F3: TMenuItem
      Action = DataActionList.Action_doModifyPermission
    end
  end
  object PopupMenu4: TPopupMenu
    Left = 318
    Top = 154
    object S2: TMenuItem
      Action = DataActionList.Action_SavePermission
    end
  end
  object PopupMenu5: TPopupMenu
    Left = 314
    Top = 210
    object S3: TMenuItem
      Action = DataActionList.Action_SaveUser
    end
  end
end