综合性实验
实验名称:高中成绩管理系统
专业班级: 电子商务1104
学生姓名：
学号：
****：**
1 需求分析
程序对输入的学生基本情况建立数据库，且拥有对新输入的学生的基本情况进行添加，对已有数据库中的数据进行删减、修改、管理、浏览的功能。
2 运行环境
WINDOWS XP系统；VB6.0；
3开发工具和编程语言
Visual Basic6.0语言；
4 系统设计
Form1的代码：
Dim ask As Integer
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command10_Click()
Form2.Show
End Sub
Private Sub Command11_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub Command5_Click()
Adodc1.Recordset.AddNew
End Sub
Private 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.Recordset.MoveLast
End If
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command8_Click()
Adodc1.Recordset.CancelUpdate
End Sub
Private Sub Command9_Click()
End
End Sub
Private 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.Caption = "尾记录"
Command5.Caption = "新增"
Command6.Caption = "删除"
Command7.Caption = "更新"
Command8.Caption = "放弃"
Command9.Caption = "结束"
Command10.Caption = "返回总菜单"
Command11.Caption = "清空"
(1) 程序的组织结构（包括窗体、模块及其功能）。
5 系统运行及测试
该部分可由以下内容组成：
（1） 设计几组测试数据以及相应的测试结果.
（2） 运行界面。
（3）
高中生成绩管理系
统
窗体1 总菜单 窗体2 学生个人资料
窗体3 成绩表
6 参考文献
1 龚培曾杨志强 Visual Basic程序设计教程（第3版）高等教育出版社2001/12
2 刘健元 Visual Basic程序设计教程清华大学出版社 2003/03
3 Visual Basic程序设计教程清华大学出版社 2003/03
7心得体会
这次实验让我感觉到了VB程序的好处，也让我知道了走设计程序的路也是很艰辛的，让我越来越佩服那些设计程序的工作人员。
当然VB程序设计也有一些让人不如意的地方，但是我更承认的是我并没有把VB程序设计学的有多好，所以学习VB程序设计让我更下定决心以后要好好学好每一科目，因为每一个科目都有它多特的作用。
感谢VB程序设计给人类带来的好处！
完成时间：2012.06.14。