privilegefrm.dfm

群星医药系统源码

      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000001F00FF03FF03100000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000104210421042
      1042104210420000FF03FF03100010421042000000000000000000000000D300
      D300D300D3000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000104200000000
      000000001F00FF03FF031000104200001042000000000000000000000000D300
      99019901D3000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000001042FF7FFF7F
      FF7F1F00FF03FF0310001042000000001042000000000000000000000000D300
      99019901D3000000000000000000000000000000D300D300D300D300D300D300
      D300D300D300D300D300D300D300000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000104200000000
      1F00FF03FF03100010421042FF7F00001042000000000000000000000000D300
      99019901D3000000000000000000000000000000D30099019901990199019901
      990199019901990199019901D300000000000000000000000000000000000000
      0000000000000000000000000000000000000000000010421042000000001042
      FF7F10421000104200000000FF7F0000104200000000D300D300D300D300D300
      99019901D300D300D300D300D3000000000000000000D3009901990199019901
      99019901990199019901D30000000000000000000000D300D300D300D300D300
      D300D300D300D300D300D300D3000000000000001042FF7F0000FF7FFF7F0000
      104210001042104210421042FF7F0000104200000000D3009901990199019901
      990199019901990199019901D30000000000000000000000D300990199019901
      9901990199019901D300000000000000000000000000D3009901990199019901
      990199019901990199019901D300000000001042FF7FFF7F0000FF7F10421042
      000010420000000000000000FF7F0000104200000000D3009901990199019901
      990199019901990199019901D300000000000000000000000000D30099019901
      990199019901D3000000000000000000000000000000D3009901990199019901
      990199019901990199019901D300000000001042FF7FFF7F0000FF7FFF03FF03
      000010421042104210421042FF7F0000104200000000D300D300D300D300D300
      99019901D300D300D300D300D3000000000000000000000000000000D3009901
      99019901D30000000000000000000000000000000000D300D300D300D300D300
      D300D300D300D300D300D300D300000000001042FF7FFF7F0000FF7F10421042
      000010420000000000000000000000001042000000000000000000000000D300
      99019901D300000000000000000000000000000000000000000000000000D300
      9901D30000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000001042FF7FFF7F0000FF7FFF03FF03
      0000104210421042FF7F0000000000001042000000000000000000000000D300
      99019901D3000000000000000000000000000000000000000000000000000000
      D300000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000001042FF7F0000FF7FFF7F0000
      1042000000000000FF7F1042104210421042000000000000000000000000D300
      99019901D3000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000010421042000000001042
      00000000FF7FFF7FFF7F1042FF7F00001042000000000000000000000000D300
      D300D300D3000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000104200000000
      FF7FFF7FFF7FFF7FFF7F10420000104200000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000104210421042
      1042104210421042104210421042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000300000000100010000000000800100000000000000000000
      000000000000000000000000FFFFFF0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000FFFFFBFF00000000FFFFF3FF00000000
      F0FFE3FF00000000E0FFC3FF00000000C0FF0007000000008301807F00000000
      8701807B000000008F8180730000000087818060000000008201804000000000
      C001806000000000E039807300000000F07F807B00000000FFFF807F00000000
      FFFF807F00000000FFFFFFFF00000000FFF3FFFFFFFFFFFFFFE1FFFFFFFFFFFF
      F000FC3FFFFFFFFFF782FC3FFFFFFFFFF006FC3F8003FFFFF602FC3F8003FFFF
      C01AC003C007C0039002C003E00FC003107AC003F01FC0031002C003F83FC003
      107EFC3FFC7FFFFF100EFC3FFEFFFFFF90E0FC3FFFFFFFFFC182FC3FFFFFFFFF
      F605FFFFFFFFFFFFF003FFFFFFFFFFFF00000000000000000000000000000000
      000000000000}
  end
  object pmUser: TPopupMenu
    Images = ImgStandard
    OwnerDraw = True
    Left = 180
    Top = 60
    object A1: TMenuItem
      Action = RActNewUser
    end
    object E1: TMenuItem
      Action = RActEditUser
    end
    object D1: TMenuItem
      Action = RActDelUser
    end
  end
  object pmRole: TPopupMenu
    Images = ImgStandard
    OwnerDraw = True
    Left = 180
    Top = 320
    object MenuItem1: TMenuItem
      Action = RActNewRole
    end
    object MenuItem3: TMenuItem
      Action = RActEditRole
    end
    object MenuItem4: TMenuItem
      Action = RActDelRole
    end
  end
  object ImageList1: TImageList
    Left = 589
    Top = 64
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000100010001000100010001000
      1000100010000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000010001F001F001000100010001863
      10001F0010001000000000000000000000000000000000001000100010001000
      1000100010001000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000001000100018631863FF7F1863
      1042100010001000100010001000100000000000000010001F001F0010001000
      1000100010001F00000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001042FF7FFF7F1042
      0000100010001000186310001F00100010000000000000001000100018631863
      FF7F186310001000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FF7F18631863
      186318630000FF7F18631042100010000000000000000000000000001042FF7F
      FF7F104200000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FF7FFF7F
      FF7FFF7F0000FF7F10420000100000000000000000000000000000000000FF7F
      1863186318631863000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000001042FF7FFF7F
      FF7F186300001863186318631863000000000000000000000000000000000000
      FF7FFF7FFF7FFF7F000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7F18630000FF7FFF7FFF7F000000000000000000000000000000001042
      FF7FFF7FFF7F1863000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000001042FF7FFF7F
      18631F0018630000FF7FFF7F186300000000000000000000000000000000FF7F
      FF7FFF7FFF7FFF7F186300000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000001863
      FF7F10420000FF7FFF7FFF7FFF7F186300000000000000000000000000001042
      FF7FFF7F18631F00186300000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      FF7FFF7F18630000FF7F18631F00186300000000000000000000000000000000
      00001863FF7F1042000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000001863FF7F1042000000000000000000000000000000000000
      00000000FF7FFF7F186300000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000FF7FFF7F186300000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00803FFFFF00000000001FE01F00000000
      8001C01F00000000C000E01F000000008001F03F000000008003E00F00000000
      0001E00F000000000001C00F000000000001C007000000000000C00700000000
      0000C00F000000008001C00700000000C000E00700000000E000F00700000000
      FE00F80F00000000FF01FFFF0000000000000000000000000000000000000000
      000000000000}
  end
  object DcomConn: TDCOMConnection
    ServerGUID = '{751B9029-A092-4C35-95AB-DBCD5E420D1A}'
    ServerName = 'ckSysManager.ModuleSetting'
    Left = 20
    Top = 180
  end
  object cdsUsers: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspUsers'
    RemoteServer = DcomConn
    AfterScroll = cdsUsersAfterScroll
    OnReconcileError = cdsUsersReconcileError
    BeforeGetRecords = cdsUsersBeforeGetRecords
    Left = 100
    Top = 60
    object cdsUsersUserID: TStringField
      FieldName = 'UserID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 8
    end
    object cdsUsersName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object cdsUsersDepartName: TStringField
      FieldName = 'DepartName'
      ProviderFlags = []
    end
    object cdsUsersPasswd: TStringField
      FieldName = 'Passwd'
      Size = 22
    end
    object cdsUsersDBScanRange: TSmallintField
      FieldName = 'DBScanRange'
    end
    object cdsUsersDBModiRange: TSmallintField
      FieldName = 'DBModiRange'
    end
    object cdsUsersReMark: TStringField
      FieldName = 'ReMark'
      Size = 40
    end
  end
  object cdsPrivRole: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <>
    ProviderName = 'dspPrivRole'
    RemoteServer = DcomConn
    Left = 100
    Top = 320
    object cdsPrivRolePrID: TIntegerField
      FieldName = 'PrID'
    end
    object cdsPrivRolePrName: TStringField
      FieldName = 'PrName'
    end
    object cdsPrivRoleReMark: TStringField
      FieldName = 'ReMark'
      Size = 100
    end
  end
  object cdsTemp: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPublic'
    RemoteServer = DcomConn
    Left = 280
    Top = 252
  end
  object cdsUserPriv: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftString
        Name = 'UserID'
        ParamType = ptInput
        Value = '001'
      end
      item
        DataType = ftSmallint
        Name = 'Kind'
        ParamType = ptInput
        Value = '0'
      end>
    ProviderName = 'dspUserPriv'
    RemoteServer = DcomConn
    OnReconcileError = cdsUserPrivReconcileError
    BeforeApplyUpdates = cdsUserPrivBeforeApplyUpdates
    Left = 280
    Top = 60
  end
  object cdsPrivRoleDtl: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PrID'
        ParamType = ptInput
      end>
    ProviderName = 'dspPrivRoleDtl'
    RemoteServer = DcomConn
    Left = 280
    Top = 320
  end
  object cdsUserRealPriv: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftString
        Name = 'UserID'
        ParamType = ptInput
      end>
    ProviderName = 'dspUserRealPriv'
    RemoteServer = DcomConn
    Left = 281
    Top = 124
  end
  object cdsPrivModls: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftInteger
        Name = 'ParentID'
        ParamType = ptInput
      end>
    ProviderName = 'dspPrivModls'
    RemoteServer = DcomConn
    Left = 280
    Top = 180
    object cdsPrivModlsModuleID: TIntegerField
      FieldName = 'ModuleID'
    end
    object cdsPrivModlsParentID: TIntegerField
      FieldName = 'ParentID'
    end
    object cdsPrivModlsMenuName: TStringField
      FieldName = 'MenuName'
      Size = 32
    end
    object cdsPrivModlsPopedoms: TStringField
      FieldName = 'Popedoms'
      Size = 200
    end
    object cdsPrivModlsHasFile: TIntegerField
      FieldName = 'HasFile'
      ReadOnly = True
    end
    object cdsPrivModlsRemark: TStringField
      FieldName = 'Remark'
      Size = 400
    end
  end
  object cdsUserRole: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspUserPriv'
    RemoteServer = DcomConn
    Left = 100
    Top = 180
  end
end