最新vb综合性实验报告.doc

《最新vb综合性实验报告.doc》由会员分享，可在线阅读，更多相关《最新vb综合性实验报告.doc（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、tEnd 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 Command2_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.Mov

3、eFirstEnd SubPrivate 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(删除否？, vbYesN

4、o) MsgBox对话框出现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.Records

5、et.CancelUpdateEnd 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

6、= 下一条Command4.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 龚

7、培曾 杨志强 Visual Basic程序设计教程（第3版）高等教育出版社2001/122 刘健元 Visual Basic程序设计教程 清华大学出版社 2003/033 Visual Basic程序设计教程 清华大学出版社 2003/037心得体会 这次实验让我感觉到了VB程序的好处，也让我知道了走设计程序的路也是很艰辛的，让我越来越佩服那些设计程序的工作人员。当然VB程序设计也有一些让人不如意的地方，但是我更承认的是我并没有把VB程序设计学的有多好，所以学习VB程序设计让我更下定决心以后要好好学好每一科目，因为每一个科目都有它多特的作用。感谢VB程序设计给人类带来的好处！完成时间：2012.06.14