SQL+VB图书管理系统(数据库+源代码+论文) 第16页
Private Sub sjbf_Click()
Dim sql As String, rtn As String
sql = "backup database tushu to disk='" + App.Path + "\bak\data.bak' with init"
rtn = Update(sql)
If rtn = 0 Then
MsgBox "备份完毕！", vbOKOnly + vbInformation, "提示"
Else
MsgBox "备份失败！", vbOKOnly + vbInformation, "提示"
End If
End Sub
……
②数据恢复代码如下：
Private Sub Timer1_Timer()
Timer1.Enabled = False
Dim sql As String, strcnn As String
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
sql = "restore database tushu from disk='" _
+ Left(App.Path, Len(App.Path) - 3) + "\bak\data.bak'"
strcnn = "provider=sqloledb.1;integrated security=sspi"
On Error GoTo lab
cnn.Open strcnn
cnn.BeginTrans
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText
cmd.CommandText = sql
cmd.Execute
cnn.CommitTrans
cnn.Close
Me.Hide
MsgBox "系统数据恢复成功！"
Shell Left(App.Path, Len(App.Path) - 3) + "\图书管理系统.exe", vbNormalFocus
End
Exit Sub
lab:
Me.Hide
MsgBox "系统数据恢复失败！"
Shell Left(App.Path, Len(App.Path) - 3) + "\图书管理系统.exe", vbNormalFocus
End
End Sub
4、总结（体会）
通过本次本次课程设计了解到了一个简单的系统开发的具体流程，同时了解到团队合作的重要性，复杂的系统的开发需要多人合作靠个人开发效率低，不符合商业的要求，团体合作。
参考书目：
[1] 李晓黎等，Visual Basic+SQL Server数据库应用系统开发与实例，人民邮电出版社出版
[2] 赵松涛，Visual Basic+SQLServer 2000系统开发实录，电子工业出版社出版
[3] 刘韬等，Visual Basic数据库系统开发实例导航，人民邮电出版社出版
<< 上一页 [11] [12] [13] [14] [15] [16]
SQL+VB图书管理系统(数据库+源代码+论文) 第16页下载如图片无法显示或论文不完整，请联系qq752018766
