dbandxml.~dfm

用于将XML文件转化成关系数据库

object Form1: TForm1
  Left = 185
  Top = 105
  Width = 847
  Height = 657
  Caption = 'DBXML'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  DesignSize = (
    839
    630)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 839
    Height = 49
    Align = alTop
    AutoSize = False
    Caption = #25968#25454#24211'dbdemos'#20013#34920'Customer'#20013#30340#25968#25454
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 24
    Width = 823
    Height = 98
    Align = alCustom
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CustNo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Company'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Addr1'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Addr2'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'City'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'State'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Zip'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Country'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Phone'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FAX'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TaxRate'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Contact'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LastInvoiceDate'
        Visible = True
      end>
  end
  object Button2: TButton
    Left = 6
    Top = 131
    Width = 128
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = #36716#25442#20026'XML'#25991#20214
    TabOrder = 1
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 161
    Width = 833
    Height = 129
    Align = alCustom
    Anchors = [akLeft, akRight, akBottom]
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object Button1: TButton
    Left = 145
    Top = 131
    Width = 128
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'HTML'#25991#20214#26174#31034
    TabOrder = 3
    OnClick = Button1Click
  end
  object WebBrowser1: TWebBrowser
    Left = 0
    Top = 297
    Width = 839
    Height = 333
    Align = alBottom
    TabOrder = 4
    ControlData = {
      4C000000B75600006B2200000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object Button3: TButton
    Left = 438
    Top = 131
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = '| < '#31532#19968#39029
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 529
    Top = 131
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = '<  '#21069#19968#39029
    TabOrder = 6
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 621
    Top = 131
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = #19979#19968#39029' >'
    TabOrder = 7
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 713
    Top = 131
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = #26368#21518#39029' >|'
    TabOrder = 8
    OnClick = Button6Click
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select *  from customer'
    Parameters = <>
    Left = 376
    Top = 16
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\work\XML\dbdemos' +
      '.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 312
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 408
    Top = 16
  end
  object Table: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'customer'
    Left = 440
    Top = 16
  end
end