《VB实训报告》word版.doc

湖 南 工 业 职 业 技 术 学 院 课程实训报告 课程名称：课程名称： 姓姓 名：名： 学学 号：号： 专业班级：专业班级： 系系 （院）：院）： 设计时间：设计时间： 设计地点：设计地点： 指导教师评语： 签名： 成绩：成绩： 第 0 页 目录 一一 实训目的实训目的 2 2 二二 实训内容实训内容 2 2 三三 实训步骤实训步骤 2 2 3.1 数据库的设计 .2 3.2 界面设计 3 3.3 报表设计.15 四四 程序的调试和运行程序的调试和运行1616 五五 实训总结实训总结 2020 第 1 页 一一 实训目的实训目的 面向对象程序设计实训是电子商务及相关专业的实践环节之一，是学 习完面向对象程序设计课程后进行的一次全面的综合练习。其目的在 于加深对面向对象可视化程序设计基本概念的理解，掌握应用 VB6.0 设计 应用程序的基本方法和基本技能，提高学生的实践动手能力。 二二 实训内容实训内容 设计一个小型学生成绩管理系统，功能模块包括： 系统管理、成绩管理、成绩统计、报表管理等模块。 1. 用户管理：实现用户的添加、删除、密码修改、用户登录等功能。 2. 成绩管理：实现学生的成绩录入、修改、删除、查询和浏览 3. 成绩的统计：可以实现课程的平均分，总分，最低分和最高分； 统计每个学生的总分，并求出考试总成绩的最高分好最低分。 4. 报表管理：可以打印学生的成绩和用户信息。 三三 实训步骤实训步骤 3.13.1 数据库的设计数据库的设计 数据库中包含 2 个表，user 表和成绩表。 1 1) user 表的设计 2)字段名称数据类型字段大小 ID（主键）自动编号长整型 user文本20 pass文本50 level文本2 2) user 表的内容 第 2 页 2 1）成绩表的设计 字段名称数据类型字段大小 学号（主键）文本20 xh文本10 xb文本4 bj文本20 database数字单精度型 English数字单精度型 vb数字单精度型 flash数字单精度型 zf数字单精度型 2）成绩表的内容 第 3 页 3.23.2 界面设计界面设计 1 登陆界面的设计 控件名称属性属性值 caption用户名称Label1 font华文行楷 小四号 caption用户密码Label2 font华文行楷 小四号 caption学生成绩管理系统Label3 font华文新魏 粗体 小一号 Text1, Text2text置空 Command1caption确定 Command2caption取消 Frame1caption用户权限 Option1caption系统管理员 Option2caption普通用户 databasename链接到相关数据库Data1 Recordsettype0-table RecordsourceUSER visiblefalse 该程序实现的代码是：该程序实现的代码是： 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 第 4 页 End If Exit Do Else Data1.Recordset.MoveNext End If Loop If Data1.Recordset.EOF = True Then MsgBox (“用户名称或用户密码不正确，请重新输入”) Text1.Text = “” Text2.Text = “” Text1.SetFocus End If End Sub Private Sub Command2_Click() End End Sub 2 新增用户界面 控件名属性属性值 caption请输入用户名Label1 font华文行楷 小四号 caption请输入密码Lable2 Font华文行楷 小四号 caption权限Lable3 Font华文行楷 小四号 caption新增用户 Font华文宋体 三号 Lable4 Fontcolor红色 Text1,text2,text3caption置空 databasename链接到相关数据库 RecordsourceUSER Data1 visiblefalse Command1Caption添加 Command2caption返回 Command3caption取消 MSFlexGrid1DatasourceData1 该程序实现的代码是：该程序实现的代码是： Private Sub Command1_Click() Data1.Recordset.AddNew Data1.Recordset.Update Data1.Refresh End Sub 第 5 页 Private Sub Command2_Click() Form2.Hide MDIForm1.Show End Sub Private Sub Command3_Click() Text1.Text = “” Text2.Text = “” Text3.Text = “” End Sub 3 成绩编辑界面 控件名属性属性值 caption输入学号Label1 font华文行楷 小四号 caption学号Lable2 Font华文行楷 小四号 caption姓名Lable9 Font华文行楷 小四号 caption性别Lable3 Font华文行楷 小四号 caption班级Label4 font华文行楷 小四号 captiondatabaseLable5 Font华文行楷 小四号 captionenglishLable6 Font华文行楷 小四号 captionvbLable7 Font华文行楷 小四号 captionflashLable8 Font华文行楷 小四号 Text1-text9caption置空 Command1Caption查找 Command2Caption修改 Command3caption删除 第 6 页 Command4caption返回 databasename链接到相关数据库 RecordsourceCJB Data1 visiblefalse 该程序实现的代码是：该程序实现的代码是： Private Sub Command1_Click() If Text1.Text = “” Then MsgBox “学号不能为空，请重新输入！”, vbOKOnly + vbExclamation, “警告” Text1.SetFocus Else Data1.RecordSource = “select*from CJB where XH=” ; 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 = “” Then MsgBox “学号和姓名不能为空！”, vbOKOnly + vbExclamation, “警告” Else Data1.Recordset.Edit Data1.Recordset.Fields(“xh”) = Text1.Text Data1.Recordset.Fields(“xm”) = Text2.Text Data1.Recordset.Fields(“xb”) = Text3.Text Data1.Recordset.Fields(“bj”) = Val(Text4.Text) Data1.Recordset.Fields(“database”) = Val(Text5.Text) Data1.Recordset.Fields(“) = Val(Text6.Text) Data1.Recordset.Fields(“vb”) = Val(Text7.Text) Data1.Recordset.Fields(“flash”) = Val(Text8.Text) Data1.Recordset.Update 第 9 页 MsgBox “记录已成功添加” End If Text1.Text = “” Text2.Text = “” Text3.Text = “” Text4.Text = “” Text5.Text = “” Text6.Text = “” Text7.Text = “” Text8.Text = “”: End Sub Private Sub Command2_Click() Form4.Hide MDIForm1.Show End Sub Private Sub Command4_Click() Data1.Recordset.MoveFirst End Sub Private Sub Command5_Click() Data1.Recordset.MovePrevious If Data1.Recordset.EOF Then Data1.Recordset.MoveFrist End If End Sub Private Sub Command6_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If End Sub Private Sub Command7_Click() Data1.Recordset.MoveLast End Sub 5 成绩编辑界面 控件名属性属性值 Combo1text置空 Text1text置空 Command1Caption查询 Command2Caption返回 MSFlexGrid1DatasourceData1 Data1databasename链接到相关数据 库 第 10 页 RecordsourceCJB visiblefalse 该程序实现的代码是：该程序实现的代码是： Private Sub Command1_Click() If Combo1.Text = “学号” Then Data1.RecordSource = “select * from CJB where xh=” & Text1.Text & “” ElseIf Combo1.Text = “姓名” Then Data1.RecordSource = “select * from CJB where xm=” & Text1.Text & “” Else Data1.RecordSource = “select * from CJB where bj=” & Text1.Text & “” End If Data1.Refresh MSFlexGrid2.Refresh End Sub Private Sub Command2_Click() Form5.Hide MDIForm1.Show End Sub 6 修改密码界面 控件名称属性属性值 caption修改密码Label1 font华文宋体 三号 caption原密码Label2 font华文行楷 小四号 caption请输入新密码Label3 font华文行楷 小四号 caption请重新输入新密码Label4 font华文行楷 小四号 Text1, Text2text置空 Command1caption确认 Command2caption返回 databasename链接到相关数据库 RecordsourceUSER Data1 visiblefalse 该程序实现的代码是：该程序实现的代码是： Private Sub Command1_Click() If Trim(Text3.Text = “”) Then MsgBox “原密码不能为空，请重新输入！”, vbOKOnly + vbExclamation, “警告” Text3.SetFocus Text3.Text = “” 第 11 页 Exit Sub End If If Trim(Text1.Text = “”) Then MsgBox “新密码不能为空，请重新输入！”, vbOKOnly + vbExclamation, “警告” Text1.SetFocus Text1.Text = “” Exit Sub End If If Trim(Text1.Text) Trim(Text2.Text) Then MsgBox “密码输入不正确!”, vbOKOnly + vbExclamation, “警告” Text1.SetFocus Text1.Text = “” Else Data1.RecordSource = “select * from User where user=and pass = ” & Trim(Text1.Text) & “” Data1.Recordset.Edit Data1.Recordset.Fields(“pass”) = Text1.Text Data1.Recordset.Update MsgBox “密码修改成功！”, vbOKOnly + vbExclamation, “修改密码” Text1.Text = “” Text2.Text = “” Text3.Text = “” End If Data1.Refresh MSFlexGrid1.Refresh End Sub Private Sub Command2_Click() Form6.Hide MDIForm1.Show End Sub 7 删除用户界面 控件名属性属性值 caption删除用户Label1 font华文宋体 三号 caption请输入用户名Lable2 Font华文行楷 小四号 Text1caption置空 databasename链接到相关数据库 RecordsourceUSER Data1 visiblefalse 第 12 页 Command1Caption删除 Command2caption返回 Command3caption取消 MSFlexGrid1DatasourceData1 该程序实现的代码是：该程序实现的代码是： Private Sub Command1_Click() If Text1.Text = “” Then MsgBox “请输入内容！”, vbOKOnly + vbExclamation, “警告” Else mybookmark = Data1.Recordset.Bookmark str2$ = MsgBox(“是否删除当前记录？”, vbOKCancel, “删除当前记录”) If str2$ = vbOK Then Data1.Recordset.Delete Data1.Refresh Text1.Text = “” End If End If End Sub Private Sub Command2_Click() Form2.Hide MDIForm1.Show End Sub Private Sub Command3_Click() Text1.Text = “” End Sub 8 成绩统计界面 控件名属性属性值 caption成绩统计Label17 font华文宋体 三号 caption最高分Lable2,Lable6, Lable11, Lable14 Font华文行楷 小四号 caption最低分Lable3, Lable7, Lable12, Lable15 Font华文行楷 小四号 caption平均分Lable4，Lable8 Lable13，Lable16 Font华文行楷 小四号 captiondatabaseLabel1 font宋体 四号 captionEnglishLable5 Font宋体 四号 captionVBLable9 Font宋体 四号 第 13 页 captionflashLable10 Font宋体 四号 Text1-text14caption置空 Command1Caption个人总分 Command2caption返回 MSFlexGrid1DatasourceData1 databasename链接到相关数据库 RecordsourceCJB Data1 visiblefalse 9 关于对话框 方法是：工程添加窗体“关于”对话框。 10 菜单窗体界面 方法是：添加一个 MDIForm 后，进入工具菜单编辑器。菜单的一级 标题是： 菜单的二级标题是： 1）系统管理： 2）成绩管理： 3）报表管理： 4）帮助： 该程序实现的代码是：该程序实现的代码是： Private Sub bj_Click() Form3.Show 第 14 页 MDIForm1.Hide End Sub Private Sub chongxin_Click() Form1.Show MDIForm1.Hide End Sub Private Sub cj_Click() DataReport2.Show MDIForm1.Hide End Sub Private Sub cx_Click() Form5.Show MDIForm1.Hide End Sub Private Sub gy_Click() frmAbout.Show MDIForm1.Hide End Sub Private Sub lr_Click() Form4.Show MDIForm1.Hide End Sub Private Sub shangchu_Click() Form7.Show MDIForm1.Hide End Sub Private Sub tj_Click() Form8.Show MDIForm1.Hide End Sub Private Sub tuichu_Click() End End Sub Private Sub xinzeng_Click() Form2.Show 第 15 页 MDIForm1.Hide End Sub Private Sub xiugai_Click() Form6.Show MDIForm1.Hide End Sub Private Sub yh