unit1.dfm

用Delphi写的备份sqlserver数据库的小工具

object Form1: TForm1
  Left = 80
  Top = 118
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '备份sql server数据库　　2003-4-28 20:10'
  ClientHeight = 373
  ClientWidth = 625
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 342
    Width = 6
    Height = 12
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object Backup_Button: TButton
    Left = 8
    Top = 304
    Width = 265
    Height = 33
    Caption = '备份'
    TabOrder = 0
    OnClick = Backup_ButtonClick
  end
  object Exit_Button: TButton
    Left = 354
    Top = 304
    Width = 265
    Height = 33
    Caption = '退出'
    TabOrder = 1
    OnClick = Exit_ButtonClick
  end
  object Button1: TButton
    Left = 0
    Top = 32
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 2
    Visible = False
    OnClick = Button1Click
  end
  object Option_Panel: TPanel
    Left = 8
    Top = 96
    Width = 305
    Height = 129
    TabOrder = 3
    object Label2: TLabel
      Left = 16
      Top = 16
      Width = 108
      Height = 12
      Caption = '我的电脑的名字是：'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 160
      Top = 16
      Width = 120
      Height = 12
      Caption = '我要备份的数据库是：'
    end
    object Label4: TLabel
      Left = 17
      Top = 64
      Width = 120
      Height = 12
      Caption = '登录数据库的用户名：'
    end
    object Label5: TLabel
      Left = 157
      Top = 64
      Width = 108
      Height = 12
      Caption = '登录数据库的口令：'
    end
    object ComputerName_Edit: TEdit
      Left = 16
      Top = 32
      Width = 121
      Height = 20
      TabOrder = 0
    end
    object UserName_Edit: TEdit
      Left = 16
      Top = 80
      Width = 121
      Height = 20
      TabOrder = 1
    end
    object Password_Edit: TEdit
      Left = 160
      Top = 80
      Width = 121
      Height = 20
      PasswordChar = '*'
      TabOrder = 2
    end
    object DatabaseName_Edit: TEdit
      Left = 160
      Top = 32
      Width = 121
      Height = 20
      TabOrder = 3
    end
  end
  object BackupOption_Panel: TPanel
    Left = 313
    Top = 96
    Width = 305
    Height = 129
    TabOrder = 4
    object Label6: TLabel
      Left = 16
      Top = 21
      Width = 144
      Height = 12
      Caption = '备份到本机的以下路径中：'
    end
    object Label7: TLabel
      Left = 16
      Top = 69
      Width = 144
      Height = 12
      Caption = '备份到以下的网络路径中：'
    end
    object BackupTo_Edit: TEdit
      Left = 16
      Top = 37
      Width = 265
      Height = 20
      Hint = 
        '在此加入本机上的相应路径，作为备份文件的存放地，注意路径要以"\"' +
        '结束，例如："c:\sqlbak\"'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object BackupToOtherComputer_Edit: TEdit
      Left = 16
      Top = 85
      Width = 265
      Height = 20
      Hint = 
        '在此加入要进行异地备份的盘符和路径，例如h:\bak\，（注意：路径最' +
        '后要以"\"结束，盘符由映射而得）'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
  end
  object Winrar_Panel: TPanel
    Left = 8
    Top = 225
    Width = 610
    Height = 72
    TabOrder = 5
    object winrarPath_Label: TLabel
      Left = 185
      Top = 15
      Width = 192
      Height = 12
      Caption = '我的winrar安装在下面这个路径里：'
      Visible = False
    end
    object UseWinrar_CheckBox: TCheckBox
      Left = 16
      Top = 16
      Width = 137
      Height = 17
      Caption = '使用winrar进行压缩'
      TabOrder = 0
      OnClick = UseWinrar_CheckBoxClick
    end
    object WinrarPath_Edit: TEdit
      Left = 184
      Top = 31
      Width = 401
      Height = 20
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 609
    Height = 88
    Caption = 'Panel1'
    TabOrder = 6
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 607
      Height = 86
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      Lines.Strings = (
        
          '注意:本程序要在您要备份的数据库所在的sql server数据库服务器上运' +
          '行。配置好以'
        
          '下几个参数后，在C盘下建立一个tmp.txt文件，最后将本程序添加到wind' +
          'ows的"任务'
        
          '计划"中设定为每晚运行即可。如果选择了使用winrar进行压缩，则要确' +
          '保服务器上安'
        '装有winrar，并且检查您的winrar是否是3.0以上版本。')
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  object Button2: TButton
    Left = 296
    Top = 328
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 7
    Visible = False
    OnClick = Button2Click
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 48
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 16
  end
end