mainform.dfm

该程序实现了SQL数据库文件(mdf,ldf)的自动安装,备份及还原.

object MainInstallForm: TMainInstallForm
  Left = 164
  Top = 45
  BorderStyle = bsDialog
  Caption = #23398#36153#31649#29702#31995#32479#25968#25454#24211#22791#20221'/'#24674#22797#24037#20855
  ClientHeight = 428
  ClientWidth = 505
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object shpTip: TShape
    Left = 0
    Top = 0
    Width = 505
    Height = 89
    Align = alTop
  end
  object lblTip: TLabel
    Left = 56
    Top = 8
    Width = 425
    Height = 28
    AutoSize = False
    Caption = '    '#26412#31243#24207#23558#25351#23548#24744#23545#8220#28246#21335#38081#36947#32844#19994#25216#26415#23398#38498#23398#36153#31649#29702#31995#32479#8221#30340#25968#25454#24211#36827#34892#22791#20221#21644#24674#22797#12290
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    WordWrap = True
  end
  object lblTip2: TLabel
    Left = 56
    Top = 40
    Width = 425
    Height = 41
    AutoSize = False
    Caption = 
      '    '#35201#36827#34892#25968#25454#24211#22791#20221#21644#24674#22797#25805#20316#65292#24744#8220#24517#39035#8221#22312#23433#35013#20102'Microsoft SQL Server 2000'#25968#25454#24211#26381#21153#22120#30340#8220#21516#19968#21488#35745 +
      #31639#26426#19978#8221#36827#34892#65292#32780#19988#24744#24517#39035#20197#8220#25968#25454#24211#30340#31649#29702#21592'(sa)'#8221#36523#20221#30331#24405#12290
    Transparent = True
    WordWrap = True
  end
  object imgTip: TImage
    Left = 8
    Top = 8
    Width = 41
    Height = 41
    Picture.Data = {
      055449636F6E0000010001002020000000000000A80800001600000028000000
      2000000040000000010008000000000080040000000000000000000000010000
      0000000000000000000080000080000000808000800000008000800080800000
      C0C0C000C0DCC000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00
      CCCCFF0099CCFF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF00
      6699FF003399FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF00
      0066FF00FF33FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF00
      9900FF006600FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC00
      33FFCC0000FFCC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00
      FF99CC00CC99CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC00
      9966CC006666CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC00
      3333CC000033CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00
      FFFF9900CCFF990099FF990066FF990033FF990000FF9900FFCC9900CCCC9900
      99CC990066CC990033CC990000CC9900FF999900CC9999009999990066999900
      3399990000999900FF669900CC66990099669900666699003366990000669900
      FF339900CC33990099339900663399003333990000339900FF009900CC009900
      99009900660099003300990000009900FFFF6600CCFF660099FF660066FF6600
      33FF660000FF6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600
      FF996600CC99660099996600669966003399660000996600FF666600CC666600
      99666600666666003366660000666600FF336600CC3366009933660066336600
      3333660000336600FF006600CC00660099006600660066003300660000006600
      FFFF3300CCFF330099FF330066FF330033FF330000FF3300FFCC3300CCCC3300
      99CC330066CC330033CC330000CC3300FF993300CC9933009999330066993300
      3399330000993300FF663300CC66330099663300666633003366330000663300
      FF333300CC33330099333300663333003333330000333300FF003300CC003300
      99003300660033003300330000003300CCFF000099FF000066FF000033FF0000
      FFCC0000CCCC000099CC000066CC000033CC000000CC0000FF990000CC990000
      99990000669900003399000000990000FF660000CC6600009966000066660000
      0066000033660000FF330000CC33000099330000663300003333000000330000
      CC0000009900000066000000330000000000DD000000BB000000AA0000008800
      0000770000005500000044000000220000DD000000BB000000AA000000880000
      00770000005500000044000000220000DDDDDD00555555007777770077777700
      44444400222222001111110077000000550000004400000022000000F0FBFF00
      A4A0A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF00000000000000000000000000EDEDED00000000000000EDEDED000000
      00EDED0000000000000000000000F7ED00EDEDED00000000001F00EDED000019
      1F00EDED0000000000000000F7F7F7EDED00EDEDED0000ED001F1F0000191919
      1F1F00ED000000000000F7F7F7F7F7EDEDEF00EDEDEDEDED001F1F1F191919FF
      131F00ED00000000EDEBF7F7F7F7F7EDEDEFF700EDEDEDED00FF1F1F19FFFF13
      131300000000F7F7EDEBF7F7F7F7F7EDEDEFF7ED00EDEDED00FF1313FF131313
      0000000000F7F7F7EDEBF7F7F7F7F7EDEDEFF7EDED00EDED00FF131313130000
      EDEDED0000F7F7F7EDEBF7F7F7F7F7EDEDEFF7EDEDED00000019191313131F1F
      00EDEDED00F7F7F7EDEBF7F7F7F7F7EDEDEFF7EDED0000F0001F19191313131F
      00EDEDED00F7F7F7EDEBF7F7F7F7F7EDEDEFF70000F7F7F00000000000000000
      00EDEDED00F7F7F7EDEBF7F7F7F7F7EDED0000F700FFFFECF0F000EDEDEDEDED
      EDEDED0000F7F7F7EDEBF7F7F7F7F70000F7F7FF0007ECECECF0F000EDEDEDED
      EDED000000F7F7F7EDEBF7F7F70000F7F7FFFF07070007ECECECF0F000EDEDED
      0000000000F7F7F7EDEBF70000F7F7FFFF07070707070007ECECECF0F0000000
      0000000000F7F7F7ED0000F700FFFF00F007070707070700ECECECECF0F00000
      0000000000F7F7F700F7F7FF000707F000F00707070000ECECECECECECF0F000
      0000000000F7F7F700FFFFECF7000707F0EC070000ECECECECEC07ECECECF0F0
      0000000000F7F7F700ECECECECF70007070000ECECECECEC07070007ECECECF0
      F000000000F7F7F7FF00ECECECECF70000ECECECECEC07070000FF0007ECECEC
      F0F0000000F7FFFFEBEB00ECECECECECECECECEC07070000FFFFFFFF0007ECEC
      ECF0F00000FFEBEBEBF7F700ECECECECECEC07070000FFFFFFFFFFFFFF0007EC
      ECECF0000000EBF7F7FFFFEB00ECECECEC070000FFFFFFFFFFFFFFFFFFFF0007
      ECECEC00000000FFFFEBEBEBEB00ECECF000FFFFFFFFFFFFFFFFFFFFFFAFAF00
      0700000000000000EBEBEBEBEBEB00ECECF000FFFFFFFFFFFFFFFFAFAFAFAF00
      000000000000000000EBEBEBEBEBEB00ECECF000FFFFFFFFFFAFAFAFAF000000
      00000000000000000000EBEBEBEBEBEB00ECECF000FFFFDD72DDAF0000000000
      0000000000000000000000EBEBEBEBEBEB00ECECF000DD72DD00000000000000
      000000000000000000000000EBEBEBEBEBEB00ECECF000000000000000000000
      00000000000000000000000000EBEBEBEB000000EC0000000000000000000000
      0000000000000000000000000000EB0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000FFC1F861FF00F000FC006000F0000000C00000010000000300000001
      00000000000000000000000000000001000000030000000F0000003F0000001F
      0000000F000000070000000300000001000000000000000080000000C0000001
      E0000007F000001FF800007FFC0001FFFE0007FFFF001FFFFF877FFFFFDFFFFF
      FFFFFFFF}
  end
  object grpConnection: TGroupBox
    Left = 4
    Top = 96
    Width = 497
    Height = 97
    Caption = #30331#24405#21040#25968#25454#24211#26381#21153#22120#65306
    TabOrder = 0
    object lblServerName: TLabel
      Left = 8
      Top = 21
      Width = 168
      Height = 12
      Caption = #25968#25454#24211#26381#21153#22120#22320#22336#65288#25110#21517#31216#65289#65306
    end
    object lblUserName: TLabel
      Left = 8
      Top = 45
      Width = 228
      Height = 12
      Caption = #30331#24405#29992#25143#21517#65288#24517#39035#26159#26381#21153#22120#31649#29702#21592#36523#20221#65289#65306
    end
    object lblPassword: TLabel
      Left = 8
      Top = 72
      Width = 60
      Height = 12
      Caption = #29992#25143#23494#30721#65306
    end
    object edtServerName: TEdit
      Tag = 3
      Left = 176
      Top = 17
      Width = 305
      Height = 20
      TabOrder = 0
      Text = '127.0.0.1'
    end
    object edtUserName: TEdit
      Tag = 3
      Left = 248
      Top = 40
      Width = 233
      Height = 20
      TabOrder = 1
      Text = 'sa'
    end
    object edtPassword: TEdit
      Tag = 3
      Left = 80
      Top = 67
      Width = 281
      Height = 20
      PasswordChar = '*'
      TabOrder = 2
    end
    object btnTestConnection: TButton
      Left = 368
      Top = 66
      Width = 113
      Height = 21
      Caption = #30331#24405'(&L)'
      TabOrder = 3
      OnClick = btnTestConnectionClick
    end
  end
  object btnCancel: TButton
    Left = 406
    Top = 394
    Width = 93
    Height = 24
    Cancel = True
    Caption = #20851#38381
    TabOrder = 1
    OnClick = btnCancelClick
  end
  object pgcBackupRestore: TPageControl
    Left = 3
    Top = 194
    Width = 497
    Height = 192
    ActivePage = tsBackup
    TabIndex = 0
    TabOrder = 2
    object tsBackup: TTabSheet
      Caption = #22791#20221
      object lblBackupName: TLabel
        Tag = 1
        Left = 8
        Top = 12
        Width = 120
        Height = 12
        Caption = #36873#25321#35201#22791#20221#30340#25968#25454#24211#65306
      end
      object lblBackupTarget: TLabel
        Tag = 1
        Left = 8
        Top = 44
        Width = 96
        Height = 12
        Caption = #23558#25968#25454#24211#22791#20221#21040#65306
      end
      object cbbDBList: TComboBox
        Tag = 1
        Left = 134
        Top = 8
        Width = 243
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 0
      end
      object edtBackupTarget: TEdit
        Tag = 1
        Left = 112
        Top = 40
        Width = 313
        Height = 20
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 1
      end
      object btnBrowseBackupTarget: TButton
        Tag = 1
        Left = 427
        Top = 38
        Width = 49
        Height = 23
        Caption = #27983#35272'...'
        TabOrder = 2
        OnClick = btnBrowseBackupTargetClick
      end
      object btnBackup: TButton
        Tag = 1
        Left = 386
        Top = 86
        Width = 93
        Height = 24
        Caption = #22791#20221'(&R)'
        TabOrder = 3
        OnClick = btnBackupClick
      end
    end
    object tsRestore: TTabSheet
      Caption = #24674#22797
      ImageIndex = 1
      object lblMDF: TLabel
        Tag = 2
        Left = 8
        Top = 13
        Width = 108
        Height = 12
        Caption = #35201#24674#22797#30340#22791#20221#25991#20214#65306
      end
      object lblNewDBName: TLabel
        Tag = 4
        Left = 24
        Top = 88
        Width = 84
        Height = 12
        Caption = #26032#25968#25454#24211#21517#31216#65306
      end
      object lblNewDBLoc: TLabel
        Tag = 4
        Left = 24
        Top = 112
        Width = 108
        Height = 12
        Caption = #26032#25968#25454#24211#23384#25918#20301#32622#65306
      end
      object btnAttach: TButton
        Tag = 2
        Left = 378
        Top = 134
        Width = 93
        Height = 24
        Caption = #24674#22797'(&R)'
        TabOrder = 0
        OnClick = btnAttachClick
      end
      object cbbRestoreDBList: TComboBox
        Tag = 5
        Left = 168
        Top = 37
        Width = 297
        Height = 20
        Style = csDropDownList
        ItemHeight = 0
        TabOrder = 1
      end
      object edtRestoreFile: TEdit
        Tag = 2
        Left = 120
        Top = 8
        Width = 297
        Height = 20
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 2
      end
      object rbRestoreToExist: TRadioButton
        Tag = 2
        Left = 8
        Top = 40
        Width = 153
        Height = 17
        Caption = #24674#22797#21040#24050#23384#22312#30340#25968#25454#24211#65306
        Checked = True
        TabOrder = 3
        TabStop = True
        OnClick = rbRestoreToExistClick
      end
      object rbRestoreToNew: TRadioButton
        Tag = 2
        Left = 8
        Top = 65
        Width = 153
        Height = 17
        Caption = #21019#24314#19968#20010#26032#30340#25968#25454#24211#65306
        TabOrder = 4
        OnClick = rbRestoreToExistClick
      end
      object edtNewDBName: TEdit
        Tag = 4
        Left = 120
        Top = 83
        Width = 345
        Height = 20
        TabOrder = 5
        Text = 'tuition_database'
      end
      object edtNewDBLoc: TEdit
        Tag = 4
        Left = 132
        Top = 107
        Width = 285
        Height = 20
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 6
      end
      object btnBrowseRestoreDbFile: TButton
        Tag = 2
        Left = 419
        Top = 6
        Width = 49
        Height = 23
        Caption = #27983#35272'...'
        TabOrder = 7
        OnClick = btnBrowseRestoreDbFileClick
      end
      object btnBrowseNewDBLoc: TButton
        Tag = 4
        Left = 420
        Top = 106
        Width = 49
        Height = 23
        Caption = #27983#35272'...'
        TabOrder = 8
        OnClick = btnBrowseNewDBLocClick
      end
    end
  end
  object conDB: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=master;Data Source=HTTEC-NOTE-03'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 368
  end
  object cmdAttach: TADOCommand
    Connection = conDB
    Parameters = <>
    Left = 80
    Top = 368
  end
  object dsTemp: TADODataSet
    Parameters = <>
    Left = 112
    Top = 368
  end
  object dlgBrowsePath: TcxShellBrowserDialog
    FolderLabelCaption = #26032#21019#24314#25968#25454#24211#30340#25991#20214#23384#25918#20301#32622
    LookAndFeel.Kind = lfStandard
    Title = #36873#25321#23384#25918#20301#32622
    Left = 144
    Top = 368
  end
  object dlgSaveBackup: TSaveDialog
    DefaultExt = 'bdb'
    Filter = #25152#26377#25991#20214'(*.*)|*.*|'#25968#25454#24211#22791#20221#25991#20214'(*.bdb)|*.bdb'
    FilterIndex = 2
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = #20445#23384#25968#25454#24211#22791#20221#25991#20214
    Left = 176
    Top = 368
  end
  object dlgOpenBackup: TOpenDialog
    DefaultExt = 'bdb'
    Filter = #25152#26377#25991#20214'(*.*)|*.*|'#25968#25454#24211#22791#20221#25991#20214'(*.bdb)|*.bdb'
    FilterIndex = 2
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = #25171#24320#25968#25454#24211#22791#20221#25991#20214
    Left = 208
    Top = 368
  end
end