?? frm_備份與恢復(fù).frm
字號(hào):
VERSION 5.00
Object = "{1666F204-B71B-4E6D-AA21-DCE71B94F422}#7.0#0"; "OfficXP風(fēng)格菜單按鈕控件.ocx"
Begin VB.Form Frm_備份與恢復(fù)
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "數(shù)據(jù)備份與恢復(fù)"
ClientHeight = 4065
ClientLeft = 60
ClientTop = 345
ClientWidth = 6750
LinkTopic = "Form1"
ScaleHeight = 4065
ScaleWidth = 6750
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "選擇路徑"
ForeColor = &H80000008&
Height = 2715
Left = 15
TabIndex = 1
Top = 1350
Width = 6705
Begin SmartXpButton.SmartNetXpButton SNXpCancel
Height = 480
Left = 4440
TabIndex = 7
Top = 1395
Width = 1815
_ExtentX = 3201
_ExtentY = 847
BackColor = -2147483628
CaptionAreaLayout= 1
Caption = "取消操作"
ShowCaption = -1 'True
PictureLayout = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CaptionAreaPercent= 50
End
Begin SmartXpButton.SmartNetXpButton SNXpOK
Height = 480
Left = 4440
TabIndex = 6
Top = 600
Width = 1815
_ExtentX = 3201
_ExtentY = 847
BackColor = -2147483628
CaptionAreaLayout= 1
Caption = "確認(rèn)操作"
ShowCaption = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CaptionAreaPercent= 50
End
Begin VB.DirListBox Dir1
Height = 1560
Left = 525
TabIndex = 4
Top = 705
Width = 2925
End
Begin VB.DriveListBox Drive1
Height = 300
Left = 540
TabIndex = 3
Top = 285
Width = 2910
End
Begin VB.Label Label2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "存儲(chǔ)"
ForeColor = &H80000008&
Height = 180
Left = 525
TabIndex = 5
Top = 2385
Width = 360
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 1425
Left = 15
TabIndex = 0
Top = -75
Width = 6705
Begin SmartXpButton.SmartNetXpButton SNXpRestore
Height = 465
Left = 4410
TabIndex = 9
Top = 795
Width = 1815
_ExtentX = 3201
_ExtentY = 820
BackColor = -2147483628
CaptionAreaLayout= 1
Caption = "數(shù)據(jù)恢復(fù)"
ShowCaption = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Frm_備份與恢復(fù).frx":0000
CaptionAreaPercent= 50
End
Begin SmartXpButton.SmartNetXpButton SNXpBackUP
Height = 465
Left = 4410
TabIndex = 8
Top = 240
Width = 1815
_ExtentX = 3201
_ExtentY = 820
BackColor = -2147483628
CaptionAreaLayout= 1
Caption = "數(shù)據(jù)備份"
ShowCaption = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Frm_備份與恢復(fù).frx":031A
CaptionAreaPercent= 50
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "提示：點(diǎn)擊開始備份按鈕選擇路徑進(jìn)行數(shù)據(jù)的備份；點(diǎn)擊恢復(fù)數(shù)據(jù)按紐把備份后的數(shù)據(jù)恢復(fù)到應(yīng)用程序的data文件夾下。 "
ForeColor = &H000000C0&
Height = 765
Left = 180
TabIndex = 2
Top = 285
Width = 2685
End
End
End
Attribute VB_Name = "Frm_備份與恢復(fù)"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dirs As String
Dim obj As Object
Dim cst As String
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub SNXpBACKUP_Click()
cz = False
Me.Height = 5160
Frame2.Visible = True
Frame2.Caption = "請(qǐng)選擇數(shù)據(jù)備份路徑："
If Right(Trim(Dir1.Path), 1) = "\" Then
dirs = Dir1.Path
Else
dirs = Dir1.Path + "\"
End If
Label2.Caption = "數(shù)據(jù)備份路徑：" + dirs + "數(shù)據(jù)備份.mdb"
'On Error GoTo err:
'cd.Action = 2
'
'pgb.Visible = True
'
'''Dim je As New JetEngine
'
'''conn.Close
'If conn.State = 1 Then conn.Close
'
'Dim dsSource As New DAO.DBEngine
'If Dir(App.Path + "\data\temp.mdb") <> "" Then Kill (App.Path + "\data\temp.mdb")
'dsSource.CompactDatabase App.Path + "\data\wsjyxt.mdb", App.Path + "\data\temp.mdb"
'
'Set fsosjsb = CreateObject("Scripting.FileSystemObject")
'If cd.FileName = "" Then Exit Sub
'pgb.Value = 1
'fsosjsb.copyfile App.Path + "\data\wsjyxt.mdb", cd.FileName, True
'
'If Dir(App.Path + "\data\temp.mdb") <> "" Then Kill (App.Path + "\data\temp.mdb")
'pgb.Value = 100
'''pgb.Visible = False
'cd.FileName = ""
'MsgBox "備份完成??！", vbInformation, App.Title
'pgb.Value = 0
'If conn.State = 0 Then conn.Open
'Exit Sub
'err:
'MsgBox "系統(tǒng)錯(cuò)誤：" + err.Description, vbCritical, App.Title
End Sub
Private Sub SNXpRESTORE_Click()
cz = True
Me.Height = 5160
Frame2.Visible = True
Frame2.Caption = "請(qǐng)選擇數(shù)據(jù)備份時(shí)路徑："
If Right(Trim(Dir1.Path), 1) = "\" Then
dirs = Dir1.Path
Else
dirs = Dir1.Path + "\"
End If
Label2.Caption = "數(shù)據(jù)恢復(fù)路徑：" + dirs
'On Error GoTo err:
' cd.Action = 1
'
' pgb.Visible = True
'
'''' Dim je As New JRO.JetEngine
' If Trim(cd.FileName) <> "" Then
' Set fsosjsb = CreateObject("Scripting.FileSystemObject")
' pgb.Value = 1
' fsosjsb.copyfile cd.FileName, App.Path + "\data\wsjyxt.mdb", True
' pgb.Value = 100
' pgb.Visible = False
' MsgBox "恢復(fù)完成！！", vbInformation, App.Title
' cd.FileName = ""
' Else
' Exit Sub
' End If
' Exit Sub
'err:
' MsgBox "系統(tǒng)錯(cuò)誤：" + err.Description, vbCritical, App.Title
End Sub
Private Sub SNXpOK_Click()
If cz = False Then '備份
If obj.FileExists(dirs & "\數(shù)據(jù)備份.mdb") = False Then
Frame2.Visible = False
Me.Height = 2250
'' pgb.Visible = True
'' pgb.Value = 1
obj.copyfile App.Path + "\data\mems.mdb", dirs & "\數(shù)據(jù)備份.mdb"
'' pgb.Value = 100
Else
If MsgBox("所選擇的路徑已經(jīng)存有原先備份的數(shù)據(jù)，是否將原有備份數(shù)據(jù)覆蓋？", vbYesNo + vbDefaultButton2, "覆蓋或者更改備份路徑") = vbYes Then
Frame2.Visible = False
Me.Height = 2250
' pgb.Visible = True
' pgb.Value = 1
obj.DeleteFile dirs & "\數(shù)據(jù)備份.mdb", True
obj.copyfile App.Path + "\data\mems.mdb", dirs & "\數(shù)據(jù)備份.mdb"
' pgb.Value = 100
Else
Exit Sub
End If
End If
MsgBox "數(shù)據(jù)備份完成，請(qǐng)妥善保管！", vbInformation, "提示"
' pgb.Visible = False
Else '恢復(fù)
If obj.FileExists(dirs & "\數(shù)據(jù)備份.mdb") = False Then
MsgBox "所選擇路徑?jīng)]有找到備份文件，請(qǐng)選擇正確路徑！", vbCritical, "數(shù)據(jù)恢復(fù)"
Exit Sub
Else
If MsgBox("是否用備份文件的數(shù)據(jù)恢復(fù)到本系統(tǒng)內(nèi)，注意：恢復(fù)后將丟失自備份數(shù)據(jù)以來的所有更改！", vbYesNo + vbDefaultButton2, "覆蓋或者更改備份路徑") = vbYes Then
Frame2.Visible = False
Me.Height = 2250
pgb.Visible = True
pgb.Value = 1
If conn.State = 1 Then conn.Close
If obj.FileExists(App.Path + "\data\temp" & Trim(CStr(Date)) & ".mdb") = True Then obj.DeleteFile App.Path + "\data\temp" & Trim(CStr(Date)) & ".mdb", True
obj.copyfile App.Path + "\data\mems.mdb", App.Path + "\data\temp" & Trim(CStr(Date)) & ".mdb"
obj.DeleteFile App.Path + "\data\wsjyxt.mdb", True
obj.copyfile dirs & "\數(shù)據(jù)備份.mdb", App.Path + "\data\mems.mdb"
' pgb.Value = 100
If conn.State = 0 Then conn.Open cst
Else
Exit Sub
End If
End If
MsgBox "數(shù)據(jù)恢復(fù)完成！", vbInformation, "提示"
pgb.Visible = False
End If
End Sub
Private Sub SNXpCancel_Click()
Frame2.Visible = False
Me.Height = 1815
' pgb.Visible = False
End Sub
Private Sub Dir1_Change()
If Right(Trim(Dir1.Path), 1) = "\" Then
dirs = Dir1.Path
Else
dirs = Dir1.Path + "\"
End If
If cz = False Then
Label2.Caption = "數(shù)據(jù)備份路徑：" + dirs + "數(shù)據(jù)備份.mdb"
Else
Label2.Caption = "數(shù)據(jù)恢復(fù)路徑：" + dirs
End If
End Sub
Private Sub Form_Load()
On Error GoTo ERR
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) * (1 - 0.618)
Set obj = CreateObject("Scripting.FileSystemObject")
cst = conn.ConnectionString
Frame2.Visible = False
Me.Height = 1815
' pgb.Visible = False
Exit Sub
ERR:
If IsNull(obj) = True Then
MsgBox "文件系統(tǒng)錯(cuò)誤！", vbInformation, "學(xué)生收費(fèi)管理——錯(cuò)誤信息"
Unload Me
Exit Sub
End If
Exit Sub
''' Dim str As String
''' str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data\Wsjyxt.mdb;Persist Security Info=False"
''' conn.ConnectionString = str
''' If conn.State = 1 Then conn.Close
''' conn.Open str
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -