课程设计正文格式.docx
《课程设计正文格式.docx》由会员分享，可在线阅读，更多相关《课程设计正文格式.docx（23页珍藏版）》请在冰豆网上搜索。
课程设计正文格式
学生自然信息管理
1.功能描述
近几年来，计算机的快速发展，使得计算机越来越接近人们的生活，人们可以通过计算机查找自己想要的数据，信息，知识等等。
与以往的人力，脑力，精力相比，它更加方便，快捷，而且它的准确度会更高。
这些优势深受人们的喜爱，对于许多年轻人来说，它还可以节省时间，它的这些功能越来越成为许多年轻人工作的重要工具。
现在我就想用自己所学的知识制作一个学生自然管理系统，该系统包括记录学生的姓名，学号，考试成绩等等。
利用这个系统可以进行对学生的信息进行了解。
我认为这种系统能够方便、高效的用于大学生学习过VisualBasic6.0这门课程。
我认为一个完善的自然信息管理系统应该包括以下几项。
录入：
将学生的基本信息录入到计算机中，包括学生姓名，学号，电话，入学成绩，住址等等。
查询：
如果想要了解学生的基本信息（录入信息）等等。
可以通过查询方式进行查找
修改：
如果学生的信息录入出错或是信息已改，可以通过修改进行改正。
删除：
进行对学生的基本信息的删除。
2.概要设计
（1）设计思想
①构想好本系统的功能，为迎合大众要求，本系统的主要功能主要有录入模块、查询模块、修改模块、删除模块。
②部署好各窗体及其控件，在主查询页面使用菜单控件使系统变得清晰易懂，方便用户使用。
③通过几个窗体间的转换进行查询，并连接数据库，进行程序的编写，完善不足的地方。
（2）总功能模块图
图1总功能模块图
3.详细设计
（1）主窗体设计
（2）创建工程
①打开VisualBasic6.0开发环境,在菜单栏中依次选择“文件”/“创建工程”菜单，弹出“新建工程”对话框。
②在列表中选择“标准EXE”图标以指定新建应用程序的类型为标准的Windows应用程序，然后单击确定按钮单击“确定”按钮即可。
③在工程资源管理器中选择“工程1”图标，然后在属性窗口中将工程名称设置为“学生自然信息管理系统”。
这样学生自然管理系统工程就创建完成了。
（3）创建系统主窗体
在VisualBasic中控件是应用程序界面中最基本的组成部分，我们可以使用这些控件快速地建立交互界面。
常用的内部控件有：
命令按钮、文本框、标签、等。
在项目资源管理器中为项目添加一个Form窗体作为系统主窗体，将其“Name”和“Caption”属性改为“学生自然管理”，将其“StartUpPosition”和“WindowState”属性选择为“0-Manual”，其主要控件的属性如表4所示。
表4主要控件属性
属性
属性值
学生自然管理系统
Name
学生自然管理系统
Caption
学生自然管理系统
StartUpPosition
0-Manual
WindowState
0-Normal
程序代码的设计:
（1）录入模块:
本模块是根据系统提示向六个文本框里输入相应的学生自然信息，然后按确定键，并且为了使系统高速有效的进行操作，旁边还设有关闭键以此来提高系统性
PrivateSubCommand1_Click（）
OpenApp.Path&"\电话.txt"ForAppendAs#1'打开当前文件夹中的"电话.txt"文件
'该文件包括姓名（最多10个字符），电话（最多20个字符），住址（最多20个字符）三部分。
Print#1,Text1.Text;Tab（11）;Text2.Text;Tab（31）;Text3.Text;Tab（51）;Text4.Text;Tab（71）;;Text5.Text;Tab（91）;Text6.Text
'首先填加姓名；第11个位置开始填加学号；第31个位置开始填加电话；第51个位置开始添加专业；第71个位置开始添加地址；第91个位置开始添加高考成绩。
Close#1
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
EnPrivateSubLabel1_Click（）
EndSub
（2）查询模块
1.按学号查询
本模块是仅通过输入学号查询，然后系统自动将库中相应的学生信息显示出来。
PrivateSubCommand1_Click（）'按学号查询
OnErrorResumeNext
dh=Trim（Text1.Text）'要查询的学号存入变量dh中
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,x'读入一行数据放在变量x中
a=Trim（Left（x,10））'最左侧10个字符是姓名，存入变量a中
b=Trim（Mid（x,11,20））'接下来的20个字符是学号，存入变量b中
c=Trim（Mid（x,31,20））'接下来的20个字符是电话，存入变量c中
d=Trim（Mid（x,51,20））'接下来的20个字符是专业，存入变量b中
e=Trim（Mid（x,71,20））'接下来的20个字符是地址，存入变量c中
f=Trim（Mid（x,91,20））'接下来的20个字符是高考成绩，存入变量f中
Ifdh=bThen
MsgBoxa&Chr（13）&b&Chr（13）&c&Chr（13）&d&Chr（13）&e&Chr（13）&f'chr（13）起换行作用
EndIf
Loop
Close#1
EndPrivateSubForm_Unload（CancelAsInteger）
OnErrorResumeNext
Close#1
EndSub
PrivateSubLabel1_Click（）
EndSub
2.按姓名查询:
本模块是通过输入学生的姓名，然后系统将库中相应的学生信息显示出来
PrivateSubCommand2_Click（）'按姓名查询
OnErrorResumeNext
xm=Trim（Text2.Text）'要查询的姓名存入变量xm中
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,x'读入一行数据放在变量x中
a=Trim（Left（x,10））'最左侧10个字符是姓名，存入变量a中
b=Trim（Mid（x,11,20））'接下来的20个字符是学号，存入变量b中
c=Trim（Mid（x,31,20））'接下来的20个字符是电话，存入变量c中
d=Trim（Mid（x,51,20））'接下来的20个字符是专业，存入变量b中
e=Trim（Mid（x,71,20））'接下来的20个字符是地址，存入变量c中
f=Trim（Mid（x,91,20））'接下来的20个字符是高考成绩，存入变量f中
Ifxm=aThen
MsgBoxa&Chr（13）&b&Chr（13）&c&Chr（13）&d&Chr（13）&e&Chr（13）&f'chr（13）起换行作用
EndIf
Loop
Close#1
EndSub
PrivateSubForm_Unload（CancelAsInteger）
OnErrorResumeNext
Close#1
EndSub
PrivateSubLabel2_Click（）
EndSub
3.逐条查询：
本模块是通过逐一向文本框中输入学生的信息，进行查询然后系统将库中相应的学生信息显示出来
PrivateSubCommand1_Click（）
OnErrorResumeNext
dh=Trim（Text1.Text）
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）
Input#1,x
a=Trim（Left（x,20））
b=Trim（Mid（x,21,20））
c=Trim（Mid（x,41,20））
Ifdh=bOrdh=cThen
MsgBoxa&Chr（13）&b&Chr（13）&c'chr（13）起换行作用
EndIf
Loop
Close#1
EndSub
PrivateSubCommand2_Click（）
OnErrorResumeNext
xm=Trim（Text2.Text）
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）
Input#1,x
a=Trim（Left（x,20））
b=Trim（Mid（x,21,20））
c=Trim（Mid（x,41,20））
Ifxm=aThen
MsgBoxa&Chr（13）&b&Chr（13）&c'chr（13）起换行作用
EndIf
Loop
Close#1
EndSub
PrivateSubCommand3_Click（）
OpenApp.Path&"\电话.txt"ForInputAs#1
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
EndSub
PrivateSubCommand4_Click（）
IfNotEOF
（1）Then
LineInput#1,x'读入一条数据
Text3.Text=Trim（Left（x,10））'姓名存入text3中
Text4.Text=Trim（Mid（x,11,20））'学号存入text4中
Text5.Text=Trim（Mid（x,31,20））'电话存入text5中
Text1.Text=Trim（Mid（x,51,20））'专业存入text4中
Text2.Text=Trim（Mid（x,71,20））'地址存入text5中
Text6.Text=Trim（Mid（x,91,20））'高考成绩存入text6中
Else
MsgBox"已经是最后一条了"
EndIf
EndSub
PrivateSubCommand5_Click（）
Close#1
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
EndSub
PrivateSubForm_Load（）
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
EndSub
PrivateSubForm_Unload（CancelAsInteger）
Close#1
EndSub
PrivateSubLabel3_Click（）
EndSub
4.按电话查询:
本模块是通过输入学生的电话，就能查询到学生的全部信息。
PrivateSubCommand1_Click（）'按电话号码查询
OnErrorResumeNext
dh=Trim（Text1.Text）'要查询的电话号码存入变量dh中
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,x'读入一行数据放在变量x中
a=Trim（Left（x,10））'最左侧10个字符是姓名，存入变量a中
b=Trim（Mid（x,11,20））'接下来的20个字符是学号，存入变量b中
c=Trim（Mid（x,31,20））'接下来的20个字符是电话，存入变量c中
d=Trim（Mid（x,51,20））'接下来的20个字符是专业，存入变量b中
e=Trim（Mid（x,71,20））'接下来的20个字符是地址，存入变量c中
f=Trim（Mid（x,91,20））'接下来的20个字符是高考成绩，存入变量f中
Ifdh=cThen
MsgBoxa&Chr（13）&b&Chr（13）&c&Chr（13）&d&Chr（13）&e&Chr（13）&f'chr（13）起换行作用
EndIf
Loop
Close#1
EndSub
PrivateSubForm_Load（）
OnErrorResumeNext
Close#1
EndSub
PrivateSubLabel1_Click（）
EndSub
5.按专业查查询：
本模块是通过输入学生的专业进行查询，进行查询然后系统将库中相应的学生信息显示出来
PrivateSubCommand1_Click（）'按专业查询
OnErrorResumeNext
dh=Trim（Text1.Text）'要查询的专业存入变量dh中
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,x'读入一行数据放在变量x中
a=Trim（Left（x,10））'最左侧10个字符是姓名，存入变量a中
b=Trim（Mid（x,11,20））'接下来的20个字符是学号，存入变量b中
c=Trim（Mid（x,31,20））'接下来的20个字符是电话，存入变量c中
d=Trim（Mid（x,51,20））'接下来的20个字符是专业，存入变量b中
e=Trim（Mid（x,71,20））'接下来的20个字符是地址，存入变量c中
f=Trim（Mid（x,91,20））'接下来的20个字符是高考成绩，存入变量f中
Ifdh=dThen
MsgBoxa&Chr（13）&b&Chr（13）&c&Chr（13）&d&Chr（13）&e&Chr（13）&f'chr（13）起换行作用
EndIf
Loop
Close#1
EndSub
PrivateSubForm_Load（）
OnErrorResumeNext
Close#1
EndSub
PrivateSubLabel1_Click（）
EndSub
6.按地址查询：
本模块是通过输入学生的地址进行查询，进行查询然后系统将库中相应的学生信息显示出来
PrivateSubCommand1_Click（）'按地址查询
OnErrorResumeNext
dh=Trim（Text1.Text）'要查询的地址存入变量dh中
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,x'读入一行数据放在变量x中
a=Trim（Left（x,10））'最左侧10个字符是姓名，存入变量a中
b=Trim（Mid（x,11,20））'接下来的20个字符是学号，存入变量b中
c=Trim（Mid（x,31,20））'接下来的20个字符是电话，存入变量c中
d=Trim（Mid（x,51,20））'接下来的20个字符是专业，存入变量b中
e=Trim（Mid（x,71,20））'接下来的20个字符是地址，存入变量c中
f=Trim（Mid（x,91,20））'接下来的20个字符是高考成绩，存入变量f中
Ifdh=eThen
MsgBoxa&Chr（13）&b&Chr（13）&c&Chr（13）&d&Chr（13）&e&Chr（13）&f'chr（13）起换行作用
EndIf
Loop
Close#1
EndSub
PrivateSubForm_Load（）
OnErrorResumeNext
Close#1
EndSub
PrivateSubLabel1_Click（）
EndSub
7.高考成绩查询：
本模块是通过输入学生的高考成绩进行查询，进行查询然后系统将库中相应的学生信息显示出来
PrivateSubCommand1_Click（）'按高考成绩查询
OnErrorResumeNext
dh=Trim（Text1.Text）'要查询的高考成绩存入变量dh中
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,x'读入一行数据放在变量x中
a=Trim（Left（x,10））'最左侧10个字符是姓名，存入变量a中
b=Trim（Mid（x,11,20））'接下来的20个字符是学号，存入变量b中
c=Trim（Mid（x,31,20））'接下来的20个字符是电话，存入变量c中
d=Trim（Mid（x,51,20））'接下来的20个字符是专业，存入变量b中
e=Trim（Mid（x,71,20））'接下来的20个字符是地址，存入变量c中
f=Trim（Mid（x,91,20））'接下来的20个字符是高考成绩，存入变量f中
Ifdh=fThen
MsgBoxa&Chr（13）&b&Chr（13）&c&Chr（13）&d&Chr（13）&e&Chr（13）&f'chr（13）起换行作用
EndIf
Loop
Close#1
EndSub
PrivateSubForm_Load（）
OnErrorResumeNext
Close#1
EndSub
PrivateSubLabel1_Click（）
EndSub
（3）修改模块：
当用户选择修改模块后，如果哪个有问题，可以随时更改。
DimnAsInteger'n用来记录要修改第几条
DimnumAsInteger'num用来记录一共有多少条
PrivateSubCommand4_Click（）
'此段程序实现的是：
将#1号文件（旧文件）的内容读出来，修改后写入#2号文件（临时文件）中。
'最后删除原来的电话.txt（旧文件），将改后的临时文件重新命名为电话.txt
OpenApp.Path&"\电话.txt"ForInputAs#1'以读方式打开当前文件夹中的"电话.txt"文件
OpenApp.Path&"\电话temp.txt"ForOutputAs#2'在当前文件夹中创建"电话temp.txt"文件
Fori=1Ton-1
LineInput#1,a
Print#2,a
Nexti'第n条之前的不动
LineInput#1,a'修改第n条
Print#2,Text1.Text;Tab（11）;Text2.Text;Tab（31）;Text3.Text
Fori=n+1Tonum'第n条之后的也不动
LineInput#1,a
Print#2,a
Nexti
Close#2
Close#1
KillApp.Path&"\电话.txt"'删除原来的电话.txt文件
NameApp.Path&"\电话temp.txt"AsApp.Path&"\电话.txt"
'将电话temp.txt文件改名为电话.txt
EndSub
PrivateSubCommand5_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
'此段程序实现的是：
设定滑块的最小值
（1）和最大值（num）
num=0
HScroll1.Min=1
OpenApp.Path&"\电话.txt"ForInputAs#1
DoWhileNotEOF
（1）'EOF
（1）表示#1文件的结束
LineInput#1,a
num=num+1'num表示一共有几条数据
Loop
Close#1
HScroll1.Max=num
EndSub
PrivateSubHScroll1_Change（）
'此段程序实现的是：
当滑块移动后，根据滑块的新位置找到某条数据，并显示
OpenApp.Path&"\电话.txt"ForInputAs#1
Fori=1ToHScroll1.Value
LineInput#1,x'读入一条数据
Nexti
Text1.Text=Trim（Left（x,10））'姓名存入text1中显示
Text2.Text=Trim（Mid（x,11,20））'学号存入text2中显示
Text3.Text=Trim（Mid（x,31,20））'电话存入text3中显示
Text4.Text=Trim（Mid（x,51,20））'专业存入text4中显示
Text5.Text=Trim（Mid（x,71,20））'地址存入text5中显示
Text6.Text=Trim（Mid（x,91,20））'高考成绩存入text6中显示
Close#
升级会员 