__VB实训报告样本

1、 安徽经济管理学院课程实训报告课程名称： 姓 名： 学 号： 专业班级： 系 （院）： 设计时间： 设计地点： 成绩：指导教师评语： 签名： 第 PAGE 20 页目录 TOC o 1-2 h z u HYPERLINK l _Toc294448880 一 实训目的 PAGEREF _Toc294448880 h 2 HYPERLINK l _Toc294448881 二 实训内容 PAGEREF _Toc294448881 h 2 HYPERLINK l _Toc294448882 三 实训步骤 PAGEREF _Toc294448882 h 2 HYPERLINK l _Toc294448

2、883 3.1 数据库的设计 PAGEREF _Toc294448883 h 2 HYPERLINK l _Toc294448884 3.2 界面设计 PAGEREF _Toc294448884 h 3 HYPERLINK l _Toc294448885 3.3 报表设计 PAGEREF _Toc294448885 h 15 HYPERLINK l _Toc294448886 四 程序的调试和运行 PAGEREF _Toc294448886 h 16 HYPERLINK l _Toc294448887 五 实训总结 PAGEREF _Toc294448887 h 20一 实训目的面向对象程序设

3、计实训是电子商务及相关专业的实践环节之一，是学习完面向对象程序设计课程后进行的一次全面的综合练习。其目的在于加深对面向对象可视化程序设计基本概念的理解，掌握应用VB6.0设计应用程序的基本方法和基本技能，提高学生的实践动手能力。二 实训内容设计一个小型学生成绩管理系统，功能模块包括：系统管理、成绩管理、成绩统计、报表管理等模块。1. 用户管理：实现用户的添加、删除、密码修改、用户登录等功能。2. 成绩管理：实现学生的成绩录入、修改、删除、查询和浏览3. 成绩的统计：可以实现课程的平均分，总分，最低分和最高分；统计每个学生的总分，并求出考试总成绩的最高分好最低分。4. 报表管理：可以打印学生的成

4、绩和用户信息。三 实训步骤3.1 数据库的设计数据库中包含2个表，user表和成绩表。1 1) user表的设计字段名称数据类型字段大小ID（主键）自动编号长整型user文本20pass文本50level文本2 2) user表的内容2 1）成绩表的设计 字段名称数据类型字段大小学号（主键）文本20 xh文本10 xb文本4bj文本20database数字单精度型English数字单精度型vb数字单精度型flash数字单精度型zf数字单精度型 2）成绩表的内容3.2 界面设计1 登陆界面的设计 控件名称属性属性值Label1caption用户名称font华文行楷 小四号Label2captio

5、n用户密码font华文行楷 小四号Label3caption学生成绩管理系统font华文新魏 粗体 小一号Text1, Text2text置空Command1caption确定Command2caption取消Frame1caption用户权限Option1caption系统管理员Option2caption普通用户Data1databasename链接到相关数据库Recordsettype0-tableRecordsourceUSERvisiblefalse该程序实现的代码是：Private Sub Command1_Click()Data1.Recordset.MoveFirstDo Wh

6、ile Not Data1.Recordset.EOFIf Data1.Recordset.Fields(“user”).Value = Trim(Text1.Text) And Data1.Recordset.Fields(“pass”).Value = Trim(Text2.Text) ThenIf Option1.Value = True ThenForm1.HideMDIForm1.ShowEnd IfIf Option2.Value = True ThenForm1.HideMDIForm1.ShowMDIForm1.xinzeng.Enabled = FalseMDIForm1.s

7、hangchu.Enabled = FalseMDIForm1.lr.Enabled = FalseMDIForm1.bj.Enabled = FalseMDIForm1.tj.Enabled = FalseEnd IfExit DoElseData1.Recordset.MoveNextEnd IfLoopIf Data1.Recordset.EOF = True ThenMsgBox (“用户名称或用户密码不正确，请重新输入”)Text1.Text = “”Text2.Text = “”Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Clic

8、k()EndEnd Sub2 新增用户界面控件名属性属性值Label1caption请输入用户名font华文行楷 小四号Lable2caption请输入密码Font华文行楷 小四号Lable3caption权限Font华文行楷 小四号Lable4caption新增用户Font华文宋体 三号Fontcolor红色Text1,text2,text3caption置空Data1databasename链接到相关数据库RecordsourceUSERvisiblefalseCommand1Caption添加Command2caption返回Command3caption取消MSFlexGrid1Dat

9、asourceData1该程序实现的代码是：Private Sub Command1_Click()Data1.Recordset.AddNewData1.Recordset.UpdateData1.RefreshEnd SubPrivate Sub Command2_Click()Form2.HideMDIForm1.ShowEnd SubPrivate Sub Command3_Click()Text1.Text = “”Text2.Text = “”Text3.Text = “”End Sub3 成绩编辑界面控件名属性属性值Label1caption输入学号font华文行楷 小四号Lab

