辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
MsgBox \信息修改成功\修改信息\ End If
If gintvMode = 1 Then
For txtcount = 0 To 11 txtitem(txtcount) = \ Next txtcount txtchange = False End If
If gintvMode = 2 Then Unload Me
If flagvEdit = True Then Unload frmvehiclelist End If
frmvehiclelist.txtsql = \ frmvehiclelist.Show End If End Sub
18
辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
第4章 课设总结
经过一个多月的设计和开发，单位车辆管理系统基本开发完毕。在老师耐心细致的指导下，以及同学们的帮助，同时翻阅了大量的资料不论是在网上的还是书上的，经过了一个月的努力终于完成了单位车辆管理系统。
本系统采用Visual Basic 6.0，和SQL Server数据库设计，操作方便简单，系统界面美观，易于使用者操作。本系统具有较强的直观性，设计完整等优点。但也有设计不足的地方，还需进一步分析改进，完善单位车辆管理系统。
单位车辆管理系统功能基本符合用户需求，能够完成用户提出的信息管理要求。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，将在日后的时间继续完善。
19
辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
参考文献
[1] 薛华成，《管理信息系统》，北京：清华大学出版社，2002 [2] 姜旭平，《信息系统开发方法，策略，技术，工具》，北京：清华大学出版社，2008 [3] 张玉红，《管理信息系统程序设计技术》，北京：清华大学出版社，2007 [4] 姚巍．《Visual Basic数据库开发及工程实例》，北京：清华大学出版社，2009 [5] 胡小兵．《Visual Basic数据库项目案例导航》，北京：清华大学出版社，2005 [6] 胡胜利．《数据库原理与应用》，上海：机械工业出版社，2008 [7] 刘铭徽．《信息系统开发实例精选》，北京：北京电子科技大学出版社，2007 [8] 郝平．《数据库开发与应用》，上海：人民邮电出版社，2006 [9] 乔美娥．《数据库系统原理与设计》，北京：清华大学出版社，2008 [10] 周治平．《数据库开发学习教程》，上海：电子工业出版社，2009 [11] 杨艳．《Visual Basic 6.0程序设计教程》，北京：北京大学出版社，2008 [12] 刘永雷．《管理细小系统案例》，北京：北方交通大学出版社，2006 [13] 刘炳文．《Visual Basic数据库编程宝典》，上海：电子工业出版社，2009 [14] 刘新民．《SQL Server数据库开发经典案例解析》，上海：机械工业出版社，2007 [15] 高春艳．《信息时代的管理信息系统》，上海：人民邮电出版社，2006
20
辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
附录：主要代码
司机信息查询代码如下： Private Sub cmdok_Click() Dim txtsql As String
If Check1.Value = vbChecked Then ' Call hidecheck
If Trim(Text1.Text) = \
MsgBox \查询内容不能为空\警告\ Else
txtsql = \ End If
' Check2.Enabled = False ' Check3.Enabled = False End If
If Check2.Value = vbChecked Then 'Call hidecheck
If Trim(Text2.Text) = \
MsgBox \查询内容不能为空\警告\ Else
txtsql = \ End If
'Check1.Enabled = False 'Check3.Enabled = False End If
If Check3.Value = vbChecked Then ' Call hidecheck
If Trim(Text3.Text) = \
MsgBox \查询内容不能为空\警告\ Else
txtsql = \ End If
'Check1.Enabled = False ' Check2.Enabled = False End If
If Trim(txtsql) = \
MsgBox \请设置查询方式！\提示\ Exit Sub Else
'If flagdEdit Then
Unload frmdriverfind 'End If
frmdriverlist.txtsql = \
21
辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
frmdriverlist.Show End If End Sub
车辆信息添加代码:
Private Sub Cmdsave_Click() Dim txtcount As Integer Dim tmsg As String Dim msgtext As String For txtcount = 0 To 3
If Trim(txtitem(txtcount) & \ Select Case txtcount Case 0
tmsg = \车牌\ Case 1
tmsg = \车型\ Case 2
tmsg = \车主\ Case 3
tmsg = \发动机号\ End Select
tmsg = tmsg & \不能为空！\
MsgBox tmsg, vbOKOnly + vbExclamation, \警告\ txtitem(txtcount).SetFocus Exit Sub End If Next txtcount
If Not IsNumeric(txtitem(6)) Then
MsgBox \输入错误，请输入数字\警告\ txtitem(6).SetFocus Exit Sub End If
If Not IsNumeric(txtitem(7)) Then
MsgBox \输入错误，请输入数字\警告\ ' Exit Sub
txtitem(7).SetFocus Exit Sub End If
If Trim(txtitem(8) & \ If Not IsDate(txtitem(8)) Then
MsgBox \请输入时间，格式yyyy-mm-dd！\vbOKOnly + vbExclamation, \警告\
txtitem(8).SetFocus Exit Sub Else
22