unit1.dfm

将ACCESS数据库表导出为word、excel、txt、xml、dbf等格式。

object Form1: TForm1
  Left = 244
  Top = 158
  Width = 555
  Height = 393
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25968#25454#23548#20986
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 17
    Top = 143
    Width = 126
    Height = 13
    Caption = #23548#20986#25968#25454#31867#22411'    :         '
  end
  object Label2: TLabel
    Left = 8
    Top = 1
    Width = 94
    Height = 13
    Caption = #25968#25454#34920#21015#34920':       '
  end
  object Button1: TButton
    Left = 8
    Top = 336
    Width = 65
    Height = 25
    Caption = #25171'   '#24320
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 88
    Top = 336
    Width = 65
    Height = 25
    Caption = #23548'   '#20986
    TabOrder = 1
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 168
    Top = 0
    Width = 379
    Height = 366
    Align = alRight
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ListBox1: TListBox
    Left = 2
    Top = 16
    Width = 159
    Height = 113
    Hint = #21452#20987#25171#24320#34920
    ItemHeight = 13
    Items.Strings = (
      '')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnDblClick = ListBox1DblClick
  end
  object DBF_RadioButton: TRadioButton
    Left = 16
    Top = 168
    Width = 113
    Height = 20
    Caption = 'DBF'#25991#20214
    Checked = True
    TabOrder = 4
    TabStop = True
  end
  object MDB_RadioButton: TRadioButton
    Left = 16
    Top = 190
    Width = 113
    Height = 20
    Caption = 'ACCESS'#25991#20214
    TabOrder = 5
  end
  object Txt_RadioButton: TRadioButton
    Left = 16
    Top = 216
    Width = 113
    Height = 20
    Caption = #25991#26412#25991#20214
    TabOrder = 6
  end
  object excle_RadioButton: TRadioButton
    Left = 17
    Top = 241
    Width = 114
    Height = 20
    Caption = 'Excel'#25991#20214
    TabOrder = 7
  end
  object Xml_RadioButton: TRadioButton
    Left = 16
    Top = 266
    Width = 113
    Height = 20
    Caption = 'Xml'#25991#20214
    TabOrder = 8
  end
  object word_RadioButton: TRadioButton
    Left = 16
    Top = 290
    Width = 113
    Height = 20
    Caption = 'word'#25991#20214
    TabOrder = 9
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sysdb.mdb;Persist S' +
      'ecurity Info=False'
    LoginPrompt = False
    Mode = cmRead
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 256
    Top = 96
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = #24050#23433#35013#29992#25143'$'
    Left = 384
    Top = 96
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'xls'
    Filter = 'acess|*.mdb'
    Left = 336
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 424
    Top = 96
  end
  object SMExportToAccess1: TSMExportToAccess
    AnimatedStatus = True
    DataFormats.DateSeparator = '-'
    DataFormats.TimeSeparator = ':'
    DataFormats.FourDigitYear = True
    DataFormats.LeadingZerosInDate = False
    DataFormats.ThousandSeparator = ','
    DataFormats.DecimalSeparator = '.'
    DataFormats.CurrencyString = #65509
    DataFormats.BooleanTrue = 'True'
    DataFormats.BooleanFalse = 'False'
    KeyGenerator = 'SMExport 4.50'
    SelectedRecord = False
    BlankIfZero = False
    RightToLeft = False
    Columns = <>
    DBGrid = DBGrid1
    ColumnSource = csDBGrid
    FileName = 'C:\Program Files\Borland\Delphi6\Bin\SMExport.MDB'
    CharacterSet = csANSI_WINDOWS
    Left = 296
    Top = 288
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'MDB'
    Filter = 
      'DBF'#25991#20214'|*.dbf|MDB'#25991#20214'(ACCESS)|*.mdb|'#25991#26412#25991#20214'|*.txt|excle|*.xls|Xml|*.xml' +
      '|word'#25991#20214'|*.doc'
    Left = 296
    Top = 96
  end
  object SMExportToText1: TSMExportToText
    AnimatedStatus = True
    DataFormats.DateSeparator = '-'
    DataFormats.TimeSeparator = ':'
    DataFormats.FourDigitYear = True
    DataFormats.LeadingZerosInDate = False
    DataFormats.ThousandSeparator = ','
    DataFormats.DecimalSeparator = '.'
    DataFormats.CurrencyString = #65509
    DataFormats.BooleanTrue = 'True'
    DataFormats.BooleanFalse = 'False'
    KeyGenerator = 'SMExport 4.50'
    SelectedRecord = False
    BlankIfZero = False
    RightToLeft = False
    Columns = <>
    DBGrid = DBGrid1
    ColumnSource = csDBGrid
    FileName = 'C:\Program Files\Borland\Delphi6\Bin\SMExport.TXT'
    AddTitle = False
    CharacterSet = csANSI_WINDOWS
    TextQualifying = tqStringOnly
    RecordSeparator = #13#10
    Fixed = False
    Left = 264
    Top = 288
  end
  object SMExportToDBF1: TSMExportToDBF
    AnimatedStatus = True
    DataFormats.DateSeparator = '-'
    DataFormats.TimeSeparator = ':'
    DataFormats.FourDigitYear = True
    DataFormats.LeadingZerosInDate = False
    DataFormats.ThousandSeparator = ','
    DataFormats.DecimalSeparator = '.'
    DataFormats.CurrencyString = #65509
    DataFormats.BooleanTrue = 'True'
    DataFormats.BooleanFalse = 'False'
    KeyGenerator = 'SMExport 4.50'
    SelectedRecord = False
    BlankIfZero = False
    RightToLeft = False
    Columns = <>
    DBGrid = DBGrid1
    ColumnSource = csDBGrid
    FileName = 'C:\Program Files\Borland\Delphi6\Bin\SMExport.DBF'
    AddTitle = False
    CharacterSet = csANSI_WINDOWS
    Left = 328
    Top = 288
  end
  object SMExportToExcel1: TSMExportToExcel
    AnimatedStatus = True
    DataFormats.DateSeparator = '-'
    DataFormats.TimeSeparator = ':'
    DataFormats.FourDigitYear = True
    DataFormats.LeadingZerosInDate = False
    DataFormats.ThousandSeparator = ','
    DataFormats.DecimalSeparator = '.'
    DataFormats.CurrencyString = #65509
    DataFormats.BooleanTrue = 'True'
    DataFormats.BooleanFalse = 'False'
    KeyGenerator = 'SMExport 4.50'
    SelectedRecord = False
    BlankIfZero = False
    RightToLeft = False
    Columns = <>
    DBGrid = DBGrid1
    DataSet = ADOTable1
    ColumnSource = csDBGrid
    FileName = 'D:\Borland\Delphi7\Bin\SMExport.XLS'
    AddTitle = False
    CharacterSet = csANSI_WINDOWS
    ExportStyle.Style = esNormal
    ExportStyle.OddColor = clBlack
    ExportStyle.EvenColor = clBlack
    Left = 368
    Top = 288
  end
  object SMExportToXML1: TSMExportToXML
    AnimatedStatus = True
    DataFormats.DateOrder = doYMD
    DataFormats.DateSeparator = '-'
    DataFormats.TimeSeparator = ':'
    DataFormats.FourDigitYear = True
    DataFormats.LeadingZerosInDate = True
    DataFormats.ThousandSeparator = ','
    DataFormats.DecimalSeparator = '.'
    DataFormats.CurrencyString = #65509
    DataFormats.CustomDateTimeFormat = 'yyyymmddThhnnsszzz'
    DataFormats.BooleanTrue = 'True'
    DataFormats.BooleanFalse = 'False'
    KeyGenerator = 'SMExport 4.50'
    SelectedRecord = False
    BlankIfZero = False
    RightToLeft = False
    Columns = <>
    DBGrid = DBGrid1
    DataSet = ADOTable1
    ColumnSource = csDBGrid
    FileName = 'D:\Borland\Delphi7\Bin\SMExport.XML'
    AddTitle = False
    CharacterSet = csANSI_WINDOWS
    Format = xmlIE
    GenerateXSL = False
    XMLTags.RecordsTag = 'RECORDS'
    XMLTags.RecordTag = 'RECORD'
    XMLTags.RowTag = 'ROW'
    Left = 408
    Top = 288
  end
  object SMExportToWord: TSMExportToWord
    AnimatedStatus = True
    DataFormats.DateSeparator = '-'
    DataFormats.TimeSeparator = ':'
    DataFormats.FourDigitYear = True
    DataFormats.LeadingZerosInDate = False
    DataFormats.ThousandSeparator = ','
    DataFormats.DecimalSeparator = '.'
    DataFormats.CurrencyString = #65509
    DataFormats.BooleanTrue = 'True'
    DataFormats.BooleanFalse = 'False'
    KeyGenerator = 'SMExport 4.50'
    SelectedRecord = False
    BlankIfZero = False
    RightToLeft = False
    Columns = <>
    DBGrid = DBGrid1
    DataSet = ADOTable1
    ColumnSource = csDBGrid
    FileName = 'D:\Borland\Delphi7\Bin\SMExport.DOC'
    AddTitle = False
    CharacterSet = csANSI_WINDOWS
    ExportStyle.Style = esNormal
    ExportStyle.OddColor = clBlack
    ExportStyle.EvenColor = clBlack
    Left = 448
    Top = 288
  end
end