【正文】 在進(jìn)行詳細(xì)的過程設(shè)計(jì)和編寫程序之前，首先進(jìn)行結(jié)構(gòu)設(shè)計(jì)，其好處在于可以在軟件開發(fā)的早期站在全局高度對(duì)軟件結(jié)構(gòu)進(jìn)行優(yōu)化，在這個(gè)時(shí)期進(jìn)行優(yōu)化付出的代價(jià)不高，卻可以使軟件質(zhì)量得到重大改進(jìn)。 （ 1）學(xué)籍管理模塊 該模塊可以實(shí)現(xiàn)對(duì)現(xiàn)有學(xué)生學(xué)籍管理系統(tǒng)檔案中的專業(yè)，班號(hào)，性別，學(xué)生等基本信息的記載情況，并且可以對(duì)這些信息進(jìn)行添加，修改或刪除。 系統(tǒng)功能模塊如圖 31。 概念設(shè)計(jì) 在了解了系統(tǒng)的各個(gè)模 塊之后，我們來對(duì)數(shù)據(jù)庫的結(jié)構(gòu)進(jìn)行創(chuàng)建，根據(jù)模塊中各個(gè)部分我們創(chuàng)建出一些數(shù)據(jù)結(jié)構(gòu)，并建立這些數(shù)據(jù)之間的關(guān)系， 學(xué)籍管理系統(tǒng)的實(shí)體主要是學(xué)生和成績。 根據(jù)數(shù)據(jù)庫的結(jié)構(gòu)創(chuàng)建，了解了各個(gè)數(shù)據(jù)之間的關(guān)系，接下來設(shè)計(jì)以下詳細(xì)的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)如表 44 數(shù)據(jù)項(xiàng)。 4 系名表： 存放學(xué)校系名稱。 8 民族表： 存放民族名稱信息。 C/S （ Client/Server）結(jié)構(gòu)，即大家熟知的客戶機(jī)和服務(wù)器結(jié)構(gòu)。 所以 C/S 的安全性能比 B/S 要高的多。 4 詳細(xì)設(shè)計(jì) 詳細(xì)設(shè)計(jì)也稱為系統(tǒng)的物理設(shè)計(jì)，是系統(tǒng)設(shè)計(jì)者在系統(tǒng)的邏輯設(shè)計(jì)完成的基礎(chǔ)之前對(duì)系統(tǒng)的代碼功能等的設(shè)計(jì)。 如圖 41。 圖 42 主界面 學(xué)籍管理模塊設(shè)計(jì) 該模塊可以實(shí)現(xiàn)對(duì)現(xiàn)有學(xué)生學(xué)籍管理系統(tǒng)檔案中的專業(yè)，學(xué)號(hào)，性別，民族等學(xué)生基本信息的記載情況的查看，并且可以對(duì)這些信息進(jìn)行添加，修改或刪除。如圖 43。 硬件環(huán)境： CPU 內(nèi)存： 256M 硬盤： 40G 打印機(jī)：三星 S555p 操作系統(tǒng)： windows xp sp2 系統(tǒng) 開發(fā)工具： Microsoft Visual basic 中文企業(yè)版 數(shù)據(jù)庫： SQLServer2021 系統(tǒng)測試 在 MIS 開發(fā)過程中采用了多種措施保證 軟件質(zhì)量，但是實(shí)際開發(fā)過程中還是不可避免地會(huì)產(chǎn)生差錯(cuò)，系統(tǒng)中通?？赡茈[藏著錯(cuò)誤和缺陷，示經(jīng)周密測試的系統(tǒng)投入運(yùn)行，將會(huì)造成難以想像的后果，因此系統(tǒng)測試是 MIS 開發(fā)過程中為保證軟件質(zhì)量必須進(jìn)行的工作。因此測試不是為了表明程序正確；成功的測試也不是沒有發(fā)現(xiàn)錯(cuò)誤的測試。測試對(duì)象是隨階段而異的，最基本、最初的測試是單元測試，后面的組合測試、確認(rèn)測試都是以被測過的模塊作為測試對(duì)象的。分別對(duì)其進(jìn)行測試。數(shù)據(jù)測試成功。 系統(tǒng)的運(yùn)行與維護(hù) 管理信息系統(tǒng)在完成系統(tǒng)實(shí)施、投入 正常運(yùn)行之后，就進(jìn)入了系統(tǒng)運(yùn)行與維護(hù)階段。換言之，系統(tǒng)維護(hù)就是為了保證系統(tǒng)中的各個(gè)要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。 （ 3）完善性維護(hù)：為滿足用戶的需求而進(jìn)行的維護(hù)。 （ 2）管理部門進(jìn)行審批，并對(duì)修改帶來的影響作出充分的估計(jì)。 結(jié)束語 經(jīng)過 幾 個(gè)多月的設(shè)計(jì)和開發(fā)， 系 統(tǒng)已經(jīng)基本 開發(fā)完畢。成功 MIS 的基礎(chǔ)是科學(xué)的管理加上科學(xué)的開發(fā)方式。 首先便是調(diào)研的不充分。 然后，會(huì)用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通過各方面的比較，我選擇了 ADO，通過 ADO 控件與數(shù)據(jù)庫中各表進(jìn)行連接，同時(shí)也用到少數(shù)編程實(shí)現(xiàn) VB 和 SQL 數(shù)據(jù)庫的連接。 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 22 致謝 在本次畢業(yè)設(shè)計(jì)中，我首先要感謝的是我的指導(dǎo)老師。使得我的論文不斷完善，對(duì)數(shù)據(jù)庫和 VB 編程有了更深的學(xué)習(xí)。 最后，我衷心地感謝所有關(guān)心和幫助過我的老師和同學(xué)。記錄集 ,檢索用的 Private Sub cmdExcel_Click() 39。設(shè)置活動(dòng)工作表 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 , , 錯(cuò)誤 (True) 39。39。 Trim() amp。 If = like Then strSql = strSql amp。 Else strSql = strSql amp。 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。39。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。 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è)計(jì)與實(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。用于記 錄字段數(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。 amp。39。 39。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è)計(jì)與實(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。 strLook = Trim() If strLook Then 1 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 28 End If End Sub Private Sub cmdRegNext_Click() 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è)計(jì)與實(shí)現(xiàn) 27 Private Sub cmdRegFirst_Click() 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。 39。 Trim() amp。 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 25 Trim() amp。 strTableName amp。結(jié)束 EXCEL 對(duì)象 Set xlApp = Nothing 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。39。這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，衷心地感謝老師耐心的輔導(dǎo)！ 其次我要感謝的是同學(xué)，在一開始的調(diào)研和結(jié)構(gòu)化設(shè)計(jì)中他們給予了我很大的幫助，不僅幫我解 答了不少的難點(diǎn)，還給我提出了許多建議。在這幾個(gè)月的工作和學(xué)習(xí)生活中，我收益匪淺。在這一點(diǎn)上，我還相當(dāng)欠缺。 其次是軟件的編程問題，由于以前對(duì) VB 只是了解并不能夠靈活運(yùn)用，所以在畢設(shè)期間 進(jìn)行了苦讀，終于可以基本掌握了常用控件的用法和語句編程。 1．本次的課題設(shè)計(jì)首先分析了管理系統(tǒng)目前在國內(nèi)外的發(fā)展?fàn)顩r及需求分析； 2．從解決開發(fā)系統(tǒng)的基本問題入手，討論了研究和開發(fā)本系 統(tǒng)的可行性，并對(duì)開發(fā)工具及其語言進(jìn)行選擇； 3．在解決了開發(fā)系統(tǒng)的基本問題之后，進(jìn)行系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)，并做出系統(tǒng)總體規(guī)劃，