可视化编程作业关于学生信息管理系统的程序设计与实现模板.doc

《可视化编程》课程作业

论 文 题 目：相关学生信息管理
系统程序设计和实现
姓 名: 李周
班 级: 材物0801
学 号:
指 导 教 师: 佘名高
设 计 时 间：11月16日

学生信息管理系统
设计汇报
李周
一、 设计目标
本设计选择比较贴近我们日常生活学生信息管理来进行程序实现，将其作为可视化编程公选课结课作业，验证本身学习效果，同时期望利用所学基础知识和技能，进行简单数据库应用程序设计。期望经过编程实践，熟悉巩固所学知识，以使本身达成熟练掌握VB语言基础知识和技能，基础掌握面向对象程序开发基础思绪和方法，了解利用数据控件访问、浏览数据库信息基础知识，为以后深入深入学习，奠定基础。
二、专题介绍
学生管理系统开发目标是为了实现学生课程、学籍信息化管理。本系统需要完成功效有：系统管理、学籍管理、班级管理、课程管理、成绩管理和帮助功效。
1.系统管理：该模块关键任务是维护系统正常运行和安全性设置,包含添加用户、修改密码、退出系统等等。
2.学籍管理：可对学生进行添加、删除、修改、查找等功效，学生属性有：学号、姓名、性别、出生年月、班级（来自于系统中保留班级）、联络电话、入校日期、家庭地址和备注等属性。
3.班级管理：可对班级进行添加、修改、查询等功效，班级属性有：名称、班主任（来自于系统中保留老师）、年级、班级教室等属性。
4.课程管理：可对每一个年级上课科目进行添加、删除、修改等功效，课程属性有：所属年级、课程编号、课程名称、课程性质和备注等属性。
5.成绩管理：可对每一个班级上课科目标学生成绩进行添加、删除、修改、查找和报表输出等功效，成绩属性有：学生姓名、所属班级（来自于系统中保留班级）、课程名、成绩、备注等属性。
三、系统模块实现
在系统中包含以下功效：系统管理、学生信息管理、课程信息管理、成绩信息管理、班级信息管理。依据上述各项功效进行集中、分块，根据结构化程序设计要求能够得到图1所表示系统功效模块版图和图2所表示系统运行步骤图。

系统各模块关系图1

系统运行步骤图2

登录界面
输入用户名、密码
输入是否正确
系统主界面
系统退出
输入错误三次
图2
正确
错误
提醒信息错误

本系统共分三大部分

1．系统登录模块

为了系统安全，在进入系统之前首先会出现一个登录模块，用户只有在输入正确用户名和正确密码以后，才能进入系统。而且输入错误超出三次将自动断开链接，退出系统

用户登录窗体中放置了两个文本框（Textbox）,用来输入用户名和密码；两个按钮（Command Button）用来确定或取消登录。

2．系统主界面模块

登陆成功后，即可进入系统主界面模块。主界面为进入学生管理系统各模块入口，用户可依据窗体上面各个模块名称单击进入各个管理模块，从而进行对系统管理操作。
3．各功效模块（部分）
<1>修改密码
在系统主界面下，进入修改密码窗体，用户可依据需要修改自己密码。在这个窗体中放置了三个文本框，用来输入原密码和新密码和确定新密码；两个按钮用来确定是否修改密码；三个标签用来标示文本框内容。密码修改界面关键包含新设置密码、和确定等功效。

<2>添加班级信息
用户经过系统主界面下班级管理模块进入班级信息添加窗口。在这个窗体中放置了四个文本框，用来输入班级名称、年级和教导员和班级教室等信息；两个按钮用来确定是否进行添加；四个标签用来标示文本框内容。用户输入新班级信息后点击“确定”即可进行添加，点击“取消”则返回主界面
<3>查看及修改学生信息

