【正文】 39。 39。 amp。39。用于記 錄字段數(shù) (列 ) If Not Then For i = 0 To Val(Txt(0).Text) 1 If Not IsNull((i)) Then Txt(i + 1) = Trim((i)) Else Txt(i + 1) = End If Next i End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub Combo2_Click() 39。 Trim() If Then strSql, CN, adOpenStatic, adLockOptimistic Dim i As Integer Dim k As Integer k = For i = 1 To 20 If k = 1 Then Load Txt(i) Load Lbl(i) End If Txt(i).Visible = False Lbl(i).Visible = False Next i For i = 1 To Txt(i).Visible = True Lbl(i).Visible = True Lbl(i).Caption = Trim((i 1).Name) Txt(i).Text = If i Mod 2 = 1 Then Lbl(i).Left = 50 Txt(i).Left = 1250 Else 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計與實現(xiàn) 31 Lbl(i).Left = 4420 Txt(i).Left = 5620 End If Lbl(i).Top = 120 + Int((i 1) / 2) * 500 + 120 Txt(i).Top = Lbl(i).Top 120 Next i Txt(0).Text = 39。39。39。 Dim i As Integer On Error GoTo Err If Then If Not Then For i = 1 To Val(Txt(0).Text) 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計與實現(xiàn) 29 If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Else If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegSave_Click() 39。39。39。 strLook = Trim() If strLook Then 1 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計與實現(xiàn) 28 End If End Sub Private Sub cmdRegNext_Click() 39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLook_Click() 39。39。39。刪除 On Error GoTo Err Dim ss As Integer ss = MsgBox(真的刪除該記錄嗎？ , vbCritical + vbOKCancel, 系統(tǒng)提示 ) If ss = 1 Then If And Then For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i Else = adFilterNone If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i Else For i = 1 To Val(Txt(0).Text) Txt(i) = Next i End If End If End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計與實現(xiàn) 27 Private Sub cmdRegFirst_Click() 39。39。39。39。 檢索 Call Loaddata End Sub 信息管理源代碼： Dim nModeSys As Integer Dim strKc As String Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdRegAdd_Click() 39。 Trim(strTableName), CN, adOpenStatic, adLockOptimistic Dim i As Integer For i = 0 To 1 (i).Name Next i = (0) Set = rs2 End Sub Private Sub Form_Load() = strTableName amp。 39。 Else strSql = strSql amp。 Trim() amp。 If = like Then strSql = strSql amp。 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計與實現(xiàn) 25 Trim() amp。 Trim() amp。 strTableName amp。39。結(jié)束 EXCEL 對象 Set xlApp = Nothing 39。設(shè)置活動工作表 For i = 0 To 1 For j = 0 To 1 (i + 1, j + 1) = Trim((i, j)) Next j Next i = True Exit Sub Err: MsgBox , , 錯誤 (True) 39。excel 輸出 On Error GoTo Err If (0, 0) = Then Exit Sub Dim i As Integer Dim j As Integer Dim xlApp As Dim xlBook As Dim xlSheet As Set xlApp = CreateObject() Set xlBook = 39。記錄集 ,檢索用的 Private Sub cmdExcel_Click() 39。39。 最后，我衷心地感謝所有關(guān)心和幫助過我的老師和同學(xué)。這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，衷心地感謝老師耐心的輔導(dǎo)！ 其次我要感謝的是同學(xué)，在一開始的調(diào)研和結(jié)構(gòu)化設(shè)計中他們給予了我很大的幫助，不僅幫我解 答了不少的難點，還給我提出了許多建議。使得我的論文不斷完善，對數(shù)據(jù)庫和 VB 編程有了更深的學(xué)習(xí)。在這幾個月的工作和學(xué)習(xí)生活中，我收益匪淺。 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計與實現(xiàn) 22 致謝 在本次畢業(yè)設(shè)計中，我首先要感謝的是我的指導(dǎo)老師。在這一點上，我還相當(dāng)欠缺。 然后，會用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通過各方面的比較，我選擇了 ADO，通過 ADO 控件與數(shù)據(jù)庫中各表進行連接，同時也用到少數(shù)編程實現(xiàn) VB 和 SQL 數(shù)據(jù)庫的連接。 其次是軟件的編程問題，由于以前對 VB 只是了解并不能夠靈活運用，所以在畢設(shè)期間 進行了苦讀，終于可以基本掌握了常用控件的用法和語句編程。 首先便是調(diào)研的不充分。 1．本次的課題設(shè)計首先分析了管理系統(tǒng)目前在國內(nèi)外的發(fā)展?fàn)顩r及需求分析； 2．從解決開發(fā)系統(tǒng)的基本問題入手，討論了研究和開發(fā)本系 統(tǒng)的可行性，并對開發(fā)工具及其語言進行選擇； 3．在解決了開發(fā)系統(tǒng)的基本問題之后，進行系統(tǒng)數(shù)據(jù)庫設(shè)計，并做出系統(tǒng)總體規(guī)劃，完成系統(tǒng)的具體實現(xiàn)。成功 MIS 的基礎(chǔ)是科學(xué)的管理加上科學(xué)的開發(fā)方式。這些都有待進一步改善。 結(jié)束語 經(jīng)過 幾 個多月的設(shè)計和開發(fā)， 系 統(tǒng)已經(jīng)基本 開發(fā)完畢。 （ 4）更新文檔資料的相關(guān)部分。 （ 2）管理部門進行審批，并對修改帶來的影響作出充分的估計。 系統(tǒng)維護的組織與管理 系統(tǒng)維護工 作，首先必須建立一個維護組織，確定進行維護工作所應(yīng)遵循的原則和規(guī)范化的過程，此外還應(yīng)建立一套適用于具體系統(tǒng)維護過程的文檔及管理措施，以及進行復(fù)審的標(biāo)準(zhǔn)。 （ 3）完善性維護：為滿足用戶的需求而進行的維護。 系統(tǒng)維護的內(nèi)容 按照維護對 象的不同，系統(tǒng)維護的內(nèi)容可分為以下幾類： （ 1）系統(tǒng)應(yīng)用程序維護 （ 2）數(shù)據(jù)維護 （ 3）代碼維護 （ 4）硬件設(shè)備維護 系統(tǒng)維護的類型 系統(tǒng)維護的重點是系統(tǒng)應(yīng)用軟件的維護工作，按照軟件維護的不同性質(zhì)，可以劃分為下面四種類型： （ 1）糾錯性維護：診斷和修正系統(tǒng)中遺留的錯誤。換言之，系統(tǒng)維護就是為了保證系統(tǒng)中的各個要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。運行“學(xué)生學(xué)籍管理系統(tǒng) .exe”即可。 系統(tǒng)的運行與維護 管理信息系統(tǒng)在完成系統(tǒng)實施、投入 正常運行之后，就進入了系統(tǒng)運行與維護階段。 對本系統(tǒng)進行了反復(fù)多次的測試。數(shù)據(jù)測試成功。經(jīng)過實踐證實，說明該功能完全正常，對其它的功能模塊也進行了類似的設(shè)置。分別對其進行測試。 在開發(fā)本系統(tǒng)時，為了使系統(tǒng)能夠穩(wěn)定運行，對本系統(tǒng)進行了有針對性的全面測試，采取的方式是： （ 1）菜單項測試：為了保證每一項下拉菜單能夠正確實現(xiàn)系統(tǒng)設(shè)計的功能，我把相關(guān)的基礎(chǔ)數(shù)據(jù)，基本上全部輸入到本系統(tǒng)中，并對每一個菜單項反復(fù)進行了增加、刪除、修改等操作，從而保證了菜單級功能的正確實現(xiàn)。測試對象是隨階段而異的，最基本、最初的測試是單元測試，后面的組合測試、確認測試都是以被測過的模塊作為測試對象的。因此軟件測試的目標(biāo)應(yīng)該是以盡可能少的代價和時間找出軟件系統(tǒng)中潛在的錯誤和缺陷。因此測試不是為了表明程序正確；成功的測試也不是沒有發(fā)現(xiàn)錯誤的測試。因此，我們必須重視測試工作。 硬件環(huán)境： CPU 內(nèi)存： 256M 硬盤： 40G 打印機：三星 S555p 操作系統(tǒng)： windows xp sp2 系統(tǒng) 開發(fā)工具： Microsoft Visual basic 中文企業(yè)版 數(shù)據(jù)庫： SQLServer2021 系統(tǒng)測試 在 MIS 開發(fā)過程中采用了多種措施保證 軟件質(zhì)量，但是實際開發(fā)過程中還是不可避免地會產(chǎn)生差錯，系統(tǒng)中通?？赡茈[藏著錯誤和缺陷，示經(jīng)周密測試的系統(tǒng)投入運行，將會造成難以想像的后果，因此系統(tǒng)測試是 MIS 開發(fā)過程中為保證軟件質(zhì)量必須進行的工作。能夠通過一定條件的查找設(shè)置到符