VB实训报告样本.docVIP

安徽经济管理学院 课程实训报告 课程名称： 姓 名： 学 号： 专业班级： 系 （院）： 设计时间： 设计地点： 指导教师评语： 签名： 目录 一 实训目的 2 二 实训内容 2 三 实训步骤 2 3.1 数据库的设计 2 3.2 界面设计 3 3.3 报表设计 15 四 程序的调试和运行 16 五 实训总结 20 一 实训目的 面向对象程序设计实训是电子商务及相关专业的实践环节之一，是学习完《面向对象程序设计》课程后进行的一次全面的综合练习。其目的在于加深对面向对象可视化程序设计基本概念的理解，掌握应用VB6.0设计应用程序的基本方法和基本技能，提高学生的实践动手能力。 二 实训内容 设计一个小型学生成绩管理系统，功能模块包括： 系统管理、成绩管理、成绩统计、报表管理等模块。 1. 用户管理：实现用户的添加、删除、密码修改、用户登录等功能。 2. 成绩管理：实现学生的成绩录入、修改、删除、查询和浏览 3. 成绩的统计：可以实现课程的平均分，总分，最低分和最高分；统计每个学生的总分，并求出考试总成绩的最高分好最低分。 4. 报表管理：可以打印学生的成绩和用户信息。 三 实训步骤 3.1 数据库的设计 数据库中包含2个表，user表和成绩表。 1 1) user表的设计 字段名称 数据类型 字段大小 ID（主键） 自动编号 长整型 user 文本 20 pass 文本 50 level 文本 2 2) user表的内容 2 1）成绩表的设计 字段名称 数据类型 字段大小 学号（主键） 文本 20 xh 文本 10 xb 文本 4 bj 文本 20 database 数字 单精度型 English 数字 单精度型 vb 数字 单精度型 flash 数字 单精度型 zf 数字 单精度型 2）成绩表的内容 3.2 界面设计 1 登陆界面的设计 控件名称 属性 属性值 Label1 caption 用户名称 font 华文行楷 小四号 Label2 caption 用户密码 font 华文行楷 小四号 Label3 caption 学生成绩管理系统 font 华文新魏 粗体 小一号 Text1, Text2 text 置空 Command1 caption 确定 Command2 caption 取消 Frame1 caption 用户权限 Option1 caption 系统管理员 Option2 caption 普通用户 Data1 databasename 链接到相关数据库 Recordsettype 0-table Recordsource USER visible false 该程序实现的代码是： Private Sub Command1_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(“user”).Value = Trim(Text1.Text) And Data1.Recordset.Fields(“pass”).Value = Trim(Text2.Text) Then If Option1.Value = True Then Form1.Hide MDIForm1.Show End If If Option2.Value = True Then Form1.Hide MDIForm1.Show MDIForm1.xinzeng.Enabled = False MDIForm1.shangchu.Enabled = False MDIForm1.lr.Enabled = False MDIForm1.bj.Enabled = False MDIForm1.tj.Enabled = False End If Exit Do Else Data1.Recordset.MoveNext End If Loop If Data1.Recordset.EOF = True The