acr500_02.dfm.svn-base

一个用Delphi开发的ERP软件

        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
        0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
        00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
        0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      OnClick = sbCustClick
    end
    object lblContact: TLabel
      Left = 16
      Top = 72
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #32852#31995#20154#21592
    end
    object lblDept: TLabel
      Left = 232
      Top = 72
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #37096#38376#21517#31216
    end
    object lblPosit: TLabel
      Left = 512
      Top = 72
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #32844#21153#21517#31216
    end
    object edtAddress: TEdit
      Left = 72
      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 = 568
      Top = 17
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 0
    end
    object edtContact: TEdit
      Left = 568
      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 = 72
      Top = 16
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 3
      OnExit = edtCustExit
    end
    object edtCustName: TEdit
      Left = 224
      Top = 16
      Width = 281
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 4
    end
    object Edit1: TEdit
      Left = 72
      Top = 64
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 5
    end
    object edtDept: TEdit
      Left = 288
      Top = 64
      Width = 217
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 6
    end
    object edtPosit: TEdit
      Left = 568
      Top = 64
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 7
    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')
    Left = 24
    Top = 96
    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: TIntegerField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'A500A_005'
    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 ADOQuery1A500A_011: TIntegerField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'A500A_011'
    end
    object ADOQuery1A500A_012: TBCDField
      DisplayLabel = #24065#21035#27719#29575
      FieldName = 'A500A_012'
      Precision = 10
      Size = 6
    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 adsAcr500B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = adsAcr500BAfterScroll
    OnNewRecord = adsAcr500BNewRecord
    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 = 'FAcrQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAcrAmt'
        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
      item
        Name = 'FSourceOrder'
        DataType = ftString
        Size = 20
      end>
    Parameters = <>
    StoreDefs = True
    Left = 48
    Top = 368
    object adsAcr500BFItemID: TStringField
      DisplayLabel = #20135#21697#32534#21495
      DisplayWidth = 22
      FieldName = 'FItemID'
      Size = 30
    end
    object adsAcr500BFItemName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      DisplayWidth = 40
      FieldName = 'FItemName'
      Size = 60
    end
    object adsAcr500BFSourceOrder: TStringField
      DisplayLabel = #26469#28304#32534#21495
      DisplayWidth = 20
      FieldName = 'FSourceOrder'
    end
    object adsAcr500BFItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 60
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsAcr500BFUnitName: TStringField
      DisplayLabel = #21333#20301#21517#31216
      DisplayWidth = 20
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsAcr500BFOrderQty: TFloatField
      DisplayLabel = #38144#21806#25968#37327
      DisplayWidth = 15
      FieldName = 'FOrderQty'
    end
    object adsAcr500BFOrderPrice: TFloatField
      DisplayLabel = #38144#21806#21333#20215
      DisplayWidth = 15
      FieldName = 'FOrderPrice'
    end
    object adsAcr500BFOrderAmount: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      DisplayWidth = 15
      FieldName = 'FOrderAmount'
    end
    object adsAcr500BFDisType: TStringField
      DisplayLabel = #25240#25187#31867#22411
      DisplayWidth = 10
      FieldName = 'FDisType'
    end
    object adsAcr500BFQty: TFloatField
      DisplayLabel = #25240#25187#25968#37327
      DisplayWidth = 15
      FieldName = 'FQty'
    end
    object adsAcr500BFRate: TFloatField
      DisplayLabel = #25240#25187#27604#29575
      DisplayWidth = 15
      FieldName = 'FRate'
    end
    object adsAcr500BFAmount: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      DisplayWidth = 15
      FieldName = 'FAmount'
    end
    object adsAcr500BFAcrQty: TFloatField
      DisplayLabel = #24212#25910#25968#37327
      DisplayWidth = 15
      FieldName = 'FAcrQty'
    end
    object adsAcr500BFAcrAmt: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      DisplayWidth = 15
      FieldName = 'FAcrAmt'
    end
    object adsAcr500BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 40
      FieldName = 'FRemark'
      Size = 60
    end
    object adsAcr500BFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsAcr500BFItemNo: TIntegerField
      FieldName = 'FItemNo'
      Visible = False
    end
    object adsAcr500BFOrder: TStringField
      FieldName = 'FOrder'
      Visible = False
      Size = 30
    end
    object adsAcr500BFLineNo: TIntegerField
      FieldName = 'FLineNo'
      Visible = False
    end
    object adsAcr500BFDisAmt: TFloatField
      DisplayLabel = #24050#25240#25187#39069
      FieldName = 'FDisAmt'
      Visible = False
    end
  end
  object dsInv500B: TDataSource
    DataSet = adsAcr500B
    Left = 40
    Top = 352