用VB制作学生成管理系统.docVIP

摘要 该学生成绩管理系统是用Visual Basic 制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统。 该系统采用了对窗体、基本控件的应用，选择结构的if语句，循环结构的循环语句for…next结构，菜单设计，过程，数据文件来构建整个程序。 在此报告中重点叙述了学生成绩系统的各个功能，特别是学生的成绩查询和密码修改以及教师和学生的登录。整个系统会以系统结构图、程序流程图、功能模块，让大家能知晓该系统的功能。摘要 1 第一章 任务概述 3 1.1、目标 3 1.2、需求分析 3 1.2.1、鼠标操作 3 1.2.2、键盘操作 3 第二章 总体设计 4 2.1、系统结构图 4 第三章 详细设计 5 3.1、程序运行后的界面 5 3.2、教师的登录界面 5 3.3、教师对学生的成绩管理的界面 6 3.4、教师对学生添加用户的界面 8 3.5、学生的登录界面 10 3.6、学生查询成绩的界面 12 3.7、学生修改密码的界面 13 小结 15 第一章 任务概述 1.1、目标 本系统的目标是建立一套可以对学生的成绩的管理、查询学生的各科成绩、对学生的密码修改的学生成绩管理系统。该系统可以帮助我们更方便的管理学生的成绩，替代了以前的手工操作管理学生的成绩，节约我们珍贵的时间。 1.2、需求分析 根据该系统的需求分析，系统的需求可以分为以下的几个方面： 1.2.1、鼠标操作 你可以利用鼠标点击界面的某些按钮来实现对系统的有关操作。 1.2.2、键盘操作 你可以利用键盘对该系统的某些操作。第二章 总体设计 2.1、系统结构图 图2-1 系统结构图 第三章 详细设计 3.1、程序运行后的界面 图3-1 系统界面 3.2、教师的登录界面 图3-2 教师登录界面 代码： Private Sub Command1_Click() Dim usename As String, pwd As String’定义用户名和用户密码 usename = LCase(Trim(T1.Text)) pwd = T2.Text If usename = admin Then’判断用户名和密码是否正确 If pwd = 123456 Then Unload Me 管理Form.Show Else MsgBox 密码错误！, vbOKOnly + vbInformation, 提示 T2.SetFocus T2.SelLength = 99 End If Else MsgBox 用户名错误！ End If End Sub 3.3、教师对学生的成绩管理的界面 图3-3 成绩管理界面 主要代码： Private Type student ’对student类型和公共变量的定义 num As String * 8 name As String * 6 gs As Integer yy As Integer vb As Integer wl As Integer End Type Dim s As student’记录变量 Dim filenum As Integer’随机文件编号 Dim lastrecord As Long’文件中最后一条记录的编号 Dim position As Long’当前记录编号 Private Sub addCmd_Click()’添加学生的成绩 lastrecord = LOF(filenum) / Len(s) lastrecord = lastrecord + 1 s.num = NumText.Text s.name = NameText.Text s.gs = GsText.Text s.yy = YyText.Text s.vb = VbText.Text s.wl = WlText.Text Put #filenum, lastrecord, s’向随机文件写入数据 NumText.Text = NameText.Text = GsText.Text = YyText.Text = VbText.Text = WlText.Text = End Sub Private Sub cancelCmd_Click()’删除学生的成绩 Dim i As Integer, ft As Integer’定义变量 lastrecord = LOF(filenum) / Len(s) ft = FreeFile() Open student.tmp For Random As ft Len = L