vb综合性实验报告

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

2、e 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 Command2_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstEnd SubP

3、rivate Sub Command3_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command5_Click() Adodc1.Recordset.AddNewEnd SubPrivate Sub Command6_Click() ask = MsgBox(删除否？, vbYesNo) MsgBox对话框出现

4、Yes、No按钮 If ask = 6 Then 选择了MsgBox对话框中Yes按钮 Adodc1.Recordset.Delete 调用Deletee方法 Adodc1.Recordset.MoveNext 移动记录指针刷新显示屏 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command8_Click()Adodc1.Recordset.CancelUpdat

5、eEnd SubPrivate Sub Command9_Click()EndEnd SubPrivate Sub Form_Load()Label1.Caption = 学号Label2.Caption = 姓名Label3.Caption = 专业Label4.Caption = 楼Label5.Caption = 寝室Label7.Caption = 出生年月Label6.Caption = 性别Label8.Caption = 身份证号码Command1.Caption = 首记录Command2.Caption = 上一条Command3.Caption = 下一条Command4.

6、Caption = 尾记录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程序设计也有一些让人不如意的地