学生管理系统说明书 - 图文(5)

Exit Sub End Sub

Private Sub Command2_Click()

On Error GoTo errorhandler '允许错误发生 Adodc1.RecordSource = \ Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then MsgBox \无修改目标\提示信息\ Exit Sub End If

Adodc1.RecordSource = \课程号=\+ \

If Text1.Text = \= \

MsgBox \信息输入不完整！\提示信息\ Exit Sub End If

Adodc1.Refresh

Adodc1.Recordset.Fields(\课程号\ Adodc1.Recordset.Fields(\课程名\ Adodc1.Recordset.Fields(\学生\ Adodc1.Recordset.Fields(\学分\ Adodc1.Recordset.Update

MsgBox \修改成功！\提示信息\ Adodc1.Refresh Exit Sub

errorhandler: '允许错误发生的错误处理 If Err.Number = 3021 Then

MsgBox \课程号不存在，不能修改。\提示信息\ 'resume next

14

Exit Sub End If

If Err.Number = -2147217900 Then

MsgBox \课程号存在相关记录，不允许更新或删除。\vbOKOnly, \提示信息\

Resume Next Exit Sub End If

If Err.Number = -2147217904 Then

MsgBox \课程号输入错误，请输入长整型\ 'resume next Exit Sub End If End Sub

Private Sub Command3_Click() Form1.Show Unload Me End Sub

15

提示信息\

第四章 总结

在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。但会在今后的学习中不断修改更新，使其操作方便、效率高、数据库管理容易。

通过这次课程设计，巩固了对SQL Server 的学习，同时也对Visual Basic 6.0得到了初步的了解，并用其编写一些很简单的程序。

在课设即将完成之际，回顾紧张但又充实的学习过程，在此向所有关心我的及帮助我的老师和同学们致以最真诚的感谢。

16

参考文献

[1]郑阿奇著.SQL Server 实用教程[M].第3版.北京：电子工业出版社.2009 [2]赵斌著. SQL Server 2008应用开发案例解析[M] .上海：科学出版社，2009 [3]余青松著. VB.NET程序设计[M].北京： 北京交通大学出版社.2011 [4]钟斌著.动态网页基础与实例[M].北京：机械工业出版社.2004

[5]孙更新著.SQL Server 2005中文版经典案例设计与实现[M]．电子工业出版 社．2006.10

17