⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 data.dfm

📁 仓库管理信息系统
💻 DFM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    Connection = ADOCN
    CursorType = ctStatic
    CommandText = 
      'SELECT TOP 100 PERCENT '#37096#38376'ID, '#26448#26009#32534#30721', SUM('#37329#39069') AS '#37329#39069#13#10'FROM dbo.bmlym' +
      'xb'#13#10'GROUP BY '#37096#38376'ID, '#26448#26009#32534#30721#13#10'ORDER BY '#37096#38376'ID, '#26448#26009#32534#30721
    Parameters = <>
    Left = 464
    Top = 136
    object QCLYADSDSDesigner: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object QCLYADSField: TStringField
      FieldKind = fkLookup
      FieldName = #37096#38376#21517#31216
      LookupDataSet = whbmdmads
      LookupKeyFields = #37096#38376'ID'
      LookupResultField = #37096#38376#21517#31216
      KeyFields = #37096#38376'ID'
      LookupCache = True
      Lookup = True
    end
    object QCLYADSID: TStringField
      FieldName = #37096#38376'ID'
      FixedChar = True
      Size = 4
    end
    object QCLYADSDSDesigner3: TBCDField
      FieldName = #37329#39069
      LookupCache = True
      ReadOnly = True
      Visible = False
      Precision = 19
    end
    object QCLYADSField2: TStringField
      FieldKind = fkLookup
      FieldName = #26448#26009#26126#31216
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #26448#26009#21517#31216
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Size = 0
      Lookup = True
    end
  end
  object whgysdmads: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CommandText = 'select * from GYSDMB'
    Parameters = <>
    Left = 64
    Top = 112
    object whgysdmadsID: TStringField
      FieldName = #20379#24212#21830'ID'
      FixedChar = True
      Size = 6
    end
    object whgysdmadsDSDesigner: TStringField
      FieldName = #20379#24212#21830#31616#31216
      FixedChar = True
      Size = 12
    end
    object whgysdmadsDSDesigner2: TStringField
      FieldName = #20379#24212#21830#21517#31216
      FixedChar = True
      Size = 30
    end
    object whgysdmadsDSDesigner3: TStringField
      FieldName = #32852#31995#20154
      FixedChar = True
      Size = 8
    end
    object whgysdmadsDSDesigner4: TStringField
      FieldName = #30005#35805
      FixedChar = True
      Size = 14
    end
    object whgysdmadsDSDesigner5: TStringField
      FieldName = #22320#22336
      FixedChar = True
      Size = 30
    end
  end
  object whjclxdmads: TADODataSet
    Connection = ADOCN
    CommandText = 'select * from JCLXB'
    Parameters = <>
    Left = 64
    Top = 168
  end
  object cxjcbads: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CommandText = 'select * from CLjcB'
    Parameters = <>
    Left = 352
    Top = 160
    object cxjcbadsDSDesigner: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object cxjcbadsDSDesigner2: TStringField
      FieldName = #26448#26009#21517#31216
      FixedChar = True
      Size = 18
    end
    object cxjcbadsDSDesigner3: TStringField
      FieldName = #21333#20301
      FixedChar = True
      Size = 4
    end
    object cxjcbadsDSDesigner4: TStringField
      FieldName = #26448#26009#35268#26684
      FixedChar = True
      Size = 8
    end
    object cxjcbadsStringField: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411
      LookupDataSet = whcllxdmads
      LookupKeyFields = #31867#22411'ID'
      LookupResultField = #31867#22411#21517#31216
      KeyFields = #31867#22411'ID'
      Lookup = True
    end
    object cxjcbadsID: TStringField
      FieldName = #31867#22411'ID'
      FixedChar = True
      Size = 4
    end
    object cxjcbadsID2: TStringField
      FieldName = #20179#24211'ID'
      FixedChar = True
      Size = 4
    end
    object cxjcbadsDSDesigner5: TIntegerField
      FieldName = #19978#26376#32467#23384
    end
    object cxjcbadsDSDesigner6: TBCDField
      FieldName = #19978#26376#21333#20215
      Precision = 19
    end
    object cxjcbadsDSDesigner7: TBCDField
      FieldName = #19978#26376#37329#39069
      Precision = 19
    end
    object cxjcbadsDSDesigner8: TIntegerField
      FieldName = #36827#20179#25968#37327
    end
    object cxjcbadsDSDesigner9: TBCDField
      FieldName = #36827#20179#21333#20215
      Precision = 19
    end
    object cxjcbadsDSDesigner10: TBCDField
      FieldName = #36827#20179#37329#39069
      Precision = 19
    end
    object cxjcbadsDSDesigner11: TIntegerField
      FieldName = #20986#20179#25968#37327
    end
    object cxjcbadsDSDesigner12: TBCDField
      FieldName = #20986#20179#21333#20215
      Precision = 19
    end
    object cxjcbadsDSDesigner13: TBCDField
      FieldName = #20986#20179#37329#39069
      Precision = 19
    end
    object cxjcbadsDSDesigner14: TIntegerField
      FieldName = #26412#26376#32467#23384
    end
    object cxjcbadsDSDesigner15: TBCDField
      FieldName = #32467#23384#21333#20215
      Precision = 19
    end
    object cxjcbadsDSDesigner16: TBCDField
      FieldName = #32467#23384#37329#39069
      Precision = 19
    end
    object cxjcbadsDSDesigner17: TIntegerField
      FieldName = #23454#38469#32467#23384
    end
    object cxjcbadsDSDesigner18: TBCDField
      FieldName = #23454#38469#37329#39069
      Precision = 19
    end
  end
  object gysghhzads: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CursorType = ctStatic
    OnCalcFields = gysghhzadsCalcFields
    CommandText = 
      'SELECT '#26448#26009#32534#30721', SUM('#25968#37327') AS '#25968#37327', SUM('#37329#39069') AS '#37329#39069' from jcmxcx'#13#10'group by ' +
      #26448#26009#32534#30721' '
    Parameters = <>
    Left = 352
    Top = 328
    object gysghhzadsID: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411'ID'
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #31867#22411'ID'
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Visible = False
      Lookup = True
    end
    object gysghhzadsStringField: TStringField
      FieldKind = fkLookup
      FieldName = #26448#26009#35268#26684
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #26448#26009#35268#26684
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object gysghhzadsStringField2: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411
      LookupDataSet = whcclxdmads
      LookupKeyFields = #20986#20179#31867#22411'ID'
      LookupResultField = #20986#20179#31867#22411
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object gysghhzadsStringField3: TStringField
      FieldKind = fkLookup
      FieldName = #21333#20301
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #21333#20301
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object gysghhzadsStringField4: TStringField
      FieldKind = fkLookup
      FieldName = #26448#26009#21517#31216
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #26448#26009#21517#31216
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object gysghhzadsFloatField: TFloatField
      FieldKind = fkCalculated
      FieldName = #21333#20215
      DisplayFormat = '#0.00'
      EditFormat = '#0.00'
      Calculated = True
    end
    object gysghhzadsDSDesigner: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object gysghhzadsDSDesigner2: TIntegerField
      FieldName = #25968#37327
      ReadOnly = True
    end
    object gysghhzadsDSDesigner3: TBCDField
      FieldName = #37329#39069
      ReadOnly = True
      Precision = 19
    end
  end
  object bmlyhzbads: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CursorType = ctStatic
    OnCalcFields = bmlyhzbadsCalcFields
    CommandText = 
      'SELECT '#26448#26009#32534#30721', SUM('#25968#37327') AS '#25968#37327', SUM('#37329#39069') AS '#37329#39069' from bmlymxb'#13#10'group by' +
      ' '#26448#26009#32534#30721' '
    IndexFieldNames = #26448#26009#32534#30721
    Parameters = <>
    Left = 352
    Top = 224
    object bmlyhzbadsDSDesigner: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object bmlyhzbadsDSDesigner2: TIntegerField
      FieldName = #25968#37327
      ReadOnly = True
    end
    object bmlyhzbadsDSDesigner3: TBCDField
      FieldName = #37329#39069
      ReadOnly = True
      Precision = 19
    end
    object bmlyhzbadsID: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411'ID'
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #31867#22411'ID'
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object bmlyhzbadsStringField: TStringField
      FieldKind = fkLookup
      FieldName = #26448#26009#35268#26684
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #26448#26009#35268#26684
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object bmlyhzbadsStringField2: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411
      LookupDataSet = whcclxdmads
      LookupKeyFields = #20986#20179#31867#22411'ID'
      LookupResultField = #20986#20179#31867#22411
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object bmlyhzbadsStringField3: TStringField
      FieldKind = fkLookup
      FieldName = #21333#20301
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #21333#20301
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object bmlyhzbadsStringField4: TStringField
      FieldKind = fkLookup
      FieldName = #26448#26009#21517#31216
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #26448#26009#21517#31216
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object bmlyhzbadsField: TFloatField
      FieldKind = fkCalculated
      FieldName = #21333#20215
      DisplayFormat = '#0.00'
      EditFormat = '#0.00'
      Calculated = True
    end
  end
  object whtzmxads: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CursorType = ctStatic
    BeforeInsert = whtzmxadsBeforeInsert
    BeforePost = whtzmxadsBeforePost
    OnNewRecord = whtzmxadsNewRecord
    CommandText = 'select * from TZMXB'
    DataSource = whcjtzds
    IndexFieldNames = #35843#25972'ID'
    MasterFields = #35843#25972'ID'
    Parameters = <>
    Left = 192
    Top = 256
    object whtzmxadsID: TAutoIncField
      FieldName = #35843#25972#26126#32454'ID'
      ReadOnly = True
    end
    object whtzmxadsID2: TIntegerField
      FieldName = #35843#25972'ID'
    end
    object whtzmxadsDSDesigner: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object whtzmxadsDSDesigner2: TIntegerField
      FieldName = #35843#25972#25968#37327
      OnChange = whtzmxadsDSDesigner2Change
    end
    object whtzmxadsID3: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411'ID'
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #31867#22411'ID'
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object whtzmxadsStringField4: TStringField
      FieldKind = fkLookup
      FieldName = #26448#26009#35268#26684
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #26448#26009#35268#26684
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object whtzmxadsStringField3: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411
      LookupDataSet = whcclxdmads
      LookupKeyFields = #20986#20179#31867#22411'ID'
      LookupResultField = #20986#20179#31867#22411
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object whtzmxadsStringField2: TStringField
      FieldKind = fkLookup
      FieldName = #21333#20301
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #21333#20301
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object whtzmxadsStringField: TStringField
      FieldKind = fkLookup
      FieldName = #26448#26009#21517#31216
      LookupDataSet = whclbmads
      LookupKeyFields = #26448#26009#32534#30721
      LookupResultField = #26448#26009#21517#31216
      KeyFields = #26448#26009#32534#30721
      LookupCache = True
      Lookup = True
    end
    object whtzmxadsDSDesigner3: TBCDField
      FieldName = #35843#25972#21333#20215
      OnChange = whtzmxadsDSDesigner3Change
      Precision = 19
    end
    object whtzmxadsDSDesigner4: TBCDField
      FieldName = #35843#25972#37329#39069
      Precision = 19
    end
    object whtzmxadsDSDesigner5: TStringField
      FieldName = #36865#36135#21333#21495
      FixedChar = True
      Size = 10
    end
    object whtzmxadsDSDesigner6: TStringField
      FieldName = #22791#27880
      FixedChar = True
    end
  end
  object whclbmads: TADODataSet
    CacheSize = 1000
    Connection = ADOCN
    CursorType = ctStatic
    BeforePost = whclbmadsBeforePost
    AfterPost = whclbmadsAfterPost
    OnNewRecord = whclbmadsNewRecord
    CommandText = 'select * from CLDMB'
    Parameters = <>
    Left = 64
    Top = 368
    object whclbmadsDSDesigner: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object whclbmadsDSDesigner2: TStringField
      FieldName = #26448#26009#21517#31216
      FixedChar = True
      Size = 18
    end
    object whclbmadsDSDesigner3: TStringField
      FieldName = #21333#20301
      FixedChar = True
      Size = 4
    end
    object whclbmadsDSDesigner4: TStringField
      FieldName = #26448#26009#35268#26684
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -