frmbh.frm

VB编制的图书管理系统,希望可给朋友们带来帮助.

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmbh 
   Caption         =   "数据备份"
   ClientHeight    =   1710
   ClientLeft      =   120
   ClientTop       =   495
   ClientWidth     =   4695
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmbh.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1710
   ScaleWidth      =   4695
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "取       消"
      Height          =   615
      Left            =   2760
      TabIndex        =   2
      Top             =   960
      Width           =   1335
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   360
      Width           =   3735
      _ExtentX        =   6588
      _ExtentY        =   661
      _Version        =   393216
      Appearance      =   1
      Max             =   10000
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始备份"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   600
      TabIndex        =   0
      Top             =   960
      Width           =   1215
   End
End
Attribute VB_Name = "frmbh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    
    ADOcn.Close
    
   
    Dim i As Integer, j As Integer
    
    On Error GoTo xx
    
    For i = 0 To 10000
        ProgressBar1.value = i
    Next i
    If Command1.Caption = "开始备份" Then
    
    FileCopy App.Path + "\DataBase\Librarydatabase.mdb", App.Path + "\DataBackup\Backup.mdb"

    MsgBox "成功备份!!", vbOKOnly, "提示"
    Else
    FileCopy App.Path + "\DataBackup\Backup.mdb", App.Path + "\DataBase\Librarydatabase.mdb"
    MsgBox "成功恢复!!", vbOKOnly, "提示"
    End If
    Call Sleep(1000)
    Unload frmMain
    Unload Me
    Call Main
    Exit Sub
xx:
   MsgBox Me.Caption + "失败", vbOKOnly, "失败"
   Call Sleep(1000)
    Unload frmMain
    Unload Me
    Call Main

End Sub

Private Sub Command2_Click()
    Unload Me
End Sub