📄 frm_backup.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frm_backup
BorderStyle = 3 'Fixed Dialog
Caption = "数据库安全管理"
ClientHeight = 2220
ClientLeft = 45
ClientTop = 330
ClientWidth = 4605
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2220
ScaleWidth = 4605
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame2
Height = 2070
Left = 135
TabIndex = 0
Top = 75
Width = 4335
Begin VB.CommandButton Command2
Caption = "取消"
Height = 375
Left = 3120
TabIndex = 4
Top = 1590
Width = 1095
End
Begin VB.CommandButton Cmd_sjhf
Caption = "开始恢复"
Height = 375
Left = 1935
TabIndex = 3
Top = 1590
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "<<"
Height = 300
Left = 3840
TabIndex = 2
Top = 720
Width = 375
End
Begin VB.TextBox Text2
Height = 300
Left = 120
TabIndex = 1
Top = 720
Width = 3735
End
Begin MSComctlLib.ProgressBar ProgressBar2
Height = 370
Left = 120
TabIndex = 5
Top = 1150
Width = 4095
_ExtentX = 7223
_ExtentY = 661
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin VB.Label Label2
Caption = "请输入或者选择数据库恢复的路径"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 255
Left = 120
TabIndex = 6
Top = 360
Width = 3615
End
End
Begin VB.Frame Frame1
Height = 2070
Left = 135
TabIndex = 7
Top = 75
Width = 4335
Begin VB.TextBox Text1
Height = 300
Left = 120
TabIndex = 11
Top = 720
Width = 3735
End
Begin VB.CommandButton Command1
Caption = "<<"
Height = 300
Left = 3840
TabIndex = 10
Top = 720
Width = 375
End
Begin VB.CommandButton Cmd_backup
Caption = "开始备份"
Height = 375
Left = 1920
TabIndex = 9
Top = 1605
Width = 1095
End
Begin VB.CommandButton Cmd_cancel
Caption = "取消"
Height = 375
Left = 3120
TabIndex = 8
Top = 1605
Width = 1095
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 1080
Top = 1680
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 480
Top = 1680
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 370
Left = 120
TabIndex = 12
Top = 1150
Width = 4095
_ExtentX = 7223
_ExtentY = 661
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin VB.Label Label1
Caption = "请输入或者选择数据库备份的路径"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 255
Left = 120
TabIndex = 13
Top = 360
Width = 3615
End
End
End
Attribute VB_Name = "frm_backup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*** 实现数据备份的过程 ***
Private Sub Cmd_backup_Click()
Dim char As Byte '定义一个字节变量，用于利用二进制复制数据库当中
Dim temp_char As String
rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现取消窗体置前的功能
If Text1.Text = "" Then
MsgBox "请您选择数据库备份的路径!", 64, "提示信息"
Else
'在进行数据备份的时候，使“开始备份”按钮变为不可用，以便防止进行重复操作，损坏数据库中的数据
Cmd_backup.Enabled = False
Dim connter As Integer
Dim sql
Dim workarea(6) As String '定义一个数组，用来实现控制备份进度条备份文件进度快慢的功能
ProgressBar1.Visible = True
'UBound函数和LBound函数分别用于指定数组的最大下标和最小下标，关于该函数的具体用法请参阅明日公司《Visual Basic编程词典》中的函数应用部分 网址 www.cccxy.com
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
For connter = LBound(workarea) To UBound(workarea)
workarea(connter) = "initial value" & connter
ProgressBar1.Value = connter
'App.Path指的是应用程序路径，关于App函数的用法请参阅明日公司《Visual Basic编程词典》中的函数应用部分 网址 www.cccxy.com
temp_char = App.Path & "\db_kcgl.mdb"
'该段代码实现的是利用二进制复制文件的方法复制数据库文件
Open temp_char For Binary As #1 '打开源文件
Open Text1.Text For Binary As #2 '打开目标文件
Do While Not EOF(1)
Get #1, , char
Put #2, , char '将读出的每一个字节写入到目标文件中
Loop
Close
Next connter
ProgressBar1.Value = ProgressBar1.Min
MsgBox "数据库备份成功完成!"
Cmd_backup.Enabled = True '在数据备份完成之后，将“数据备份”按钮变为可用状态
End If
End Sub
Private Sub Cmd_cancel_Click()
Unload Me
End Sub
'*** 实现数据恢复的过程 ***
Private Sub Cmd_sjhf_Click()
Dim char As Byte '定义一个字节变量，用于利用二进制复制数据库当中
Dim temp_char As String
rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现取消窗体置前的功能
If Text2.Text = "" Then
MsgBox "请您选择数据库恢复的路径!", 64, "提示信息"
Else
'在进行数据恢复的时候，使“开始恢复”按钮变为不可用，以便防止进行重复操作，损坏数据库中的数据
Cmd_sjhf.Enabled = False
Dim connter As Integer
Dim sql
Dim workarea(6) As String '定义一个数组，用来实现控制数据恢复进度条恢复文件进度快慢的功能
ProgressBar2.Visible = True
'UBound函数和LBound函数分别用于指定数组的最大下标和最小下标，关于该函数的具体用法请参阅明日公司《Visual Basic编程词典》中的函数应用部分 网址 www.cccxy.com
ProgressBar2.Max = UBound(workarea)
ProgressBar2.Value = ProgressBar2.Min
For connter = LBound(workarea) To UBound(workarea)
workarea(connter) = "initial value" & connter
ProgressBar2.Value = connter
'App.Path指的是应用程序路径，关于App函数的用法请参阅明日公司《Visual Basic编程词典》中的函数应用部分 网址 www.cccxy.com
temp_char = App.Path & "\db_kcgl.mdb"
'该段代码实现的是利用二进制复制文件的方法复制数据库文件
Open Text2.Text For Binary As #1 '打开源文件
Open temp_char For Binary As #2 '打开目标文件
Do While Not EOF(1) '将读出的每一个字节写入到目标文件中
Get #1, , char
Put #2, , char
Loop
Close
Next connter
ProgressBar2.Value = ProgressBar2.Min
MsgBox "数据库恢复成功完成!"
Cmd_sjhf.Enabled = True '在数据恢复完成之后，将“数据恢复”按钮变为可用状态
End If
End Sub
'*** 选择数据备份的路径 ***
Private Sub Command1_Click()
'CommonDialog控件用于打开或存储数据文件，关于该控件的用法请参阅明日公司《Visual Basic编程词典》中的控件应用部分 网址 www.cccxy.com
CommonDialog1.Filter = "数据库文件(*.mdb)|*.mdb|ALL File(*.*)|*.*"
CommonDialog1.ShowOpen '调用打开对话框
Text1.Text = CommonDialog1.FileName '将控件的返回路径赋值给文本框
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
'*** 选择数据恢复的路径 ***
Private Sub Command4_Click()
'CommonDialog控件用于打开或存储数据文件，关于该控件的用法请参阅明日公司《Visual Basic编程词典》中的控件应用部分 网址 www.cccxy.com
CommonDialog2.Filter = "数据库文件(*.mdb)|*.mdb|ALL File(*.*)|*.*"
CommonDialog2.ShowOpen '调用打开对话框
Text2.Text = CommonDialog2.FileName '将控件的返回路径赋值给文本框
End Sub
Private Sub Form_Load()
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现使窗体置前的功能
'使窗体置于屏幕中央
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -