📄 sys_res_bak.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form sYS_ReS_BaK
BorderStyle = 1 'Fixed Single
Caption = "数据库备份与恢复"
ClientHeight = 4485
ClientLeft = 45
ClientTop = 330
ClientWidth = 7230
Icon = "sys_REs_BAk.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 4485
ScaleWidth = 7230
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 4455
Left = 0
TabIndex = 0
Top = 0
Width = 7215
_ExtentX = 12726
_ExtentY = 7858
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "数据库备份"
TabPicture(0) = "sys_REs_BAk.frx":030A
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "数据库恢复"
TabPicture(1) = "sys_REs_BAk.frx":0326
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame2"
Tab(1).ControlCount= 1
Begin VB.Frame Frame2
Height = 3855
Left = -74880
TabIndex = 2
Top = 480
Width = 6975
Begin VB.CommandButton cmdrestore
Caption = "恢复"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 5100
Picture = "sys_REs_BAk.frx":0342
Style = 1 'Graphical
TabIndex = 7
Top = 2640
Width = 645
End
Begin VB.CommandButton cmdclose
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 1
Left = 5940
Picture = "sys_REs_BAk.frx":31BC
Style = 1 'Graphical
TabIndex = 6
Top = 2640
Width = 645
End
Begin MSComctlLib.ProgressBar PbaR2
Height = 200
Left = 240
TabIndex = 3
Top = 3480
Width = 6615
_ExtentX = 11668
_ExtentY = 344
_Version = 393216
Appearance = 1
End
Begin VB.Label L2
Caption = "恢复进度提示："
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 10
Top = 3120
Width = 1815
End
End
Begin VB.Frame Frame1
Height = 3855
Left = 120
TabIndex = 1
Top = 480
Width = 6975
Begin MSComctlLib.ProgressBar PBar1
Height = 200
Left = 240
Negotiate = -1 'True
TabIndex = 8
Top = 3480
Width = 6615
_ExtentX = 11668
_ExtentY = 344
_Version = 393216
Appearance = 1
End
Begin VB.CommandButton cmdclose
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 0
Left = 5940
Picture = "sys_REs_BAk.frx":5EB6
Style = 1 'Graphical
TabIndex = 5
Top = 2640
Width = 645
End
Begin VB.CommandButton cmdback
Caption = "备份"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 5070
Picture = "sys_REs_BAk.frx":8BB0
Style = 1 'Graphical
TabIndex = 4
Top = 2640
Width = 645
End
Begin VB.Label L1
Caption = "备份进度提示："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 11
Top = 3120
Width = 3375
End
Begin VB.Label Label1
Caption = "Label1"
Height = 15
Left = 240
TabIndex = 9
Top = 3480
Width = 1815
End
End
End
Begin MSComDlg.CommonDialog dlgcmd
Left = 1320
Top = 480
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Timer Timer1
Interval = 500
Left = 0
Top = 0
End
End
Attribute VB_Name = "sYS_ReS_BaK"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As Connection
Dim rs As Recordset
Dim files As String
Dim filesb As String
Dim filesall As String
Dim sql As String
Dim BJ As String
Dim datstr As String
Private Sub cmdback_Click()
Dim datstr As String
Dim k As Integer
On Error Resume Next
dlgcmd.Filter = "文件名(*.mdb)|*.mdb"
dlgcmd.DialogTitle = "保存文件"
dlgcmd.FilterIndex = 1
dlgcmd.Flags = FileOpenConstants.cdlOFNShareAware
dlgcmd.ShowSave
datstr = dlgcmd.FileName
If Trim(datstr) <> "" Then
DB.Close
FileCopy App.path & "\data_link.mdb", datstr
DB.Open Conn_Str
MsgBox "数据库备份完毕！", vbOKOnly + 64, "系统提示"
End If
End Sub
Private Sub cmdclose_Click(Index As Integer)
Unload Me
End Sub
Private Sub cmdrestore_Click()
'On Error Resume Next
dlgcmd.CancelError = True
dlgcmd.Filter = "文件名(*.mdb)|*.mdb"
dlgcmd.DialogTitle = "打开文件"
dlgcmd.FilterIndex = 1
dlgcmd.Flags = FileOpenConstants.cdlOFNHideReadOnly
dlgcmd.ShowOpen
datstr = dlgcmd.FileName
If Trim(datstr) <> "" Then
DB.Close
FileCopy datstr, App.path & "\data_link.mdb"
DB.Open Conn_Str
MsgBox "数据库恢复完毕！", vbOKOnly + 64, "系统提示"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -