frmmain.frm

以前做项目时

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "数据库操作工具"
   ClientHeight    =   4830
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   10080
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4830
   ScaleWidth      =   10080
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame7 
      Caption         =   "数据库恢复"
      Height          =   1095
      Left            =   2160
      TabIndex        =   30
      Top             =   3630
      Width           =   2115
      Begin VB.CommandButton Command8 
         Caption         =   "数据库恢复"
         Height          =   555
         Left            =   480
         TabIndex        =   31
         Top             =   300
         Width           =   1125
      End
   End
   Begin VB.Frame Frame6 
      Caption         =   "数据库备份"
      Height          =   1095
      Left            =   30
      TabIndex        =   28
      Top             =   3630
      Width           =   2115
      Begin VB.CommandButton Command9 
         Caption         =   "表备份"
         Height          =   555
         Left            =   1230
         TabIndex        =   32
         Top             =   300
         Width           =   705
      End
      Begin VB.CommandButton Command7 
         Caption         =   "数据库备份"
         Height          =   585
         Left            =   210
         TabIndex        =   29
         Top             =   300
         Width           =   765
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "清空日志"
      Height          =   1095
      Left            =   6360
      TabIndex        =   25
      Top             =   3630
      Width           =   3615
      Begin VB.CommandButton Command12 
         Caption         =   "清空日志"
         Height          =   555
         Left            =   300
         TabIndex        =   27
         Top             =   330
         Width           =   1365
      End
      Begin VB.CommandButton Command11 
         Caption         =   "截断事务日志"
         Height          =   555
         Left            =   1950
         TabIndex        =   26
         Top             =   330
         Width           =   1425
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "重新生成日志"
      Height          =   1095
      Left            =   4290
      TabIndex        =   23
      Top             =   3630
      Width           =   2055
      Begin VB.CommandButton Command6 
         Caption         =   "重新生成日志"
         Height          =   555
         Left            =   300
         TabIndex        =   24
         Top             =   330
         Width           =   1455
      End
   End
   Begin MSComDlg.CommonDialog Dialog 
      Left            =   4800
      Top             =   870
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame Frame3 
      Caption         =   "数据库升级-----执行脚本"
      Height          =   3525
      Left            =   3750
      TabIndex        =   18
      Top             =   90
      Width           =   6225
      Begin VB.CommandButton Command5 
         Caption         =   "退出"
         Height          =   500
         Left            =   4320
         TabIndex        =   22
         Top             =   2910
         Width           =   1695
      End
      Begin VB.CommandButton Command2 
         Caption         =   "打开文件"
         Height          =   500
         Left            =   240
         TabIndex        =   21
         Top             =   2910
         Width           =   1725
      End
      Begin VB.CommandButton Command3 
         Caption         =   "执行"
         Height          =   500
         Left            =   2190
         TabIndex        =   20
         Top             =   2910
         Width           =   1875
      End
      Begin VB.TextBox Text1 
         Height          =   2565
         Left            =   90
         MultiLine       =   -1  'True
         TabIndex        =   19
         Top             =   210
         Width           =   5985
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "连接数据库"
      Height          =   1935
      Left            =   30
      TabIndex        =   8
      Top             =   1680
      Width           =   3705
      Begin MSComCtl2.Animation aniDB 
         Height          =   585
         Left            =   3000
         TabIndex        =   34
         Top             =   240
         Width           =   495
         _ExtentX        =   873
         _ExtentY        =   1032
         _Version        =   393216
         FullWidth       =   33
         FullHeight      =   39
      End
      Begin VB.CommandButton Command4 
         Caption         =   "连接"
         Height          =   345
         Left            =   3030
         TabIndex        =   17
         Top             =   990
         Width           =   585
      End
      Begin VB.TextBox Text5 
         Height          =   315
         Left            =   930
         TabIndex        =   16
         Text            =   "sa"
         Top             =   630
         Width           =   2025
      End
      Begin VB.TextBox Text4 
         Height          =   315
         Left            =   930
         TabIndex        =   15
         Top             =   1020
         Width           =   2025
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   930
         Style           =   2  'Dropdown List
         TabIndex        =   10
         Top             =   1440
         Width           =   2025
      End
      Begin VB.ComboBox Combo3 
         Height          =   300
         Left            =   930
         Style           =   2  'Dropdown List
         TabIndex        =   9
         Top             =   240
         Width           =   2025
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "密码"
         Height          =   180
         Left            =   420
         TabIndex        =   14
         Top             =   1080
         Width           =   360
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "用户名"
         Height          =   180
         Left            =   240
         TabIndex        =   13
         Top             =   630
         Width           =   540
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "表名"
         Height          =   180
         Left            =   420
         TabIndex        =   12
         Top             =   1500
         Visible         =   0   'False
         Width           =   360
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "数据库"
         Height          =   180
         Left            =   240
         TabIndex        =   11
         Top             =   300
         Width           =   540
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "连接服务器"
      Height          =   1575
      Left            =   30
      TabIndex        =   0
      Top             =   90
      Width           =   3705
      Begin MSComCtl2.Animation aniSvr 
         Height          =   555
         Left            =   3000
         TabIndex        =   33
         Top             =   300
         Width           =   495
         _ExtentX        =   873
         _ExtentY        =   979
         _Version        =   393216
         FullWidth       =   33
         FullHeight      =   37
      End
      Begin VB.TextBox Text2 
         Height          =   315
         Left            =   900
         TabIndex        =   4
         Text            =   "sa"
         Top             =   660
         Width           =   2055
      End
      Begin VB.TextBox Text3 
         Height          =   315
         Left            =   900
         TabIndex        =   3
         Top             =   1050
         Width           =   2055
      End
      Begin VB.CommandButton Command1 
         Caption         =   "连接"
         Height          =   345
         Left            =   3030
         TabIndex        =   2
         Top             =   1050
         Width           =   585
      End
      Begin VB.ComboBox Combo1 
         Height          =   300