rejdt2.frm

酒店管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form REJDT2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数据恢复"
   ClientHeight    =   1575
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4635
   DrawMode        =   5  'Not Copy Pen
   FillStyle       =   0  'Solid
   Icon            =   "REJDT2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1575
   ScaleWidth      =   4635
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   2580
      Top             =   180
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   315
      Left            =   240
      TabIndex        =   0
      Top             =   1080
      Width           =   4155
      _ExtentX        =   7329
      _ExtentY        =   556
      _Version        =   393216
      BorderStyle     =   1
      Appearance      =   1
      MousePointer    =   12
   End
   Begin MSComCtl2.Animation Animation1 
      Height          =   735
      Left            =   240
      TabIndex        =   1
      Top             =   0
      Width           =   4215
      _ExtentX        =   7435
      _ExtentY        =   1296
      _Version        =   393216
      AutoPlay        =   -1  'True
      FullWidth       =   281
      FullHeight      =   49
   End
   Begin VB.Label Label1 
      Caption         =   "请稍候!正在恢复数据..."
      Height          =   255
      Left            =   360
      TabIndex        =   2
      Top             =   840
      Width           =   2175
   End
End
Attribute VB_Name = "REJDT2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    On Error GoTo LOCALERR2
    MkDir "BACKUP"
    On Error GoTo LOCALERR
    ProgressBar1.Value = 13
    SNEXTFILE = Dir$("A:\*.HR_")
    While SNEXTFILE <> ""
          If UCase(Trim(RESTORE.SHFFILE)) = UCase(Trim(SNEXTFILE)) Then
             FileCopy "A:\" & SNEXTFILE, App.Path & "\" & SNEXTFILE
             Else
               FileCopy "A:\" & SNEXTFILE, App.Path & "\BACKUP\" & SNEXTFILE
          End If
          If ProgressBar1.Value + 50 < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 50
          SNEXTFILE = Dir$
    Wend
    ProgressBar1.Value = 99
    GoTo LOCALEXIT
    
LOCALERR:
    If Err.Number = 68 Then
       MsgBox "磁盘驱动器设备不能用,请换盘再试", vbCritical, "错误"
       Resume
    End If
    If Err.Number = 70 Then
       MsgBox "驱动器拒绝访问或磁盘被写保防,请换盘再试", vbCritical, "错误"
       Resume
    End If
    
    strmsg = CStr(Err.Number) & "-" & Err.Description
    SFXX = MsgBox(strmsg, vbCritical + vbRetryCancel, "错误")
    If SFXX = vbRetry Then
       Resume
       Else
         End
    End If

LOCALERR2:
    Resume Next

LOCALEXIT:

    
End Sub

Private Sub Form_Load()
    Animation1.Open App.Path & "\FILECOPY.AVI"

End Sub

Private Sub Timer1_Timer()
    If ProgressBar1.Value = ProgressBar1.Min Then
       ProgressBar1.Value = ProgressBar1.Value + 13
       Command1_Click
    End If
    If ProgressBar1.Value < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 1 Else Unload Me
End Sub