vb综合性实验报告

1、精选优质文档-倾情为你奉上综 合 性 实 验实 验 名 称: 高中成绩管理系统专 业 班 级: 电子商务1104 学 生 姓 名： 学 号： 指 导 教 师： 李 琳1 需求分析 程序对输入的学生基本情况建立数据库 ，且拥有对新输入的学生的基本情况进行添加，对已有数据库中的数据进行删减、修改、管理、浏览的功能。2 运行环境 WINDOWS XP系统；VB6.0；3开发工具和编程语言 Visual Basic6.0语言；4 系统设计 Form1的代码： Dim ask As IntegerPrivate Sub Command1_Click()Adodc1.Recordset.MoveFirst

2、End SubPrivate Sub Command10_Click()Form2.ShowEnd SubPrivate Sub Command11_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""End SubPrivate Sub

3、 Command2_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub Comman

4、d5_Click() Adodc1.Recordset.AddNewEnd SubPrivate Sub Command6_Click() ask = MsgBox("删除否？", vbYesNo) ' MsgBox对话框出现Yes、No按钮 If ask = 6 Then ' 选择了MsgBox对话框中Yes按钮 Adodc1.Recordset.Delete ' 调用Deletee方法 Adodc1.Recordset.MoveNext ' 移动记录指针刷新显示屏 If Adodc1.Recordset.EOF Then Adodc1.R

5、ecordset.MoveLast End IfEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command8_Click()Adodc1.Recordset.CancelUpdateEnd SubPrivate Sub Command9_Click()EndEnd SubPrivate Sub Form_Load()Label1.Caption = "学号"Label2.Caption = "姓名"Label3.Caption = "专

6、业"Label4.Caption = "楼"Label5.Caption = "寝室"Label7.Caption = "出生年月"Label6.Caption = "性别"Label8.Caption = "身份证号码"Command1.Caption = "首记录"Command2.Caption = "上一条"Command3.Caption = "下一条"Command4.Caption = "尾记录&quo

7、t;Command5.Caption = "新增"Command6.Caption = "删除"Command7.Caption = "更新"Command8.Caption = "放弃"Command9.Caption = "结束"Command10.Caption = "返回总菜单"Command11.Caption = "清空"(1) 程序的组织结构（包括窗体、模块及其功能）。高中生成绩管理系统窗体1总菜单窗体2 学生个人资料窗体3成绩表5 系统运行及测试该部分可由以下内容组成：（1） 设计几组测试数据以及相应的测试结果. （2） 运行界面。（3）6 参考文献1 龚培曾 杨志强 Visual Basic程序设计教程（第3版）高等教育出版社2001/122 刘健元 Visual Basic程序设计教程 清华大学出版社 2003/033 Visual Basic程序设计教程 清华大学出版社 2003/037心得体会 这次实验让我感觉到了VB程序的好处，也让我知道了走设计程序的路也是很艰辛的，让我越来越佩服那些设计程序的工作人员。当然VB程序设计