【正文】 管理： = strTableName amp。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 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 30 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 Private Sub cmdRegFirst_Click() 39。 Trim() amp。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。在這一點(diǎn)上，我還相當(dāng)欠缺。 （ 4）更新文檔資料的相關(guān)部分。 對(duì)本系統(tǒng)進(jìn)行了反復(fù)多次的測(cè)試。因此，我們必須重視測(cè)試工作。 另外，為了防止用戶無限期地輸入錯(cuò)誤的用戶名或密碼，在系統(tǒng)登錄模塊中增加了限制登錄次數(shù)的功能。 6 課程名稱： 存放學(xué)校課程名稱。 （ 3）查詢模塊 該模塊可以實(shí)現(xiàn)對(duì)學(xué)生學(xué)籍和學(xué)生成績(jī)的查詢。首先，由學(xué)生處根據(jù)學(xué)校相關(guān)規(guī)定和學(xué)生成績(jī)招錄新生，并建立新生入學(xué)檔案和修改 學(xué)籍管理信息中的數(shù)據(jù)。 運(yùn)行上可行性： 本系統(tǒng)可以運(yùn)行在 Win95, Win98, Win2021 操作系統(tǒng)之上 , 就是說市場(chǎng)上流行的操作系統(tǒng)都可以支持。 因此對(duì)軟件項(xiàng)目的可行性做出細(xì)致而謹(jǐn)慎的評(píng)估是十分必要的。所以說要想提高學(xué)校管理工作的質(zhì)量和效率，學(xué)籍管理系統(tǒng)的選擇是必不可少的。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美，而且程序開發(fā)人員不必具有 C/C++編程基礎(chǔ)。這些優(yōu)點(diǎn)能夠 極大地提高學(xué)生 學(xué)籍 管理的效率 ,也是企業(yè)的科學(xué)化、正規(guī)化管理 ,與世界接軌的重要條件。計(jì)算機(jī)雖然與人類的關(guān)系愈來愈密切，還有人由于計(jì) 算機(jī)操作不方便繼續(xù)用手工勞動(dòng)。 本系統(tǒng)主要完成對(duì)學(xué)生學(xué)籍的管理，包括添加、修改、刪除，查詢，打印信息以用戶管理等六個(gè)方面。傳統(tǒng)的手寫管理由于工作量巨大、存放麻煩、更新困難、不易備份，已隨著時(shí)代的發(fā)展而顯的落伍了。并且計(jì)算機(jī)的存儲(chǔ)與快速查詢功能大大提高了學(xué)籍管理的效率，并 且還提高了學(xué)籍信息管理的精確度。 系統(tǒng)對(duì)教學(xué)工作的影響 科技的發(fā)展，社會(huì)的進(jìn)步，計(jì)算機(jī)在今天已應(yīng)用于各個(gè)領(lǐng)域之中。用計(jì)算機(jī)不但可以提高工作效率，而且還節(jié)省了許多人力物力，增強(qiáng)了學(xué)校資料的安全性。 技術(shù)上可行性： 目前 ,全國(guó)計(jì)算機(jī)越來越普及 ,幾乎每個(gè)學(xué)校都配有計(jì)算機(jī) ,為這套軟件提供了硬件環(huán)境。因此需要設(shè)置用戶權(quán)限，分為一般用戶和管理員，管理員是系統(tǒng)的管理人員，可以進(jìn)行系統(tǒng)內(nèi)的任何操作，查詢，修改，刪除，學(xué)生的學(xué)籍變動(dòng)等操作。 自頂向下逐步求精是進(jìn)行軟件結(jié)構(gòu)設(shè)計(jì)的常用途經(jīng)，但是，如果已經(jīng)有了詳細(xì)的數(shù)據(jù)流圖，也可以使用面向數(shù)據(jù)流的設(shè)計(jì)方法，用形式化的方法由數(shù)據(jù)流圖映射出軟件結(jié)構(gòu)。數(shù)據(jù)庫設(shè)計(jì)時(shí)需要綜合企業(yè)各個(gè)部門的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個(gè)數(shù)據(jù)之間的關(guān)系，按照 DBMS 提供的功能和描述工具，設(shè)計(jì)出規(guī)模適當(dāng)、正確反映數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢要求的數(shù)據(jù)模型。這也就是目前應(yīng)用系統(tǒng)的發(fā)展方向。 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 17 圖 43 學(xué)籍管理模塊 成績(jī)管理模塊設(shè)計(jì) 該模塊可以實(shí)現(xiàn)對(duì)學(xué)生成績(jī)的錄入，修改，并且可以添加課程名稱。 菜單項(xiàng)包括：系統(tǒng)管理菜單，學(xué)籍管理菜單，成績(jī)管理菜單，查詢管理菜單。 （ 2）適應(yīng)性維護(hù)：使系統(tǒng) 適用環(huán)境的變化而進(jìn)行的維護(hù)。 總的來說，在這次的畢業(yè)設(shè)計(jì)種遇到了不少的問題，大部分得到了很好的解決，但也有少部分遺留的問題。我會(huì)以他們?yōu)榘駱?，更好地努力，將這種精神帶到以后的工作和學(xué)習(xí)，使得自己更上一層樓。 where amp。39。39。 Txt(CurrentIndex).Text = Trim() = False On Error GoTo Err If strTableName = 學(xué)生成績(jī)表 Then If Lbl(CurrentIndex).Caption = 學(xué)號(hào) Then If Txt(CurrentIndex).Text Then Dim rs1 As New If Then select 姓名 from 學(xué) 籍 信 息 表 where 學(xué)號(hào) =39。字典下拉判斷 Select Case Trim(Lbl(Index).Caption) Case 性別 = Txt(Index).Top = Txt(Index).Left = Txt(Index).Width 男 女 = True Exit Sub End Select If Trim(Lbl(Index).Caption) = 課程名稱 Or Trim(Lbl(Index).Caption) = 系名 Or Trim(Lbl(Index).Caption) = 專業(yè) Or Trim(Lbl(Index).Caption) = 民族 Or 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 41 Trim(Lbl(Index).Caption) = 政治面目 Then = Txt(Index).Top = Txt(Index).Left = Txt(Index).Width strSss(0) = Trim(Lbl(Index).Caption) strSss(1) = 。39。39。 檢索 (1).Text = strTableName amp。查詢代碼 If Trim() And Trim() And Trim() Then Dim strSql As String strSql = select * from amp。在我不能夠去學(xué)校讓老師當(dāng)面指導(dǎo)的情況下，還是在通過電話和 Email 進(jìn)行交流和傳遞信息。 MIS 開發(fā)必須結(jié)合實(shí)際，嚴(yán)格 按照軟件工程的思想進(jìn)行才能保證 MIS 的高成功率和高效率 。系統(tǒng)維護(hù)的工作量往往是很大的，其費(fèi)用大約占整個(gè)生命周期的 60%，所以我們必須對(duì)系統(tǒng)維護(hù)給予足夠的重視。 在具體的測(cè)試中，一般應(yīng)遵循以下原則：由程序設(shè)計(jì)者之外的人進(jìn)行測(cè)試；測(cè)試用例應(yīng)由兩部分組成：輸入數(shù)據(jù)和預(yù)期輸出結(jié)果；應(yīng)選用不合理的輸入數(shù)據(jù)與非法輸入測(cè)試；不僅要檢驗(yàn)程序是否實(shí)現(xiàn)預(yù)期功能，還應(yīng)檢查程序是否做了不應(yīng)該做的工作；集中測(cè)試容易出錯(cuò)的程序模塊；對(duì)程序修改以后，必須重新進(jìn)行測(cè)試。新生入學(xué)時(shí)可以添加學(xué)生的學(xué)籍信息，等到畢業(yè)離校的時(shí)候可以刪除這些信息。它是軟件系統(tǒng)體系結(jié)構(gòu)，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢(shì)，將任務(wù)合理分配到 Client端和 Server端來實(shí)現(xiàn)，降低了系統(tǒng)的通訊開銷。 ER 圖如圖 32 所示。首先需要從數(shù)據(jù)流圖出發(fā)，設(shè)想完成系統(tǒng)功能的若干種合 理的物理方案，分析員應(yīng)該仔細(xì)比較這些方案，并且和用戶共同選定一個(gè)最佳方案，然后，進(jìn)行軟件結(jié)構(gòu)設(shè)計(jì)，確定軟件由哪些模塊組成以及這些模塊之間的動(dòng)態(tài)調(diào)用關(guān)系。 用戶需求 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 7 此系統(tǒng)專門為高校學(xué)籍管理所設(shè)置，用與教務(wù)處管理 學(xué)生的學(xué)籍情況，并進(jìn)行相應(yīng)的調(diào)整，同時(shí)也可用于一些老師，學(xué)生通過系統(tǒng)查詢一些學(xué)生資料，成績(jī)等信息。隨著信息時(shí)代的來臨 , 我們的各項(xiàng)工作都要講求效率 , 成績(jī)和學(xué)籍管理也不例外 , 這就為作者的軟件提供了使用群體。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；其次，計(jì)算機(jī)可以節(jié)省許多資源；第三，計(jì)算機(jī)可以大大的提高人們的工作效率； 第四，計(jì)算機(jī)可以使敏感文檔更加安全，等等。由此可見，程序編寫在開發(fā)工作中只占很小比例，而調(diào)試工作卻占整個(gè)開發(fā)工作量的一半左右，因此 “系統(tǒng)開發(fā)就是編程 ”的習(xí)慣說法顯然是片面的。 本系統(tǒng)能減少很多不必要的資源，不用像以前那樣用冗余的紙張式的管理。 隨著計(jì)算機(jī)的普及和網(wǎng)絡(luò)技術(shù)的發(fā)展， 我國(guó)的教育行業(yè)信息化建設(shè) 很早 就已經(jīng)開始在全國(guó)展開部署了。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。該軟件是以 網(wǎng)絡(luò) 編程語言為實(shí)現(xiàn)語言，其功能在系統(tǒng)內(nèi)部有源代碼直接完成。 系統(tǒng)開發(fā)背景 在學(xué)籍管理中，需要從大量的日常教學(xué)活動(dòng)中提取相關(guān)信息，以反映教學(xué)情況。 系統(tǒng)開發(fā)計(jì)劃 一般說來，管理信息系統(tǒng)的建立與應(yīng)用可以劃分成總體規(guī)劃、系統(tǒng)開發(fā)和系統(tǒng)運(yùn)行 三個(gè)階段，其中系統(tǒng)開發(fā)階段還可進(jìn)一步分為系統(tǒng)分析、系統(tǒng)設(shè)計(jì)和系統(tǒng)實(shí)施等工作環(huán)節(jié)。軟件工程使用的結(jié)構(gòu)分析設(shè)計(jì)的方法為每個(gè)階段都規(guī)定了特定的結(jié)束標(biāo) 準(zhǔn)，需求分析階段必須提出完整的準(zhǔn)確的系統(tǒng)邏輯模型，經(jīng)過用戶確認(rèn)之后才能進(jìn)入下一階段。 因此 ,在開發(fā)《學(xué)生學(xué)籍管理系統(tǒng)》之前 , 對(duì)本次開發(fā)的可行性進(jìn)行了分析。 用戶使用可行性 : 本系統(tǒng)的操作簡(jiǎn)單 , 有計(jì)算機(jī)基礎(chǔ)的人無需培訓(xùn)即可使用 , 即使是沒有計(jì)算機(jī)基礎(chǔ)的人只需經(jīng)過簡(jiǎn)單的培訓(xùn)就可以很熟練的使用本系統(tǒng)。完成一學(xué)期的教學(xué)后，由教務(wù)處組織學(xué)生進(jìn)行期末考試，并對(duì)學(xué)生期末成績(jī)進(jìn)行統(tǒng)計(jì)和分析。 系統(tǒng)功能模塊如圖 31。 8 民族表： 存放民族名稱信息。 如圖 41。因此測(cè)試不是為了表明程序正確；成功的測(cè)試也不是沒有發(fā)現(xiàn)錯(cuò)誤的測(cè)試。 系統(tǒng)的運(yùn)行與維護(hù) 管理信息系統(tǒng)在完成系統(tǒng)實(shí)施、投入正常運(yùn)行之后，就進(jìn)入了系統(tǒng)運(yùn)行與維護(hù)階段。 結(jié)束語 經(jīng)過 幾 個(gè)多月的設(shè)計(jì)和開發(fā)， 系統(tǒng)已經(jīng)基本 開發(fā)完畢。 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 24 致謝 在本次畢業(yè)設(shè)計(jì)中，我首先要感謝的是我的指導(dǎo)老師。設(shè)置活動(dòng)工作表 For i = 0 To 1 For j = 0 To 1 (i + 1, j + 1) = Trim((i, j)) 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 27 Next j Next i = True Exit Sub Err: MsgBox , , 錯(cuò)誤 (True) 39。 Else strSql = strSql amp。39。39。39。39。 Dim i As Integer On Error GoTo Err If Then 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 Else If Not Then 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 34 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