groupright.dfm

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· DFM 代码 · 共 689 行 · 第 1/2 页

    Top = 8
    object acSave: TAction
      Caption = #20445#23384
      Hint = #20445#23384
      ImageIndex = 4
      ShortCut = 16467
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Caption = #21462#28040
      Hint = #21462#28040
      ImageIndex = 5
      ShortCut = 16392
      OnExecute = acCancelExecute
    end
    object acFirst: TAction
      Caption = #39318#26465
      Hint = #39318#26465
      ImageIndex = 8
      ShortCut = 113
      OnExecute = acFirstExecute
    end
    object acPrior: TAction
      Caption = #19978#26465
      Hint = #19978#26465
      ImageIndex = 9
      ShortCut = 114
      OnExecute = acPriorExecute
    end
    object acNext: TAction
      Caption = #19979#26465
      Hint = #19979#26465
      ImageIndex = 10
      ShortCut = 115
      OnExecute = acNextExecute
    end
    object acLast: TAction
      Caption = #26411#26465
      Hint = #26411#26465
      ImageIndex = 11
      ShortCut = 116
      OnExecute = acLastExecute
    end
    object acExit: TAction
      Caption = #20851#38381
      Hint = #20851#38381
      ImageIndex = 20
      ShortCut = 16465
      OnExecute = acExitExecute
    end
    object acAllCheck: TAction
      Caption = #20840#36873
      ImageIndex = 12
      OnExecute = acAllCheckExecute
    end
    object acAllUnCheck: TAction
      Caption = #28165#38500
      ImageIndex = 13
      OnExecute = acAllUnCheckExecute
    end
  end
  object QModule: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tModule')
    Left = 48
    Top = 360
    object QModulefName: TWideStringField
      DisplayLabel = #23376#31995#32479
      DisplayWidth = 20
      FieldName = 'fName'
      Size = 50
    end
    object QModulefID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fID'
      Visible = False
    end
  end
  object QMaster: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from tGroup')
    Left = 16
    Top = 198
    object QMasterfName: TWideStringField
      DisplayLabel = #32452#21517
      DisplayWidth = 20
      FieldName = 'fName'
      Size = 50
    end
    object QMasterfCode: TWideStringField
      DisplayLabel = #32452#21495
      DisplayWidth = 7
      FieldName = 'fCode'
      Visible = False
      Size = 50
    end
    object QMasterfID: TAutoIncField
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
  end
  object QFunction: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    DataSource = dsModule
    Parameters = <
      item
        Name = 'fID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Value = 1
      end>
    SQL.Strings = (
      'Select * from tFunction where fModuleID=:fID')
    Left = 342
    Top = 240
    object QFunctionfID: TIntegerField
      FieldName = 'fID'
    end
    object QFunctionfModuleID: TIntegerField
      FieldName = 'fModuleID'
    end
    object QFunctionfActionName: TWideStringField
      FieldName = 'fActionName'
      Size = 50
    end
    object QFunctionfName: TWideStringField
      FieldName = 'fName'
      Size = 50
    end
    object QFunctionfRun: TBooleanField
      FieldName = 'fRun'
    end
    object QFunctionfInsert: TBooleanField
      FieldName = 'fInsert'
    end
    object QFunctionfEdit: TBooleanField
      FieldName = 'fEdit'
    end
    object QFunctionfDelete: TBooleanField
      FieldName = 'fDelete'
    end
    object QFunctionfPrint: TBooleanField
      FieldName = 'fPrint'
    end
    object QFunctionfConfirm: TBooleanField
      FieldName = 'fConfirm'
    end
    object QFunctionfCancel: TBooleanField
      FieldName = 'fCancel'
    end
    object QFunctionfFind: TBooleanField
      FieldName = 'fFind'
    end
    object QFunctionfFilter: TBooleanField
      FieldName = 'fFilter'
    end
    object QFunctionfExport: TBooleanField
      FieldName = 'fExport'
    end
  end
  object dsModule: TDataSource
    DataSet = QModule
    OnDataChange = dsModuleDataChange
    Left = 98
    Top = 359
  end
  object dsFunction: TDataSource
    DataSet = QFunction
    Left = 344
    Top = 304
  end
  object dsMaster: TDataSource
    DataSet = QMaster
    OnStateChange = dsMasterStateChange
    OnDataChange = dsMasterDataChange
    Left = 92
    Top = 199
  end
  object QRight: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    DataSource = dsMaster
    Parameters = <
      item
        Name = 'fID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Value = 1
      end>
    SQL.Strings = (
      'select * from tGroupRight'
      'where fGroupID=:fID')
    Left = 341
    Top = 160
    object QRightfGroupID: TIntegerField
      FieldName = 'fGroupID'
    end
    object QRightfFunctionID: TIntegerField
      FieldName = 'fFunctionID'
    end
    object QRightfRun: TBooleanField
      FieldName = 'fRun'
    end
    object QRightfInsert: TBooleanField
      FieldName = 'fInsert'
    end
    object QRightfEdit: TBooleanField
      FieldName = 'fEdit'
    end
    object QRightfDelete: TBooleanField
      FieldName = 'fDelete'
    end
    object QRightfPrint: TBooleanField
      FieldName = 'fPrint'
    end
    object QRightfConfirm: TBooleanField
      FieldName = 'fConfirm'
    end
    object QRightfCancel: TBooleanField
      FieldName = 'fCancel'
    end
    object QRightfFind: TBooleanField
      FieldName = 'fFind'
    end
    object QRightfFilter: TBooleanField
      FieldName = 'fFilter'
    end
    object QRightfExport: TBooleanField
      FieldName = 'fExport'
    end
  end
  object MDFunction: TdxMemData
    Indexes = <>
    SortOptions = []
    Left = 433
    Top = 237
    object MDFunctionfID: TIntegerField
      Alignment = taCenter
      FieldName = 'fID'
      Visible = False
    end
    object MDFunctionfModuleId: TIntegerField
      Alignment = taCenter
      FieldName = 'fModuleId'
      Visible = False
    end
    object MDFunctionfActionName: TStringField
      Alignment = taCenter
      FieldName = 'fActionName'
      Size = 50
    end
    object MDFunctionfName: TStringField
      Alignment = taCenter
      DisplayLabel = #21151#33021
      DisplayWidth = 25
      FieldName = 'fName'
      Size = 50
    end
    object MDFunctionfRun: TStringField
      Alignment = taCenter
      DisplayLabel = #36816#34892#26435
      DisplayWidth = 5
      FieldName = 'fRun'
      Size = 1
    end
    object MDFunctionfInsert: TStringField
      Alignment = taCenter
      DisplayLabel = #26032#22686
      DisplayWidth = 4
      FieldName = 'fInsert'
      Size = 1
    end
    object MDFunctionfEdit: TStringField
      Alignment = taCenter
      DisplayLabel = #32534#36753
      DisplayWidth = 4
      FieldName = 'fEdit'
      Size = 1
    end
    object MDFunctionfDelete: TStringField
      Alignment = taCenter
      DisplayLabel = #21024#38500
      DisplayWidth = 4
      FieldName = 'fDelete'
      Size = 1
    end
    object MDFunctionfConfirm: TStringField
      Alignment = taCenter
      DisplayLabel = #20445#23384
      DisplayWidth = 4
      FieldName = 'fConfirm'
      Size = 1
    end
    object MDFunctionfCancel: TStringField
      Alignment = taCenter
      DisplayLabel = #21462#28040
      DisplayWidth = 4
      FieldName = 'fCancel'
      Size = 1
    end
    object MDFunctionfFind: TStringField
      Alignment = taCenter
      DisplayLabel = #26597#25214
      FieldName = 'fFind'
      Size = 1
    end
    object MDFunctionfFilter: TStringField
      Alignment = taCenter
      DisplayLabel = #36807#28388
      FieldName = 'fFilter'
      Size = 1
    end
    object MDFunctionfPrint: TStringField
      Alignment = taCenter
      DisplayLabel = #25171#21360
      DisplayWidth = 3
      FieldName = 'fPrint'
      Size = 1
    end
    object MDFunctionfExport: TStringField
      Alignment = taCenter
      DisplayLabel = #23548#20986
      FieldName = 'fExport'
      Size = 1
    end
  end
  object dsMDFunction: TDataSource
    DataSet = MDFunction
    Left = 440
    Top = 309
  end
end