frmhf.frm

金融机构用于银行承兑票台帐的登记以及统计打印各种报表

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frmhf 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "数据恢复进程"
   ClientHeight    =   975
   ClientLeft      =   5430
   ClientTop       =   6270
   ClientWidth     =   5700
   ControlBox      =   0   'False
   Icon            =   "Frmhf.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   975
   ScaleWidth      =   5700
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   120
      Top             =   1080
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   480
      Width           =   5175
      _ExtentX        =   9128
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.Label Label1 
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   3735
   End
End
Attribute VB_Name = "Frmhf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub CopyFileWindowsWay(SourceFile As String, DestinationFile As String)
     Dim lngReturn As Long
     Dim typFileOperation As SHFILEOPSTRUCT
     With typFileOperation
        .hwnd = 0
        .wFunc = FO_COPY
        .pFrom = SourceFile & vbNullChar & vbNullChar '源文件。
        .pTo = DestinationFile & vbNullChar & vbNullChar '目标文件。
        .fFlags = FOF_ALLOWUNDO
     End With
     '拷贝操作。
     lngReturn = SHFileOperation(typFileOperation)
     If lngReturn <> 0 Then '如果拷贝失败。
     MsgBox "数据恢复失败！", vbInformation Or vbOKOnly, "提示信息"
     Hfshibai = True
     End
     Else
          If typFileOperation.fAnyOperationsAborted = True Then
               MsgBox "Operation Failed", vbInformation Or vbOKOnly
          End If
     End If
End Sub

Public Sub Command4_Click()



End Sub

Private Sub Command1_Click()

End Sub

Private Sub Data6_Error(DataErr As Integer, Response As Integer)

End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Frmhf.Label1.Caption = "正在恢复数据……"
End Sub

Private Sub Timer1_Timer()
Dim lj As String
Dim yuan As String
If Frmxzcz.Option5.Value = True Then
lj = Frmxzcz.Dir1.Path
    If lj = "c:\" Or lj = "d:\" Or lj = "e:\" Or lj = "f:\" Or lj = "g:\" Or lj = "h:\" Or lj = "i:\" Then
    yuan = Frmxzcz.Dir1.Path & Frmxzcz.File1.FileName
    Else
    yuan = Frmxzcz.Dir1.Path & "\" & Frmxzcz.File1.FileName
    End If
ElseIf Frmxzcz.Option3.Value = True Then
yuan = "a:\" & Frmxzcz.File1.FileName
End If

Dim SHFileOp As SHFILEOPSTRUCT
On Error GoTo def
Frmhf.ProgressBar1.Value = 10
'开始删除
    ' 删除
    SHFileOp.wFunc = FO_DELETE
    SHFileOp.pFrom = App.Path & "\data.mdb" + Chr(0)
    SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
    Call SHFileOperation(SHFileOp)
'删除结束
def:
Frmhf.ProgressBar1.Value = 50
Call CopyFileWindowsWay(yuan, App.Path & "\data.mdb")
If Hfshibai = True Then
Hfshibai = False
Exit Sub
End If
Frmhf.ProgressBar1.Value = 100
Unload Me
MsgBox "数据恢复成功！将退出。", vbOKOnly Or vbInformation, "信息提示"
End
End Sub