acr510_02.dfm.svn-base

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

        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 = 'FUnitName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FOrderQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FOrderPrice'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FOrderAmount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FDisAmt'
        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 = 'FTaxRate'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FTaxAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAcrAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FInvAmount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FOrder'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FLineNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FCOrderNo'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FSourceOrder'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FCOrder'
        DataType = ftString
        Size = 20
      end>
    Parameters = <>
    StoreDefs = True
    Left = 48
    Top = 368
    object adsAcr510BFItemID: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 19
      FieldName = 'FItemID'
      Size = 30
    end
    object adsAcr510BFItemName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 28
      FieldName = 'FItemName'
      Size = 60
    end
    object adsAcr510BFSourceOrder: TStringField
      DisplayLabel = #26469#28304#32534#21495
      DisplayWidth = 20
      FieldName = 'FSourceOrder'
    end
    object adsAcr510BFItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 30
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsAcr510BFUnitName: TStringField
      DisplayLabel = #21333#20301#21517#31216
      DisplayWidth = 10
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsAcr510BFOrderQty: TFloatField
      DisplayLabel = #38144#21806#25968#37327
      DisplayWidth = 13
      FieldName = 'FOrderQty'
    end
    object adsAcr510BFOrderPrice: TFloatField
      DisplayLabel = #38144#21806#21333#20215
      DisplayWidth = 15
      FieldName = 'FOrderPrice'
    end
    object adsAcr510BFOrderAmount: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 13
      FieldName = 'FOrderAmount'
    end
    object adsAcr510BFDisAmt: TFloatField
      DisplayLabel = #38144#21806#25240#25187
      DisplayWidth = 12
      FieldName = 'FDisAmt'
    end
    object adsAcr510BFQty: TFloatField
      DisplayLabel = #21457#31080#25968#37327
      DisplayWidth = 15
      FieldName = 'FQty'
    end
    object adsAcr510BFPrice: TFloatField
      DisplayLabel = #21457#31080#21333#20215
      DisplayWidth = 15
      FieldName = 'FPrice'
    end
    object adsAcr510BFAmount: TFloatField
      DisplayLabel = #21457#31080#37329#39069
      DisplayWidth = 15
      FieldName = 'FAmount'
    end
    object adsAcr510BFTaxRate: TFloatField
      DisplayLabel = #21457#31080#31246#29575
      DisplayWidth = 15
      FieldName = 'FTaxRate'
    end
    object adsAcr510BFTaxAmt: TFloatField
      DisplayLabel = #21457#31080#31246#39069
      DisplayWidth = 15
      FieldName = 'FTaxAmt'
    end
    object adsAcr510BFAcrAmt: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      DisplayWidth = 15
      FieldName = 'FAcrAmt'
    end
    object adsAcr510BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 40
      FieldName = 'FRemark'
      Size = 60
    end
    object adsAcr510BFCOrder: TStringField
      DisplayLabel = #23458#25143#35746#21333#32534#21495
      DisplayWidth = 20
      FieldName = 'FCOrder'
    end
    object adsAcr510BFInvAmount: TFloatField
      DisplayLabel = #21457#31080#37329#39069
      FieldName = 'FInvAmount'
      Visible = False
    end
    object adsAcr510BFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsAcr510BFItemNo: TIntegerField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'FItemNo'
      Visible = False
    end
    object adsAcr510BFOrder: TStringField
      FieldName = 'FOrder'
      Visible = False
      Size = 30
    end
    object adsAcr510BFLineNo: TIntegerField
      FieldName = 'FLineNo'
      Visible = False
    end
  end
  object dsInv500B: TDataSource
    DataSet = adsAcr510B
    Left = 40
    Top = 352
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 48
    Top = 408
  end
  object qryHrm150: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 104
    Top = 72
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object qryHrm150H150_003: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Left = 660
    Top = 80
  end
  object qryAcr510B: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,B.O510B_002,B.O510B_003,B.O510B_004,B.O510B_005 as FO' +
        'rderQty,B.O510B_013/B.O510B_005 '#13
      
        'as FOrderPrice,B.O510B_013 as FOrderAmount,B.O510B_024,B.O510B_0' +
        '25 as FDisAmt,O510B_001 as'#13
      'FSourceOrder'
      'from ACR510B A,ORD510B B'
      'where A.A510B_003=B.O510B_001 and  A.A510B_004=B.O510B_002')
    Left = 104
    Top = 352
    object qryAcr510BA510B_001: TWideStringField
      DisplayLabel = #21457#31080#32534#21495
      FieldName = 'A510B_001'
      Size = 30
    end
    object qryAcr510BA510B_002: TIntegerField
      DisplayLabel = #21457#31080#34892#21495
      FieldName = 'A510B_002'
    end
    object qryAcr510BA510B_003: TWideStringField
      DisplayLabel = #38144#21806#21333#21495
      FieldName = 'A510B_003'
      Size = 30
    end
    object qryAcr510BA510B_004: TIntegerField
      DisplayLabel = #38144#21806#21333#34892
      FieldName = 'A510B_004'
    end
    object qryAcr510BA510B_008: TFloatField
      DisplayLabel = #21457#31080#31246#29575
      FieldName = 'A510B_008'
    end
    object qryAcr510BA510B_009: TFloatField
      DisplayLabel = #21457#31080#31246#39069
      FieldName = 'A510B_009'
    end
    object qryAcr510BA510B_010: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      FieldName = 'A510B_010'
    end
    object qryAcr510BA510B_011: TWideStringField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'A510B_011'
      Size = 50
    end
    object qryAcr510BA510B_013: TWideStringField
      DisplayLabel = #26469#28304#32534#21495
      FieldName = 'A510B_013'
      Size = 30
    end
    object qryAcr510BA510B_014: TWideStringField
      DisplayLabel = #23458#25143#35746#21333#32534#21495
      FieldName = 'A510B_014'
      Size = 30
    end
    object qryAcr510BO510B_002: TIntegerField
      DisplayLabel = #23450#21333#34892#21495
      FieldName = 'O510B_002'
    end
    object qryAcr510BO510B_003: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'O510B_003'
    end
    object qryAcr510BO510B_004: TIntegerField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'O510B_004'
    end
    object qryAcr510BO510B_024: TFloatField
      DisplayLabel = #21457#31080#37329#39069
      FieldName = 'O510B_024'
    end
    object qryAcr510BI150_002: TStringField
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr510BI150_003: TStringField
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr510BI150_004: TStringField
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr510BI150_008: TStringField
      FieldKind = fkLookup
      FieldName = 'I150_008'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_008'
      KeyFields = 'O510B_003'
      Lookup = True