vb课程设计要点Word格式文档下载.docx
《vb课程设计要点Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《vb课程设计要点Word格式文档下载.docx（17页珍藏版）》请在冰点文库上搜索。
年月日
学生成绩信息管理系统
1课程设计题目
2功能描述
本程序主要有部分构成；
按姓名查询系统，按学号查询系统，逐条查询系统，录入系统，删除系统，修改系统，主窗体等。
目的是方便快捷的查询到所需内容，并且修改方便，一目了然。
3概要设计
根据功能描述，现将系统的体系结构，即组成系统的若干子功能模块说明如下。
按学号查询
按姓名查询
修改
删除
录入
逐条查询
1按学号查询：
此模块的功能是输入学号查询学生成绩信息。
2按姓名查询：
此模块的功能是输入姓名查询学生成绩信息。
3逐条查询：
此模块的功能是输入各项信息查询学生成绩信息。
4录入：
此模块的功能是录入学生成绩各项信息。
5删除：
此模块的功能是删除学生成绩错误信息。
6修改：
此模块的功能是修改学生成绩信息。
4详细设计
（1）创建主窗体
建立主窗体：
单击”工程”->
”添加MDI窗体”菜单,在弹出的对话框中单击”打开”按钮则为当前项目添加了一个MDI窗体。
设置好MDI窗体属性后,设置此项目的属性。
”工程1属性”菜单,进入项目属性设置窗体。
在此项目属性窗体中通用选项卡的启动对象中选择MDIfrmMain项,将这一多文档窗体作为程序的启动窗体。
（2）主要窗体的实现
主页面模块的设计：
此模块是系统服务器端的主要控制界面，通过菜单的选择，可以控制系统的所有功能。
主界面的设计步骤：
1）设计主界面控件布局：
在主界面的布局中使用了工具栏（ToolBar）、和图象列表（ImageList）等非Vb标准控件。
2）工具栏的设置：
给工具栏添加按钮。
3）添加菜单：
菜单的使用是为了更好的给用学生供功能指引，同时也简单了主菜单的操作。
（3）创建系统主界面
当系统运行时，便直接进入主窗体，窗体的上方标有各个功能键，每个功能键又包含若干功能，启动系统主界面，没有用到任何插件。
（4）如果信息录入错误，需对学生信息进行修改：
在该系统中，此模块是必不可少的首要环节。
通过检查对入住录入的信息的修改，可方便老师和学生查询信息。
显示有关控件；
通过语句：
OpenApp.Path&
"
\酒店信息管理.txt"
ForInputAs#1。
实现对相关数据所在文本文件以读方式打开；
\学生成绩信息管理系统
temp.txt"
ForOutputAs#2在当前文件夹中创建"
联系人号码temp.txt"
文件。
增删数据完成后，通过语句：
KillApp.Path&
NameApp..Path&
AsApp.Path&
.txt"
'
删除原来的联系人号码.txt文件，保留后者。
既增删数据成功。
5运行效果
1．查询系统的主界面
2．根据学号查询
3．根据姓名查询
4．逐条查询
5．录入
6．删除
7．修改
存在的不足：
只能单一的查询成绩信息，没有其他复杂的登录界面，程序简单可查询的信息量小。
6心德与体会
通过此次课程设计我懂得了很多，在这次的课程设计中不仅检验了我所学习的知识，也培养了我如何去把握一件事情，如何去做一件事情，又如何完成一件事情。
在设计过程中，与同学分工设计，和同学们相互探讨，相互学习，相互监督。
学会了合作，学会了运筹帷幄，学会了宽容，学会了理解，也学会了做人与处世。
课程设计是我们专业课程知识综合应用的实践训练，着是我们迈向社会，从事职业工作前一个必不少的过程．”千里之行始于足下”，通过这次课程设计，我深深体会到这句千古名言的真正含义．我今天认真的进行课程设计，学会脚踏实地迈开这一步，就是为明天能稳健地在社会大潮中奔跑打下坚实的基础．
7附录：
各功能模块的全部代码。
1主窗体代码
PrivateSubchaxun1_Click（）
LoadFrm_查询1
Frm_查询1.Show
EndSub
PrivateSubchaxun2_Click（）
LoadFrm_查询2
Frm_查询2.Show
PrivateSubchaxun3_Click（）
LoadFrm_查询3
Frm_查询3.Show
PrivateSubImage1_Click（）
PrivateSubForm_Load（）
PrivateSubjishiben_Click（）
Shell"
C:
\WINDOWS\notepad.exe"
vbNormalFocus
PrivateSubjisuanqi_Click（）
\WINDOWS\system32\calc.exe"
PrivateSubluru_Click（）
LoadFrm_录入
Frm_录入.Show
PrivateSubshanchu_Click（）
LoadFrm_删除
Frm_删除.Show
PrivateSubtuichu_Click（）
End
PrivateSubxiugai_Click（）
LoadFrm_修改
Frm_修改.Show
2学号查询代码
PrivateSubCommand1_Click（）
OnErrorResumeNext
dh=Trim（Text1.Text）
OpenApp.Path&
\学生成绩信息管理.txt"
ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,x
a=Trim（Left（x,10））
b=Trim（Mid（x,11,20））
c=Trim（Mid（x,31,20））
Ifdh=bThen
MsgBoxa&
Chr（13）&
b&
c
EndIf
Loop
Close#1
PrivateSubForm_Unload（CancelAsInteger）
OnErrorResumeNext
PrivateSubPicture1_Click（）
3姓名查询代码
PrivateSubCommand2_Click（）
xm=Trim（Text2.Text）
Ifxm=aThen
4逐条查询代码
Input#1,x
a=Trim（Left（x,20））
b=Trim（Mid（x,21,20））
c=Trim（Mid（x,41,20））
Ifdh=bOrdh=cThen
PrivateSubCommand3_Click（）
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
PrivateSubCommand4_Click（）
IfNotEOF
（1）Then
Text3.Text=Trim（Left（x,10））
Text4.Text=Trim（Mid（x,11,20））
Text5.Text=Trim（Mid（x,31,20））
Else
MsgBox"
已经是最后一条了"
PrivateSubCommand5_Click（）
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
5录入代码
ForAppendAs#1
Print#1,Text1.Text;
Tab（11）;
Text2.Text;
Tab（31）;
Text3.Text
Text1.Text="
"
Text2.Text="
Text3.Text="
UnloadMe
6修改代码
DimnAsInteger
DimnumAsInteger
\学生成绩信息管理temp.txt"
ForOutputAs#2
Fori=1Ton-1
LineInput#1,a
Print#2,a
Nexti
Print#2,Text1.Text;
Text3.Text
Fori=n+1Tonum
Close#2
KillApp.Path&
NameApp.Path&
\电话.txt"
num=0
HScroll1.Min=1
num=num+1
HScroll1.Max=num
PrivateSubHScroll1_Change（）
Fori=1ToHScroll1.Value
Text1.Text=Trim（Left（x,10））
Text2.Text=Trim（Mid（x,11,20））
Text3.Text=Trim（Mid（x,31,20））
n=HScroll1.Value
7删除代码
k=MsgBox（"
是否确定要删除？
vbYesNo+vbExclamation,"
删除一条数据"
）
Ifk=6Then
num=num-1
EndIf
8参考文献
1．将加伏，张林峰，VisualBasic程序设计教程，北京，北京邮电大学出版社，2004
2．刘天慧，VisualBasic程序设计教程，北京，清华大学出版社，2006
3．曾强聪，VisualBasic6.0程序设计教程，北京：
中国水利水电出版社2003
4．武马群，VisualBasic程序设计教程，北京，北京工业大学出版社，2004
5．张基温。
信息系统开发案例。
北京；
清华大学出版社，1999；
6．党建武。
管理信息系统。
兰州大学出版社，2001；
7．毕庶伟。
管理信息系统分析与设计。
北京，机械工业出版社，1992。
8．黄梯云。
企业管理模型及微型机应用程序。
石家庄，河北人民出版社，1985.
升级会员 