10、le2caption学号Font华文行楷 小四号Lable9caption姓名Font华文行楷 小四号Lable3caption性别Font华文行楷 小四号Label4caption班级font华文行楷 小四号Lable5captiondatabaseFont华文行楷 小四号Lable6captionenglishFont华文行楷 小四号Lable7captionvbFont华文行楷 小四号Lable8captionflashFont华文行楷 小四号Text1-text9caption置空Command1Caption查找Command2Caption修改Command3caption删除Co

11、mmand4caption返回Data1databasename链接到相关数据库RecordsourceCJBvisiblefalse该程序实现的代码是：Private Sub Command1_Click()If Text1.Text = “” ThenMsgBox “学号不能为空，请重新输入！”, vbOKOnly + vbExclamation, “警告”Text1.SetFocusElseData1.RecordSource = “select*from CJB where XH=”&text1.text&”Data1.RefreshIf Data1.Recordset.EOF The

12、nMsgBox “学号不存在，请重新输入！”, vbOKOnly + vbExclamation, “警告”Text1.SetFocusText1.Text = “”Text2.Text = “”Text9.Text = “”Text3.Text = “”Text4.Text = “”Text5.Text = “”Text6.Text = “”Text7.Text = “”Text8.Text = “”ElseText2.Text = Data1.Recordset.Fields(0)Text9.Text = Data1.Recordset.Fields(1)Text3.Text = Data

13、1.Recordset.Fields(2)Text4.Text = Data1.Recordset.Fields(3)Text5.Text = Data1.Recordset.Fields(4)Text6.Text = Data1.Recordset.Fields(5)Text7.Text = Data1.Recordset.Fields(6)Text8.Text = Data1.Recordset.Fields(7)End IfEnd IfEnd SubPrivate Sub Command2_Click()If Text1.Text = “” ThenMsgBox “请输入内容！”Else

14、Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text9.TextData1.Recordset.Fields(2) = Text3.TextData1.Recordset.Fields(3) = Text4.TextData1.Recordset.Fields(4) = Text5.TextData1.Recordset.Fields(5) = Text6.TextData1.Recordset.Fields(6) = Text7.TextData1.Recordse

15、t.Fields(7) = Text8.TextData1.Recordset.UpdatableMsgBox “修改成功”End IfEnd SubPrivate Sub Command3_Click()If Text2.Text = “” ThenMsgBox “请输入内容”Elsemybookmark = Data1.Recordset.Bookmarkstr2$ = MsgBox(“是否删除当前记录？”, vbOKCancel, “删除当前记录”)If str2$ = vbOK ThenData1.Recordset.DeleteData1.RefreshText1.Text = “”

16、Text2.Text = “”Text9.Text = “”Text3.Text = “”Text4.Text = “”Text5.Text = “”Text6.Text = “”Text7.Text = “”Text8.Text = “”End IfEnd IfEnd SubPrivate Sub Command4_Click()Form3.HideMDIForm1.ShowEnd Sub4 成绩录入界面控件名属性属性值Label1caption成绩录入font华文宋体 三号Lable2caption学号Font华文行楷 小四号Lable3caption姓名Font华文行楷 小四号Lable

17、4caption性别Font华文行楷 小四号Label5caption班级font华文行楷 小四号Lable6captiondatabaseFont华文行楷 小四号Lable7captionenglishFont华文行楷 小四号Lable8captionvbFont华文行楷 小四号Lable9captionflashFont华文行楷 小四号Text1-text8caption置空Command1Caption新增Command2Caption取消Command3caption返回Command4caption|Command5captionCommand7caption|MSFlexGrid1

18、DatasourceData1Data1databasename链接到相关数据库RecordsourceCJBvisiblefalse 该程序实现的代码是;Private Sub Command1_Click()If Text1.Text = “” Or Text2.Text = “” Or Text3.Text = “” Or Text4.Text = “” Or Text5.Text = “” Or Text6.Text = “” Or Text7.Text = “” Or Text8.Text = “” ThenMsgBox “学号和姓名不能为空！”, vbOKOnly + vbExcl

19、amation, “警告”ElseData1.Recordset.EditData1.Recordset.Fields(“xh”) = Text1.TextData1.Recordset.Fields(“xm”) = Text2.TextData1.Recordset.Fields(“xb”) = Text3.TextData1.Recordset.Fields(“bj”) = Val(Text4.Text)Data1.Recordset.Fields(“database”) = Val(Text5.Text)Data1.Recordset.Fields(“nglish”) = Val(Tex

20、t6.Text)Data1.Recordset.Fields(“vb”) = Val(Text7.Text)Data1.Recordset.Fields(“flash”) = Val(Text8.Text)Data1.Recordset.UpdateMsgBox “记录已成功添加”End IfText1.Text = “”Text2.Text = “”Text3.Text = “”Text4.Text = “”Text5.Text = “”Text6.Text = “”Text7.Text = “”Text8.Text = “”:End SubPrivate Sub Command2_Clic

21、k()Form4.HideMDIForm1.ShowEnd SubPrivate Sub Command4_Click()Data1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.EOF ThenData1.Recordset.MoveFristEnd IfEnd SubPrivate Sub Command6_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.R

