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程序設計