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

📄 data.~dfm

📁 仓库管理信息系统
💻 ~DFM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
      end
      item
        Name = 'yf'
        DataType = ftString
        Size = 2
        Value = '08'
      end>
    Left = 475
    Top = 198
    object cxads_gysmyjhid: TStringField
      FieldName = #20379#24212#21830'id'
      FixedChar = True
      Size = 6
    end
    object cxads_gysmyjhStringField: TStringField
      FieldKind = fkLookup
      FieldName = #20379#24212#21830
      LookupDataSet = whgysdmads
      LookupKeyFields = #20379#24212#21830'ID'
      LookupResultField = #20379#24212#21830#31616#31216
      KeyFields = #20379#24212#21830'ID'
      LookupCache = True
      Lookup = True
    end
    object cxads_gysmyjhDSDesigner3: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object cxads_gysmyjhStringField2: 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 cxads_gysmyjhStringField3: 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 cxads_gysmyjhStringField4: 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 cxads_gysmyjhStringField5: 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 cxads_gysmyjhID2: 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 cxads_gysmyjhDSDesigner: TFloatField
      FieldName = #25968#37327
      ReadOnly = True
    end
    object cxads_gysmyjhDSDesigner2: TBCDField
      FieldName = #37329#39069
      ReadOnly = True
      Precision = 19
    end
    object cxads_gysmyjhField: TFloatField
      FieldKind = fkCalculated
      FieldName = #22343#20215
      Calculated = True
    end
  end
  object cxds_gysmyjh: TDataSource
    DataSet = cxads_gysmyjh
    Left = 523
    Top = 199
  end
  object cxds_gysghmx: TDataSource
    DataSet = cxads_gysghmx
    Left = 522
    Top = 247
  end
  object cxads_gysghmx: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    BeforeInsert = cshads_clkcBeforeInsert
    BeforePost = cshads_clkcBeforePost
    CommandText = 
      'select m.'#36827#20179#21333#21495',m.'#26085#26399',m.'#36827#20179#31867#22411'id,m.'#20379#24212#21830'id,m.'#39564#25910#20154'id,'#13#10'd.'#26448#26009#32534#30721',d.'#25968#37327',d.'#21333#20215',d' +
      '.'#37329#39069' from '#26448#26009#36827#20179#21333' m,'#26448#26009#36827#20179#26126#32454#34920' d'#13#10'where m.'#36827#20179#21333#21495'=d.'#36827#20179#21333#21495' and '#13#10'datepart(y' +
      'ear,m.'#26085#26399')=:nf and'#13#10'datepart(month,m.'#26085#26399')=:yf and '#13#10'm.'#20379#24212#21830'id=:gys'#13#10 +
      'order by d.'#26448#26009#32534#30721
    IndexFieldNames = #20379#24212#21830'id'
    Parameters = <
      item
        Name = 'nf'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'yf'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'gys'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 6
        Value = Null
      end>
    Left = 476
    Top = 246
    object StringField14: TStringField
      FieldName = #20379#24212#21830'id'
      FixedChar = True
      Size = 6
    end
    object StringField15: TStringField
      FieldKind = fkLookup
      FieldName = #20379#24212#21830
      LookupDataSet = whgysdmads
      LookupKeyFields = #20379#24212#21830'ID'
      LookupResultField = #20379#24212#21830#31616#31216
      KeyFields = #20379#24212#21830'ID'
      LookupCache = True
      Lookup = True
    end
    object StringField16: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object StringField17: 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 StringField18: 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 StringField19: 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 StringField20: 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 StringField21: 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 cxads_gysghmxStringField: TStringField
      FieldKind = fkLookup
      FieldName = #36827#20179#31867#22411
      LookupDataSet = whjclxdmads
      LookupKeyFields = #36827#20179#31867#22411'ID'
      LookupResultField = #36827#20179#31867#22411
      KeyFields = #36827#20179#31867#22411'ID'
      LookupCache = True
      Lookup = True
    end
    object cxads_gysghmxStringField2: TStringField
      FieldKind = fkLookup
      FieldName = #39564#25910#20154
      LookupDataSet = whysrads
      LookupKeyFields = #39564#25910#20154'ID'
      LookupResultField = #39564#25910#20154
      KeyFields = #39564#25910#20154'ID'
      LookupCache = True
      Lookup = True
    end
    object FloatField18: TFloatField
      FieldName = #25968#37327
      ReadOnly = True
    end
    object BCDField2: TBCDField
      FieldName = #37329#39069
      ReadOnly = True
      Precision = 19
    end
    object cxads_gysghmxDSDesigner: TStringField
      FieldName = #36827#20179#21333#21495
      FixedChar = True
      Size = 12
    end
    object cxads_gysghmxDSDesigner2: TDateTimeField
      FieldName = #26085#26399
    end
    object cxads_gysghmxid: TStringField
      FieldName = #36827#20179#31867#22411'id'
      FixedChar = True
      Size = 4
    end
    object cxads_gysghmxid2: TStringField
      FieldName = #39564#25910#20154'id'
      FixedChar = True
      Size = 4
    end
    object cxads_gysghmxDSDesigner3: TBCDField
      FieldName = #21333#20215
      Precision = 19
    end
  end
  object cxads_bmlyhz: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    BeforeInsert = cshads_clkcBeforeInsert
    BeforePost = cshads_clkcBeforePost
    OnCalcFields = cxads_bmlyhzCalcFields
    CommandText = 
      'select '#37096#38376'id,'#26448#26009#32534#30721',sum('#25968#37327') as '#25968#37327',sum('#37329#39069') as '#37329#39069' from '#13#10'(select m.'#37096#38376 +
      'id,d.'#26448#26009#32534#30721',d.'#25968#37327',d.'#37329#39069' from '#26448#26009#39046#26009#21333' m,'#13#10#26448#26009#39046#26009#26126#32454#34920' d'#13#10'where m.'#20986#20179#21333#21495'=d.'#20986#20179#21333 +
      #21495' and '#13#10'datepart(year,m.'#26085#26399')=:nf and'#13#10'datepart(month,m.'#26085#26399')=:yf) a' +
      's gysjh'#13#10'group by '#37096#38376'id,'#26448#26009#32534#30721#13#10'order by '#37096#38376'id,'#26448#26009#32534#30721
    Parameters = <
      item
        Name = 'nf'
        DataType = ftString
        Size = 4
        Value = '2003'
      end
      item
        Name = 'yf'
        DataType = ftString
        Size = 2
        Value = '08'
      end>
    Left = 474
    Top = 296
    object StringField22: TStringField
      FieldName = #37096#38376'id'
      FixedChar = True
      Size = 6
    end
    object StringField23: 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 StringField24: TStringField
      FieldName = #26448#26009#32534#30721
      FixedChar = True
      Size = 14
    end
    object StringField25: 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 StringField26: 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 StringField27: 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 StringField28: 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 StringField29: 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 FloatField19: TFloatField
      FieldName = #25968#37327
      ReadOnly = True
    end
    object BCDField3: TBCDField
      FieldName = #37329#39069
      ReadOnly = True
      Precision = 19
    end
    object FloatField20: TFloatField
      FieldKind = fkCalculated
      FieldName = #22343#20215
      Calculated = True
    end
  end
  object cxds_bmlyhz: TDataSource
    DataSet = cxads_bmlyhz
    Left = 522
    Top = 296
  end
  object cxads_bmlymx: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    BeforeInsert = cshads_clkcBeforeInsert
    BeforePost = cshads_clkcBeforePost
    CommandText = 
      'select m.'#20986#20179#21333#21495',m.'#26085#26399',m.'#20986#20179#31867#22411'id,m.'#37096#38376'id,m.'#39046#29992#20154','#13#10'd.'#26448#26009#32534#30721',d.'#25968#37327',d.'#21333#20215',d.'#37329#39069 +
      ' from '#26448#26009#39046#26009#21333' m,'#13#10#26448#26009#39046#26009#26126#32454#34920' d'#13#10'where m.'#20986#20179#21333#21495'=d.'#20986#20179#21333#21495' and '#13#10'datepart(ye' +
      'ar,m.'#26085#26399')=:nf and'#13#10'datepart(month,m.'#26085#26399')=:yf and '#13#10'm.'#37096#38376'id=:gys'#13#10'or' +
      'der by d.'#26448#26009#32534#30721
    Parameters = <
      item
        Name = 'nf'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 2003
      end
      item
        Name = 'yf'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 8
      end
      item
        Name = 'gys'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 4
        Value = '856'
      end>
    Left = 473
    Top = 342
    object cxads_bmlymxid: TStringField
      FieldName = #37096#38376'id'
      FixedChar = True
      Size = 6
    end
    object cxads_bmlymxStringField: 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 cxads_bmlymxS
12345

⌨️ 快捷键说明

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