VB+学生档案管理系统 (一)毕业论文(3)

 用户界面的实现
6．1．1 封面
具体实现见 图_6.1.1



图_6.1.1
6．1．2 主界面
 具体实现见.图_6.1.2
图_6.1.2

主界面包含三方面的内容,以下一一介绍
1.记录操作
打开记录操作,进入记录操作菜单项分别由文件、视图及帮助三个选项。
1.1文件包括：新建
打开
打开写字板---------如图6.1.4 (源程序见附录清单6.1 )
保存
另存
打印
退出
图6.1.4
1.2视图包括：状态条
工具栏
背景颜色
显示
课程表---------如图6.1.5
文本编辑器
网络浏览
图6.1.5
1. 3帮助包括：内容
关于帮助
2．记录操作
打开记录操作进入记录操作选项页分别由浏览记录、查找等三个选项组成。
2．1浏览记录：
学生学籍库
课程库
成绩库
2．2查找记录
2．3备注
3．系统信息
打开系统信息进入选项页分别由系统信息、信息采集等组成。

6．1．3 帮助系统
具体实现见6.1.3

 图6.1.3

 数据库的实现
6．2．1学籍数据库
学籍数据库里存储了学生的档案包括：学号、姓名、年龄等 表如6.2.6

列名（中文）列名（英文）数据类型宽度小数点位数是否为空姓名Name Date8No学号CodeInteger6No性别SexDate2No年龄AgeDate6No民族NationDate6No政治面貌Visage...Date2...Yes...家庭住址AddressDate10No备注RecordDate15No 表6.2.6
学籍模块：
该模块主要完成学生基本信息的录入、删除 、更新等功能。在此模块中定义了八个域名来进行学生的信息存储。如果用户修改某一纪录中的某一项，可单添加按钮进行学生记录的编辑，此窗口使用数据窗口的FREEDOM风格（典型的录入界面）。该种风格特点是列标题紧挨着数据列在此窗口还可以增加新学生纪录。

6．2．2成绩数据库

列名（中文）列名（英文）数据类型宽度小数点位数是否为空姓名Name Date8No学号CodeInteger6No成绩ScoreDate10No备注RecordDate15No 表6.2.7
成绩模块：
该模块主要完成学生成绩的基本信息的录入、删除 、更新等功能。在此模块中定义了四个域名来进行学生的信息存储。

6．2．3课程数据库
课程数据库利存储了课程的信息：课程名、作者、出版社等如表6.2.8

列名（中文）列名（英文）数据类型宽度小数点位数是否为空课程IDCourseDate8No课程名NameDate15No出版社PublisherDate20No作者ScoreDate18No备注RecordDate15No 表6.2.8
课程模块：
该模块主要完成存储课程的所有信息及录入、删除 、更新等功能

 与VB的连接
Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种：
·通过使用Visual Basic的 DATA控件。
·通过使用由Visual Basic提供的专用的直接与数据库相连的接口
第七章

结束语
经过三个多月的设计和开发，中小学档案管理系统基本开发完毕。其功能基本符合用户需求，能够完成学生学籍的存储和成绩的查询以及各类相关报表的打印。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也通过程序进行了有效的解决。
但是由于时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。

致谢

在本次设计中，我从指导老师雷震甲老师身上学到了很多东西。雷老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。 （科教作文网http://zw.ΝsΕAc.com发布）
另外，在系统开发过程中雷老师的助手张彦明老师也给于我很大的帮助，帮助解决了不少的难点，使得系统能及时开发完成，还有同组的同学同样给与我不少帮助，这里一并表示感谢。

第八章

主要参考文献

[1] Visual Basic 6.0 使用指南
作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.
出版社：电子工业出版社
[2] 中文版Microsoft Office 97 自学通
作者：Ned Snell
出版社：机械工业出版社
[3] Visual Basic 6.0 中文版控件大全
作者：Microsoft
出版社；电子工业出版社
[4] 中文Access 2000 24学时教程
作者：Craig Eddy ，Timothy Buchanan
出版社：机械工业出版社

附录程序清单及注释
程序清单6.1
Option Explicit
Dim FileName As String '文件名，用于打开、保存文件
Dim UndoString As String '用于 Undo 操作
Dim UndoNew As String '用于 Undo 操作

Private Sub ImgUndoDisable()
'禁用“Undo”按钮
UndoString =
UndoNew =
ImgUndo.Enabled = False
ImgUndo.Picture = ImageDisable.ListImages(Undo).Picture
End Sub

Private Sub ImgUndoEnable()
'有效“Undo”按钮
ImgUndo.Enabled = True
ImgUndo.Picture = ImageUp.ListImages(Undo).Picture
End Sub

Private Sub Check_ImgPaste()
'设置粘贴按钮
If Len(Clipboard.GetText)  0 Then
ImgPaste.Enabled = True
ImgPaste.Picture = ImageUp.ListImages(Paste).Picture
Else
ImgPaste.Enabled = False
ImgPaste.Picture = ImageDisable.ListImages(Paste).Picture
End If
End Sub

Private Sub Check_ImgCutCopy()
'设置剪切、复制按钮
If Text1.SelLength  0 Then
ImgCut.Enabled = True