学生自然信息管理。
1.功能描述。
近几年来，计算机的快速发展，使得计算机越来越接近人们的生活，人们可以通过计算机查找自己想要的数据，信息，知识等等。与以往的人力，脑力，精力相比，它更加方便，快捷，而且它的准确度会更高。这些优势深受人们的喜爱，对于许多年轻人来说，它还可以节省时间，它的这些功能越来越成为许多年轻人工作的重要工具。
现在我就想用自己所学的知识制作一个学生自然管理系统，该系统包括记录学生的姓名，学号，考试成绩等等。利用这个系统可以进行对学生的信息进行了解。我认为这种系统能够方便、高效的用于大学生学习过visual basic 6.
0这门课程。我认为一个完善的自然信息管理系统应该包括以下几项。
录入：将学生的基本信息录入到计算机中，包括学生姓名，学号，**，入学成绩，住址等等。
查询：如果想要了解学生的基本信息（录入信息）等等。可以通过查询方式进行查找。
修改：如果学生的信息录入出错或是信息已改，可以通过修改进行改正。
删除：进行对学生的基本信息的删除。
2.概要设计。
（1）设计思想。
①构想好本系统的功能，为迎合大众要求，本系统的主要功能主要有录入模块、查询模块、修改模块、删除模块。
②部署好各窗体及其控件，在主查询页面使用菜单控件使系统变得清晰易懂，方便用户使用。
③通过几个窗体间的转换进行查询，并连接数据库，进行程序的编写，完善不足的地方。
（2）总功能模块图。
图1总功能模块图。
3.详细设计。
（1）主窗体设计。
（2）创建工程。
打开visual basic6.0开发环境，在菜单栏中依次选择“文件”/“创建工程”菜单，弹出“新建工程”对话框。
在列表中选择“标准exe”图标以指定新建应用程序的类型为标准的windows应用程序，然后单击确定按钮单击“确定”按钮即可。
在工程资源管理器中选择“工程1”图标，然后在属性窗口中将工程名称设置为“学生自然信息管理系统”。
这样学生自然管理系统工程就创建完成了。
(3）创建系统主窗体。
在visual basic中控件是应用程序界面中最基本的组成部分，我们可以使用这些控件快速地建立交互界面。常用的内部控件有：命令按钮、文本框、标签、等。
在项目资源管理器中为项目添加一个form窗体作为系统主窗体，将其“name”和“caption”属性改为“学生自然管理”， 将其“startupposition”和“windowstate”属性选择为“0-manual”，其主要控件的属性如表4所示。
表4 主要控件属性。
程序**的设计：
1)录入模块：
本模块是根据系统提示向六个文本框里输入相应的学生自然信息，然后按确定键，并且为了使系统高速有效的进行操作，旁边还设有关闭键以此来提高系统性。
private sub command1_click()
open & **。txt" for append as #1 '打开当前文件夹中的"**。txt"文件。
'该文件包括姓名（最多10个字符），**（最多20个字符），住址（最多20个字符）三部分。
print #1, tab(11); tab(31); tab(51); tab(71); tab(91);
' 首先填加姓名； 第11个位置开始填加学号；第31个位置开始填加**；第51个位置开始添加专业；第71个位置开始添加地址；第91个位置开始添加高考成绩。
close #
end sub
private sub command2_click()
unload me
end sub
private sub form_load()
enprivate sub label1_click()
end sub
2）查询模块。
1.按学号查询。
本模块是仅通过输入学号查询，然后系统自动将库中相应的学生信息显示出来。
private sub command1_click() 按学号查询。
on error resume next
dh = trim( '要查询的学号存入变量dh中。
open & **。txt" for input as #
do while not eof(1)
line input #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中。
if dh = b then
msgbox a & chr(13) &b & chr(13) &c & chr(13) &d & chr(13) &e & chr(13) &f 'chr(13)起换行作用。
end if
loopclose #
endprivate sub form_unload(cancel as integer)
on error resume next
close #
end sub
private sub label1_click()
end sub
2.按姓名查询：
本模块是通过输入学生的姓名，然后系统将库中相应的学生信息显示出来。
private sub command2_click() 按姓名查询。
on error resume next
xm = trim( '要查询的姓名存入变量xm中。
open & **。txt" for input as #
do while not eof(1)
line input #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中。
if xm = a then
msgbox a & chr(13) &b & chr(13) &c & chr(13) &d & chr(13) &e & chr(13) &f 'chr(13)起换行作用。
end if
loopclose #
end sub
private sub form_unload(cancel as integer)
on error resume next
close #
end sub
private sub label2_click()
end sub
3.逐条查询：
本模块是通过逐一向文本框中输入学生的信息，进行查询然后系统将库中相应的学生信息显示出来。
private sub command1_click()
on error resume next
dh = trim(
open & **。txt" for input as #
do while not eof(1)
input #1, x
a = trim(left(x, 20))
b = trim(mid(x, 21, 20))
c = trim(mid(x, 41, 20))
if dh = b or dh = c then
msgbox a & chr(13) &b & chr(13) &c 'chr(13)起换行作用。
end if
loopclose #
end sub
private sub command2_click()
on error resume next
xm = trim(
open & **。txt" for input as #
do while not eof(1)
课程设计报告正文格式
1 题目与要求。1.1 问题提出。学生信息应该包含学号 姓名 班级 三门课成绩和总成绩。系统要能够实现对学生成绩的输入 输出 删除 修改 排序 显示不及格学生信息。能够按学号或姓名查找学生的信息。1.2 本系统涉及的知识点。结构体数组的定义与引用 函数的定义与调用 局部变量和全局变量 多函数的链接与...
DS课程设计报告正文格式
1 题目与要求 左对齐，宋体粗四号 1.1 问题提出 左对齐，宋体粗小四号 详细叙述本人所要实现的题目中的问题 宋体，小四 1.2 本系统涉及的知识点。描述本设计所采用的数据结构的逻辑结构 宋体，小四 1.3 功能要求。叙述本人所要实现的题目的功能 宋体，小四 2 功能设计。2.1 数据结构定义。定...
DS课程设计报告正文格式
1 题目与要求 左对齐，宋体粗四号 1.1 问题提出 左对齐，宋体粗小四号 详细叙述本人所要实现的题目中的问题 宋体，小四 1.2 本系统涉及的知识点。描述本设计所采用的数据结构的逻辑结构 宋体，小四 1.3 功能要求。叙述本人所要实现的题目的功能 宋体，小四 2 功能设计。2.1 数据结构定义。定...