unit1.~dfm

数据库备份。sql+delphi批量备份

object Form1: TForm1
  Left = 371
  Top = 127
  Width = 454
  Height = 480
  Caption = #22791#20221#25968#25454#24211
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuconnect
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 0
    Width = 153
    Height = 401
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #25968#25454#24211
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 232
    Top = 264
    Width = 97
    Height = 41
    Caption = #21333#24211#22791#20221
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object Memo1: TMemo
    Left = 168
    Top = 0
    Width = 265
    Height = 161
    Color = cl3DLight
    Lines.Strings = (
      #36890#36807'odbc'#37197#32622'mssql'
      #36830#25509#35201#22791#20221#30340#25968#25454#24211
      #36827#34892#22791#20221)
    TabOrder = 2
  end
  object BitBtn2: TBitBtn
    Left = 232
    Top = 312
    Width = 97
    Height = 33
    Caption = #36864#20986
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object Button1: TButton
    Left = 232
    Top = 216
    Width = 97
    Height = 33
    Caption = #20840#37096#22791#20221
    TabOrder = 4
    OnClick = Button1Click
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=True;User ID=sa;Data So' +
      'urce=mssql;Initial Catalog=master'
    LoginPrompt = False
    Left = 16
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select name from master..sysdatabases')
    Left = 56
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 112
    Top = 16
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 88
    Top = 16
  end
  object mnuconnect: TMainMenu
    Left = 144
    Top = 16
    object N1: TMenuItem
      Caption = #36830#25509
      object N2: TMenuItem
        Caption = #36830#25509#25968#25454#24211
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #36864#20986
        OnClick = N3Click
      end
    end
  end
end