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