jdt.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 JDT 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "备份数据"
   ClientHeight    =   1605
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4755
   DrawMode        =   8  'Xor Pen
   FillStyle       =   0  'Solid
   Icon            =   "JDT.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1605
   ScaleWidth      =   4755
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer Timer1 
      Interval        =   200
      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           =   1515
   End
End
Attribute VB_Name = "JDT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public STRERROR As String

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

Private Sub Timer1_Timer()
    If BACKUP.BFILEEXISTS("BACKUP.WC_") Then
       NFILE = FreeFile
       Open "BACKUP.WC_" For Input As #NFILE
       While Not EOF(NFILE)
             Line Input #NFILE, STEMP
             If STRERROR = "" Then
                If InStr(STEMP, "ERROR:") > 0 Then STRERROR = STRERROR + Trim(Right(STEMP, Len(STEMP) - InStr(STEMP, "ERROR:") + 1))
                Else
                  STRERROR = STRERROR + Trim(STEMP)
             End If
       Wend
       Close #NFILE
       If STRERROR = "" Then
          If BACKUP.BFILEEXISTS("SETUP.INF") And BACKUP.BFILEEXISTS("SETUP.RPT") Then
             ProgressBar1.Value = ProgressBar1.Max
             Label1.Caption = "数据压缩完毕!"
             Unload Me
             Else
               If ProgressBar1.Value < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 1
          End If
          Else
            MsgBox STRERROR, vbCritical, "备份失败"
            If BACKUP.BFILEEXISTS("BACKUP.DDF") Then Kill "BACKUP.DDF"
            If BACKUP.BFILEEXISTS("BACKUP.BAT") Then Kill "BACKUP.BAT"
            If BACKUP.BFILEEXISTS("SETUP.INF") Then Kill "SETUP.*"
            If BACKUP.BFILEEXISTS("BACKUP.WC_") Then Kill "BACKUP.WC_"
            End
       End If
       Else
         If ProgressBar1.Value < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 1
    End If
End Sub