VB实训报告样本.doc

《VB实训报告样本.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、安徽经济管理学院课程实训报告课程名称：姓名：学号：专业班级：系（院）：设计时间：设计地点：成绩：指导教师评语：签名：目录一实训目的2二实训内容2三实训步骤23.1数据库的设计23.2界面设计33.3报表设计15四程序的调试和运行16五实训总结20一实训目的面向对象程序设计实训是电子商务及相关专业的实践环节之一，是学习完《面向对象程序设计》课程后进行的一次全面的综合练习。其目的在于加深对面向对象可视化程序设计基本概念的理解，掌握应用VB6.0设计应用程序的基本方法和基本技能，提高学生的实践动手能力。

2、二实训内容设计一个小型学生成绩管理系统，功能模块包括：系统管理、成绩管理、成绩统计、报表管理等模块。1.用户管理：实现用户的添加、删除、密码修改、用户登录等功能。2.成绩管理：实现学生的成绩录入、修改、删除、查询和浏览3.成绩的统计：可以实现课程的平均分，总分，最低分和最高分；统计每个学生的总分，并求出考试总成绩的最高分好最低分。4.报表管理：可以打印学生的成绩和用户信息。三实训步骤3.1数据库的设计数据库中包含2个表，user表和成绩表。11)user表的设计2)字段名称数据类型字段大小ID（主

3、键）自动编号长整型user文本20pass文本50level文本22)user表的内容21）成绩表的设计字段名称数据类型字段大小学号（主键）文本20xh文本10xb文本4bj文本20database数字单精度型English数字单精度型vb数字单精度型flash数字单精度型zf数字单精度型2）成绩表的内容3.2界面设计1登陆界面的设计控件名称属性属性值Label1caption用户名称font华文行楷小四号Label2caption用户密码font华文行楷小四号Label3caption学生成绩管

4、理系统font华文新魏粗体小一号Text1,Text2text置空Command1caption确定Command2caption取消Frame1caption用户权限Option1caption系统管理员Option2caption普通用户Data1databasename链接到相关数据库Recordsettype0-tableRecordsourceUSERvisiblefalse该程序实现的代码是：PrivateSubCommand1_Click()Data1.Recordset.MoveF

5、irstDoWhileNotData1.Recordset.EOFIfData1.Recordset.Fields(“user”).Value=Trim(Text1.Text)AndData1.Recordset.Fields(“pass”).Value=Trim(Text2.Text)ThenIfOption1.Value=TrueThenForm1.HideMDIForm1.ShowEndIfIfOption2.Value=TrueThenForm1.HideMDIForm1.ShowMDIF

6、orm1.xinzeng.Enabled=FalseMDIForm1.shangchu.Enabled=FalseMDIForm1.lr.Enabled=FalseMDIForm1.bj.Enabled=FalseMDIForm1.tj.Enabled=FalseEndIfExitDoElseData1.Recordset.MoveNextEndIfLoopIfData1.Recordset.EOF=TrueThenMsgBox(“用户名称或用户密码不正确，请重新输入”)Text1.Text=“”

7、Text2.Text=“”Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()EndEndSub2新增用户界面控件名属性属性值Label1caption请输入用户名font华文行楷小四号Lable2caption请输入密码Font华文行楷小四号Lable3caption权限Font华文行楷小四号Lable4caption新增用户Font华文宋体三号Fontcolor红色Text1,text2,text3caption置空Data1databasen

8、ame链接到相关数据库RecordsourceUSERvisiblefalseCommand1Caption添加Command2caption返回Command3caption取消MSFlexGrid1DatasourceData1该程序实现的代码是：PrivateSubCommand1_Click()Data1.Recordset.AddNew‘Data1.Recordset.Update‘Data1.RefreshEndSubPrivateSubCommand2_Click()