ord130_02.dfm.svn-base

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

    Left = 24
    Top = 112
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select * from ORD130 order by O130_001,O130_002,O130_003')
    Left = 64
    Top = 112
    object ADOQuery1I150_002: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'O130_001'
      Size = 30
      Lookup = True
    end
    object ADOQuery1I150_003: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'O130_001'
      Size = 60
      Lookup = True
    end
    object ADOQuery1I150_004: TStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'O130_001'
      Size = 60
      Lookup = True
    end
    object ADOQuery1I140_002: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldKind = fkLookup
      FieldName = 'I140_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I140_002'
      KeyFields = 'O130_001'
      Lookup = True
    end
    object ADOQuery1I140_003: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldKind = fkLookup
      FieldName = 'I140_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I140_003'
      KeyFields = 'O130_001'
      Lookup = True
    end
    object ADOQuery1G100_002: TStringField
      DisplayLabel = #24065#21035
      FieldKind = fkLookup
      FieldName = 'G100_002'
      LookupDataSet = qryGld100
      LookupKeyFields = 'G100_001'
      LookupResultField = 'G100_002'
      KeyFields = 'O130_002'
      Size = 10
      Lookup = True
    end
    object ADOQuery1O130_003: TDateTimeField
      DisplayLabel = #29983#25928#26085#26399
      FieldName = 'O130_003'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1O130_004: TBCDField
      DisplayLabel = #38144#21806#20215#26684
      FieldName = 'O130_004'
      DisplayFormat = ',0.00'
      Precision = 19
    end
    object ADOQuery1O130_001: TIntegerField
      FieldName = 'O130_001'
      Visible = False
    end
    object ADOQuery1O130_002: TIntegerField
      FieldName = 'O130_002'
      Visible = False
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004,I140_001,I140_002,I14' +
        '0_003'
      'from INV150,INV140'
      'where I150_011=I140_001'
      'order by I150_002')
    Left = 168
    Top = 24
    object qryInv150I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryInv150I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      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 qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I140_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Left = 280
    Top = 56
    object qryGld100G100_001: TAutoIncField
      FieldName = 'G100_001'
      ReadOnly = True
    end
    object qryGld100G100_002: TWideStringField
      FieldName = 'G100_002'
      Size = 10
    end
    object qryGld100G100_003: TWideStringField
      FieldName = 'G100_003'
      Size = 30
    end
    object qryGld100G100_004: TBooleanField
      FieldName = 'G100_004'
    end
    object qryGld100G100_005: TFloatField
      FieldName = 'G100_005'
    end
    object qryGld100G100_006: TWideStringField
      FieldName = 'G100_006'
      Size = 10
    end
  end
  object qryOrd130: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I150_002,I150_003,O130_004,G100_002,O130_003'
      'from ORD130,GLD100,INV150'
      'where O130_002=G100_001 and O130_001=I150_001')
    Left = 40
    Top = 208
    object qryOrd130I150_002: TWideStringField
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd130I150_003: TWideStringField
      FieldName = 'I150_003'
      Size = 60
    end
    object qryOrd130O130_004: TFloatField
      FieldName = 'O130_004'
    end
    object qryOrd130G100_002: TWideStringField
      FieldName = 'G100_002'
      Size = 10
    end
    object qryOrd130O130_003: TDateTimeField
      FieldName = 'O130_003'
    end
  end
  object adsOrd130: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FItem'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FItemName'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FPrice'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FCurr'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end>
    Parameters = <>
    StoreDefs = True
    Left = 96
    Top = 216
    object adsOrd130FItem: TStringField
      DisplayLabel = #26009#21697#32534#21495
      DisplayWidth = 20
      FieldName = 'FItem'
    end
    object adsOrd130FItemName: TStringField
      DisplayLabel = #26009#21697#21517#31216
      DisplayWidth = 20
      FieldName = 'FItemName'
    end
    object adsOrd130FPrice: TFloatField
      DisplayLabel = #38144#21806#20215#26684
      DisplayWidth = 10
      FieldName = 'FPrice'
    end
    object adsOrd130FCurr: TStringField
      DisplayLabel = #24065#21035#32534#21495
      DisplayWidth = 20
      FieldName = 'FCurr'
    end
    object adsOrd130FDate: TDateTimeField
      DisplayLabel = #29983#25928#26085#26399
      DisplayWidth = 18
      FieldName = 'FDate'
    end
  end
  object dsOrd130: TDataSource
    DataSet = adsOrd130
    Left = 72
    Top = 224
  end
end