inv500_02.dfm.svn-base

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

    object qryInv150I150_003: TWideStringField
      DisplayLabel = #26009#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_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
      Visible = False
    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
  end
  object qryInv110: TADOQuery
    Connection = SYSDM.ADOC
    DataSource = dsInv100
    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 = 264
    Top = 304
    object qryInv110I110_001: TAutoIncField
      FieldName = 'I110_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv110I110_002: TIntegerField
      FieldName = 'I110_002'
      Visible = False
    end
    object qryInv110I110_003: TWideStringField
      DisplayLabel = #24211#20301#32534#21495
      FieldName = 'I110_003'
    end
    object qryInv110I110_004: TWideStringField
      DisplayLabel = #24211#20301#21517#31216
      FieldName = 'I110_004'
      Size = 50
    end
  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 adsInv500B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsInv500BBeforePost
    OnNewRecord = adsInv500BNewRecord
    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 = '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 = 'FPrice'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAmount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FLocNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FLocID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FLocName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FLot'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FFromOrder'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FFromLine'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FOrdQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FFinish'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 60
      end>
    Parameters = <>
    StoreDefs = True
    Left = 48
    Top = 368
    object adsInv500BFItemID: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 22
      FieldName = 'FItemID'
      Size = 30
    end
    object adsInv500BFItemName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 40
      FieldName = 'FItemName'
      Size = 60
    end
    object adsInv500BFItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 40
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsInv500BFUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      DisplayWidth = 15
      FieldName = 'FUnitID'
    end
    object adsInv500BFUnitName: TStringField
      DisplayLabel = #21333#20301#21517#31216
      DisplayWidth = 20
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsInv500BFUnitRate: TFloatField
      DisplayLabel = #21333#20301#36716#25442
      DisplayWidth = 10
      FieldName = 'FUnitRate'
    end
    object adsInv500BFLocID: TStringField
      DisplayLabel = #24211#20301#32534#21495
      DisplayWidth = 15
      FieldName = 'FLocID'
    end
    object adsInv500BFLocName: TStringField
      DisplayLabel = #24211#20301#21517#31216
      DisplayWidth = 30
      FieldName = 'FLocName'
      Size = 50
    end
    object adsInv500BFOrdQty: TFloatField
      DisplayLabel = #24212#25910#21457#37327
      DisplayWidth = 15
      FieldName = 'FOrdQty'
    end
    object adsInv500BFQty: TFloatField
      DisplayLabel = #36827#20986#25968#37327
      DisplayWidth = 15
      FieldName = 'FQty'
    end
    object adsInv500BFPrice: TFloatField
      DisplayLabel = #36827#20986#21333#20215
      DisplayWidth = 15
      FieldName = 'FPrice'
    end
    object adsInv500BFAmount: TFloatField
      DisplayLabel = #36827#20986#37329#39069
      DisplayWidth = 20
      FieldName = 'FAmount'
    end
    object adsInv500BFDate: TDateTimeField
      DisplayLabel = #29983#20135#26085#26399
      DisplayWidth = 20
      FieldName = 'FDate'
    end
    object adsInv500BFLot: TStringField
      DisplayLabel = #29983#20135#25209#21495
      DisplayWidth = 20
      FieldName = 'FLot'
    end
    object adsInv500BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 40
      FieldName = 'FRemark'
      Size = 60
    end
    object adsInv500BFFromOrder: TStringField
      DisplayLabel = #26469#28304#21333#21495
      DisplayWidth = 20
      FieldName = 'FFromOrder'
      Size = 30
    end
    object adsInv500BFFromLine: TIntegerField
      DisplayLabel = #26469#28304#34892#21495
      DisplayWidth = 10
      FieldName = 'FFromLine'
    end
    object adsInv500BFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsInv500BFItemNo: TIntegerField
      FieldName = 'FItemNo'
      Visible = False
    end
    object adsInv500BFUnitNo: TIntegerField
      FieldName = 'FUnitNo'
      Visible = False
    end
    object adsInv500BFLocNo: TIntegerField
      FieldName = 'FLocNo'
      Visible = False
    end
    object adsInv500BFFinish: TFloatField
      DisplayLabel = #24050#25910#21457#37327
      FieldName = 'FFinish'
      Visible = False
    end
  end
  object dsInv500B: TDataSource
    DataSet = adsInv500B
    Left = 40
    Top = 352
  end
  object dsInv100: TDataSource
    DataSet = qryInv100
    Left = 96
    Top = 88
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select O150_001 as FNo,O150_002 as FCode,O150_003 as FName from ' +
        'ORD150 order by O150_002')
    Left = 288
    Top = 136
    object qryOrd150FNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150FCode: TWideStringField
      DisplayLabel = #23545#35937#32534#21495
      FieldName = 'FCode'
    end
    object qryOrd150FName: TWideStringField
      DisplayLabel = #23545#35937#21517#31216
      FieldName = 'FName'
      Size = 60
    end
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 48
    Top = 408
  end
  object dsHrm100: TDataSource
    DataSet = qryHrm100
    Left = 360
    Top = 136
  end
  object qryHrm100: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select H100_001 as FNo,H100_002 as FCode,H100_002 as FName,H100_' +
        '003 as FParent from HRM100')
    Left = 368
    Top = 136
    object qryHrm100FNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
    object qryHrm100FCode: TWideStringField
      FieldName = 'FCode'
      Size = 50
    end
    object qryHrm100FName: TWideStringField
      FieldName = 'FName'
      Size = 50
    end
    object qryHrm100FParent: TIntegerField
      FieldName = 'FParent'
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select H150_001 as FNo,H150_002 as FCode,H150_003 as FName from ' +
        'HRM150 order by H150_002')
    Left = 320
    Top = 136
    object qryHrm150FNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150FCode: TWideStringField
      DisplayLabel = #23545#35937#32534#21495
      FieldName = 'FCode'
    end
    object qryHrm150FName: TWideStringField
      DisplayLabel = #23545#35937#21517#31216
      FieldName = 'FName'
    end
  end
end