📄 data.dfm

📁 仓库管理信息系统
💻 DFM
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 160
  Top = 101
  Height = 465
  Width = 784
  object adocn: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 17
    Top = 3
  end
  object zlads_cpzl: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    CommandText = 'select * from '#20135#21697#34920' order by '#20998#31867'id, '#20135#21697'id'
    Parameters = <>
    Left = 17
    Top = 60
    object zlads_cpzlid: TStringField
      FieldName = #20135#21697'id'
      FixedChar = True
      Size = 12
    end
    object zlads_cpzlField: TStringField
      FieldKind = fkLookup
      FieldName = #20998#31867
      LookupDataSet = zlads_cplx
      LookupKeyFields = #20998#31867'ID'
      LookupResultField = #21517#31216
      KeyFields = #20998#31867'id'
      LookupCache = True
      Lookup = True
    end
    object zlads_cpzlid2: TStringField
      FieldName = #20998#31867'id'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object zlads_cpzlDSDesigner: TStringField
      FieldName = #21517#31216#35268#26684
      FixedChar = True
      Size = 30
    end
    object zlads_cpzlDSDesigner2: TStringField
      DisplayWidth = 4
      FieldName = #21333#20301
      FixedChar = True
      Size = 2
    end
    object zlads_cpzlDSDesigner3: TFloatField
      FieldName = #21333#20215
    end
  end
  object zlds_cpzl: TDataSource
    DataSet = zlads_cpzl
    Left = 63
    Top = 59
  end
  object zlads_cplx: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    CommandText = 'select * from '#20135#21697#31867#22411#34920
    Parameters = <>
    Left = 17
    Top = 103
    object zlads_cplxID: TStringField
      FieldName = #20998#31867'ID'
      FixedChar = True
      Size = 10
    end
    object zlads_cplxDSDesigner: TStringField
      FieldName = #21517#31216
      FixedChar = True
    end
    object zlads_cplxDSDesigner2: TStringField
      FieldName = #22791#27880
      FixedChar = True
      Size = 25
    end
  end
  object zlds_cplx: TDataSource
    DataSet = zlads_cplx
    Left = 63
    Top = 103
  end
  object zlads_khzl: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    CommandText = 'select * from '#23458#25143
    Parameters = <>
    Left = 16
    Top = 151
    object zlads_khzlID: TStringField
      FieldName = #23458#25143'ID'
      FixedChar = True
      Size = 6
    end
    object zlads_khzlDSDesigner: TStringField
      FieldName = #23458#25143#21517#31216
      FixedChar = True
      Size = 30
    end
    object zlads_khzlDSDesigner2: TStringField
      DisplayWidth = 10
      FieldName = #32852#31995#20154#22995#21517
      FixedChar = True
      Size = 8
    end
    object zlads_khzlDSDesigner3: TStringField
      FieldName = #32852#31995#20154#22836#34900
      FixedChar = True
      Size = 12
    end
    object zlads_khzlDSDesigner4: TStringField
      FieldName = #22320#22336
      FixedChar = True
      Size = 38
    end
    object zlads_khzlDSDesigner5: TStringField
      FieldName = #22478#24066
      FixedChar = True
      Size = 10
    end
    object zlads_khzlDSDesigner6: TStringField
      FieldName = #22320#21306
      FixedChar = True
      Size = 10
    end
    object zlads_khzlDSDesigner7: TStringField
      DisplayWidth = 8
      FieldName = #37038#25919#32534#30721
      FixedChar = True
      Size = 6
    end
    object zlads_khzlDSDesigner8: TStringField
      FieldName = #30005#35805
      FixedChar = True
      Size = 14
    end
    object zlads_khzlDSDesigner9: TStringField
      FieldName = #20256#30495
      FixedChar = True
      Size = 14
    end
  end
  object zlds_khzl: TDataSource
    DataSet = zlads_khzl
    Left = 64
    Top = 151
  end
  object zlads_xsyzl: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    CommandText = 'select * from '#38144#21806#21592#36164#26009
    Parameters = <>
    Left = 17
    Top = 196
    object zlads_xsyzlID: TStringField
      DisplayWidth = 8
      FieldName = #38144#21806#21592'ID'
      FixedChar = True
      Size = 4
    end
    object zlads_xsyzlDSDesigner: TStringField
      DisplayWidth = 10
      FieldName = #38144#21806#21592#21517#31216
      FixedChar = True
      Size = 8
    end
    object zlads_xsyzlDSDesigner2: TStringField
      FieldName = #22791#27880
      FixedChar = True
      Size = 22
    end
  end
  object zlds_xsyzl: TDataSource
    DataSet = zlads_xsyzl
    Left = 65
    Top = 197
  end
  object cshads_cpkc: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    BeforeInsert = cshads_cpkcBeforeInsert
    BeforePost = cshads_cpkcBeforePost
    CommandText = 
      'select * from '#20135#21697#27599#24180#24211#23384#34920' '#13#10'where ('#21021#22987#20313#37327'>0 or '#21021#22987#20313#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 '#20135#21697'id'
    Parameters = <
      item
        Name = 'nf'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 574
    Top = 13
    object cshads_cpkcDSDesigner: TIntegerField
      FieldName = #24180#20221
      ReadOnly = True
    end
    object cshads_cpkcid: TStringField
      FieldName = #20135#21697'id'
      ReadOnly = True
      FixedChar = True
      Size = 12
    end
    object cshads_cpkcid2: TStringField
      FieldName = #20998#31867'id'
      ReadOnly = True
      FixedChar = True
      Size = 10
    end
    object cshads_cpkcStringField: 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 cshads_cpkcDSDesigner2: TStringField
      FieldName = #21517#31216#35268#26684
      ReadOnly = True
      FixedChar = True
      Size = 30
    end
    object cshads_cpkcDSDesigner3: TStringField
      FieldName = #21333#20301
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cshads_cpkcDSDesigner4: TFloatField
      FieldName = #21021#22987#20313#37327
    end
    object cshads_cpkcDSDesigner5: TFloatField
      FieldName = #21021#22987#20313#39069
    end
    object cshads_cpkcDSDesigner6: TStringField
      FieldName = #22791#27880
      FixedChar = True
      Size = 22
    end
    object cshads_cpkcDSDesigner7: TFloatField
      FieldName = #21333#20215
    end
    object cshads_cpkcDSDesigner8: TFloatField
      FieldName = #36827#20179#25968#37327
    end
    object cshads_cpkcDSDesigner9: TFloatField
      FieldName = #36827#20179#37329#39069
    end
    object cshads_cpkcDSDesigner10: TFloatField
      FieldName = #20986#20179#25968#37327
    end
    object cshads_cpkcDSDesigner11: TFloatField
      FieldName = #20986#20179#37329#39069
    end
    object cshads_cpkcDSDesigner12: TFloatField
      FieldName = #24211#23384#25968#37327
    end
    object cshads_cpkcDSDesigner13: TFloatField
      FieldName = #24211#23384#37329#39069
    end
  end
  object cshds_cpkc: TDataSource
    DataSet = cshads_cpkc
    Left = 620
    Top = 13
  end
  object zlads_cpjclx: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    CommandText = 'select *   from '#25104#21697#36827#20179#31867#22411#34920' '
    Parameters = <>
    Left = 17
    Top = 289
    object zlads_cpjclxID: TStringField
      DisplayWidth = 10
      FieldName = #36827#20179#31867#22411'ID'
      FixedChar = True
      Size = 4
    end
    object zlads_cpjclxDSDesigner: TStringField
      FieldName = #31867#22411#21517#31216
      FixedChar = True
      Size = 12
    end
    object zlads_cpjclxDSDesigner2: TStringField
      DisplayWidth = 30
      FieldName = #22791#27880
      Size = 30
    end
  end
  object zlds_cpjclx: TDataSource
    DataSet = zlads_cpjclx
    Left = 63
    Top = 288
  end
  object zlads_cpjcysr: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    CommandText = 'select *    from '#20135#21697#36827#20179#39564#25910#20154
    Parameters = <>
    Left = 17
    Top = 335
    object zlads_cpjcysrID: TStringField
      DisplayWidth = 8
      FieldName = #39564#25910#20154'ID'
      FixedChar = True
      Size = 4
    end
    object zlads_cpjcysrDSDesigner: TStringField
      FieldName = #22995#21517
      FixedChar = True
      Size = 8
    end
    object zlads_cpjcysrDSDesigner2: TStringField
      FieldName = #22791#27880
      FixedChar = True
      Size = 24
    end
  end
  object zlds_cpjcysr: TDataSource
    DataSet = zlads_cpjcysr
    Left = 65
    Top = 336
  end
  object djwhads_cpjcd: TADODataSet
    Connection = adocn
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeInsert = djwhads_cpjcdBeforeInsert
    BeforeEdit = djwhads_cpjcdBeforeEdit
    BeforePost = djwhads_cpjcdBeforePost
    AfterPost = djwhads_cpjcdAfterPost
    AfterCancel = djwhads_cpjcdAfterCancel
    BeforeDelete = djwhads_cpjcdBeforeDelete
    AfterDelete = djwhads_cpjcdAfterDelete
    AfterScroll = djwhads_cpjcdAfterScroll
    OnNewRecord = djwhads_cpjcdNewRecord
    CommandText = 'select *   from '#25104#21697#36827#20179#21333' where '#26085#26399' between :date1 and :date2'
    Parameters = <
      item
        Name = 'date1'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'date2'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    Left = 359
    Top = 12
    object djwhads_cpjcdDSDesigner: TStringField
      FieldName = #21333#25454#21495
      FixedChar = True
      Size = 12
    end
    object djwhads_cpjcdDSDesigner2: TStringField
      FieldName = #25209#21495
      FixedChar = True
      Size = 16
    end
    object djwhads_cpjcdid: TStringField
      FieldName = #36827#20179#31867#22411'id'
      FixedChar = True
      Size = 4
    end
    object djwhads_cpjcdField: TStringField
      FieldKind = fkLookup
      FieldName = #36827#20179#31867#22411
      LookupDataSet = zlads_cpjclx
      LookupKeyFields = #36827#20179#31867#22411'ID'
      LookupResultField = #31867#22411#21517#31216
      KeyFields = #36827#20179#31867#22411'id'
      LookupCache = True
      Lookup = True
    end
    object djwhads_cpjcdStringField: TStringField
      FieldKind = fkLookup
      FieldName = #39564#25910#20154
      LookupDataSet = zlads_cpjcysr
      LookupKeyFields = #39564#25910#20154'ID'
      LookupResultField = #22995#21517
      KeyFields = #39564#25910#20154'ID'
      LookupCache = True
      Lookup = True
    end
    object djwhads_cpjcdDSDesigner3: TDateTimeField
      FieldName = #26085#26399
    end
    object djwhads_cpjcdID2: TStringField
      FieldName = #39564#25910#20154'ID'
      FixedChar = True
      Size = 4
    end
    object djwhads_cpjcdDSDesigner4: TBooleanField
      FieldName = #20316#24223#26631#24535
    end
    object djwhads_cpjcdDSDesigner5: TStringField
      FieldName = #20316#24223#20154
      FixedChar = True
      Size = 8
    end
    object djwhads_cpjcdDSDesigner6: TDateTimeField
      FieldName = #20316#24223#26085#26399
    end
    object djwhads_cpjcdDSDesigner7: TStringField
      FieldName = #22791#27880
      FixedChar = True
      Size = 50
    end
  end
  object djwhds_cpjcd: TDataSource
    DataSet = djwhads_cpjcd
    Left = 405
    Top = 12
  end
12 3 4 5 下一页
⌨️ 快捷键说明

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