acp510_02.dfm.svn-base

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

      Alignment = taRightJustify
      Caption = #20256#30495#21495#30721
    end
    object sbCust: TSpeedButton
      Left = 202
      Top = 16
      Width = 22
      Height = 20
      Flat = True
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C006000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
        000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FF000000C0C0C0000000FF00FFFF00FFFF00FFFF00FFFF00FF000000C0C0C0
        000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF000000000000000000808080FF00FFFF00FFFF00FF80
        8080000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000000000
        00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
        000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
        FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
        000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
        00FFFFFF80808080808000000000000000000000000000000000000000000000
        0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
        00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
        000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
        00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
        0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
        BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
        0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
        00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
        0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      OnClick = sbCustClick
    end
    object edtAddress: TEdit
      Left = 80
      Top = 40
      Width = 433
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 1
    end
    object edtPhone: TEdit
      Left = 576
      Top = 16
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 0
    end
    object edtContact: TEdit
      Left = 576
      Top = 40
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 2
    end
    object edtCust: TEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 3
      OnExit = edtCustExit
    end
    object edtCustName: TEdit
      Left = 232
      Top = 16
      Width = 281
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 4
    end
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Caption = #20316#24223
      ImageIndex = 14
      Visible = True
      OnExecute = Action1Execute
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      '  select A.*,'
      '      B.H150_002,B.H150_003,B.H150_004,'
      '      C.G100_002,C.G100_003,'
      '      D.O150_002,D.O150_003'
      '  from ACR510A A,Hrm150 B,GLD100 C,ORD150 D'
      
        '  where A.A510A_005=B.H150_001 and A.A510A_007=C.G100_001 and A.' +
        'A510A_012=D.O150_001'
      '  order by A.A510A_001')
    object ADOQuery1A510A_001: TWideStringField
      DisplayLabel = #21457#31080#32534#21495
      FieldName = 'A510A_001'
      Size = 30
    end
    object ADOQuery1A510A_002: TSmallintField
      DisplayLabel = #21457#31080#31867#22411
      FieldName = 'A510A_002'
      Visible = False
    end
    object ADOQuery1A510A_003: TSmallintField
      DisplayLabel = #21457#31080#29366#24577
      FieldName = 'A510A_003'
      Visible = False
    end
    object ADOQuery1A510A_004: TDateTimeField
      DisplayLabel = #21457#31080#26085#26399
      FieldName = 'A510A_004'
    end
    object ADOQuery1A510A_005: TIntegerField
      DisplayLabel = #24320#31080#20154#21592
      FieldName = 'A510A_005'
      Visible = False
    end
    object ADOQuery1A510A_006: TWideStringField
      DisplayLabel = #21407#22987#21333#21495
      FieldName = 'A510A_006'
    end
    object ADOQuery1A510A_007: TIntegerField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'A510A_007'
      Visible = False
    end
    object ADOQuery1A510A_008: TFloatField
      DisplayLabel = #24065#21035#27719#29575
      FieldName = 'A510A_008'
    end
    object ADOQuery1A510A_009: TFloatField
      DisplayLabel = #21457#31080#37329#39069
      FieldName = 'A510A_009'
    end
    object ADOQuery1A510A_010: TFloatField
      DisplayLabel = #21457#31080#31246#39069
      FieldName = 'A510A_010'
    end
    object ADOQuery1A510A_011: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      FieldName = 'A510A_011'
    end
    object ADOQuery1A510A_012: TIntegerField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'A510A_012'
      Visible = False
    end
    object ADOQuery1A510A_013: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'A510A_013'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1A510A_014: TDateTimeField
      FieldName = 'A510A_014'
      Visible = False
    end
    object ADOQuery1A510A_015: TWideStringField
      FieldName = 'A510A_015'
      Visible = False
    end
    object ADOQuery1A510A_016: TDateTimeField
      FieldName = 'A510A_016'
      Visible = False
    end
    object ADOQuery1A510A_017: TWideStringField
      FieldName = 'A510A_017'
      Visible = False
    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
    object ADOQuery1H150_004: TWideStringField
      DisplayLabel = #33521#25991#22995#21517
      FieldName = 'H150_004'
    end
    object ADOQuery1G100_002: TWideStringField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'G100_002'
      Size = 10
    end
    object ADOQuery1G100_003: TWideStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldName = 'G100_003'
      Size = 30
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
  end
  object adsAcp510B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnNewRecord = adsAcp510BNewRecord
    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 = '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 = 'FAcpAmt'
        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>
    Parameters = <>
    StoreDefs = True
    Left = 48
    Top = 368
    object adsAcp510BFItemID: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 22
      FieldName = 'FItemID'
      Size = 30
    end
    object adsAcp510BFItemName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 40
      FieldName = 'FItemName'
      Size = 60
    end
    object adsAcp510BFItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 40
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsAcp510BFUnitName: TStringField
      DisplayLabel = #21333#20301#21517#31216
      DisplayWidth = 20
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsAcp510BFOrderQty: TFloatField
      DisplayLabel = #37319#36141#25968#37327
      DisplayWidth = 15
      FieldName = 'FOrderQty'
    end
    object adsAcp510BFOrderPrice: TFloatField
      DisplayLabel = #37319#36141#21333#20215
      DisplayWidth = 15
      FieldName = 'FOrderPrice'
    end
    object adsAcp510BFOrderAmount: TFloatField
      DisplayLabel = #37319#36141#37329#39069
      DisplayWidth = 15
      FieldName = 'FOrderAmount'
    end
    object adsAcp510BFDisAmt: TFloatField
      DisplayLabel = #37319#36141#25240#25187
      DisplayWidth = 10
      FieldName = 'FDisAmt'
    end
    object adsAcp510BFQty: TFloatField
      DisplayLabel = #21457#31080#25968#37327
      DisplayWidth = 15
      FieldName = 'FQty'
    end
    object adsAcp510BFPrice: TFloatField
      DisplayLabel = #21457#31080#21333#20215
      DisplayWidth = 15
      FieldName = 'FPrice'
    end
    object adsAcp510BFAmount: TFloatField
      DisplayLabel = #21457#31080#37329#39069
      DisplayWidth = 15
      FieldName = 'FAmount'
    end
    object adsAcp510BFTaxRate: TFloatField
      DisplayLabel = #21457#31080#31246#29575
      DisplayWidth = 15
      FieldName = 'FTaxRate'
    end
    object adsAcp510BFTaxAmt: TFloatField
      DisplayLabel = #21457#31080#31246#39069
      DisplayWidth = 15
      FieldName = 'FTaxAmt'
    end
    object adsAcp510BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 40
      FieldName = 'FRemark'
      Size = 60
    end
    object adsAcp510BFOrder: TStringField
      DisplayLabel = #37319#36092#21934#34399
      DisplayWidth = 30
      FieldName = 'FOrder'
      Size = 30
    end
    object adsAcp510BFLineNo: TIntegerField
      DisplayWidth = 10
      FieldName = 'FLineNo'
      Visible = False
    end
    object adsAcp510BFAcpAmt: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      DisplayWidth = 15
      FieldName = 'FAcpAmt'
      Visible = False
    end
    object adsAcp510BFInvAmount: TFloatField
      DisplayLabel = #21457#31080#37329#39069
      FieldName = 'FInvAmount'
      Visible = False
    end
    object adsAcp510BFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsAcp510BFItemNo: TIntegerField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'FItemNo'
      Visible = False
    end
  end
  object dsInv500B: TDataSource
    DataSet = adsAcp510B
    Left = 40
    Top = 352
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 48
    Top = 408
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 136
    Top = 88
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'