inv510_02.dfm.svn-base

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

      end
      item
        Name = 'FItemName'
        DataType = ftString
        Size = 60
      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 = 'FOutLocNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FOutLocID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FOutLocName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FInLocNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FInLocID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FInLocName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FPrice'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAmount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FLot'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 60
      end>
    Parameters = <>
    StoreDefs = True
    Left = 48
    Top = 368
    object adsInv510BFItemID: TStringField
      DisplayLabel = #26009#21697#32534#21495
      DisplayWidth = 22
      FieldName = 'FItemID'
      Size = 30
    end
    object adsInv510BFItemName: TStringField
      DisplayLabel = #26009#21697#21517#31216
      DisplayWidth = 40
      FieldName = 'FItemName'
      Size = 60
    end
    object adsInv510BFItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 40
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsInv510BFUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      DisplayWidth = 15
      FieldName = 'FUnitID'
    end
    object adsInv510BFUnitName: TStringField
      DisplayLabel = #21333#20301#21517#31216
      DisplayWidth = 20
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsInv510BFUnitRate: TFloatField
      DisplayLabel = #21333#20301#36716#25442
      DisplayWidth = 10
      FieldName = 'FUnitRate'
    end
    object adsInv510BFOutLocID: TStringField
      DisplayLabel = #36716#20986#24211#21495
      DisplayWidth = 15
      FieldName = 'FOutLocID'
    end
    object adsInv510BFOutLocName: TStringField
      DisplayLabel = #36716#20986#24211#21517
      DisplayWidth = 30
      FieldName = 'FOutLocName'
      Size = 50
    end
    object adsInv510BFInLocID: TStringField
      DisplayLabel = #36716#20837#24211#21495
      DisplayWidth = 15
      FieldName = 'FInLocID'
    end
    object adsInv510BFInLocName: TStringField
      DisplayLabel = #36716#20837#24211#21517
      DisplayWidth = 30
      FieldName = 'FInLocName'
      Size = 50
    end
    object adsInv510BFQty: TFloatField
      DisplayLabel = #36716#20179#25968#37327
      DisplayWidth = 15
      FieldName = 'FQty'
    end
    object adsInv510BFPrice: TFloatField
      DisplayLabel = #26009#21697#21333#20215
      DisplayWidth = 15
      FieldName = 'FPrice'
    end
    object adsInv510BFAmount: TFloatField
      DisplayLabel = #26009#21697#37329#39069
      DisplayWidth = 20
      FieldName = 'FAmount'
    end
    object adsInv510BFDate: TDateTimeField
      DisplayLabel = #29983#20135#26085#26399
      DisplayWidth = 20
      FieldName = 'FDate'
    end
    object adsInv510BFLot: TStringField
      DisplayLabel = #29983#20135#25209#21495
      DisplayWidth = 20
      FieldName = 'FLot'
    end
    object adsInv510BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 40
      FieldName = 'FRemark'
      Size = 60
    end
    object adsInv510BFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsInv510BFItemNo: TIntegerField
      FieldName = 'FItemNo'
      Visible = False
    end
    object adsInv510BFUnitNo: TIntegerField
      FieldName = 'FUnitNo'
      Visible = False
    end
    object adsInv510BFOutLocNo: TIntegerField
      FieldName = 'FOutLocNo'
      Visible = False
    end
    object adsInv510BFInLocNo: TIntegerField
      FieldName = 'FInLocNo'
      Visible = False
    end
  end
  object dsInv510B: TDataSource
    DataSet = adsInv510B
    Left = 40
    Top = 352
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 48
    Top = 408
  end
  object qryInv140: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I140_001,I140_002,I140_003 from INV140 order by I140_002')
    Left = 664
    Top = 304
    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 qryInv550: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from INV550 order by I550_002')
    Left = 112
    Top = 104
  end
  object qryInv100A: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I100_001,I100_002,I100_003 from INV100 order by I100_002')
    Left = 312
    Top = 80
    object qryInv100AI100_001: TAutoIncField
      FieldName = 'I100_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv100AI100_002: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'I100_002'
    end
    object qryInv100AI100_003: TWideStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'I100_003'
      Size = 50
    end
  end
  object dsInv100A: TDataSource
    DataSet = qryInv100A
    Left = 280
    Top = 80
  end
  object dsInv100B: TDataSource
    DataSet = qryInv100B
    Left = 280
    Top = 112
  end
  object qryInv100B: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I100_001,I100_002,I100_003 from INV100 order by I100_002')
    Left = 312
    Top = 112
    object qryInv100BI100_001: TAutoIncField
      FieldName = 'I100_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv100BI100_002: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'I100_002'
    end
    object qryInv100BI100_003: TWideStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'I100_003'
      Size = 50
    end
  end
  object qryInv110B: TADOQuery
    Connection = SYSDM.ADOC
    DataSource = dsInv100B
    Parameters = <
      item
        Name = 'I100_001'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select I110_001,I110_002,I110_003,I110_004 from INV110 where I11' +
        '0_002=:I100_001 order by I110_003')
    Left = 448
    Top = 304
    object qryInv110BI110_001: TAutoIncField
      FieldName = 'I110_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv110BI110_002: TIntegerField
      FieldName = 'I110_002'
      Visible = False
    end
    object qryInv110BI110_003: TWideStringField
      DisplayLabel = #24211#20301#32534#21495
      FieldName = 'I110_003'
    end
    object qryInv110BI110_004: TWideStringField
      DisplayLabel = #24211#20301#21517#31216
      FieldName = 'I110_004'
      Size = 50
    end
  end
end