acp500_02.dfm.svn-base

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

    end
    object edtContact: TEdit
      Left = 576
      Top = 64
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 4
    end
    object edtOrder: TEdit
      Left = 80
      Top = 16
      Width = 97
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 5
      OnExit = edtOrderExit
    end
    object edtCurr: TEdit
      Left = 264
      Top = 16
      Width = 78
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 6
    end
    object edtRate: TEdit
      Left = 407
      Top = 16
      Width = 106
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 7
    end
    object edtSaleDate: TEdit
      Left = 576
      Top = 16
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 8
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      '  select A.*,'
      '      B.H150_002,B.H150_003'
      '  from ACR500A A,Hrm150 B'
      '  where A.A500A_003=B.H150_001'
      '  order by A.A500A_001')
    object ADOQuery1A500A_001: TWideStringField
      DisplayLabel = #25240#25187#21333#21495
      FieldName = 'A500A_001'
      Size = 30
    end
    object ADOQuery1A500A_002: TDateTimeField
      DisplayLabel = #25240#25187#26085#26399
      FieldName = 'A500A_002'
    end
    object ADOQuery1A500A_003: TIntegerField
      FieldName = 'A500A_003'
      Visible = False
    end
    object ADOQuery1A500A_004: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'A500A_004'
    end
    object ADOQuery1A500A_005: TWideStringField
      DisplayLabel = #38144#21806#21333#21495
      FieldName = 'A500A_005'
      Size = 30
    end
    object ADOQuery1A500A_006: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'A500A_006'
      BlobType = ftMemo
    end
    object ADOQuery1A500A_007: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'A500A_007'
    end
    object ADOQuery1A500A_008: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'A500A_008'
    end
    object ADOQuery1A500A_009: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'A500A_009'
    end
    object ADOQuery1A500A_010: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'A500A_010'
    end
    object ADOQuery1H150_002: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object ADOQuery1H150_003: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object adsAcp500B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = adsAcp500BAfterScroll
    OnNewRecord = adsAcp500BNewRecord
    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 = '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 = 'FDisType'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FRate'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAmount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAcpQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAcpAmt'
        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 = 'FDisAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    Parameters = <>
    StoreDefs = True
    Left = 48
    Top = 368
    object adsAcp500BFItemID: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 22
      FieldName = 'FItemID'
      Size = 30
    end
    object adsAcp500BFItemName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 40
      FieldName = 'FItemName'
      Size = 60
    end
    object adsAcp500BFItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 60
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsAcp500BFUnitName: TStringField
      DisplayLabel = #21333#20301#21517#31216
      DisplayWidth = 20
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsAcp500BFOrderQty: TFloatField
      DisplayLabel = #37319#36141#25968#37327
      DisplayWidth = 15
      FieldName = 'FOrderQty'
    end
    object adsAcp500BFOrderPrice: TFloatField
      DisplayLabel = #37319#36141#21333#20215
      DisplayWidth = 15
      FieldName = 'FOrderPrice'
    end
    object adsAcp500BFOrderAmount: TFloatField
      DisplayLabel = #37319#36141#37329#39069
      DisplayWidth = 15
      FieldName = 'FOrderAmount'
    end
    object adsAcp500BFAcpQty: TFloatField
      DisplayLabel = #24212#20184#25968#37327
      DisplayWidth = 10
      FieldName = 'FAcpQty'
    end
    object adsAcp500BFAcpAmt: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      DisplayWidth = 10
      FieldName = 'FAcpAmt'
    end
    object adsAcp500BFDisType: TStringField
      DisplayLabel = #25240#25187#31867#22411
      DisplayWidth = 10
      FieldName = 'FDisType'
    end
    object adsAcp500BFQty: TFloatField
      DisplayLabel = #25240#25187#25968#37327
      DisplayWidth = 15
      FieldName = 'FQty'
    end
    object adsAcp500BFRate: TFloatField
      DisplayLabel = #25240#25187#27604#29575
      DisplayWidth = 15
      FieldName = 'FRate'
    end
    object adsAcp500BFAmount: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      DisplayWidth = 15
      FieldName = 'FAmount'
    end
    object adsAcp500BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 40
      FieldName = 'FRemark'
      Size = 60
    end
    object adsAcp500BFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsAcp500BFItemNo: TIntegerField
      FieldName = 'FItemNo'
      Visible = False
    end
    object adsAcp500BFOrder: TStringField
      FieldName = 'FOrder'
      Visible = False
      Size = 30
    end
    object adsAcp500BFLineNo: TIntegerField
      FieldName = 'FLineNo'
      Visible = False
    end
    object adsAcp500BFDisAmt: TFloatField
      DisplayLabel = #24050#25240#25187#39069
      FieldName = 'FDisAmt'
      Visible = False
    end
  end
  object dsInv500B: TDataSource
    DataSet = adsAcp500B
    Left = 40
    Top = 352
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 48
    Top = 408
  end
  object qryPUR510A: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT distinct PUR510A.*,ORD152.*,O150_002,O150_003 '
      
        'FROM ((PUR510A LEFT JOIN ORD152 ON PUR510A.P510A_017 = ORD152.O1' +
        '52_001) INNER JOIN PUR510B ON PUR510A.P510A_001 = PUR510B.P510B_' +
        '001) inner join ord150 on PUR510A.P510A_017=ord150.O150_001')
    Left = 144
    Top = 160
    object qryPUR510AO510A_001: TWideStringField
      DisplayLabel = #37559#21806#21333#21495
      FieldName = 'P510A_001'
      Size = 30
    end
    object qryPUR510AO510A_002: TIntegerField
      DisplayLabel = #38144#21806#31867#22411
      FieldName = 'P510A_002'
    end
    object qryPUR510AO510A_003: TDateTimeField
      DisplayLabel = #38144#21806#26085#26399
      FieldName = 'P510A_003'
    end
    object qryPUR510AO510A_004: TSmallintField
      DisplayLabel = #23450#21333#29366#24577
      FieldName = 'P510A_004'
    end
    object qryPUR510AO510A_005: TIntegerField
      DisplayLabel = #38144#21806#20154#21592
      FieldName = 'P510A_005'
      Visible = False
    end
    object qryPUR510AO510A_007: TIntegerField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'P510A_007'
      Visible = False
    end
    object qryPUR510AP510A_008: TBCDField
      FieldName = 'P510A_008'
      Precision = 10
      Size = 6
    end
    object qryPUR510AO510A_009: TIntegerField
      DisplayLabel = #20184#27454#26041#24335
      FieldName = 'P510A_009'
      Visible = False
    end
    object qryPUR510AO510A_012: TFloatField
      DisplayLabel = #37329#39069#24635#35745
      FieldName = 'P510A_012'
      Visible = False
    end
    object qryPUR510AP510A_013: TBCDField
      FieldName = 'P510A_013'
      Precision = 8
      Size = 2
    end
    object qryPUR510AO510A_014: TFloatField
      FieldName = 'P510A_014'
      Visible = False
    end
    object qryPUR510AO510A_015: TFloatField
      FieldName = 'P510A_015'
      Visible = False
    end
    object qryPUR510AO510A_016: TFloatField
      FieldName = 'P510A_016'
      Visible = False
    end
    object qryPUR510AO510A_017: TIntegerField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'P510A_017'
      Visible = False
    end
    object qryPUR510AO510A_018: TWideStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'P510A_018'
    end
    object qryPUR510AO510A_019: TSmallintField
      FieldName = 'P510A_019'
      Visible = False
    end
    object qryPUR510AO510A_020: TMemoField
      FieldName = 'P510A_020'
      Visible = False
      BlobType = ftMemo
    end
    object qryPUR510AO510A_021: TMemoField
      FieldName = 'P510A_021'
      Visible = False
      BlobType = ftMemo
    end
    object qryPUR510AO510A_022: TDateTimeField
      FieldName = 'P510A_022'
      Visible = False
    end
    object qryPUR510AO510A_023: TWideStringField
      FieldName = 'P510A_023'
      Visible = False
    end
    object qryPUR510AO510A_024: TDateTimeField
      FieldName = 'P510A_024'
      Visible = False
    end
    object qryPUR510AO510A_025: TWideStringField
      FieldName = 'P510A_025'
      Visible = False
    end
    object qryPUR510AO510A_026: TWideStringField
      FieldName = 'P510A_026'
      Visible = False
    end
    object qryPUR510AO510A_027: TSmallintField
      FieldName = 'P510A_027'
      Visible = False
    end
    object qryPUR510AO152_001: TIntegerField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O152_001'
      Visible = False
    end