选择主窗体中学籍管理模块下查询或修改学生信息，就可进入查看及修改学生信息窗体，在该窗体中我们能够对学生学号、姓名、性别、出生日期、班级、家庭地址等学生信息进行查看和修改。在窗体上放置多个文本框和下拉式文本框，用来显示和输入学籍信息；两个按钮用来确定是否修改学籍信息；一个按钮用来退出窗体；多个标签用来提醒文本框中需要输入内容。同时还使用了一个Data控件来连接数据库。
<4>设置年级课程

用户能够经过点击主界面下课程管理菜单进入课程管理模块下年级课程设置窗体，能够对每一个年级课程进行设置。在窗体上放置一个下拉式文本框，用来选择年级（年级信息事先已录入）；两个组合框（Listbox）用来显示年级课程和已选课程；两个按钮用来确定是否修设置课程新息；一个按钮用来退出窗体；两个各个标签用来添加课程和删除已选择课程。

四、部分代码示例
1．系统登录部分代码

Private Sub cmdOK_Click()
Dim j As Integer
i = i - 1 'i用来判定登录次数，超出3次自动退出
If Text1.Text = "whlgdx" And Text2.Text = "123456" Then
form2.Show
Unload Form1
Else
If i = 0 Then
MsgBox "3次输入错误，系统断开链接", 0 + 48, "警告！"
Unload Form1
Else
j = MsgBox("用户名或密码输入错误,你还有" + Str(i) + "次机会", 1 + 16, "信息错误！")
Text1.Text = ""
Text2.Text = ""
If j = 1 Then
Form1.Show
Else
Unload Form1
End If
End If
End If
End Sub

2．系统主界面入口代码

Private Sub A2_Click(Index As Integer)
Form5.Show '进入添加学生信息窗口
Unload form2
End Sub

Private Sub A3_Click(Index As Integer)
Unload form2
Form6.Show '进入班级信息窗口
End Sub

Private Sub E1_Click(Index As Integer)
Unload form2
Form1.Show '退出系统，返回登录界面
End Sub

Private Sub R1_Click(Index As Integer)
Form3.Show '进入修改密码界面
Unload form2
End Sub

Private Sub R2_Click(Index As Integer)
Form4.Show '进入查询及修改学生信息窗口
Unload form2
End Sub

End Sub

3．添加学生信息代码

Dim i As Integer '定义局部变量
Dim sindex As Integer
Dim infr As String
Dim Stu_ID As String
Dim Stu_Name As String
Dim Stu_Gender As String
Dim Born_Date As String
Dim Class_Num As String
Dim Tele_Num As String
Dim Ru_Date As String
Dim Address As String
Dim Comment As String

Private Sub Combo1_Click()
Stu_Gender = Combo1.Text
End Sub

Private Sub Combo2_Change()
Class_Num = Combo2.Text
End Sub

Private Sub Command1_Click()
infr = Stu_ID + " " + Stu_Name + " " + Stu_Gender + " " + Born_Date + " " + Class_Num + " " + Tele_Num + " " + Ru_Date + " " + Address
List1.AddItem infr, i
i = i + 1
End Sub '添加信息统计

Private Sub Command2_Click()
Unload Form5
form2.Show
End Sub

End Sub '取消添加操作

Private Sub Command4_Click()
List1.RemoveItem sindex
i = i - 1
End Sub '删除信息统计
'初始化窗体
Private Sub Form_Load()
i = 0
sindex = 0
End Sub

Private Sub List1_Click()
sindex = List1.ListIndex
End Sub

Private Sub Text1_Change()
Stu_ID = Text1.Text '统计改动信息
End Sub

Private Sub Text2_Change()
Stu_Name = Text2.Text '统计改动信息
End Sub

Private Sub Text3_Change()
Born_Date = Text3.Text '统计改动信息
End Sub

参考资料：
[1]杨富国·Visual Basic程序开发案例解析·北京：清华大学出版社，
[2]杜秋华·可视化编程应用—Visual Basic6.0（第二版）·北京：人民邮电出版社，
[3]杜春玲·Visual Basic6.0程序设计教程·西安：西北工业大学出版社，