inv120_02.dfm

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

        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}
    end
    object edtAcct1: TEdit
      Left = 96
      Top = 24
      Width = 121
      Height = 20
      TabOrder = 0
    end
    object edtAcct2: TEdit
      Left = 96
      Top = 48
      Width = 121
      Height = 20
      TabOrder = 2
    end
    object edtAcct3: TEdit
      Left = 96
      Top = 72
      Width = 121
      Height = 20
      TabOrder = 4
    end
    object edtAcct4: TEdit
      Left = 96
      Top = 96
      Width = 121
      Height = 20
      TabOrder = 6
    end
    object edtAcct5: TEdit
      Left = 96
      Top = 120
      Width = 121
      Height = 20
      TabOrder = 8
    end
    object edtAcct6: TEdit
      Left = 96
      Top = 144
      Width = 121
      Height = 20
      TabOrder = 10
    end
    object edtAcctName1: TEdit
      Left = 248
      Top = 24
      Width = 225
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 1
    end
    object edtAcctName2: TEdit
      Left = 248
      Top = 48
      Width = 225
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 3
    end
    object edtAcctName3: TEdit
      Left = 248
      Top = 72
      Width = 225
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 5
    end
    object edtAcctName4: TEdit
      Left = 248
      Top = 96
      Width = 225
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 7
    end
    object edtAcctName5: TEdit
      Left = 248
      Top = 120
      Width = 225
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 9
    end
    object edtAcctName6: TEdit
      Left = 248
      Top = 144
      Width = 225
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 11
    end
  end
  object bbtnOk: TBitBtn [2]
    Left = 336
    Top = 272
    Width = 75
    Height = 25
    Caption = #20445#23384'(&S)'
    TabOrder = 2
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn [3]
    Left = 416
    Top = 272
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 3
    OnClick = bbtnExitClick
  end
  object cbParent: TdxLookupTreeView [4]
    Left = 264
    Top = 40
    Width = 217
    Height = 20
    CanSelectParents = True
    ParentColor = False
    TabOrder = 4
    TabStop = True
    TreeViewColor = clWindow
    TreeViewCursor = crDefault
    TreeViewFont.Charset = DEFAULT_CHARSET
    TreeViewFont.Color = clWindowText
    TreeViewFont.Height = -11
    TreeViewFont.Name = 'MS Sans Serif'
    TreeViewFont.Style = []
    TreeViewIndent = 19
    TreeViewReadOnly = False
    TreeViewShowButtons = True
    TreeViewShowHint = False
    TreeViewShowLines = True
    TreeViewShowRoot = True
    TreeViewSortType = stNone
    OnKeyDown = cbParentKeyDown
    DividedChar = '.'
    ListSource = dsInv120
    KeyField = 'I120_001'
    ListField = 'I120_003'
    Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    ParentField = 'I120_004'
    TextStyle = tvtsShort
    Alignment = taLeftJustify
  end
  inherited pmUISet: TPopupMenu
    Left = 72
    Top = 272
  end
  object ADOQuery1: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from INV120 order by I120_002')
    Left = 24
    Top = 272
  end
  object qryInv120: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from INV120 order by I120_002')
    Left = 304
    Top = 48
  end
  object dsInv120: TDataSource
    DataSet = qryInv120
    Left = 288
    Top = 48
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 8
    Top = 272
  end
end