bfjdt.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 BFJDT 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "备份数据"
   ClientHeight    =   1590
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4755
   DrawMode        =   5  'Not Copy Pen
   FillStyle       =   0  'Solid
   Icon            =   "BFJDT.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1590
   ScaleWidth      =   4755
   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           =   4275
      _ExtentX        =   7541
      _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 = "BFJDT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    On Error GoTo LOCALERR
    
    FileCopy "BACKUP\" & BACKUP.BFFILE, "A:\" & BACKUP.BFFILE
    If ProgressBar1.Value + 50 < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 50
    FileCopy "SETUP.INF", "A:\SETUP.INF"
    If ProgressBar1.Value + 15 < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 15
    FileCopy "SETUP.RPT", "A:\SETUP.RPT"
    If ProgressBar1.Value + 15 < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 15
    NFILE = FreeFile
    Open "A:\BACKDISK.INF" For Output As #NFILE
    Print #NFILE, "DISK:#" & CStr(BACKUP.DISKS)
    Print #NFILE, "TOTAL DISK:#" & CStr(BACKUP.Combo1.ListCount)
    Close #NFILE
    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

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