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

📄 data.dfm

📁 仓库管理信息系统
💻 DFM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    end
    object whccmxadsStringField: 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 whccmxadsDSDesigner2: TFloatField
      FieldName = #25968#37327
      OnChange = whccmxadsDSDesigner2Change
    end
    object whccmxadsDSDesigner3: TBCDField
      FieldName = #21333#20215
      OnChange = whccmxadsDSDesigner2Change
      Precision = 19
    end
    object whccmxadsDSDesigner4: TBCDField
      FieldName = #37329#39069
      Precision = 19
    end
    object whccmxadsDSDesigner5: TStringField
      FieldName = #22791#27880
      FixedChar = True
    end
  end
  object whccmxds: TDataSource
    DataSet = whccmxads
    Left = 404
    Top = 343
  end
  object jzxxbads: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    CommandText = 'select *   from '#32467#36716#20449#24687#34920
    Parameters = <>
    Left = 101
    Top = 6
  end
  object jzxxbds: TDataSource
    DataSet = jzxxbads
    Left = 149
    Top = 6
  end
  object cshads_clkc: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    BeforeInsert = cshads_clkcBeforeInsert
    BeforePost = cshads_clkcBeforePost
    CommandText = 
      'select  *  from '#26448#26009#27599#24180#24211#23384#34920' '#13#10'where ('#21021#22987#25968#37327'>0 or '#21021#22987#37329#39069'>0 or  '#36827#20179#25968#37327'>0 or ' +
      ' '#36827#20179#37329#39069'>0 or '#13#10#20986#20179#25968#37327'>0 or  '#20986#20179#37329#39069'>0 or  '#24211#23384#25968#37327' >0 or  '#24211#23384#37329#39069'>0 ) and '#13#10' '#24180 +
      #20221'=:nf order by '#26448#26009#32534#30721
    Parameters = <
      item
        Name = 'nf'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 577
    Top = 59
    object cshads_clkcDSDesigner: TIntegerField
      FieldName = #24180#20221
      ReadOnly = True
    end
    object cshads_clkcDSDesigner2: TStringField
      FieldName = #26448#26009#32534#30721
      ReadOnly = True
      FixedChar = True
      Size = 14
    end
    object cshads_clkcDSDesigner3: TStringField
      FieldName = #26448#26009#21517#31216
      ReadOnly = True
      FixedChar = True
      Size = 18
    end
    object cshads_clkcDSDesigner4: TStringField
      FieldName = #21333#20301
      ReadOnly = True
      FixedChar = True
      Size = 4
    end
    object cshads_clkcDSDesigner5: TStringField
      FieldName = #26448#26009#35268#26684
      ReadOnly = True
      FixedChar = True
      Size = 8
    end
    object cshads_clkcID: TStringField
      FieldName = #31867#22411'ID'
      ReadOnly = True
      FixedChar = True
      Size = 4
    end
    object cshads_clkcStringField: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411
      LookupDataSet = whcllxdmads
      LookupKeyFields = #31867#22411'ID'
      LookupResultField = #31867#22411#21517#31216
      KeyFields = #31867#22411'ID'
      LookupCache = True
      ReadOnly = True
      Lookup = True
    end
    object cshads_clkcDSDesigner6: TFloatField
      FieldName = #21021#22987#25968#37327
    end
    object cshads_clkcDSDesigner7: TFloatField
      FieldName = #21021#22987#37329#39069
    end
    object cshads_clkcDSDesigner8: TStringField
      FieldName = #22791#27880
      FixedChar = True
      Size = 22
    end
    object cshads_clkcDSDesigner9: TBCDField
      FieldName = #21442#32771#20215#26684
      Precision = 19
    end
    object cshads_clkcDSDesigner10: TFloatField
      FieldName = #36827#20179#25968#37327
    end
    object cshads_clkcDSDesigner11: TFloatField
      FieldName = #36827#20179#37329#39069
    end
    object cshads_clkcDSDesigner12: TFloatField
      FieldName = #20986#20179#25968#37327
    end
    object cshads_clkcDSDesigner13: TFloatField
      FieldName = #20986#20179#37329#39069
    end
    object cshads_clkcDSDesigner14: TFloatField
      FieldName = #24211#23384#25968#37327
    end
    object cshads_clkcDSDesigner15: TFloatField
      FieldName = #24211#23384#37329#39069
    end
  end
  object cshds_clkc: TDataSource
    DataSet = cshads_clkc
    Left = 623
    Top = 58
  end
  object ASP_KCZL: TADOStoredProc
    Connection = adocn
    ProcedureName = 'cpkc_update;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@nf'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 675
    Top = 59
  end
  object ASP_yjczl: TADOStoredProc
    Connection = adocn
    ProcedureName = 'cpkc_update;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@nf'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 722
    Top = 58
  end
  object cxads_cpjc: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    BeforeInsert = cshads_cpkcBeforeInsert
    BeforePost = cshads_cpkcBeforePost
    CommandText = 
      'select * from '#20135#21697#27599#26376#32467#23384#34920' '#13#10'where ('#19978#26376#25968#37327'>0 or '#19978#26376#37329#39069'>0 or  '#36827#20179#25968#37327'>0 or  '#36827 +
      #20179#37329#39069'>0 or '#13#10#20986#20179#25968#37327'>0 or  '#20986#20179#37329#39069'>0 or  '#26412#26376#25968#37327' >0 or  '#26412#26376#37329#39069'>0) and '#13#10' '#24180#20221'=:' +
      'nf and '#26376#20221'=:yf order by '#20998#31867'id,'#20135#21697'id'
    Parameters = <
      item
        Name = 'nf'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'yf'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 467
    Top = 9
    object IntegerField1: TIntegerField
      FieldName = #24180#20221
      ReadOnly = True
    end
    object StringField1: TStringField
      FieldName = #20135#21697'id'
      ReadOnly = True
      FixedChar = True
      Size = 12
    end
    object cxads_cpjcDSDesigner: TIntegerField
      FieldName = #26376#20221
    end
    object StringField2: TStringField
      FieldName = #20998#31867'id'
      ReadOnly = True
      FixedChar = True
      Size = 10
    end
    object StringField3: TStringField
      FieldKind = fkLookup
      FieldName = #20998#31867
      LookupDataSet = zlads_cplx
      LookupKeyFields = #20998#31867'ID'
      LookupResultField = #21517#31216
      KeyFields = #20998#31867'id'
      LookupCache = True
      ReadOnly = True
      Lookup = True
    end
    object StringField4: TStringField
      FieldName = #21517#31216#35268#26684
      ReadOnly = True
      FixedChar = True
      Size = 30
    end
    object StringField5: TStringField
      FieldName = #21333#20301
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object FloatField1: TFloatField
      FieldName = #19978#26376#25968#37327
    end
    object FloatField2: TFloatField
      FieldName = #19978#26376#37329#39069
    end
    object StringField6: TStringField
      FieldName = #22791#27880
      FixedChar = True
      Size = 22
    end
    object FloatField3: TFloatField
      FieldName = #21333#20215
    end
    object FloatField4: TFloatField
      FieldName = #36827#20179#25968#37327
    end
    object FloatField5: TFloatField
      FieldName = #36827#20179#37329#39069
    end
    object FloatField6: TFloatField
      FieldName = #20986#20179#25968#37327
    end
    object FloatField7: TFloatField
      FieldName = #20986#20179#37329#39069
    end
    object FloatField8: TFloatField
      FieldName = #26412#26376#25968#37327
    end
    object FloatField9: TFloatField
      FieldName = #26412#26376#37329#39069
    end
  end
  object cxds_cpjc: TDataSource
    DataSet = cxads_cpjc
    Left = 514
    Top = 9
  end
  object cxads_cljc: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    BeforeInsert = cshads_clkcBeforeInsert
    BeforePost = cshads_clkcBeforePost
    CommandText = 
      'select  *  from '#26448#26009#27599#26376#32467#23384#34920' '#13#10'where ('#19978#26376#25968#37327'>0 or '#19978#26376#37329#39069'>0 or  '#36827#20179#25968#37327'>0 or ' +
      ' '#36827#20179#37329#39069'>0 or '#13#10#20986#20179#25968#37327'>0 or  '#20986#20179#37329#39069'>0 or  '#26412#26376#25968#37327' >0 or  '#26412#26376#37329#39069'>0) and '#13#10#24180#20221'=' +
      ':nf and '#26376#20221'=:yf order by '#31867#22411'id,'#26448#26009#32534#30721
    Parameters = <
      item
        Name = 'nf'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'yf'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 469
    Top = 56
    object IntegerField2: TIntegerField
      FieldName = #24180#20221
      ReadOnly = True
    end
    object cxads_cljcDSDesigner: TIntegerField
      FieldName = #26376#20221
    end
    object StringField7: TStringField
      FieldName = #26448#26009#32534#30721
      ReadOnly = True
      FixedChar = True
      Size = 14
    end
    object StringField8: TStringField
      FieldName = #26448#26009#21517#31216
      ReadOnly = True
      FixedChar = True
      Size = 18
    end
    object StringField9: TStringField
      FieldName = #21333#20301
      ReadOnly = True
      FixedChar = True
      Size = 4
    end
    object StringField10: TStringField
      FieldName = #26448#26009#35268#26684
      ReadOnly = True
      FixedChar = True
      Size = 8
    end
    object StringField11: TStringField
      FieldName = #31867#22411'ID'
      ReadOnly = True
      FixedChar = True
      Size = 4
    end
    object StringField12: TStringField
      FieldKind = fkLookup
      FieldName = #31867#22411
      LookupDataSet = whcllxdmads
      LookupKeyFields = #31867#22411'ID'
      LookupResultField = #31867#22411#21517#31216
      KeyFields = #31867#22411'ID'
      LookupCache = True
      ReadOnly = True
      Lookup = True
    end
    object FloatField10: TFloatField
      FieldName = #19978#26376#25968#37327
    end
    object FloatField11: TFloatField
      FieldName = #19978#26376#37329#39069
    end
    object StringField13: TStringField
      FieldName = #22791#27880
      FixedChar = True
      Size = 22
    end
    object BCDField1: TBCDField
      FieldName = #21442#32771#20215#26684
      Precision = 19
    end
    object FloatField12: TFloatField
      FieldName = #36827#20179#25968#37327
    end
    object FloatField13: TFloatField
      FieldName = #36827#20179#37329#39069
    end
    object FloatField14: TFloatField
      FieldName = #20986#20179#25968#37327
    end
    object FloatField15: TFloatField
      FieldName = #20986#20179#37329#39069
    end
    object FloatField16: TFloatField
      FieldName = #26412#26376#25968#37327
    end
    object FloatField17: TFloatField
      FieldName = #26412#26376#37329#39069
    end
  end
  object cxds_cljc: TDataSource
    DataSet = cxads_cljc
    Left = 517
    Top = 55
  end
  object cxads_gysmyjh: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    BeforeInsert = cshads_clkcBeforeInsert
    BeforePost = cshads_clkcBeforePost
    CommandText = 
      'select '#20379#24212#21830'id,'#26448#26009#32534#30721',sum('#25968#37327') as '#25968#37327',sum('#37329#39069') as '#37329#39069' from '#13#10'(select m.'#20379 +
      #24212#21830'id,d.'#26448#26009#32534#30721',d.'#25968#37327',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(year,m.'#26085#26399')=:nf and'#13#10'datepart(month,m.'#26085#26399')=:yf) a' +
      's gysjh'#13#10'group by '#20379#24212#21830'id,'#26448#26009#32534#30721#13#10'order by '#20379#24212#21830'id,'#26448#26009#32534#30721
    Parameters = <
      item
        Name = 'nf'
        DataType = ftString
        Size = 4
        Value = '2003'
      end
      item
        Name = 'yf'
        DataType = ftString
12345

⌨️ 快捷键说明

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