【正文】 End If End If Exit Sub Err: End Sub Private Sub cmdRegSave_Click() 39。39。 If = like Then strSql = strSql amp。記錄集 ,檢索用的 Private Sub cmdExcel_Click() 39。 然后，會用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通 過各方面的比較，我選擇了 ADO，通過 ADO 控件與數(shù)據(jù)庫中各表進(jìn)行連接，同時(shí)也用到少數(shù)編程實(shí)現(xiàn) VB 和 SQL 數(shù)據(jù)庫的連接。 （ 2）管理部門進(jìn)行審批，并對修改帶來的影響作出充分的估計(jì)。數(shù)據(jù)測試成功。 硬件環(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ā)過程中還是不可避學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 20 免地會產(chǎn)生差錯(cuò)，系統(tǒng)中通常可能隱藏著錯(cuò)誤和缺陷，示經(jīng)周密測試的系統(tǒng)投入運(yùn)行，將會造成難以想像的后果，因此系統(tǒng)測試是 MIS 開發(fā)過程中為保證軟件質(zhì)量必須進(jìn)行的工作。 4 詳細(xì)設(shè)計(jì) 詳細(xì)設(shè)計(jì)也稱為系統(tǒng)的物理設(shè)計(jì)，是系統(tǒng)設(shè)計(jì)者在系統(tǒng)的邏輯設(shè)計(jì)完成的基礎(chǔ) 之前對系統(tǒng)的代碼功能等的設(shè)計(jì)。 學(xué)號 姓名 成績 課程名稱 學(xué)期 成績 考試 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 12 4 系名表： 存放學(xué)校系名稱。 （ 1）學(xué)籍管理模塊 該模塊可以實(shí)現(xiàn)對現(xiàn)有學(xué)生學(xué)籍管理系統(tǒng)檔案中的專業(yè)，班號，性別，學(xué)生等基本信息的記載情況，并且可以對這些信息進(jìn)行添加，修改或 刪除。業(yè)務(wù)流程分析可以幫助我們了解該業(yè)務(wù)的具體處理過程 ,發(fā)現(xiàn)和處理系統(tǒng)調(diào)查工作中的錯(cuò)誤和疏漏 ,修改和刪除原系統(tǒng)的不合理部分 ,在新系統(tǒng)基礎(chǔ)上優(yōu)化業(yè)務(wù)處理流程。使用 VB 作為系統(tǒng)開發(fā)的開發(fā)軟件，它作為一種現(xiàn)代的編程語言，提供完善的指令控制語句、類與對象的支持及豐富的數(shù)據(jù)類型，給開發(fā)高性能系統(tǒng)提 供的保障為開發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統(tǒng)的擴(kuò)展與修改。 可行性研究的目的是用最小的代價(jià)在盡可能的時(shí)間內(nèi)確定問題是否能夠解決。 在學(xué)校的教學(xué)工作中，學(xué)籍管理就是對取得學(xué)習(xí)資格的學(xué)生，按照國家有關(guān)規(guī)定，制定相應(yīng)規(guī)章制度并予以實(shí)施。 作為數(shù) 據(jù)庫系統(tǒng)的開發(fā)， Visual Basic 是一個(gè)非常理想選擇。 隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識 ,它已進(jìn)入人類社會的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。 本論文包括需求分析、系統(tǒng)功能、系統(tǒng)設(shè)計(jì)、程序設(shè)計(jì)、系統(tǒng)測試及存在問題等方面，較為系統(tǒng)地介紹了“學(xué)生學(xué)籍管理系統(tǒng)”課題開發(fā)的整個(gè)過程。系統(tǒng)的核心是添加、修改和刪除三者之間的聯(lián)系，每一個(gè)表的修 改都將聯(lián)動(dòng)的影響其它的表，當(dāng)完成添加或刪除操作時(shí)系統(tǒng)會自動(dòng)地完成學(xué)生學(xué)籍的修改。電子管理以快捷、方便的使用而受到歡迎。 方便快速的操作，可減少學(xué)籍信息管理的漏洞，又減少因工作的冗余出現(xiàn)的錯(cuò)誤，并學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 3 且操作非常簡單，可減少許多不很必要的人員，這無論從物質(zhì)上還是工作人員的工資上都為學(xué)校節(jié)約了開支。傳統(tǒng)的手寫管理由于工作量巨大、存放麻煩、更新困難、不易備份，已隨著時(shí)代的發(fā)展而顯的落伍了?，F(xiàn)在我國的中小學(xué)校中學(xué)籍的管理水平還停留在紙介質(zhì)的基礎(chǔ)上 ，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。從客戶 /服務(wù)器方式上發(fā)展起來的框架結(jié)構(gòu)為我們提供了開發(fā)本系統(tǒng)的基礎(chǔ)。 使用范圍 本 系統(tǒng) 適用于教育界， 大學(xué)，中學(xué)的學(xué)生學(xué)籍的管理， 它是比較完善的系統(tǒng)管理軟件，可對學(xué)生進(jìn)行學(xué)籍管理，成績管理， 對學(xué)生的學(xué)籍可以隨時(shí)輸入、輸出、查找 ，調(diào)整， 通過本系統(tǒng)軟件，能幫助教研人員利用計(jì)算機(jī)，快速方便的對學(xué)生學(xué)籍管理進(jìn)行管理、輸入、輸出、查找的所需操作，使散亂的人事 管理 能夠具體化，直觀化、合理化。 基于以上理論，結(jié)合需求分析階段的數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)功能結(jié)構(gòu)圖。 表 34 數(shù)據(jù)項(xiàng) 1 用戶信息表： 存放用戶信息，數(shù)據(jù)項(xiàng)包括用戶的名稱，密碼，權(quán)限等。 每次進(jìn)入要通過用戶和密碼檢驗(yàn)，只有登錄通過檢驗(yàn)的用戶才能在進(jìn)行系統(tǒng)，進(jìn)行各個(gè)的相應(yīng)操作。 圖 43 成績管理模塊 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 18 查詢管理模塊設(shè)計(jì) 該模塊可以實(shí)現(xiàn)對學(xué)生學(xué)籍和學(xué)生成績的查詢。 （ 2）數(shù)據(jù)跟蹤：完成菜單項(xiàng)測試后，我又對系統(tǒng)內(nèi)的每一個(gè)數(shù)據(jù)進(jìn)行了跟蹤。 （ 4）預(yù)防性維護(hù)：為將要發(fā)生的變化或調(diào)整而進(jìn)行的主動(dòng)性維護(hù)。由于以前根本未曾接觸過軟件的整體開發(fā)設(shè)計(jì)，所以在前期的調(diào)研中相當(dāng)不充 分，以為把屬性和表寫得越多越好，這個(gè)問題越到后來越嚴(yán)重，而且因?yàn)榭陀^的原因耽誤了進(jìn)度，因而開題做了修改 。 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 25 參考文獻(xiàn) [1] . Database system implementation[M].北京 ,機(jī)械工業(yè)出 版社 , 2021. [2] Hector GarcialMolina , Jeffrey , Jennifer Widom. An introduction to Database Systems(Seventh Edition) [M].北京 , 機(jī)械工業(yè)出版社 ,2021. [3] 林陳雷 ,郭安源 ,葛曉東 .教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航 [M].北京 ,人民郵電出版社 ,2021. [4] 張立科 .數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐 [M].北京 ,人民郵電出版社 ,2021. [5] 張紅軍 , 王虹等 .Visual basic 中文版高級應(yīng)用與開發(fā)指南 [M].北京 ,人民郵電出版社 , 2021. [6] 伍俊良 .VB課程設(shè)計(jì)與系統(tǒng)開發(fā)案例 [M].北京 ,清華大學(xué)出版社 , 2021. [7] 姚巍 .Visual Basic 數(shù)據(jù)庫開發(fā)及工程實(shí)例 [M].北京 ,人民郵電出版社 , 2021. [8] 求是科技 .Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐 [M].北京 ,人民郵電出版社， 2021. [9] 劉瑞新，汪遠(yuǎn)征 .Visual Basic 程序設(shè)計(jì)教程 [M].北京 ,機(jī)械工業(yè)出版社， 2021. [10]劉萌，周學(xué)明，郭安源 .Visual Basic 企業(yè) 辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航 [M].北京 ,人民郵電出版社， 2021. [11]孟小峰，王珊 .數(shù)據(jù)庫系統(tǒng)導(dǎo)論 [M].北京 ,機(jī)械工業(yè)出版社， 2021. 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 26 附錄部分原代碼 查詢窗體源代碼 Dim rs2 As New 39。 amp。添加 nModeSys = 2 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 For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 33 Else Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegPrevious_Click() 39。 Txt(CurrentIndex).Text amp。判斷是否有字典字段 CurrentIndex = Index = False = False Dim ss As String 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 40 ss = Mid(Trim(Lbl(Index).Caption), Len(Trim(Lbl(Index).Caption)) 1, 2) If ss = 日期 Then = Txt(Index).Top = Txt(Index).Left = Txt(Index).Width = True Exit Sub End If Dim strSql As String Dim strSss(2) As String On Error GoTo Err Dim rsZD As New 39。39。39。 End If If Then 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 28 strSql, CN, adOpenStatic, adLockOptimistic Set = rs2 Else MsgBox 請選擇或輸入數(shù)據(jù) !, , 系統(tǒng)提示 End If End Sub Private Sub Loaddata() If Then select * from amp。釋放 xlApp 對象 End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdLook_Click() 39。老師無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，即使在萬忙中，抽出了很多時(shí)間對我的論文進(jìn)行的批改和修正。提高科學(xué)管理水平首先要提高科學(xué)管理的意識，進(jìn)行 MIS 的開發(fā)首先要具有科學(xué)的開發(fā)方法。 系統(tǒng)維護(hù)的目的是保證管理信息系統(tǒng)正常而可靠地運(yùn)行，并能使系統(tǒng)不斷得到改善和提高，以充分發(fā)揮作用。 從產(chǎn)品角度看，測試計(jì)劃中的測試項(xiàng)目包括軟件結(jié)構(gòu)中的分系統(tǒng)層、子系統(tǒng)層、功能模塊層、程序模塊層中的各類模塊，從測試本身看，分為單元測試，組合測試，確認(rèn)測試等。如圖 42。 根據(jù)分析階段得出的結(jié)論，結(jié)合本系統(tǒng)對有關(guān)數(shù)據(jù)的存儲的需要，更加方便實(shí)現(xiàn)該管理系統(tǒng)的所有功能，現(xiàn)將本管理系統(tǒng)設(shè)計(jì)成如下幾個(gè)數(shù)據(jù)庫表，表的設(shè)計(jì)如下（ SQL 腳本格式） : CREATE TABLE [dbo].[專業(yè) ] ( [專業(yè) ] [char] (50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO CREATE TABLE [dbo].[變動(dòng)內(nèi)容 ] ( [變動(dòng)內(nèi)容 ] [char] (50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO CREATE TABLE [dbo].[學(xué)生成績表 ] ( [學(xué)號 ] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [姓名 ] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [課程名稱 ] [char] (50) COLLATE Chinese_PRC_CI_AS NULL , [成績 ] [float] NULL , [學(xué)期 ] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 13 GO CREATE TABLE [dbo].[學(xué)籍信息表 ] ( [學(xué)號 ] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [姓名 ] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [性別 ] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [民族 ] [char] (30) COLLATE Chinese_PRC_CI_AS NULL , [身份證號 ] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [系名 ] [char] (50) COLLATE