dbandxml.dfm

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

object Form1: TForm1
  Left = 190
  Top = 103
  Caption = 'DBXML'
  ClientHeight = 623
  ClientWidth = 839
  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
    623)
  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 Button3: TButton
    Left = 438
    Top = 131
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = '| < '#31532#19968#39029
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 529
    Top = 131
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = '<  '#21069#19968#39029
    TabOrder = 5
    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 = 6
    OnClick = Button6Click
  end
  object DataSource1: TDataSource
    Left = 408
    Top = 16
  end
end