main.dfm

权限管理

object FrmMain: TFrmMain
  Left = 168
  Top = 157
  Width = 835
  Height = 562
  Caption = #26435#38480#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 516
    Width = 827
    Height = 19
    Panels = <>
  end
  object PageCtrlPur: TPageControl
    Left = 0
    Top = 0
    Width = 827
    Height = 516
    ActivePage = TabSheetUser
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    OwnerDraw = True
    ParentFont = False
    TabOrder = 1
    OnDrawTab = PageCtrlPurDrawTab
    object TabSheetUser: TTabSheet
      Caption = #29992#25143#31649#29702
      object Splitter1: TSplitter
        Left = 260
        Top = 0
        Height = 488
        Color = 16774640
        ParentColor = False
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 260
        Height = 488
        Align = alLeft
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 260
          Height = 54
          Align = alTop
          BevelOuter = bvNone
          ParentColor = True
          TabOrder = 0
          object BtnNewUser: TButton
            Left = 26
            Top = 13
            Width = 81
            Height = 27
            Caption = #26032#24314#29992#25143
            TabOrder = 0
            OnClick = BtnNewUserClick
          end
          object BtnDelUser: TButton
            Left = 143
            Top = 13
            Width = 81
            Height = 27
            Caption = #21024#38500#29992#25143
            TabOrder = 1
            OnClick = BtnDelUserClick
          end
        end
        object DBGridUser: TDBGrid
          Left = 0
          Top = 54
          Width = 260
          Height = 434
          Align = alClient
          DataSource = DM.DSUser
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlack
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnDblClick = DBGridUserDblClick
          Columns = <
            item
              Expanded = False
              Title.Alignment = taCenter
              Title.Caption = #29992#25143#21517
              Width = 50
              Visible = True
            end
            item
              Expanded = False
              Title.Alignment = taCenter
              Title.Caption = #30331#24405#21517
              Width = 50
              Visible = True
            end
            item
              Expanded = False
              Title.Alignment = taCenter
              Title.Caption = #25551#36848
              Width = 120
              Visible = True
            end>
        end
      end
      object Panel2: TPanel
        Left = 263
        Top = 0
        Width = 556
        Height = 488
        Align = alClient
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 0
          Top = 0
          Width = 556
          Height = 228
          Align = alTop
          Caption = #21253#21547#23703#20301
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object DBGridUserIncPost: TDBGrid
            Left = 2
            Top = 15
            Width = 260
            Height = 211
            Align = alLeft
            DataSource = DM.DSUserIncPost
            ImeName = #32043#20809#25340#38899#36755#20837#27861
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clBlack
            TitleFont.Height = -13
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            OnCellClick = DBGridUserIncPostCellClick
            OnDblClick = DBGridUserIncPostDblClick
            OnKeyDown = DBGridUserIncPostKeyDown
            Columns = <
              item
                Expanded = False
                Title.Alignment = taCenter
                Title.Caption = #24050#21253#21547#30340#23703#20301
                Width = 110
                Visible = True
              end
              item
                Expanded = False
                Title.Alignment = taCenter
                Title.Caption = #25551#36848
                Width = 125
                Visible = True
              end>
          end
          object DBGridUserExPost: TDBGrid
            Left = 294
            Top = 15
            Width = 260
            Height = 211
            Align = alRight
            DataSource = DM.DSUserExPost
            ImeName = #32043#20809#25340#38899#36755#20837#27861
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clBlack
            TitleFont.Height = -13
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            OnCellClick = DBGridUserExPostCellClick
            OnDblClick = DBGridUserExPostDblClick
            OnKeyDown = DBGridUserExPostKeyDown
            Columns = <
              item
                Expanded = False
                Title.Alignment = taCenter
                Title.Caption = #19981#21253#21547#30340#23703#20301
                Width = 110
                Visible = True
              end
              item
                Expanded = False
                Title.Alignment = taCenter
                Title.Caption = #25551#36848
                Width = 125
                Visible = True
              end>
          end
          object Panel4: TPanel
            Left = 262
            Top = 15
            Width = 32
            Height = 211
            Align = alClient
            BevelOuter = bvNone
            ParentColor = True
            TabOrder = 2
            object SpeedButton1: TSpeedButton
              Left = 8
              Top = 49
              Width = 22
              Height = 24
              Caption = '<'
              OnClick = SpeedButton1Click
            end
            object SpeedButton2: TSpeedButton
              Left = 5
              Top = 127
              Width = 25
              Height = 24
              Caption = '>'
              OnClick = SpeedButton2Click
            end
          end
        end
        object GroupBox3: TGroupBox
          Left = 0
          Top = 228
          Width = 556
          Height = 260
          Align = alClient
          Caption = #21487#25805#20316#26435#38480
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object DBGridUserIncPur: TDBGrid
            Left = 2
            Top = 15
            Width = 552
            Height = 243
            Align = alClient
            DataSource = DM.DSUserIncPur
            ImeName = #32043#20809#25340#38899#36755#20837#27861
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clBlack
            TitleFont.Height = -13
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                Title.Alignment = taCenter
                Title.Caption = #24050#21253#21547#30340#26435#38480
                Width = 200
                Visible = True
              end
              item
                Expanded = False
                Title.Alignment = taCenter
                Title.Caption = #25551#36848
                Width = 310
                Visible = True
              end>
          end
        end
      end
    end
    object TabSheetPost: TTabSheet
      Caption = #35282#33394#31649#29702
      ImageIndex = 1
      object Splitter2: TSplitter
        Left = 260
        Top = 0
        Height = 488
      end
      object Panel6: TPanel
        Left = 263
        Top = 0
        Width = 556
        Height = 488
        Align = alClient
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        object GroupBox4: TGroupBox
          Left = 0
          Top = 0
          Width = 556
          Height = 228
          Align = alTop
          Caption = #21253#21547#26435#38480#32452
          TabOrder = 0
          object Panel8: TPanel
            Left = 249
            Top = 15
            Width = 63
            Height = 211
            Align = alClient
            BevelOuter = bvNone
            ParentColor = True
            TabOrder = 0
            object SpeedButton3: TSpeedButton
              Left = 5
              Top = 49
              Width = 25
              Height = 24
              Caption = '<'
              OnClick = SpeedButton3Click
            end
            object SpeedButton4: TSpeedButton
              Left = 5
              Top = 127
              Width = 25
              Height = 24
              Caption = '>'
              OnClick = SpeedButton4Click
            end
          end
          object DBGridPostIncGroup: TDBGrid
            Left = 2
            Top = 15
            Width = 247
            Height = 211
            Align = alLeft
            DataSource = DM.DSPostIncGroup
            ImeName = #32043#20809#25340#38899#36755#20837#27861
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clBlack
            TitleFont.Height = -13