可视化编程作业关于学生信息管理系统的程序设计与实现.docx
《可视化编程作业关于学生信息管理系统的程序设计与实现.docx》由会员分享，可在线阅读，更多相关《可视化编程作业关于学生信息管理系统的程序设计与实现.docx（11页珍藏版）》请在冰豆网上搜索。
可视化编程作业关于学生信息管理系统的程序设计与实现
可视化编程作业--关于学生信息管理系统的程序设计与实现
论文题目：
关于学生信息治理
系统的程序设计与实现
姓名:
李周
班级:
材物0801
学号:
0120801020103
指导教师:
佘名高
设计时间：
2010年11月16日
学生信息治理系统
设计报告
0120801020103李周
一、设计目的
本设计选取比较贴近我们日常生活的学生信息治理来进行程序的实现，将其作为可视化编程公选课的结课作业，验证自身的学习成效，同时期望利用所学的差不多知识和技能，进行简单数据库应用程序设计。
期望通过编程实践，熟悉巩固所学知识，以使自身达到熟练把握VB语言的差不多知识和技能，差不多把握面向对象程序开发的差不多思路和方法，了解利用数据控件访咨询、扫瞄数据库信息的差不多知识，为今后的进一步深入学习，奠定基础。
二、主题介绍
学生治理系统的开发目的是为了实现学生课程、学籍的信息化治理。
本系统需要完成的功能有：
系统治理、学籍治理、班级治理、课程治理、成绩治理以及关心功能。
1.系统治理：
该模块的要紧任务是爱护系统的正常运行和安全性设置,包括添加用户、修改密码、退出系统等等。
2.学籍治理：
可对学生进行添加、删除、修改、查找等功能，学生属性有：
学号、姓名、性不、出生年月、班级（来自于系统中储存的班级）、联系电话、入校日期、家庭地址和备注等属性。
3.班级治理：
可对班级进行添加、修改、查询等功能，班级属性有：
名称、班主任（来自于系统中储存的教师）、年级、班级教室等属性。
4.课程治理：
可对每一个年级的上课科目进行添加、删除、修改等功能，课程属性有：
所属年级、课程编号、课程名称、课程性质和备注等属性。
5.成绩治理：
可对每一个班级的上课科目的学生成绩进行添加、删除、修改、查找和报表输出等功能，成绩属性有：
学生姓名、所属班级（来自于系统中储存的班级）、课程名、成绩、备注等属性。
三、系统模块的实现
在系统中包括以下功能：
系统治理、学生信息治理、课程信息治理、成绩信息治理、班级信息治理。
按照上述各项功能进行集中、分块，按照结构化程序设计的要求能够得到如图1所示的系统功能模块版图和图2所示的系统运行流程图。
系统各模块关系图1
系统运行流程图2
本系统共分三大部分
1．系统登录模块
为了系统的安全，在进入系统之前第一会显现一个登录模块，用户只有在输入正确的用户名和正确的密码之后，才能进入系统。
而且输入错误超过三次将自动断开链接，退出系统
用户登录窗体中放置了两个文本框（Textbox）,用来输入用户名和密码；两个按钮（CommandButton）用来确定或者取消登录。
2．系统主界面模块
登陆成功后，即可进入系统主界面模块。
主界面为进入学生治理系统各模块的入口，用户可按照窗体上面各个模块名称单击进入各个治理模块，从而进行对系统的治理操作。
3．各功能模块（部分）
<1>修改密码
在系统主界面下，进入修改密码窗体，用户可按照需要修改自己的密码。
在那个窗体中放置了三个文本框，用来输入原密码和新密码以及确认新密码；两个按钮用来确定是否修改密码；三个标签用来标示文本框的内容。
密码修改界面要紧包括新设置密码、以及确认等功能。
<2>添加班级信息
用户通过系统主界面下班级治理模块进入班级信息添加窗口。
在那个窗体中放置了四个文本框，用来输入班级名称、年级以及辅导员和班级教室等信息；两个按钮用来确定是否进行添加；四个标签用来标示文本框的内容。
用户输入新班级信息后点击“确认”即可进行添加，点击“取消”则返回主界面
<3>查看及修改学生信息
选择主窗体中学籍治理模块下的查询或修改学生信息，就可进入查看及修改学生信息的窗体，在该窗体中我们能够对学生的学号、姓名、性不、出生日期、班级、家庭地址等学生的信息进行查看和修改。
在窗体上放置多个文本框和下拉式文本框，用来显示和输入学籍信息；两个按钮用来确定是否修改学籍信息；一个按钮用来退出窗体；多个标签用来提示文本框中需要输入的内容。
同时还使用了一个Data控件来连接数据库。
<4>设置年级课程
用户能够通过点击主界面下的课程治理菜单进入课程治理模块下的年级课程设置窗体，能够对每一个年级的课程进行设置。
在窗体上放置一个下拉式文本框，用来选择年级（年级信息事先已录入）；两个组合框（Listbox）用来显示年级课程和已选课程；两个按钮用来确定是否修设置课程新息；一个按钮用来退出窗体；两个各个标签用来添加课程和删除已选择的课程。
四、部分代码示例
1．系统登录部分代码
PrivateSubcmdOK_Click（）
DimjAsInteger
i=i-1'i用来判定登录次数，超过3次自动退出
IfText1.Text="whlgdx"AndText2.Text="123456"Then
form2.Show
UnloadForm1
Else
Ifi=0Then
MsgBox"3次输入错误，系统断开链接",0+48,"警告！
"
UnloadForm1
Else
j=MsgBox（"用户名或密码输入错误,你还有"+Str（i）+"次机会",1+16,"信息错误！
"）
Text1.Text=""
Text2.Text=""
Ifj=1Then
Form1.Show
Else
UnloadForm1
EndIf
EndIf
EndIf
EndSub
2．系统主界面入口代码
PrivateSubA2_Click（IndexAsInteger）
Form5.Show'进入添加学生信息窗口
Unloadform2
EndSub
PrivateSubA3_Click（IndexAsInteger）
Unloadform2
Form6.Show'进入班级信息窗口
EndSub
PrivateSubE1_Click（IndexAsInteger）
Unloadform2
Form1.Show'退出系统，返回登录界面
EndSub
PrivateSubR1_Click（IndexAsInteger）
Form3.Show'进入修改密码界面
Unloadform2
EndSub
PrivateSubR2_Click（IndexAsInteger）
Form4.Show'进入查询及修改学生信息窗口
Unloadform2
EndSub
EndSub
3．添加学生信息代码
DimiAsInteger'定义局部变量
DimsindexAsInteger
DiminfrAsString
DimStu_IDAsString
DimStu_NameAsString
DimStu_GenderAsString
DimBorn_DateAsString
DimClass_NumAsString
DimRu_DateAsString
DimAddressAsString
DimCommentAsString
PrivateSubCombo1_Click（）
Stu_Gender=Combo1.Text
EndSub
PrivateSubCombo2_Change（）
Class_Num=Combo2.Text
EndSub
PrivateSubCommand1_Click（）
List1.AddIteminfr,i
i=i+1
EndSub'添加信息记录
PrivateSubCommand2_Click（）
UnloadForm5
form2.Show
EndSub
EndSub'取消添加操作
PrivateSubCommand4_Click（）
List1.RemoveItemsindex
i=i-1
EndSub'删除信息记录
'初始化窗体
PrivateSubForm_Load（）
i=0
sindex=0
EndSub
PrivateSubList1_Click（）
sindex=List1.ListIndex
EndSub
PrivateSubText1_Change（）
Stu_ID=Text1.Text'记录改动信息
EndSub
PrivateSubText2_Change（）
Stu_Name=Text2.Text'记录改动信息
EndSub
PrivateSubText3_Change（）
Born_Date=Text3.Text'记录改动信息
EndSub
参考资料：
[1]杨富国·VisualBasic程序开发案例解析·北京：
清华大学出版社，2006
[2]杜秋华·可视化编程应用—VisualBasic6.0（第二版）·北京：
人民邮电出版社，2007
[3]杜春玲·VisualBasic6.0程序设计教程·西安：
西北工业大学出版社，2008
升级会员 