main_xt_sjbf.frm

星级酒店客房管理系统一套很不错的系统

VERSION 5.00
Begin VB.Form frmDatabackup 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "数据中心——【数据备份】"
   ClientHeight    =   2520
   ClientLeft      =   3825
   ClientTop       =   5295
   ClientWidth     =   5040
   Icon            =   "main_xt_sjbf.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "main_xt_sjbf.frx":030A
   ScaleHeight     =   2520
   ScaleWidth      =   5040
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Height          =   380
      Left            =   2880
      Picture         =   "main_xt_sjbf.frx":0CEE
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   1320
      Width           =   940
   End
   Begin VB.CommandButton cmdBackup 
      Height          =   380
      Left            =   1440
      Picture         =   "main_xt_sjbf.frx":1136
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   1320
      Width           =   940
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   240
      Picture         =   "main_xt_sjbf.frx":1669
      Top             =   360
      Width           =   480
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "此操作将系统最新数据作备份,确定备份吗?"
      ForeColor       =   &H000000C0&
      Height          =   180
      Left            =   1080
      TabIndex        =   2
      Top             =   600
      Width           =   3420
   End
End
Attribute VB_Name = "frmDatabackup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdBackup_Click()
If Dir(App.Path & "\backup\" & Format(Date, "yyyymmdd") & ".mdb") <> "" Then
  If MsgBox("今天的数据已经备份,是否覆盖现有备份?", vbOKCancel, "警告") = vbOK Then
FileCopy App.Path & "\room.mdb", App.Path & "\backup\" & Format(Date, "yyyymmdd") & ".mdb"
Else
End If
Else
FileCopy App.Path & "\room.mdb", App.Path & "\backup\" & Format(Date, "yyyymmdd") & ".mdb"
End If
MsgBox "今天〖" & Date & "〗的数据已经成功备份!", vbOKOnly, "备份成功"
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
MDIForm1.Enabled = True
End Sub