acr510_02.dfm.svn-base

开源的网站整站程序,功能强大带采集系统.

  object PageControl1: TPageControl [3]
    Left = 8
    Top = 280
    Width = 753
    Height = 193
    ActivePage = tsItem
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 3
    object tsItem: TTabSheet
      Caption = #26009#21697#20449#24687
      object wwDBGrid1: TwwDBGrid
        Tag = 99
        Left = 0
        Top = 0
        Width = 745
        Height = 163
        ControlType.Strings = (
          'FItemID;CustomEdit;edtItem;F')
        PictureMasks.Strings = (
          'T531_004'#9'{0,1,2}[#]:{0,1,2,3,4,5}[#]'#9'T'#9'T'
          'T531_005'#9'{0,1,2}[#]:{0,1,2,3,4,5}[#]'#9'T'#9'T'
          'T531_006'#9'0.00'#9'T'#9'T'
          'T531_007'#9'0.00'#9'T'#9'T'
          'FFromTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
          'FToTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
          'FStartTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
          'FEndTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T')
        Selected.Strings = (
          'FItemID'#9'19'#9#20135#21697#32534#21495#9#9
          'FItemName'#9'28'#9#20135#21697#21517#31216#9#9
          'FSourceOrder'#9'20'#9#26469#28304#32534#21495#9#9
          'FItemSpec'#9'30'#9#35268#26684#22411#21495#9#9
          'FUnitName'#9'10'#9#21333#20301#21517#31216#9#9
          'FOrderQty'#9'13'#9#38144#21806#25968#37327#9#9
          'FOrderPrice'#9'15'#9#38144#21806#21333#20215#9#9
          'FOrderAmount'#9'13'#9#38144#21806#37329#39069#9#9
          'FDisAmt'#9'12'#9#38144#21806#25240#25187#9#9
          'FQty'#9'15'#9#21457#31080#25968#37327#9#9
          'FPrice'#9'15'#9#21457#31080#21333#20215#9#9
          'FAmount'#9'15'#9#21457#31080#37329#39069#9#9
          'FTaxRate'#9'15'#9#21457#31080#31246#29575#9#9
          'FTaxAmt'#9'15'#9#21457#31080#31246#39069#9#9
          'FAcrAmt'#9'15'#9#24212#25910#37329#39069#9#9
          'FRemark'#9'40'#9#22791#27880#35828#26126#9#9
          'FCOrder'#9'20'#9#23458#25143#35746#21333#32534#21495#9#9)
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        EditControlOptions = [ecoSearchOwnerForm, ecoDisableEditorIfReadOnly]
        Align = alClient
        DataSource = dsInv500B
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyOptions = [dgEnterToTab, dgAllowInsert]
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgShowFooter]
        PopupMenu = pmAcr510B
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Pitch = fpFixed
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        OnColExit = wwDBGrid1ColExit
        OnEnter = wwDBGrid1Enter
        OnExit = wwDBGrid1Exit
        OnUpdateFooter = wwDBGrid1UpdateFooter
        FooterColor = clWindow
        FooterCellColor = clWindow
      end
      object edtItem: TwwDBComboDlg
        Left = 136
        Top = 32
        Width = 121
        Height = 20
        OnCustomDlg = edtItemCustomDlg
        ShowButton = True
        Style = csDropDown
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 1
        WordWrap = False
        UnboundDataType = wwDefault
      end
    end
  end
  object gbCust: TGroupBox [4]
    Left = 8
    Top = 200
    Width = 753
    Height = 73
    Caption = #38144#21806#23450#21333
    TabOrder = 4
    object lblCust: TLabel
      Tag = 1
      Left = 24
      Top = 24
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #23458#25143#32534#21495
    end
    object lblAddress: TLabel
      Left = 24
      Top = 48
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #23458#25143#22320#22336
    end
    object lblPhone: TLabel
      Left = 520
      Top = 24
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #30005#35805#21495#30721
    end
    object lblFax: TLabel
      Left = 520
      Top = 48
      Width = 48
      Height = 12
      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 ADOQuery1A510A_018: TIntegerField
      DisplayLabel = #24320#31080#26041#24335
      FieldName = 'A510A_018'
      OnGetText = ADOQuery1A510A_018GetText
    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 adsAcr510B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnNewRecord = adsAcr510BNewRecord
    FieldDefs = <
      item