unitloadxlswuliao.dfm

BOM表

object FormLoadXls: TFormLoadXls
  Left = 410
  Top = 213
  Width = 343
  Height = 289
  Caption = #20174'Exlcel'#25991#20214#20013#23548#20837#28023#20851#25968#25454
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object ButtonAll: TButton
    Tag = 10
    Left = 16
    Top = 180
    Width = 121
    Height = 25
    Caption = #23548#20837#20840#37096#25968#25454
    TabOrder = 0
    OnClick = ButtonAllClick
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.xls'
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls|'#25152#26377#25991#20214'[*.*]|*.*'
    Options = [ofHideReadOnly, ofExtensionDifferent, ofEnableSizing]
    Left = 184
    Top = 8
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'D:\IPenseeII\DataLinks\IPensee_HN.udl'
    Left = 60
    Top = 8
  end
  object ADOConnXls: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'D:\IPenseell\Datalinks\IPensee.udl'
    Left = 12
    Top = 8
  end
  object DataSourceXls: TDataSource
    DataSet = ADOQueryXls
    Left = 52
    Top = 56
  end
  object ADOQueryXls: TADOQuery
    Connection = ADOConnXls
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ['#22269#21035'$]')
    Left = 12
    Top = 56
  end
  object ADOQueryMaterial: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'Select * from App_MaterailPrice'
      'where 1=2')
    Left = 8
    Top = 96
  end
  object ADOQueryObjects: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'objectID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select ObjectID,'
      '       ObjectName,'
      '       ObjectShortName,'
      '       ObjectCreateOperator,'
      '       ObjectParentID,'
      '       ObjectTypeID,'
      '       ObjectCreateDate,'
      '       ObjectOwnerID,'
      '             ObjectFID'
      'from Pub_objects '
      'where objectID=:objectID')
    Left = 145
    Top = 16
  end
  object ADOQueryCost: TADOQuery
    Parameters = <>
    Left = 8
    Top = 136
  end
  object ADOQueryGuiPrice: TADOQuery
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 40
    Top = 136
  end
  object ADOQueryPBD: TADOQuery
    Parameters = <>
    Left = 136
    Top = 120
  end
  object ADOQueryInvClass: TADOQuery
    Parameters = <>
    Left = 200
    Top = 56
  end
  object ADOQueryBaseXiShu: TADOQuery
    Parameters = <>
    Left = 144
    Top = 56
  end
  object ADOQueryGuiBD: TADOQuery
    Parameters = <>
    Left = 216
    Top = 96
  end
  object ADOQManuGui: TADOQuery
    Parameters = <>
    Left = 184
    Top = 160
  end
  object ADOQManuBom: TADOQuery
    Parameters = <>
    Left = 248
    Top = 168
  end
  object ADOQueryGuiType: TADOQuery
    Parameters = <>
    Left = 176
    Top = 200
  end
end