课程设计正文格式.docx
- 文档编号:5703245
- 上传时间:2022-12-31
- 格式:DOCX
- 页数:23
- 大小:201.79KB
课程设计正文格式.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#
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 课程设计 正文 格式