privilegefrm.dfm

群星医药系统源码

object FmPrivilege: TFmPrivilege
  Left = 230
  Top = 156
  Width = 685
  Height = 471
  Caption = #26435#38480#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object FlatPanel1: TRzSizePanel
    Left = 0
    Top = 0
    Width = 225
    Height = 444
    ParentColor = True
    SizeBarWidth = 3
    TabOrder = 0
    object RzSizePanel1: TRzSizePanel
      Left = 0
      Top = 284
      Width = 221
      Height = 160
      Align = alBottom
      BorderOuter = fsStatus
      SizeBarWidth = 3
      TabOrder = 0
      object lvPrivRole: TListView
        Left = 1
        Top = 21
        Width = 219
        Height = 138
        Align = alClient
        BorderStyle = bsNone
        Columns = <
          item
            Caption = #35282#33394#21517#31216
          end
          item
            Caption = #22791#27880
          end>
        ColumnClick = False
        FlatScrollBars = True
        HideSelection = False
        Items.Data = {
          250000000100000000000000FFFFFFFFFFFFFFFF00000000000000000873646C
          6A666C7765}
        LargeImages = ImageList1
        ReadOnly = True
        SmallImages = ImageList1
        TabOrder = 0
        OnDblClick = lvPrivRoleDblClick
        OnMouseDown = lvPrivRoleMouseDown
      end
      object Panel5: TPanel
        Left = 1
        Top = 5
        Width = 219
        Height = 16
        Align = alTop
        Alignment = taLeftJustify
        BevelInner = bvRaised
        BevelOuter = bvNone
        Caption = ' '#39044#23450#20041#30340#35282#33394#21015#34920#65306
        Color = 9419205
        TabOrder = 1
      end
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 221
      Height = 29
      Align = alTop
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 2
      object BtnUser: TFlatButton
        Left = 12
        Top = 4
        Width = 93
        Height = 21
        Color = 10146770
        Caption = '['#29992#25143']'#31649#29702
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
          DDDDDDD44444444DDDDDDD4CC44444CDDDDDDDD4488F844DDDDDDDDD07FF70DD
          DDDDDDD000F88880DDDDDDD0000FFFF0DDDDDD00007FFF80DDDDDD0000FFFFF8
          0DDDDD00007FF8C80DDDDD0000008F70DDDDDD0000000FF80DDDDDD000000000
          0DDDDDDD000000000DDDDDDDD0000000DDDDDDDDDDDDDDDDDDDD}
        Layout = blGlyphLeft
        ParentColor = False
        TabOrder = 0
        OnClick = BtnUserClick
      end
      object BtnRole: TFlatButton
        Left = 116
        Top = 4
        Width = 93
        Height = 21
        Color = 10146770
        Caption = '['#35282#33394']'#31649#29702
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D444444444DD
          DDDD4CC44484C44DDDDDD4488F874444444DDD07FF7044484C44D000F88880F8
          744DD0000FFFF0F704DD00007FFF8088880D0000FFFFF80FFF0D00007FF8C80F
          F80D0000008F70FFFF800000000FF80F8C80D00000000008F70DDD0000000000
          FF80DDD0000000000000DDDDDDD000000000DDDDDDDD0000000D}
        Layout = blGlyphLeft
        ParentColor = False
        TabOrder = 1
        OnClick = BtnRoleClick
      end
    end
    object RzSizePanel2: TRzSizePanel
      Left = 0
      Top = 154
      Width = 221
      Height = 130
      Align = alBottom
      BorderInner = fsStatus
      TabOrder = 3
      object lvUserRole: TListView
        Left = 1
        Top = 22
        Width = 219
        Height = 107
        Align = alClient
        BorderStyle = bsNone
        Columns = <
          item
            Caption = #35282#33394
            Width = 100
          end
          item
            Caption = #25480#26435#26085#26399
            Width = 80
          end>
        ColumnClick = False
        FlatScrollBars = True
        HideSelection = False
        LargeImages = ImageList1
        ReadOnly = True
        SmallImages = ImageList1
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = lvPrivRoleDblClick
        OnDragDrop = lvUserRoleDragDrop
        OnDragOver = lvUserRoleDragOver
        OnKeyDown = lvUserRoleKeyDown
      end
      object plUserRole: TPanel
        Left = 1
        Top = 6
        Width = 219
        Height = 16
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvNone
        Caption = #29992#25143'[]'#25317#26377#30340#35282#33394#65306
        Color = 9419205
        TabOrder = 1
      end
    end
    object dbgUser: TDBGridEh
      Left = 0
      Top = 29
      Width = 221
      Height = 125
      Align = alClient
      AutoFitColWidths = True
      DataSource = DsUser
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FrozenCols = 1
      Options = [dgTitles, dgColumnResize, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit, dgMultiSelect]
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = dbgUserDblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'UserID'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 53
        end
        item
          EditButtons = <>
          FieldName = 'Name'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 75
        end
        item
          EditButtons = <>
          FieldName = 'DepartName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #37096#38376
          Width = 90
        end>
    end
  end
  object Panel3: TPanel
    Left = 225
    Top = 0
    Width = 452
    Height = 444
    Align = alClient
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 452
      Height = 29
      Align = alTop
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      object lbCurrUser: TLabel
        Left = 24
        Top = 10
        Width = 48
        Height = 12
        Caption = #24403#21069#29992#25143
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object ImgUser: TImage
        Left = 4
        Top = 8
        Width = 16
        Height = 16
        Transparent = True
      end
      object Panel2: TPanel
        Left = 132
        Top = 0
        Width = 320
        Height = 29
        Align = alRight
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        object BtnCheckAll: TFlatButton
          Left = 64
          Top = 4
          Width = 25
          Height = 21
          Hint = #26412#39029#20840#37096#25480#26435
          Color = 10146770
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000C40E0000C40E00001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333300000000003333330FFF9FFFF03333000FF999FFF033330E0F99999FF
            033330E0999FF9FF033330E0F9FFFF9F03333090FFFFFFF903333990FFFFFFFF
            933330E0FFFFFFFF093330E000000000039330EEEEEEEE093339300000000003
            9333333333333333393333333333333333333333333333333333}
          ParentColor = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = BtnCheckAllClick
        end
        object BtnCheckNone: TFlatButton
          Left = 92
          Top = 4
          Width = 25
          Height = 21
          Hint = #21462#28040#26412#39029#25480#26435
          Color = 10146770
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000C40E0000C40E00001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333333333333333300000000003333330FFFFFFFF03333000FFFFFFF
            F033330E0FFFFFFFF033330E0FFFFFFFF033330E0FFFFFFFF033330E0FFFFFFF
            F033330E0FFFFFFFF033330E0FFFFFFFF033330E000000000033330EEEEEEEE0
            3333330000000000333333333333333333333333333333333333}
          ParentColor = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
        end
        object BtnCollapse: TFlatButton
          Left = 4
          Top = 4
          Width = 25
          Height = 21
          Color = 10146770
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            88888888888888888888888888888888888888800000000008888880BBBBBBBB
            08888000BBBBBBBB08888080BBBBBBBB08888080000000000888808888888888
            888880800000000008888080BBBBBBBB08888000BBBBBBBB08888880BBBBBBBB
            0888888000000000088888888888888888888888888888888888}
          ParentColor = False
          TabOrder = 0
          OnClick = BtnCollapseClick
        end
        object BtnExpand: TFlatButton
          Left = 32
          Top = 4
          Width = 25
          Height = 21
          Color = 10146770
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
            DDDDD0DDD0DD00000000D0DDD0000BBBBBB0D0DDD0DD0BBBBBB0D0DDD0DD0000
            0000D0DDD0DDDDDDDDDDD0DD00000000DDDDD0000BBBBBB0DDDDD0DD0BBBBBB0
            DDDDD0DD00000000DDDDD0DDDDDDDDDDDDDD00000000DDDDDDDD0BBBBBB0DDDD