22、ecordset.MoveLastEnd IfEnd SubPrivate Sub Command7_Click()Data1.Recordset.MoveLastEnd Sub5 成绩编辑界面控件名属性属性值Combo1text置空Text1text置空Command1Caption查询Command2Caption返回MSFlexGrid1DatasourceData1Data1databasename链接到相关数据库RecordsourceCJBvisiblefalse该程序实现的代码是：Private Sub Command1_Click()If Combo1.Text = “学号”

23、ThenData1.RecordSource = “select * from CJB where xh=” & Text1.Text & “”ElseIf Combo1.Text = “姓名” ThenData1.RecordSource = “select * from CJB where xm=” & Text1.Text & “”ElseData1.RecordSource = “select * from CJB where bj=” & Text1.Text & “”End IfData1.RefreshMSFlexGrid2.RefreshEnd SubPrivate Sub C

24、ommand2_Click()Form5.HideMDIForm1.ShowEnd Sub6 修改密码界面控件名称属性属性值Label1caption修改密码font华文宋体 三号Label2caption原密码font华文行楷 小四号Label3caption请输入新密码font华文行楷 小四号Label4caption请重新输入新密码font华文行楷 小四号Text1, Text2text置空Command1caption确认Command2caption返回Data1databasename链接到相关数据库RecordsourceUSERvisiblefalse该程序实现的代码是：Pri

25、vate Sub Command1_Click()If Trim(Text3.Text = “”) Then MsgBox “原密码不能为空，请重新输入！”, vbOKOnly + vbExclamation, “警告” Text3.SetFocus Text3.Text = “” Exit SubEnd IfIf Trim(Text1.Text = “”) Then MsgBox “新密码不能为空，请重新输入！”, vbOKOnly + vbExclamation, “警告” Text1.SetFocus Text1.Text = “” Exit SubEnd IfIf Trim(Text1

26、.Text) Trim(Text2.Text) ThenMsgBox “密码输入不正确!”, vbOKOnly + vbExclamation, “警告”Text1.SetFocusText1.Text = “”ElseData1.RecordSource = “select * from User where user=and pass = ” & Trim(Text1.Text) & “”Data1.Recordset.EditData1.Recordset.Fields(“pass”) = Text1.TextData1.Recordset.UpdateMsgBox “密码修改成功！”,

27、 vbOKOnly + vbExclamation, “修改密码”Text1.Text = “”Text2.Text = “”Text3.Text = “”End IfData1.RefreshMSFlexGrid1.RefreshEnd SubPrivate Sub Command2_Click()Form6.HideMDIForm1.ShowEnd Sub7 删除用户界面控件名属性属性值Label1caption删除用户font华文宋体 三号Lable2caption请输入用户名Font华文行楷 小四号Text1caption置空Data1databasename链接到相关数据库Recor

28、dsourceUSERvisiblefalseCommand1Caption删除Command2caption返回Command3caption取消MSFlexGrid1DatasourceData1该程序实现的代码是：Private Sub Command1_Click()If Text1.Text = “” ThenMsgBox “请输入内容！”, vbOKOnly + vbExclamation, “警告”Elsemybookmark = Data1.Recordset.Bookmarkstr2$ = MsgBox(“是否删除当前记录？”, vbOKCancel, “删除当前记录”)If

29、 str2$ = vbOK ThenData1.Recordset.DeleteData1.RefreshText1.Text = “”End IfEnd IfEnd SubPrivate Sub Command2_Click()Form2.HideMDIForm1.ShowEnd SubPrivate Sub Command3_Click()Text1.Text = “”End Sub8 成绩统计界面控件名属性属性值Label17caption成绩统计font华文宋体 三号Lable2,Lable6, Lable11, Lable14caption最高分Font华文行楷 小四号Lable3,

30、 Lable7,Lable12, Lable15caption最低分Font华文行楷 小四号Lable4，Lable8Lable13，Lable16caption平均分Font华文行楷 小四号Label1captiondatabasefont宋体 四号Lable5captionEnglishFont宋体 四号Lable9captionVBFont宋体 四号Lable10captionflashFont宋体 四号Text1-text14caption置空Command1Caption个人总分Command2caption返回MSFlexGrid1DatasourceData1Data1datab

31、asename链接到相关数据库RecordsourceCJBvisiblefalse9 关于对话框 方法是：工程添加窗体“关于”对话框。10 菜单窗体界面 方法是：添加一个MDIForm后，进入工具菜单编辑器。菜单的一级标题是：菜单的二级标题是：1）系统管理：2）成绩管理：3）报表管理：4）帮助：该程序实现的代码是：Private Sub bj_Click()Form3.ShowMDIForm1.HideEnd SubPrivate Sub chongxin_Click()Form1.ShowMDIForm1.HideEnd SubPrivate Sub cj_Click()DataReport2.ShowMDIForm1.HideEnd SubPrivate Sub cx_Click()Form5.ShowMDIForm1.HideEnd SubPrivate Sub gy_Click()frmAbout.ShowMDIForm1.HideEnd SubPrivate Sub lr_Click()Form4.ShowMDIForm1.HideEnd SubPrivate Sub