u_gwbj.dfm

一个电力企业的后台管理程序

                  Height = 165
                  Align = alClient
                  Caption = '岗位人员...'
                  Font.Charset = GB2312_CHARSET
                  Font.Color = clNavy
                  Font.Height = -13
                  Font.Name = '宋体'
                  Font.Style = []
                  ParentFont = False
                  TabOrder = 2
                  object LBGwPerson: TListBox
                    Left = 2
                    Top = 15
                    Width = 193
                    Height = 148
                    Align = alClient
                    Columns = 1
                    ImeName = '中文之星智能狂拼'
                    ItemHeight = 13
                    ParentShowHint = False
                    ShowHint = True
                    TabOrder = 0
                    OnClick = LBGwPersonClick
                    OnDblClick = SBtn_DelClick
                  end
                end
                object Panel14: TPanel
                  Left = 194
                  Top = 0
                  Width = 37
                  Height = 165
                  Align = alLeft
                  BevelOuter = bvNone
                  TabOrder = 3
                  object SBtn_Del: TSpeedButton
                    Left = 5
                    Top = 14
                    Width = 25
                    Height = 25
                    Caption = '<'
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clNavy
                    Font.Height = -15
                    Font.Name = '宋体'
                    Font.Style = []
                    ParentFont = False
                    OnClick = SBtn_DelClick
                  end
                  object SBtn_Add: TSpeedButton
                    Left = 5
                    Top = 46
                    Width = 25
                    Height = 25
                    Caption = '>'
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clNavy
                    Font.Height = -15
                    Font.Name = '宋体'
                    Font.Style = []
                    ParentFont = False
                    OnClick = SBtn_AddClick
                  end
                  object SBtn_DellAll: TSpeedButton
                    Left = 5
                    Top = 78
                    Width = 25
                    Height = 25
                    Caption = '<<'
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clNavy
                    Font.Height = -15
                    Font.Name = '宋体'
                    Font.Style = []
                    ParentFont = False
                    OnClick = SBtn_DellAllClick
                  end
                  object SBtn_AddAll: TSpeedButton
                    Left = 5
                    Top = 110
                    Width = 25
                    Height = 25
                    Caption = '>>'
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clNavy
                    Font.Height = -15
                    Font.Name = '宋体'
                    Font.Style = []
                    ParentFont = False
                    OnClick = SBtn_AddAllClick
                  end
                end
              end
            end
            object TabSheet2: TTabSheet
              Caption = '权限设置'
              ImageIndex = 1
              object Panel15: TPanel
                Left = 0
                Top = 0
                Width = 428
                Height = 165
                Align = alClient
                BevelOuter = bvNone
                TabOrder = 0
                object Splitter4: TSplitter
                  Left = 191
                  Top = 0
                  Width = 3
                  Height = 165
                  Cursor = crHSplit
                end
                object Panel16: TPanel
                  Left = 231
                  Top = 0
                  Width = 197
                  Height = 165
                  Align = alClient
                  BevelOuter = bvNone
                  TabOrder = 0
                end
                object GroupBox6: TGroupBox
                  Left = 0
                  Top = 0
                  Width = 191
                  Height = 165
                  Align = alLeft
                  Caption = '所有权限...'
                  Font.Charset = GB2312_CHARSET
                  Font.Color = clNavy
                  Font.Height = -13
                  Font.Name = '宋体'
                  Font.Style = []
                  ParentFont = False
                  TabOrder = 1
                  object LbAllAuth: TListBox
                    Left = 2
                    Top = 15
                    Width = 187
                    Height = 148
                    Align = alClient
                    Columns = 1
                    ImeName = '中文之星智能狂拼'
                    ItemHeight = 13
                    ParentShowHint = False
                    ShowHint = True
                    TabOrder = 0
                    OnClick = LbAllAuthClick
                    OnDblClick = LbAllAuthDblClick
                  end
                end
                object GroupBox7: TGroupBox
                  Left = 231
                  Top = 0
                  Width = 197
                  Height = 165
                  Align = alClient
                  Caption = '权限列表...'
                  Font.Charset = GB2312_CHARSET
                  Font.Color = clNavy
                  Font.Height = -13
                  Font.Name = '宋体'
                  Font.Style = []
                  ParentFont = False
                  TabOrder = 2
                  object LbAuthSel: TListBox
                    Left = 2
                    Top = 15
                    Width = 193
                    Height = 148
                    Align = alClient
                    Columns = 1
                    ImeName = '中文之星智能狂拼'
                    ItemHeight = 13
                    ParentShowHint = False
                    ShowHint = True
                    TabOrder = 0
                    OnClick = LbAuthSelClick
                    OnDblClick = LbAuthSelDblClick
                  end
                end
                object Panel17: TPanel
                  Left = 194
                  Top = 0
                  Width = 37
                  Height = 165
                  Align = alLeft
                  BevelOuter = bvNone
                  TabOrder = 3
                  object sBtn_DelAuth: TSpeedButton
                    Left = 5
                    Top = 14
                    Width = 25
                    Height = 25
                    Caption = '<'
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clNavy
                    Font.Height = -15
                    Font.Name = '宋体'
                    Font.Style = []
                    ParentFont = False
                    OnClick = sBtn_DelAuthClick
                  end
                  object sBtn_AddAuth: TSpeedButton
                    Left = 5
                    Top = 46
                    Width = 25
                    Height = 25
                    Caption = '>'
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clNavy
                    Font.Height = -15
                    Font.Name = '宋体'
                    Font.Style = []
                    ParentFont = False
                    OnClick = sBtn_AddAuthClick
                  end
                  object sBtn_DellAllAuth: TSpeedButton
                    Left = 5
                    Top = 78
                    Width = 25
                    Height = 25
                    Caption = '<<'
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clNavy
                    Font.Height = -15
                    Font.Name = '宋体'
                    Font.Style = []
                    ParentFont = False
                    OnClick = sBtn_DellAllAuthClick
                  end
                  object sBtn_AddAllAuth: TSpeedButton
                    Left = 5
                    Top = 110
                    Width = 25
                    Height = 25
                    Caption = '>>'
                    Font.Charset = GB2312_CHARSET
                    Font.Color = clNavy
                    Font.Height = -15
                    Font.Name = '宋体'
                    Font.Style = []
                    ParentFont = False
                    OnClick = sBtn_AddAllAuthClick
                  end
                end
              end
            end
          end
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = '2'
        object Panel4: TPanel
          Left = 0
          Top = 425
          Width = 440
          Height = 39
          Align = alBottom
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 0
          object SdBtn_SavePerson: TSpeedButton
            Left = 7
            Top = 6
            Width = 74
            Height = 28
            Caption = '保存'
            Flat = True
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = '宋体'
            Font.Style = []
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
              00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
              00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
              00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
              00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
              00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
              00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
              0003737FFFFFFFFF7F7330099999999900333777777777777733}
            NumGlyphs = 2
            ParentFont = False
            OnClick = SdBtn_SavePersonClick
          end
          object SpeedButton3: TSpeedButton
            Left = 87
            Top = 6
            Width = 74
            Height = 28
            Caption = '取消'