pur500_02.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

    end
    object qryInv150I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryInv150I150_008: TWideStringField
      DisplayLabel = #33521#25991#21517#31216
      FieldName = 'I150_008'
      Size = 60
    end
    object qryInv150I140_002: TWideStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'I140_002'
    end
    object qryInv150I140_003: TWideStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'I140_003'
      Size = 50
    end
    object qryInv150I140_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryInv140: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select I140_001,I140_002,I140_003 from INV140 order by I140_002')
    Left = 672
    Top = 320
    object qryInv140I140_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv140I140_002: TWideStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'I140_002'
    end
    object qryInv140I140_003: TWideStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'I140_003'
      Size = 50
    end
  end
  object qryOrd152: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select A.*,B.O120_002,C.O151_002,C.O151_003,C.O151_004'

        'from (ORD152 A left join ORD120 B on A.O152_003=B.O120_001) left' +
        ' join ORD151 C on A.O152_001=C.O151_001 and A.O152_008=C.O151_00' +
        '2')
    Left = 152
    Top = 184
    object qryOrd152O152_001: TIntegerField
      FieldName = 'O152_001'
      Visible = False
    end
    object qryOrd152O152_002: TWideStringField
      DisplayLabel = #20132#36135#22320#28857
      FieldName = 'O152_002'
    end
    object qryOrd152O120_002: TWideStringField
      DisplayLabel = #25152#23646#22320#21306
      FieldName = 'O120_002'
      Size = 50
    end
    object qryOrd152O152_004: TWideStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'O152_004'
      Size = 100
    end
    object qryOrd152O152_005: TWideStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'O152_005'
    end
    object qryOrd152O152_006: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O152_006'
      Size = 50
    end
    object qryOrd152O152_007: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O152_007'
      Size = 50
    end
    object qryOrd152O151_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21592
      FieldName = 'O151_002'
    end
    object qryOrd152O151_003: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'O151_003'
      Size = 50
    end
    object qryOrd152O151_004: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'O151_004'
      Size = 50
    end
    object qryOrd152O152_003: TIntegerField
      FieldName = 'O152_003'
      Visible = False
    end
    object qryOrd152O152_008: TWideStringField
      DisplayLabel = #32852#31995#20154#21592
      FieldName = 'O152_008'
      Visible = False
    end
    object qryOrd152O152_009: TMemoField
      FieldName = 'O152_009'
      Visible = False
      BlobType = ftMemo
    end
    object qryOrd152O152_010: TBooleanField
      FieldName = 'O152_010'
      Visible = False
    end
  end
  object adsPur500B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsPur500BBeforePost
    OnNewRecord = adsPur500BNewRecord
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemID'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FItemName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FEngItemName'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FItemSpec'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FUnitNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FUnitID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FUnitName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FUnitRate'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FPlace'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FFromID'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FLineNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 100
      end>
    Parameters = <>
    StoreDefs = True
    Left = 72
    Top = 392
    object adsPur500BFItemID: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 22
      FieldName = 'FItemID'
      Size = 30
    end
    object adsPur500BFItemName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 40
      FieldName = 'FItemName'
      Size = 60
    end
    object adsPur500BFItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 40
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsPur500BFUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      DisplayWidth = 10
      FieldName = 'FUnitID'
    end
    object adsPur500BFUnitName: TStringField
      DisplayLabel = #21333#20301#21517#31216
      DisplayWidth = 20
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsPur500BFQty: TFloatField
      DisplayLabel = #38144#21806#25968#37327
      DisplayWidth = 10
      FieldName = 'FQty'
    end
    object adsPur500BFDate: TDateTimeField
      DisplayLabel = #38656#27714#26085#26399
      DisplayWidth = 18
      FieldName = 'FDate'
    end
    object adsPur500BFPlace: TStringField
      DisplayLabel = #20132#36135#22320#22336
      DisplayWidth = 20
      FieldName = 'FPlace'
    end
    object adsPur500BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 35
      FieldName = 'FRemark'
      Size = 100
    end
    object adsPur500BFEngItemName: TStringField
      DisplayLabel = #33521#25991#21517#31216
      DisplayWidth = 20
      FieldName = 'FEngItemName'
      Visible = False
    end
    object adsPur500BFUnitRate: TFloatField
      DisplayLabel = #21333#20301#36716#25442
      DisplayWidth = 10
      FieldName = 'FUnitRate'
      Visible = False
    end
    object adsPur500BFFromID: TStringField
      DisplayLabel = #20358#28304#21934#34399
      DisplayWidth = 20
      FieldName = 'FFromID'
      Visible = False
      Size = 30
    end
    object adsPur500BFLineNo: TIntegerField
      DisplayLabel = #20358#28304#34892#34399
      DisplayWidth = 10
      FieldName = 'FLineNo'
      Visible = False
    end
    object adsPur500BFNo: TIntegerField
      DisplayWidth = 10
      FieldName = 'FNo'
      Visible = False
    end
    object adsPur500BFItemNo: TIntegerField
      DisplayWidth = 10
      FieldName = 'FItemNo'
      Visible = False
    end
    object adsPur500BFUnitNo: TIntegerField
      DisplayWidth = 10
      FieldName = 'FUnitNo'
      Visible = False
    end
  end
  object dsPur500B: TDataSource
    DataSet = adsPur500B
    Left = 40
    Top = 392
  end
  object qryPur500B: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (

        'select A.*,B.I150_002,B.I150_003,B.I150_008,B.I150_004,C.I140_00' +
        '2,C.I140_003'

        'from (PUR500B A left join INV150 B on A.P500B_003=B.I150_001) le' +
        'ft join INV140 C on A.P500B_004=C.I140_001'
      'where A.P500B_001='#39#39
      'order by P500B_002')
    Left = 128
    Top = 392
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 56
    Top = 448
  end
  object qryHrm100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HRM100')
    Left = 496
    Top = 80
  end
  object qryOrd151: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ORD151')
    Left = 152
    Top = 240
    object qryOrd151O151_001: TIntegerField
      FieldName = 'O151_001'
      Visible = False
    end
    object qryOrd151O151_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21517
      FieldName = 'O151_002'
    end
    object qryOrd151O151_003: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'O151_003'
      Size = 50
    end
    object qryOrd151O151_004: TWideStringField
      DisplayLabel = #32844#20301#21517#31216
      FieldName = 'O151_004'
      Size = 50
    end
    object qryOrd151O151_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O151_005'
      Size = 50
    end
    object qryOrd151O151_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O151_006'
      Size = 50
    end
    object qryOrd151O151_007: TWideStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'O151_007'
      Size = 50
    end
    object qryOrd151O151_008: TWideStringField
      DisplayLabel = #31227#21160#30005#35805
      FieldName = 'O151_008'
      Visible = False
    end
    object qryOrd151O151_009: TWideStringField
      DisplayLabel = #36890#35759#22320#22336
      FieldName = 'O151_009'
      Visible = False
      Size = 100
    end
    object qryOrd151O151_010: TWideStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'O151_010'
      Visible = False
    end
    object qryOrd151O151_011: TBooleanField
      DisplayLabel = #20027#32852#31995#20154
      FieldName = 'O151_011'
      Visible = False
    end
  end
  object dsHrm100: TDataSource
    DataSet = qryHrm100
    Left = 544
    Top = 80
  end
end