untuserrightset.dfm

是分布式粮库程序,是采用Delphi实现的

object frmUserRightSet: TfrmUserRightSet
  Left = 192
  Top = 138
  Width = 662
  Height = 444
  BorderIcons = [biSystemMenu]
  Caption = #29992#25143#26435#38480#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    000B3B3B3B33330000BB3B3000000000B3B3B3B3333333030BB3303300000003
    3330000000000030BB0B3B3330000003333B8B8383333033BBBB333330000000
    3333333333330B3B3BB33B3B3B0000000B3B3B3333330B3B33B3BBB3330000B3
    B3B3B3B333330B3B333BBB333B0003333000000000000B3B33BBBBB3B3000300
    000B3B3B33330B3B333BB0B33B000030B3B3B3B3B3330B3B333BBBB3B3000303
    3333333333330B33333BBB3B3B000003000B888383830BB33333333BB0000000
    33330000000000B33B3333BB300000033000B3B3B3B3B0BB33330BBB00000000
    0B3B3B3B3B3B3B0BB33B3BB00000000033333333333333300B33330000000000
    3000BBB838383830003000000000000003333380000000000000000000000000
    3338000B3B3B3B3B3B000000000000000330B3B3B3B3B3B3B3B3300000000000
    0003333FFFFFF33333333300000000000003088BBBB3B3B3B300030000000000
    000033333BBBBB3B3B33300000000000000333B3B3BBBBB3B3B3330000000000
    0000333B3BBBBBBB333330000000000000000003B3B3BFFFFB00000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFE003C1FF000000FE0000007C0000003C0000003C0000001C00000018000
    00010000000100000001000000010000000180000003C0000003C0000007E000
    000FE000001FE00000FFE00000FFE000007FF000003FF800001FFC00001FFC00
    001FFC00001FFE00003FFF00007FFFE003FFFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlTree: TPanel
    Left = 2
    Top = 4
    Width = 301
    Height = 365
    BevelInner = bvRaised
    BevelOuter = bvNone
    TabOrder = 0
    object TreeView1: TTreeView
      Left = 4
      Top = 4
      Width = 293
      Height = 357
      DragMode = dmAutomatic
      Images = imgPhoto1
      Indent = 19
      TabOrder = 0
      OnClick = TreeView1Click
    end
  end
  object pnlLeft: TPanel
    Left = 312
    Top = 5
    Width = 329
    Height = 364
    TabOrder = 1
    object tvRight: TTreeView
      Left = 6
      Top = 5
      Width = 318
      Height = 356
      HideSelection = False
      Images = imlUser
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnDblClick = tvRightDblClick
    end
  end
  object bbtnOk: TBitBtn
    Left = 384
    Top = 380
    Width = 75
    Height = 25
    Caption = #20445'  '#23384
    TabOrder = 2
    OnClick = bbtnOkClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888880000000000000880330000008803088033000000880308803300000088
      0308803300000000030880333333333333088033000000003308803088888888
      0308803088888888030880308888888803088030888888880308803088888888
      0008803088888888080880000000000000088888888888888888}
  end
  object bbtnCancel: TBitBtn
    Left = 472
    Top = 380
    Width = 75
    Height = 25
    Caption = #25918'  '#24323
    TabOrder = 3
    OnClick = bbtnCancelClick
    Glyph.Data = {
      66010000424D66010000000000007600000028000000200000000F0000000100
      040000000000F000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777FFFFFFFFFFFFFFFF77777777777771F7FFF0FFFFFFFFFF0F7771F7777777
      7777FF000FFFFFFFFFFF77991F7777779F77FF0000FFFFFFF0FF77191F777771
      F777FFF000FFFFFF0FFF777199F77791F777FFFF000FFFF00FFF7777191F719F
      7777FFFFF000FF00FFFF7777719199F77777FFFFFF00000FFFFF777777919F77
      7777FFFFFFF000FFFFFF7777791911F77777FFFFFF00000FFFFF7777191F79F7
      7777FFFFF000FF00FFFF779191F77719F777FFF0000FFFF00FFF71919F777771
      9F77FF0000FFFFFF00FF791F7777777719F7FF000FFFFFFFFF0F777777777777
      7777FFFFFFFFFFFFFFFF}
    NumGlyphs = 2
  end
  object bbtnExit: TBitBtn
    Left = 553
    Top = 380
    Width = 75
    Height = 25
    Caption = #36864'  '#20986
    TabOrder = 4
    OnClick = bbtnExitClick
    Glyph.Data = {
      EE000000424DEE000000000000007600000028000000100000000F0000000100
      0400000000007800000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
      FFFFFFFF00FFFFFFFFFFFFF030FFFFFFFFFFFF0330FFFFFFFFFF003330000000
      0FFFF03330FF0FFFFFFFF03300FF0FFFF4FFF03330FF0FFF44FFF03330FF0FF4
      4444F03330FF0F444444F03330FF0FF44444F0330FFF0FFF44FFF030FFFF0FFF
      F4FFF00FFFFF0FFFFFFFF00000000FFFFFFF}
  end
  object tblEmp: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_USER'
    Left = 117
    Top = 29
  end
  object tblDpt: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_UNIT_INFO'
    Left = 213
    Top = 29
    object tblDptUNIT_ID: TIntegerField
      FieldName = 'UNIT_ID'
      Required = True
    end
    object tblDptUNIT_NAME: TStringField
      FieldName = 'UNIT_NAME'
      Size = 50
    end
    object tblDptUNIT_ADDRESS: TStringField
      FieldName = 'UNIT_ADDRESS'
      Size = 50
    end
    object tblDptUNIT_PHONE: TStringField
      FieldName = 'UNIT_PHONE'
      Size = 12
    end
    object tblDptUNIT_MANAGER: TStringField
      FieldName = 'UNIT_MANAGER'
      Size = 12
    end
    object tblDptCOM_FLAG: TIntegerField
      FieldName = 'COM_FLAG'
    end
  end
  object qryDptEmp: TQuery
    DatabaseName = 'LYDB'
    Left = 107
    Top = 145
  end
  object imgPhoto1: TImageList
    Left = 113
    Top = 229
    Bitmap = {
      494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001002000000000000040
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00C6C6C60084848400FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00C6C6C600848484000000FF000000FF000000FF0084848400C6C6C600FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000