VB实验报告.doc

综 合 性 实 验实 验 名 称: 成绩修改系统专 业 班 级: 经济学类1003 学 生 姓 名： 学 号： 2010469103 指 导 教 师： 孙霞1 需求分析(描述程序要完成的功能) 2 运行环境WINDOWS XP系统；VB6.0；3开发工具和编程语言Visual Basic6.0语言；4 系统设计 4.1 属性设置控件名属性名称属性值窗体1Caption修改成绩垂直滚动条1Min1Max10标签框1Caption输入学号Font二号标签框2Caption学号Font二号标签框3Caption姓名标签框4Caption性别标签框5Caption年龄标签框6Caption高数成绩标签框7Caption英语成绩标签框8Caption计算机成绩命令按钮1Caption查找命令按钮2Caption修改命令按钮3Caption删除命令按钮4Caption返回文本框NameTextText清空4.2程序代码代码如下：Private Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入内容！Else 输入内容不能为空Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields(2) = text4.TextData1.Recordset.Fields(3) = Text5.TextData1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Recordset.Fields(6) = Text8.TextText9.Text = Str(Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text) / 3)Data1.Recordset.Fields(7) = Text9.TextData1.Recordset.UpdateMsgBox 修改成功 对数据库进行修改，并将修改后的数据存入数据库End IfEnd SubPrivate Sub Command10_Click()If Trim(Text1.Text) = ThenMsgBox 学号不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusElse 输入学号不能为空Data1.RecordSource = select * from 成绩表 where 学号= & Text1.Text & Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox 学号不存在，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusText1.Text = 判断输入的学号是否存在，若不存在，弹出警告，并请空格文本框。Text2.Text = Text3.Text = text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Else Text2.Text = Data1.Recordset.Fields(0) Text3.Text = Data1.Recordset.Fields(1) text4.Text = Data1.Recordset.Fields(2) Text5.Text = Data1.Recordset.Fields(3) Text6.Text = Data1.Recordset.Fields(4) Text7.Text = Data1.Recordset.Fields(5) Text8.Text = Data1.Recordset.Fields(6)End IfEnd If 存在时，调出数据库。End SubPrivate Sub Command2_Click()Me.Hidemain.ShowEnd Sub 进入主界面Private Sub Command3_Click()If Text1.Text = ThenMsgBox 请输入内容！Else 判断输入是否为空mybookmark = Data1.Recordset.BookmarkStr2$ = MsgBox(是否删除当前记录？, vbOKCancel, 删除当前记录)If Str2$ = vbOK ThenData1.Recordset.Delete 选择是否删除当前记录Data1.RefreshText1.Text = Text2.Text = Text3.Text = text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text