【正文】 頁 共 30 頁 單擊修改 “密碼按鈕”， 進(jìn)入學(xué)生修改密碼界面。 amp。 39。 四 系統(tǒng)實現(xiàn) 現(xiàn)在已經(jīng)完成了程序各個功能模塊的創(chuàng)建，現(xiàn)在可以進(jìn)行系統(tǒng)的實現(xiàn)了 1 登錄界面實現(xiàn) 第 8 頁 共 30 頁 第一個登陸界面選擇用戶類型， 分為教師和學(xué)生。設(shè)計本系統(tǒng)的數(shù)據(jù)庫應(yīng)該充分滿足用戶的需求。 各模塊的主要功能如下： ●系統(tǒng)用戶的管理：實現(xiàn)用戶的添加、刪除和密碼的修改 ●學(xué)生學(xué)籍信息的管理：實現(xiàn)學(xué)生學(xué)籍信息的添加、刪除和修改。 結(jié)構(gòu)化查詢語言 SQL: 結(jié)構(gòu)化查詢語言 (Structrued Query Lauguage,SQL)是訪問數(shù)據(jù)庫的標(biāo)準(zhǔn)語言，使用 SQL語言可以從數(shù)據(jù)庫中獲取數(shù)據(jù)，建立數(shù)據(jù)庫和數(shù)據(jù)庫對象，增加，修改數(shù)據(jù)和實現(xiàn)復(fù)雜的查詢功能。一個數(shù)據(jù)庫中，包含了許多條記錄 (Record),而每條記錄是由多個字段 (Field)所組成 ,不同的字段存放這不同的數(shù)據(jù)。我選擇這個題目，希望可以在信息管理方面有所 提高 。 本系統(tǒng)的主要功能及 任務(wù)是： 提供一個電子化的成績管理平臺。 2． 完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識點。數(shù)據(jù)庫管理系統(tǒng)是架構(gòu)在一個或多個數(shù)據(jù)庫之上，并針對數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行管理運用。 二．系統(tǒng)功能簡介 隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。 ● 學(xué)生成績信息的統(tǒng)計：實現(xiàn)學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計。 ? 密碼表： 包括的字段有： 用戶名，密碼。 amp。 第 10 頁 共 30 頁 End If End If End Sub Private Sub Command2_Click() = = End Sub “取消”按鈕，使兩個文本框內(nèi)容為空。 amp。 amp。 End Sub Private Sub Command2_Click() = = End Sub 單擊“取消”按鈕，將文本框清空。 End Sub Private Sub cjcx_Click() End Sub 單擊“成績查詢”按鈕，進(jìn)入“成績查詢”界面。 Exit Sub Else With Data1 . .(0) = Trim() .(1) = Trim() . End With MsgBox 添加用戶成功！ , vbOKOnly + vbExclamation, 添加用戶 End If End Sub 若上述情況均沒有，則連接數(shù)據(jù)庫，將輸入的用戶信息添加到“教師密碼表”中去。 (密碼 ) = 若一致，連接數(shù)據(jù)庫，進(jìn)行修改，將所輸入密碼保存到數(shù)據(jù)庫中去。 If = False And = False Then MsgBox 輸入的學(xué)號已經(jīng)存在，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = = 若不為空，連接數(shù)據(jù)庫，判斷輸入的學(xué)號是否已經(jīng)存在，若存在，彈出警告，重新輸入！ Else (0) = (1) = (2) = (3) = (4) = (5) = (6) = 第 19 頁 共 30 頁 MsgBox 添加成功！ 若不為空，且輸入的學(xué)號不存在，則連接數(shù)據(jù)庫，將所輸入的信息添加到“基本信息表”中。 39。 Else = (0) = (1) = (2) 第 21 頁 共 30 頁 = (3) = (4) = (5) = (6) End If 由此記錄的話，直接顯示在文本框中。 39。 If Then MsgBox 學(xué)號不存在，請重新 輸入！ , vbOKOnly + vbExclamation, 警告 = 判斷輸入的學(xué)號是否存在 ，若不存在，彈出警告，并請空格文本框。 amp。 主要問題 2： 由于窗體喝控件太多，使得編寫代 碼時，總是出現(xiàn)數(shù)據(jù)庫與控件案不對應(yīng)的情況。 參考文獻(xiàn) ： 1. 《 Visual Basic 》 ， 張路平 ，電子工業(yè)出版社 2.《 Visual Basic 》 ， 譚小丹 ，冶金工業(yè)出版社 第 30 頁 共 30 頁 3. 《 Visual Basic+Access數(shù)據(jù)庫項目開發(fā)實踐》 ， 周國民 ，中國鐵道出版社 4. MSDN 附錄： 工程的使用可以按照自己的需要進(jìn)行 。不斷的調(diào)試，使我認(rèn)識即時丁點的錯誤也可以導(dǎo)致系統(tǒng)的非正常運行，細(xì)節(jié)決定成敗。 統(tǒng)計性別為男的人數(shù) = (0) = select count(*) from 成績表 where 性別 =39。 amp。 = : = : = : = : = : = : = End Sub 清空文本框 第 24 頁 共 30 頁 Private Sub Command2_Click() End Sub 進(jìn)入主界面 Private Sub Command3_Click() End Sub 將指針指向第一條記錄 Private Sub Command4_Click() If Then 將指針指向上一條，如果到達(dá)第一條，就指在第一條 End If End Sub Private Sub Command5_Click() If Then End If 將指針指向下一條，如果到達(dá)最后一條，就指在最后一條 End Sub Private Sub Command6_Click() End Sub 將指針指向最后一條 成績修改界面 ： 第 25 頁 共 30 頁 代碼如下： Private Sub Command1_Click() If = Then MsgBox 請輸入內(nèi)容！ Else 輸入內(nèi)容不能為空 (0) = (1) = (2) = (3) = (4) = (5) = (6) = = Str((Val() + Val() + Val()) / 3) (7) = MsgBox 修改成功 對數(shù)據(jù)庫進(jìn)行修改，并將修改后的數(shù)據(jù)存入數(shù)據(jù)庫 End If End Sub Private Sub Command10_Click() If Trim() = Then MsgBox 學(xué)號不能為空，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else 輸入學(xué)號不能為空 = select * from