unitacl.dfm

ACL权限控制软件

object FrmACL: TFrmACL
  Left = 300
  Top = 156
  Width = 629
  Height = 568
  Anchors = [akLeft, akTop, akRight, akBottom]
  Caption = 'ACL'#31649#29702#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PanelMain: TPanel
    Left = 0
    Top = 0
    Width = 621
    Height = 541
    Align = alClient
    AutoSize = True
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 619
      Height = 539
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #35282#33394#31649#29702
        DesignSize = (
          611
          511)
        object BitBtn6: TBitBtn
          Left = 104
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_DelRole
          Anchors = [akLeft, akBottom]
          Caption = #21024#38500'(&D)'
          TabOrder = 0
        end
        object BitBtn5: TBitBtn
          Left = 16
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_AddRole
          Anchors = [akLeft, akBottom]
          Caption = #22686#21152'(&A)'
          TabOrder = 1
        end
        object BitBtn2: TBitBtn
          Left = 193
          Top = 453
          Width = 75
          Height = 24
          Action = DataActionList.Action_RoleUser
          Anchors = [akLeft, akBottom]
          Caption = #23646#24615'(&Z)'
          TabOrder = 2
        end
        object Panel3: TPanel
          Left = 0
          Top = 12
          Width = 261
          Height = 427
          Align = alCustom
          Anchors = [akLeft, akTop, akBottom]
          TabOrder = 3
          object GroupBox1: TGroupBox
            Left = 1
            Top = 1
            Width = 259
            Height = 425
            Align = alClient
            Caption = #35282#33394#21517#31216#21015#34920
            TabOrder = 0
            object DBGridEh1: TDBGridEh
              Left = 2
              Top = 15
              Width = 255
              Height = 408
              Align = alClient
              Anchors = [akLeft, akTop, akBottom]
              DataSource = DataM.RoleListDataSource
              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 = PopupMenu1
              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 BitBtn14: TBitBtn
          Left = 511
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_SavePermission
          Anchors = [akRight, akBottom]
          Caption = #20445#23384#20462#25913'(&S)'
          TabOrder = 4
        end
        object BitBtn16: TBitBtn
          Left = 16
          Top = 482
          Width = 75
          Height = 25
          Action = DataActionList.Action_ModifyRole
          Anchors = [akLeft, akBottom]
          Caption = #20462#25913'(&M)'
          TabOrder = 5
        end
        object BitBtn17: TBitBtn
          Left = 104
          Top = 482
          Width = 75
          Height = 25
          Action = DataActionList.Action_doModifyRole
          Anchors = [akLeft, akBottom]
          Caption = #30830#23450#20462#25913'(&F)'
          TabOrder = 6
        end
        object Panel7: TPanel
          Left = 260
          Top = 12
          Width = 352
          Height = 427
          Anchors = [akLeft, akTop, akRight, akBottom]
          BiDiMode = bdRightToLeft
          ParentBiDiMode = False
          TabOrder = 7
          object GroupBox4: TGroupBox
            Left = 1
            Top = 1
            Width = 350
            Height = 425
            Align = alClient
            Caption = #35282#33394#26435#38480#21015#34920
            TabOrder = 0
            object DBGridEh3: TDBGridEh
              Left = 2
              Top = 15
              Width = 346
              Height = 408
              Align = alClient
              DataSource = DataM.PermissionListDataSource
              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 = PopupMenu4
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
            end
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #29992#25143#31649#29702
        ImageIndex = 1
        DesignSize = (
          611
          511)
        object BitBtn9: TBitBtn
          Left = 104
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_DelUser
          Anchors = [akLeft, akBottom]
          Caption = #21024#38500'(&D)'
          TabOrder = 0
        end
        object BitBtn8: TBitBtn
          Left = 16
          Top = 453
          Width = 75
          Height = 25
          Action = DataActionList.Action_AddUser
          Anchors = [akLeft, akBottom]
          Caption = #22686#21152'(&A)'
          TabOrder = 1
        end
        object Panel6: TPanel
          Left = 0
          Top = 12
          Width = 261
          Height = 427
          Anchors = [akLeft, akTop, akBottom]
          TabOrder = 2
          object GroupBox2: TGroupBox
            Left = 1
            Top = 1
            Width = 259
            Height = 425
            Align = alClient
            Caption = #29992#25143#21517#31216#21015#34920
            TabOrder = 0
            object DBGridEh2: TDBGridEh
              Left = 2
              Top = 15
              Width = 255
              Height = 408
              Align = alClient
              Anchors = [akLeft, akTop, akBottom]
              DataSource = DataM.UserListDataSource
              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]
              PopupMenu = PopupMenu2
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
            end
          end
        end
        object Panel8: TPanel
          Left = 260
          Top = 12
          Width = 352
          Height = 427
          Anchors = [akLeft, akTop, akRight, akBottom]
          TabOrder = 3
          object GroupBox5: TGroupBox