【正文】 參考文獻(xiàn) ,《Database system implementation》,機(jī)械工業(yè)出版社, 2000 GarcialMolina , Jeffrey , Jennifer Widom,《An introduction to Database Systems(Seventh Edition),機(jī)械工業(yè)出版社,2001,郭安源,葛曉東,《教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》,人民郵電出版社,2003,《數(shù)據(jù)庫(kù)開發(fā)技術(shù)與工程實(shí)踐》,人民郵電出版社,2004,王虹等《Visual basic 》,人民郵電出版社, 2002《VB課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》清華大學(xué)出版社, 2002，《Visual Basic數(shù)據(jù)庫(kù)開發(fā)及工程實(shí)例》，人民郵電出版社，《Visual Basic 》，人民郵電出版社，2004，汪遠(yuǎn)征，《Visual Basic程序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社，2001，周學(xué)明，郭安源，《Visual Basic企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航》，人民郵電出版社，2003，王珊，《數(shù)據(jù)庫(kù)系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社，2000 52 。論文的順利完成，首先我要感謝我的指導(dǎo)老師以及周圍同學(xué)朋友的幫助，感謝他們提出寶貴的意見和建議。在整個(gè)畢業(yè)論文設(shè)計(jì)的過程中我學(xué)到了做任何事情所要有的態(tài)度和心態(tài)，首先我明白了做學(xué)問要一絲不茍，對(duì)于出現(xiàn)的任何問題和偏差都不要輕視，要通過正確的途徑去解決，在做事情的過程中要有耐心和毅力，不要一遇到困難就打退堂鼓，只要堅(jiān)持下去就可以找到思路去解決問題的。通過一個(gè)月的深入學(xué)習(xí)，搜集了一大堆與畢業(yè)設(shè)計(jì)相關(guān)的資料，在老師的指導(dǎo)下，摒棄了一些無關(guān)緊要的內(nèi)容，保留了有參考價(jià)值的資料作為備用。開始是搜集資料。7結(jié)論及體會(huì)我所選論文題目是“學(xué)生成績(jī)管理系統(tǒng)”，之所以選擇這個(gè)題目，是因?yàn)槲易约焊杏X它具有挑戰(zhàn)性，越是自己薄弱的環(huán)節(jié)越要去嘗試。二、測(cè)試結(jié)果：（略）三、軟件功能結(jié)果：我按照前一階段編制的“學(xué)生成績(jī)管理系統(tǒng)模塊功能表”，對(duì)系統(tǒng)每個(gè)模塊功能，用白盒法與黑盒法進(jìn)行了系統(tǒng)的測(cè)試，并沒有發(fā)現(xiàn)錯(cuò)誤，說明了我的軟件預(yù)期功能全部實(shí)現(xiàn)。 測(cè)試進(jìn)度：9項(xiàng)測(cè)試共3天一、引言： 背景：近三天來，我按照測(cè)試計(jì)劃有條不紊地測(cè)試完了系統(tǒng)，發(fā)現(xiàn)了許多錯(cuò)誤，并改正了，測(cè)試完畢后，我對(duì)測(cè)試結(jié)果進(jìn)行了分析。②質(zhì)量：檢查每模塊的功能、性能、要求是否符合相關(guān)文檔的技術(shù)要求，不合格者，糾正錯(cuò)誤，保證質(zhì)量。為了保證我們的系統(tǒng)的質(zhì)量，為了使系統(tǒng)和用戶的需求無誤，最有效的方法就是進(jìn)行軟件測(cè)試，為了使測(cè)試有條不紊地進(jìn)行，我制定了該測(cè)試計(jì)劃。我們項(xiàng)目已進(jìn)行到了系統(tǒng)測(cè)試階段。將學(xué)生成績(jī)管理系統(tǒng)打包后，制作安裝程序的過程并沒有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個(gè)媒體上，比如軟盤，光盤等，發(fā)布學(xué)生成績(jī)管理系統(tǒng)的主要步驟如下：選擇“學(xué)生成績(jī)管理系統(tǒng)”這個(gè)包，然后指定把這個(gè)包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“學(xué)生成績(jī)管理系統(tǒng)”的發(fā)布工作了。工程編譯完成后，向?qū)г儐栂胫谱魇裁搭愋偷陌?，我們這里使用向?qū)е谱靼惭b程序。使用打包和展開向?qū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序。 Visual Basic安裝軟件提供的安裝工具包。252。部署必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢?，以便用戶來安裝應(yīng)用程序。因此，學(xué)生成績(jī)管理系統(tǒng)采用的視本地代碼的編譯格式。Visual ：P代碼和本地代碼。然后從快捷菜單中選擇“屬性”命令打開“屬性”對(duì)話框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。Visual Basic提供APP對(duì)象來存儲(chǔ)應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。 使用應(yīng)用程序更安全。 給發(fā)布應(yīng)用程序作準(zhǔn)備。 使應(yīng)用程序轉(zhuǎn)入和運(yùn)行更快。在發(fā)布學(xué)生成績(jī)管理應(yīng)用程序之前，首先應(yīng)該使用測(cè)試和調(diào)試工具對(duì)改應(yīng)用程序進(jìn)行前面測(cè)試，在排除了所有可能的錯(cuò)誤后，才可以開始對(duì)應(yīng)用程序進(jìn)行編譯。 connstr 教師登錄信息, Conn, adOpenKeyset, adLockPessimisticCall Showdata(Rs, MSHFlexGrid1)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd Sub在Visual Basic的集成開發(fā)環(huán)境中創(chuàng)建好學(xué)生成績(jī)管理系統(tǒng)后，并無意味著全部工作已完成，此時(shí)生成的應(yīng)用程序只能在Visual Basic的集成環(huán)境中運(yùn)行，要想使應(yīng)用程序能夠脫離Visual Basic的集成開發(fā)環(huán)境，然后調(diào)用打包和展開向?qū)?chuàng)建安裝程序。 amp。 amp。檢查輸入學(xué)號(hào)是否在數(shù)據(jù)庫(kù)中有同名記錄 If Trim() = Then MsgBox 請(qǐng)輸入教師編號(hào)！, vbExclamation, 注意咯！ Exit Sub Else Txtsql = select * from 教師登錄信息 Set Mrc = ExecuteSQL(Txtsql) While ( = False) If Trim((0)) = Trim() Then MsgBox 這個(gè)教師編號(hào)已經(jīng)存在，請(qǐng)重新輸入！, , 出錯(cuò)啦！ = Exit Sub Else End If Wend End If Rs(id) = Rs(姓名) = Rs(課程) = Rs(登錄密碼) = 39。 amp。Set Rs = ExecuteSQL(Txtsql)Call ShowtextIf Then a = MsgBox(請(qǐng)正確輸入要修改的學(xué)生學(xué)號(hào)！, 1 + vbExclamation, 輸入學(xué)號(hào)！) = If a = 1 Then Else Unload Form4 End IfEnd IfEnd SubPrivate Sub Command2_Click() = True = True = True = True = = = = True = False = TrueEnd SubPrivate Sub Command3_Click()Rs(姓名) = Rs(性別) = Rs(出生年月) = = False = False = False = False = False = True = FalseEnd SubPrivate Sub Command4_Click()Unload Form4End SubPrivate Sub Form_Load() = False = False = False = False = False = Falseconnstr = Provider = 。 Trim() amp。 學(xué)號(hào)= 39。 \ connstrEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd Sub圖5－5－3學(xué)生信息修改Dim Conn As New Dim Rs As New 39。Data Source= amp。Else 39。 39。 amp。Set Rs = ExecuteSQL(Txtsql)Call ShowtextIf Then MsgBox 該學(xué)號(hào)不存在,請(qǐng)輸入學(xué)號(hào), 48, 請(qǐng)輸入學(xué)號(hào)! Else = TrueEnd IfEnd SubPrivate Sub Command2_Click()Dim Txtsql As StringIf MsgBox(確定要?jiǎng)h除嗎？, vbInformation + vbYesNo, 刪除信息) = vbYes Then Txtsql = delete * from 學(xué)生基本信息表 where Txtsql = Txtsql amp。 Trim() amp。 學(xué)號(hào)= 39。 connstr 學(xué)生基本信息表, Conn, adOpenKeyset, adLockPessimisticCall Showdata(Rs, MSHFlexGrid1)End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text4_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd Sub圖5－5－2學(xué)生信息刪除Dim Conn As New Dim Rs As New 39。 amp。 amp。檢查輸入學(xué)號(hào)是否在數(shù)據(jù)庫(kù)中有同名記錄 If Trim() = Then MsgBox 請(qǐng)輸入學(xué)號(hào)！, vbExclamation, 注意咯！ Exit Sub Else Txtsql = select * from 學(xué)生基本信息表 Set Mrc = ExecuteSQL(Txtsql) While ( = False) If Trim((0)) = Trim() Then MsgBox 這個(gè)學(xué)號(hào)已經(jīng)存在，請(qǐng)重新輸入！, , 出錯(cuò)啦！ = Exit Sub Else End If Wend End If Rs(學(xué)號(hào)) = Rs(姓名) = Rs(性別) = Rs(登錄密碼) = If Then