【文章內(nèi)容簡介】 查詢 ) End Sub Private Sub xsxxbj_Click() 信息管理 .Show End Sub ： Private Sub Command1_Click() Dim c As String c = InputBox$(請輸入學(xué)號 , 查找窗 ) = select * from 成績情況 where 學(xué)號 like 39。 amp。 c amp。 39。 If Then MsgBox 無此學(xué)號！ , , 提示 = 成績情況 End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = amp。 \ End Sub ： 26 Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() = Provider=。Persist Security Info=False。Data Source= amp。 amp。 \ = adCmdUnknown = Select 專業(yè) ,count(*) As 人數(shù) From 基本情況 Group By 專業(yè) End Sub ： Private Sub Command1_Click() = Not = Not = True If = 新增 Then = 確認(rèn) mbookmark = Else = 新增 End If End Sub Private Sub Command2_Click() i = MsgBox(確定刪除當(dāng)前信息嗎？ , 4 + vbQuestion, 提示 ) If i = 6 Then On Error Resume Next If Then End If End Sub Private Sub Command3_Click() = Not = Not 27 = True If = 修改 Then = 確認(rèn) mbookmark = Else = 修改 End If End Sub Private Sub Command4_Click() = 新增 : = 修改 = True: = True = True: = False mbookmark = = mbookmark End Sub Private Sub Command5_Click() Dim m As String m = InputBox$(請輸入要查找的學(xué)生學(xué)號 , 查找窗 ) 學(xué)號 =39。 amp。 m amp。 39。 If Then MsgBox 無此學(xué)號！ , , 提示 End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Data1_Reposition() = 基本情況： amp。 ( + 1) End Sub Private Sub Form_Load() = Provider=。Persist Info=False。Data Source= amp。 amp。 \ = amp。 \ = 基本情況 = adCmdUnknown = select * from 成績情況 28 39。 (學(xué)號 =39。 amp。 amp。 39。) End Sub ： Dim old$, nw$, rnew$ Private Sub Command1_Click() old = nw = rnew = 用戶名 =39。 amp。 登錄 .yhm amp。 39。 Security If old = 登錄 .mm1 Then If nw = rnew Then If rnew = Then MsgBox 密碼不能為空 , vbInformation, 系統(tǒng) Exit Sub End If 登錄 .mm1 = nw On Error Resume Next (密碼 ) = 登錄 .mm1 MsgBox 密碼已經(jīng)被修改！ Unload Me Else MsgBox 兩次密碼不同！ End If Else MsgBox 密碼不對！ End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = amp。 \用戶表 .mdb = 用戶表 End Sub 系統(tǒng)測試 29 本次測試采用黑盒測試法，對學(xué)生信息管理系統(tǒng)進(jìn)行測試。首先，進(jìn)行對功能模塊進(jìn)行劃分，明確功能測試的人員負(fù)責(zé)情況 。其次，對各個模塊進(jìn)行測試。在測試時，把程序看作一個不能打開的黑盒子，在完全不考慮內(nèi)部結(jié)構(gòu)和內(nèi)部特性的情況下，測試者在程序接口進(jìn)行測試，它只檢查程序功能是否按照需求規(guī)格說明書的規(guī)定正常使用，程序能否適當(dāng)?shù)慕邮蛰斎霐?shù)據(jù)而產(chǎn)生正確的輸出信息，并且保證外部信息的完整性。 30 第六章 總結(jié)體會 忙碌了一段時間，學(xué)生 信息管理系統(tǒng)的制作算是告一段落了 ， 經(jīng)過這次系統(tǒng)設(shè)計課設(shè)， 雖然有很多不足， 不過收獲還是頗為豐富的，再有理論知識上結(jié)合實踐，使我學(xué)到了更多。 首先是知識層面， 更進(jìn)一步的了解了系統(tǒng)分析與設(shè)計的基本操作， 其實很多東西不是上課能解決的，必須要自己動手實踐。 最直接的收獲就是系統(tǒng)的制作和報告的撰寫，這些東西都得 靠自己在下面翻書看，或者查閱別人的優(yōu)秀案例，取人之長，補己之短 。其實很東西都是在潛移默化的狀態(tài)下收獲的。 在系統(tǒng)設(shè)計的過程中，我從中發(fā)現(xiàn)，學(xué)習(xí)系統(tǒng)分析與設(shè)計要細(xì)心和有耐性，并且要不斷地從外界學(xué)習(xí)更多的技術(shù)才能設(shè)計出一套完美的系 統(tǒng)。 總之，這次課設(shè)讓我學(xué)會了不少東西，也為以后的職場生涯打下了基礎(chǔ)。 參考文獻(xiàn)： [1]《 信息系統(tǒng)分析與設(shè)計》 黃孝章、劉鵬、蘇利祥 清華大學(xué) 出版社 [2]《 Visual Basic程序設(shè)計》趙萬龍 中國鐵道 出版社 [3]《數(shù)據(jù)庫系統(tǒng)概論》薩師煊 王珊 高等教育出版社 [4]《基礎(chǔ)會計學(xué)》陳愛玲、劉曉玉、崔志敏 陜西科學(xué)技術(shù)出版社 [5]《 SQL Server數(shù)據(jù)庫基礎(chǔ)教程與上機指導(dǎo)》周緒 清華大學(xué)出版社 [6]《 信息資源管理 》 張凱 清華大學(xué)出版社 [7]《管理信息系統(tǒng)》邢喜榮、黃 軍倉、田喜群、楊芳齡 電子工業(yè)出版社 [8]《 access數(shù)據(jù)庫應(yīng)用基礎(chǔ)教程》梁燦、施興家 清華大學(xué)出版社 31 附錄 “登錄”按鈕代碼： Private Sub Command2_Click() Dim conn As New Dim rs As New Dim sql As String Provider=。Data Source= amp。 amp。 \ sql = Select * from 用戶信息表 where If Trim() = Then 39。如果用戶名為空 MsgBox 用 戶 名 不 能 為 空 ！ , vbOKOnly + vbCritical, 錯誤 miCount = miCount + 1 39。累加輸入次數(shù) Exit Sub End If If Trim() = Then 39。如果密碼為空 MsgBox 密 碼 不 能 為 空 ！ , vbOKOnly + vbCritical, 錯誤 Exit Sub End If If Trim() = 選擇類別 Then 39。如果密碼為空 MsgBox 請 選 擇 用 戶 類 別 ！ , vbOKOnly + vbCritical, 錯誤 Exit Sub End If sql = sql + userName=39。 amp。 amp。 39。 sql = sql + AND Pwd=39。 amp。 amp。 39。 sql = sql + AND Type=39。 amp。 amp。 39。 sql, conn, 1, 1 If = 1 Then 39。找到記錄 PName = rs(userName) PWord = rs(Pwd) pType = rs(Type) Unload Me quanxian Else 32 MsgBox 用戶名或密碼不對！ , vbOKOnly + vbInformation, 錯誤 Unload Me End If Set rs = Nothing Set conn = Nothing miCount = miCount + 1 If miCount = 3 Then End If Exit Sub End Sub 用戶注冊代碼如下： Private Sub Command1_Click() Dim conn As New Dim rs As New Dim sql As String Provider=。Data Source= amp。 amp。 \ sql = Select * from 用戶信息表 where