?? 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 = "數(shù)據(jù)庫安全管理"
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 = "請輸入或者選擇數(shù)據(jù)庫恢復的路徑"
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 = "請輸入或者選擇數(shù)據(jù)庫備份的路徑"
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
'*** 實現(xiàn)數(shù)據(jù)備份的過程 ***
Private Sub Cmd_backup_Click()
Dim char As Byte '定義一個字節(jié)變量，用于利用二進制復制數(shù)據(jù)庫當中
Dim temp_char As String
rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '運用API函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能
If Text1.Text = "" Then
MsgBox "請您選擇數(shù)據(jù)庫備份的路徑!", 64, "提示信息"
Else
'在進行數(shù)據(jù)備份的時候，使“開始備份”按鈕變?yōu)椴豢捎茫员惴乐惯M行重復操作，損壞數(shù)據(jù)庫中的數(shù)據(jù)
Cmd_backup.Enabled = False
Dim connter As Integer
Dim sql
Dim workarea(6) As String '定義一個數(shù)組，用來實現(xiàn)控制備份進度條備份文件進度快慢的功能
ProgressBar1.Visible = True
'UBound函數(shù)和LBound函數(shù)分別用于指定數(shù)組的最大下標和最小下標，關于該函數(shù)的具體用法請參閱明日公司《Visual Basic編程詞典》中的函數(shù)應用部分 網(wǎng)址 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函數(shù)的用法請參閱明日公司《Visual Basic編程詞典》中的函數(shù)應用部分 網(wǎng)址 www.cccxy.com
temp_char = App.Path & "\db_kcgl.mdb"
'該段代碼實現(xiàn)的是利用二進制復制文件的方法復制數(shù)據(jù)庫文件
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 '將讀出的每一個字節(jié)寫入到目標文件中
Loop
Close
Next connter
ProgressBar1.Value = ProgressBar1.Min
MsgBox "數(shù)據(jù)庫備份成功完成!"
Cmd_backup.Enabled = True '在數(shù)據(jù)備份完成之后，將“數(shù)據(jù)備份”按鈕變?yōu)榭捎脿顟B(tài)
End If
End Sub
Private Sub Cmd_cancel_Click()
Unload Me
End Sub
'*** 實現(xiàn)數(shù)據(jù)恢復的過程 ***
Private Sub Cmd_sjhf_Click()
Dim char As Byte '定義一個字節(jié)變量，用于利用二進制復制數(shù)據(jù)庫當中
Dim temp_char As String
rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '運用API函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能
If Text2.Text = "" Then
MsgBox "請您選擇數(shù)據(jù)庫恢復的路徑!", 64, "提示信息"
Else
'在進行數(shù)據(jù)恢復的時候，使“開始恢復”按鈕變?yōu)椴豢捎茫员惴乐惯M行重復操作，損壞數(shù)據(jù)庫中的數(shù)據(jù)
Cmd_sjhf.Enabled = False
Dim connter As Integer
Dim sql
Dim workarea(6) As String '定義一個數(shù)組，用來實現(xiàn)控制數(shù)據(jù)恢復進度條恢復文件進度快慢的功能
ProgressBar2.Visible = True
'UBound函數(shù)和LBound函數(shù)分別用于指定數(shù)組的最大下標和最小下標，關于該函數(shù)的具體用法請參閱明日公司《Visual Basic編程詞典》中的函數(shù)應用部分 網(wǎng)址 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函數(shù)的用法請參閱明日公司《Visual Basic編程詞典》中的函數(shù)應用部分 網(wǎng)址 www.cccxy.com
temp_char = App.Path & "\db_kcgl.mdb"
'該段代碼實現(xiàn)的是利用二進制復制文件的方法復制數(shù)據(jù)庫文件
Open Text2.Text For Binary As #1 '打開源文件
Open temp_char For Binary As #2 '打開目標文件
Do While Not EOF(1) '將讀出的每一個字節(jié)寫入到目標文件中
Get #1, , char
Put #2, , char
Loop
Close
Next connter
ProgressBar2.Value = ProgressBar2.Min
MsgBox "數(shù)據(jù)庫恢復成功完成!"
Cmd_sjhf.Enabled = True '在數(shù)據(jù)恢復完成之后，將“數(shù)據(jù)恢復”按鈕變?yōu)榭捎脿顟B(tài)
End If
End Sub
'*** 選擇數(shù)據(jù)備份的路徑 ***
Private Sub Command1_Click()
'CommonDialog控件用于打開或存儲數(shù)據(jù)文件，關于該控件的用法請參閱明日公司《Visual Basic編程詞典》中的控件應用部分 網(wǎng)址 www.cccxy.com
CommonDialog1.Filter = "數(shù)據(jù)庫文件(*.mdb)|*.mdb|ALL File(*.*)|*.*"
CommonDialog1.ShowOpen '調用打開對話框
Text1.Text = CommonDialog1.FileName '將控件的返回路徑賦值給文本框
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
'*** 選擇數(shù)據(jù)恢復的路徑 ***
Private Sub Command4_Click()
'CommonDialog控件用于打開或存儲數(shù)據(jù)文件，關于該控件的用法請參閱明日公司《Visual Basic編程詞典》中的控件應用部分 網(wǎng)址 www.cccxy.com
CommonDialog2.Filter = "數(shù)據(jù)庫文件(*.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函數(shù)SetWindowPos，來實現(xiàn)使窗體置前的功能
'使窗體置于屏幕中央
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 + -