【正文】
rivate Sub cjtj_Click() 成績統(tǒng)計(jì) .Show End Sub Private Sub ckbb_Click() End Sub Private Sub MDIForm_Load() (2).Text = 系統(tǒng)當(dāng)前用戶: amp。 amp。 39。 \ End Sub : 26 Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() = Provider=。Data Source= 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。 m amp。 If Then MsgBox 無此學(xué)號! , , 提示 End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Data1_Reposition() = 基本情況: amp。Persist Info=False。 amp。 \ = 基本情況 = adCmdUnknown = select * from 成績情況 28 39。 amp。 39。 amp。 39。 \用戶表 .mdb = 用戶表 End Sub 系統(tǒng)測試 29 本次測試采用黑盒測試法,對學(xué)生信息管理系統(tǒng)進(jìn)行測試。其次,對各個模塊進(jìn)行測試。 30 第六章 總結(jié)體會 忙碌了一段時(shí)間,學(xué)生 信息管理系統(tǒng)的制作算是告一段落了 , 經(jīng)過這次系統(tǒng)設(shè)計(jì)課設(shè), 雖然有很多不足, 不過收獲還是頗為豐富的,再有理論知識上結(jié)合實(shí)踐,使我學(xué)到了更多。 最直接的收獲就是系統(tǒng)的制作和報(bào)告的撰寫,這些東西都得 靠自己在下面翻書看,或者查閱別人的優(yōu)秀案例,取人之長,補(bǔ)己之短 。 在系統(tǒng)設(shè)計(jì)的過程中,我從中發(fā)現(xiàn),學(xué)習(xí)系統(tǒng)分析與設(shè)計(jì)要細(xì)心和有耐性,并且要不斷地從外界學(xué)習(xí)更多的技術(shù)才能設(shè)計(jì)出一套完美的系 統(tǒng)。 參考文獻(xiàn): [1]《 信息系統(tǒng)分析與設(shè)計(jì)》 黃孝章、劉鵬、蘇利祥 清華大學(xué) 出版社 [2]《 Visual Basic程序設(shè)計(jì)》趙萬龍 中國鐵道 出版社 [3]《數(shù)據(jù)庫系統(tǒng)概論》薩師煊 王珊 高等教育出版社 [4]《基礎(chǔ)會計(jì)學(xué)》陳愛玲、劉曉玉、崔志敏 陜西科學(xué)技術(shù)出版社 [5]《 SQL Server數(shù)據(jù)庫基礎(chǔ)教程與上機(jī)指導(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=。 amp。如果用戶名為空 MsgBox 用 戶 名 不 能 為 空 ! , vbOKOnly + vbCritical, 錯誤 miCount = miCount + 1 39。如果密碼為空 MsgBox 密 碼 不 能 為 空 ! , vbOKOnly + vbCritical, 錯誤 Exit Sub End If If Trim() = 選擇類別 Then 39。 amp。 39。 amp。 39。 amp。 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=。 amp。如果用戶名為空 MsgBox 請輸入真實(shí)姓名 , vbOKOnly + vbCritical, 錯誤 Exit Sub End If If Trim() = Then 39。 amp。 39。Data Source= amp。 \ sql, conn, 1, 3 (院系名稱 ) = Trim() (院系編號 ) = Trim() (院系電話 ) = Trim() (院系負(fù)責(zé)人 ) = Trim() (院系專業(yè) ) = Trim() = = = = = Set rs = Nothing End Sub Private Sub Command2_Click() = = = = = End Sub 35 Private Sub Command3_Click() Unload Me End Sub 修改院系信息代碼如下: Option Explicit Dim conn As New Dim rs As New Dim As New 39。判斷是否修改記錄 Dim mcclean As Boolean Private Sub Command1_Click() Call viewData End Sub Private Sub Command2_Click() If Then End If Call viewData End Sub Private Sub Command3_Click() If Then End If Call viewData End Sub Private Sub Command4_Click() Call viewData End Sub Private Sub Command5_Click() Dim tstSQL As String Dim MsgText As String 39。記下當(dāng)前記錄位置 39。使移動記錄按鈕失效 = True = True = True = True 39。記下當(dāng)前記錄位置 myBookmark = str2$ = MsgBox(是否刪除當(dāng)前記錄? , vbOKCancel, 刪除當(dāng)前記錄!) If str2$ = vbOK Then If Then myBookmark = = myBookmark 39。調(diào)用函數(shù)顯示數(shù)據(jù) Call viewData Else myBookmark = 39。調(diào)用函數(shù)顯示數(shù)據(jù) Call viewData End If Else = myBookmark Call viewData End If End Sub Private Sub Form_Load() Dim txtSQL As String Dim MsgText As String txtSQL = select * from 院系信息表 Set rs = Exec