frm_data_recover_second.frm

来自「一个公司的客户财产管理系统vb源码」· FRM 代码 · 共 275 行

VERSION 5.00
Begin VB.Form frm_Data_Recover_Second 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数据恢复向导"
   ClientHeight    =   6330
   ClientLeft      =   4770
   ClientTop       =   4230
   ClientWidth     =   9390
   Icon            =   "frm_Data_Recover_Second.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6330
   ScaleWidth      =   9390
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   855
      Left            =   -120
      TabIndex        =   8
      Top             =   0
      Width           =   9495
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "选择源数据"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   480
         TabIndex        =   10
         Top             =   120
         Width           =   1275
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "你要将哪个已经备份的数据复制到现在数据库? 在数据恢复之前你做好数据备份了吗?"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   210
         Left            =   600
         TabIndex        =   9
         Top             =   480
         Width           =   7875
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   8760
         Picture         =   "frm_Data_Recover_Second.frx":0CCA
         Stretch         =   -1  'True
         Top             =   120
         Width           =   480
      End
   End
   Begin VB.Frame Frame2 
      Height          =   4215
      Left            =   548
      TabIndex        =   4
      Top             =   1440
      Width           =   8295
      Begin VB.FileListBox fil_FileName 
         Height          =   3330
         Left            =   4560
         Pattern         =   "*.bak"
         TabIndex        =   12
         Top             =   720
         Width           =   3495
      End
      Begin VB.DirListBox dir_Directory 
         Height          =   3240
         Left            =   840
         TabIndex        =   5
         Top             =   720
         Width           =   3495
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "1、选择要恢复的数据源路径(Path)...."
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   720
         TabIndex        =   7
         Top             =   360
         Width           =   3150
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "2、选择要恢复的数据源文件名(Filename)..."
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   4440
         TabIndex        =   6
         Top             =   360
         Width           =   3600
      End
      Begin VB.Image Image2 
         Height          =   480
         Left            =   120
         Picture         =   "frm_Data_Recover_Second.frx":2994
         Top             =   720
         Width           =   480
      End
   End
   Begin VB.DriveListBox drv_Driver 
      Height          =   300
      Left            =   2490
      TabIndex        =   3
      Top             =   1080
      Width           =   6375
   End
   Begin VB.CommandButton cmd_Back 
      Caption         =   "< 上一步(&Back)"
      Height          =   375
      Left            =   3720
      TabIndex        =   2
      Top             =   5880
      Width           =   1455
   End
   Begin VB.CommandButton cmd_Next 
      Caption         =   "下一步(&Next)>"
      Height          =   375
      Left            =   5280
      TabIndex        =   1
      Top             =   5880
      Width           =   1455
   End
   Begin VB.CommandButton cmd_Cancel 
      Caption         =   "取消 (&Cancel)"
      Height          =   375
      Left            =   7320
      TabIndex        =   0
      Top             =   5880
      Width           =   1455
   End
   Begin VB.Image Image17 
      Height          =   240
      Left            =   600
      Picture         =   "frm_Data_Recover_Second.frx":2C9E
      Top             =   1080
      Width           =   960
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "数据源"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   1680
      TabIndex        =   11
      Top             =   1110
      Width           =   675
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   9480
      Y1              =   5760
      Y2              =   5760
   End
End
Attribute VB_Name = "frm_Data_Recover_Second"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmd_Back_Click()
On Error GoTo err

   Unload Me
   Load frm_Data_Recover_first
   frm_Data_Recover_first.Show vbModal

Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub cmd_Cancel_Click()
  Unload Me
End Sub

Private Sub cmd_Next_Click()
On Error GoTo err
  If str_FileName_Reocver = "" Then
    MsgBox "你没有选择数据源," + Chr(13) + "请选择要恢复的数据源!", vbCritical
    Me.drv_Driver.SetFocus
  Else
    Unload Me
    Load frm_Data_Recover_three
    frm_Data_Recover_three.Show vbModal
  End If
  
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub dir_Directory_Change()
On Error GoTo err

  str_Data_Path = Me.dir_Directory.Path
  Me.fil_FileName.FileName = Me.dir_Directory.Path
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub dir_Directory_Click()
On Error GoTo err

  str_Data_Path = dir_Directory.Path

Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub drv_Driver_Change()
On Error GoTo err

    dir_Directory.Path = drv_Driver.Drive
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub fil_FileName_Click()
On Error GoTo err
   str_FileName_Reocver = str_Data_Path & "\" & Me.fil_FileName.FileName
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub Form_Load()
On Error GoTo err
'    Me.Left = 5500
'    Me.Top = 3300
'    Me.Icon = LoadPicture(App.Path & "\icon\system.ico")
    str_Data_Path = ""
    str_FileName_Reocver = ""
    str_Data_Path = dir_Directory
    
Exit Sub
err:
    MsgBox err.Description, vbCritical
End Sub