backup.dfm

实现SQL数据库备份与还原,完成所需功能,没有问题哦

object MainForm: TMainForm
  Left = 198
  Top = 109
  Width = 339
  Height = 280
  Caption = #25968#25454#22791#20221#21644#24674#22797
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 16
    Top = 232
    Width = 143
    Height = 13
    Caption = #26412#31243#24207#20165#29992#20110#26381#21153#22120#31471#12290
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 315
    Height = 209
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25968#25454#22791#20221
      object Label1: TLabel
        Left = 24
        Top = 24
        Width = 130
        Height = 13
        Caption = #25968#25454#22791#20221#30446#26631#25991#20214#21517#65306
      end
      object Button1: TButton
        Left = 200
        Top = 136
        Width = 75
        Height = 25
        Caption = #24320#22987#22791#20221
        TabOrder = 0
        OnClick = Button1Click
      end
      object Edit1: TEdit
        Left = 24
        Top = 48
        Width = 217
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
      end
      object Button2: TButton
        Left = 254
        Top = 47
        Width = 25
        Height = 21
        Caption = '...'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = Button2Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25968#25454#24674#22797
      ImageIndex = 1
      object Label2: TLabel
        Left = 24
        Top = 24
        Width = 91
        Height = 13
        Caption = #25968#25454#28304#25991#20214#21517#65306
      end
      object Label3: TLabel
        Left = 64
        Top = 80
        Width = 195
        Height = 13
        Caption = #36827#34892#25968#25454#24211#24674#22797#21069#65292#24517#39035#20851#38381#20854#23427
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 24
        Top = 104
        Width = 169
        Height = 13
        Caption = #24212#29992#31243#24207#65292#21542#21017#20250#24433#21709#24674#22797#12290
      end
      object Label5: TLabel
        Left = 24
        Top = 80
        Width = 39
        Height = 13
        Caption = #27880#24847#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Edit2: TEdit
        Left = 24
        Top = 48
        Width = 217
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
      end
      object Button4: TButton
        Left = 200
        Top = 136
        Width = 75
        Height = 25
        Caption = #24320#22987#24674#22797
        TabOrder = 1
        OnClick = Button4Click
      end
      object Button3: TButton
        Left = 254
        Top = 47
        Width = 25
        Height = 21
        Caption = '...'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = Button3Click
      end
    end
  end
  object Button5: TButton
    Left = 224
    Top = 224
    Width = 75
    Height = 25
    Caption = #20851' '#38381
    TabOrder = 1
    OnClick = Button5Click
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'MSSQLConnection'
    DriverName = 'MSSQL'
    GetDriverFunc = 'getSQLDriverMSSQL'
    LibraryName = 'dbexpmss.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=MSSQL'
      'HostName=127.0.0.1'
      'DataBase=northwind'
      'User_Name=sa'
      'Password=123'
      'BlobSize=-1'
      'LocaleCode=0000'
      'MSSQL TransIsolation=ReadCommited'
      'OS Authentication=False')
    VendorLib = 'oledb'
    Left = 32
    Top = 176
  end
  object SQLQu_BackUp: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 68
    Top = 176
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.dat'
    FileName = 'yxwg'
    Filter = '*.dat|*.dat|*.*|*.*'
    InitialDir = 'c:\'
    Title = #25968#25454#24211#22791#20221
    Left = 204
    Top = 16
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.dat'
    Filter = '*.dat|*.dat|*.*|*.*'
    InitialDir = 'c:\'
    Title = #25968#25454#24211#24674#22797
    Left = 248
    Top = 16
  end
end