名来进行学生的信息存储。如果用户修改某一纪录中的某一项,可单添加按钮进行学生记录的编辑,此窗口使用数据窗口的FREEDOM风格(典型的录入界面)。该种风格特点是列标题紧挨着数据列在此窗口还可以增加新学生纪录。
6.2.2成绩数据库
成绩数据库里存储了学生的成绩包括:学号、成绩、等如表6.2.7
列名(中文)列名(英文)数据类型宽度小数点位数是否为空姓名NameDate8No学号CodeInteger6No成绩ScoreDate10No备注RecordDate15No表6.2.7
成绩模块:
该模块主要完成学生成绩的基本信息的录入、删除、更新等功能。在此模块中定义了四个域名来进行学生的信息存储。
6.2.3课程数据库
课程数据库利存储了课程的信息:课程名、作者、出版社等如表6.2.8
列名(中文)列名(英文)数据类型宽度小数点位数是否为空课程IDCourseDate8No课程名NameDate15No出版社PublisherDate20No作者ScoreDate18No备注RecordDate15No表6.2.8
课程模块:
该模块主要完成存储课程的所有信息及录入、删除、更新等功能
与VB的连接
VisualBasic提供了与底层数据库系统紧密的连接。VisualBasic支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用,VisualBasic连接数据库的方式有两种:
·通过使用VisualBasic的DATA控件。
·通过使用由VisualBasic提供的专用的直接与数据库相连的接口
第七章
结束语
经过三个多月的设计和开发,中小学档案管理系统基本开发完毕。其功能基本符合用户需求,能够完成学生学籍的存储和成绩的查询以及各类相关报表的打印。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。,对于数据的一致性的问题也通过程序进行了有效的解决。
但是由于毕业设计时间较短,所以该系统还有许多不尽如人意的地方,比如联机文档比较少,用户界面不够美观,出错处理不够等多方面问题。这些都有待进一步改善。
致谢
在本次毕业设计中,我从指导老师雷震甲老师身上学到了很多东西。雷老师认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中,都给与我很大的帮助,使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助,感谢他耐心的辅导。
另外,在系统开发过程中雷老师的助手张彦明老师也给于我很大的帮助,帮助解决了不少的难点,使得系统能及时开发完成,还有同组的同学同样给与我不少帮助,这里一并表示感谢。
第八章
主要参考文献
[1]VisualBasic6.0使用指南
作者:BobReselman,RichardPeasley,WaynePruchniak.
出版社:电子工业出版社
[2]中文版MicrosoftOffice97自学通
作者:NedSnell
出版社:机械工业出版社
[3]VisualBasic6.0中文版控件大全
作者:Microsoft
出版社;电子工业出版社
[4]中文Access200024学时教程
作者:CraigEddy,TimothyBuchanan
出版社:机械工业出版社
附录程序清单及注释
程序清单6.1
OptionExplicit
DimFileNameAsString'文件名,用于打开、保存文件
DimUndoStringAsString'用于Undo操作
DimUndoNewAsString'用于Undo操作
PrivateSubImgUndoDisable()
'禁用"Undo"按钮
UndoString=
UndoNew=
ImgUndo.Enabled=False
ImgUndo.Picture=ImageDisable.ListImages(Undo).Picture
EndSub
PrivateSubImgUndoEnable()
'有效"Undo"按钮
ImgUndo.Enabled=True
ImgUndo.Picture=ImageUp.ListImages(Undo).Picture
EndSub
PrivateSubCheck_ImgPaste()
'设置粘贴按钮
IfLen(Clipboard.GetText)0Then
ImgPaste.Enabled=True
ImgPaste.Picture=ImageUp.ListImages(Paste).Picture
Else
ImgPaste.Enabled=False
ImgPaste.Picture=ImageDisable.ListImages(Paste).Picture
EndIf
EndSub
PrivateSubCheck_ImgCutCopy()
'设置剪切、复制按钮
IfText1.SelLength0Then
ImgCut.Enabled=True
ImgCut.Picture=ImageUp.ListImages(Cut).Picture
ImgCopy.Enabled=True
ImgCopy.Picture=ImageUp.ListImages(Copy).Picture
Else
ImgCut.Enabled=False
ImgCut.Picture=ImageDisable.ListImages(Cut).Picture
ImgCopy.Enabled=False
ImgCopy.Picture=ImageDisable.ListImages(Copy).Picture
EndIf
EndSub
PrivateSubBackColor_Click()
CommonDialog1.ShowColor
Text1.BackColor=CommonDialog1.Color
EndSub
PrivateSubBox_Click()
'显停工具栏
IfBox.CheckedThen
'将停显工具栏
Box.Checked=False
CoolBar1.Visible=False
Else
Box.Checked=True
CoolBar1.Visible=True
EndIf
Form_Resize'重新调整控件位置
EndSub
PrivateSubClose_Click()
DimFileNumAsInteger
IfLen(FileName)0Then
'有输入文件名
FileNum=FreeFile()'获得可用文件号
OpenFileNameForOutputAsFileNum'打开输出文件
'如果无指定文件,则创建新文件
Print#FileNum,Text1.Text'输出文本
CloseFileNum'关闭文件
EndIf
Text1.Text=
FileName=
EndSub
PrivateSubComboSize_Click()
Text1.FontSize=Val(ComboSize.Text)
EndSub
PrivateSubComboFont_Click()
Text1.FontName=ComboFont.Text
EndSub
PrivateSubCopy_Click()
Clipboard.SetTextText1.SelText'复制文本到剪裁板
EndSub
PrivateSubCut_Click()
Clipboard.SetTextText1.SelText'复制文本到剪裁板
Text1.SelText='清选择的文本
EndSub
PrivateSubDataTime_Click()
Text1.SelText=Now
EndSub
PrivateSubDelete_Click()
Text1.SelText='清选择的文本
EndSub
PrivateSubEdit_Click()
'当程序显示"编辑"子菜单前,触发该程序
IfText1.SelLength0Then
'文本框中有选中的文本
Cut.Enabled=True
Copy.Enabled=True
Delete.Enabled=True
Else
Cut.Enabled=False
Copy.Enabled=False
Delete.Enabled=False
EndIf
IfLen(Clipboard.GetText())0Then
'剪裁板中有文本数据
Paste.Enabled=True
Else
'没有可粘贴的文本
Paste.Enabled=False
EndIf
EndSub
PrivateSubExit_Click()
UnloadMe
EndSub
PrivateSubFindText_KeyPress(KeyAsciiAsInteger)
DimBeginPosAsLong
IfKeyAscii=13Then
BeginPos=InStr(1,Text1.Text,FindText.Text,vbTextCompare)
IfBeginPos0Then
Text1.SelStart=BeginPos-1
Text1.SelLength=Len(FindText.Text)
EndIf
EndIf
EndSub
PrivateSubFontcolor_Click()
CommonDialog1.ShowColor
Text1.ForeColor=CommonDialog1.Color
EndSub
PrivateSubForm_Load()
DimiAsInteger
'加载图像
ImgNew.Picture=ImageUp.ListImages(New).Picture
ImgOpen.Picture=ImageUp.ListImages(Open).Picture
ImgSave.Picture=ImageUp.ListImages(Save).Picture
ImgUndo.Picture=ImageDisable.ListImages(Undo).Picture
Check_ImgPaste
Check_ImgCutCopy
'加载系统字体
Fori=0ToScreen.FontCount-1
ComboFont.AddItemScreen.Fonts(i)
Nexti
EndSub
PrivateSubForm_Resize()
DimTextTopAsLong
'修改工具条大小
CoolBar1.Top=Me.ScaleTop
Me.ScaleLeft
Text1.Width=Me.ScaleWidth
IfMe.Scal
上一篇:
vb学生档案管理系统+论文(论文和程序)
下一篇:
为定制而来 欧马可快递物流一体化解决方案抢滩苏浙沪