【正文】 End IfNext檢測數(shù)據(jù)完畢后，就開始對輸入的數(shù)據(jù)進行操作，如果是添加新資料則判斷是否存在該學(xué)生的資料，如果該學(xué)生信息已經(jīng)存在則提醒用戶該學(xué)生資料已經(jīng)存在，反之則將該學(xué)生的資料添加到數(shù)據(jù)庫中；如果是修改學(xué)生資料則在數(shù)據(jù)庫中以學(xué)號為關(guān)鍵字搜索該學(xué)生的資料，然后將該學(xué)生的資料更新?！璉f EditStu(0).Enabled Then 39。添加資料 sqlstr = select * from StuInfo where SID=39。 amp。 EditStu(0).Text amp。 39。 sqlstr, con, 1, 1 If Not Then MsgBox 已經(jīng)存在學(xué)號為 amp。 EditStu(0).Text amp。 的學(xué)生資料,請重新輸入!, vbInformation EditStu(0).SetFocus Exit Sub End If : Set rs = Nothing sqlstr=insert into StuInfo(SID,SName,SGender,SPlace,SBirthday,SMinzu,SZhengzhi,SDormitory,SAddress,SCode,STel,SRemark) sqlstr = sqlstr amp。 values(39。 amp。 EditStu(0).Text amp。 39。,39。 amp。 EditStu(1).Text amp。 39。,39。 amp。 amp。 39。, sqlstr = sqlstr amp。 39。 amp。 EditStu(3).Text amp。 39。,39。 amp。 EditStu(2).Text amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 EditStu(7).Text amp。 39。, sqlstr = sqlstr amp。 39。 amp。 EditStu(4).Text amp。 39。,39。 amp。 EditStu(5).Text amp。 39。,39。 amp。 EditStu(6).Text amp。 39。,39。 amp。 EditStu(8).Text amp。 39。)Else 39。 39。修改資料 sqlstr = update StuInfo set SName=39。 amp。 EditStu(1).Text amp。 39。,SBirthday=39。 amp。 EditStu(2).Text amp。 39。,SGender=39。 amp。 amp。 39。, sqlstr = sqlstr amp。 SPlace=39。 amp。 EditStu(3).Text amp。 39。,SMinzu=39。 amp。 amp。 39。,SZhengzhi=39。 amp。 amp。 39。,SAddress=39。 amp。 EditStu(4).Text amp。 39。, sqlstr = sqlstr amp。 SCode=39。 amp。 EditStu(5).Text amp。 39。,STel=39。 amp。 EditStu(6).Text amp。 39。,SDormitory=39。 amp。 EditStu(7).Text amp。 39。,SRemark=39。 amp。 EditStu(8).Text amp。 39。 sqlstr = sqlstr amp。 where SID=39。 amp。 EditStu(0).Text amp。 39。End If sqlstr……如果是添加新資料，操作完畢后則提示用戶是否繼續(xù)添加新資料，如果用戶選擇否則退出該窗體，反之則初始化該窗體，將各文本框的內(nèi)容清空。…… If MsgBox(添加學(xué)號為 amp。 EditStu(0).Text amp。 的學(xué)生資料成功！是否繼續(xù)？, vbYesNo) = vbYes Then For i = 0 To 8 EditStu(i).Text = Next EditStu(0).SetFocus Else Call (classid) Unload Me End If……如果是修改學(xué)生資料，則提示用戶修改成功，然后退出該窗體，并更新frmstu窗體中Listview的數(shù)據(jù)。……MsgBox 修改學(xué)號為 amp。 EditStu(0).Text amp。 的學(xué)生資料成功！, vbInformation Call (classid) Unload Me……該模塊包括班級設(shè)置、學(xué)院/專業(yè)設(shè)置、課程設(shè)置和學(xué)生成績管理四個功能。在該模塊中，我使用了Adodc控件和MSFlexGrid控件來實現(xiàn)其功能。Adodc控件連接數(shù)據(jù)庫的過程為先定義該對象的ConnectionString屬性，在使用Adodc時再定義其RecordSource屬性。 = Provider=。Data Source= amp。 + \=select * from Result where Name=39。amp。amp。39。Adodc的使用方法：添加新記錄：修改記錄：刪除記錄：報表設(shè)計在實踐應(yīng)用中很有實用性，同樣，它也是一項細致的工作，沒有太難的算法；當(dāng)然要使其統(tǒng)計功能做得強大，還要有統(tǒng)計學(xué)的理論知識作指導(dǎo)。此模塊很簡單，主要實現(xiàn)的是學(xué)生信息的預(yù)覽、打印等功能。默認的數(shù)據(jù)報表設(shè)計器包含如下內(nèi)容：1．報表標頭 包含顯示在一個報表開始處的文本，例如報表標題、作者或數(shù)據(jù)庫名。如果想把報表標頭作為報表的第一頁，設(shè)置它的ForcePageBreak屬性為rptPageBreakAfter。2．頁標頭 包含在每一頁頂部出現(xiàn)的信息，例如報表的標題。3．分組標頭/注腳 包含數(shù)據(jù)報表的一個“重復(fù)”部分。每一個分組標頭與一個分組注腳相匹配。標頭和注腳對與數(shù)據(jù)環(huán)境設(shè)計器中的一個單獨的mand對象相關(guān)聯(lián)。4．細節(jié) 包含報表的最內(nèi)部的“重復(fù)”部分（記錄）。詳細部分與數(shù)據(jù)環(huán)境層次結(jié)構(gòu)中最低層的Command對象相關(guān)聯(lián)。5．頁注腳 包含在每一頁底部出現(xiàn)的信息，例如頁數(shù)。6．報表注腳 包含報表結(jié)束處出現(xiàn)的文本，例如摘要信息或一個地址或聯(lián)系人姓名。報表注腳出現(xiàn)在最后一個頁標頭和頁注腳之間。Microsoft數(shù)據(jù)報表設(shè)計器（Microsoft Data Report Designer）是一個多功能的報表生成器，以創(chuàng)建聯(lián)合分層結(jié)構(gòu)報表的能力為特色。同數(shù)據(jù)源（如數(shù)據(jù)環(huán)境設(shè)計器（Data Environment Designer）一起使用），可以從幾個不同的相關(guān)表創(chuàng)建報表。除創(chuàng)建可打印報表之外，也可以將報表導(dǎo)出到HTML或文本文件中。使用Data Report根據(jù)數(shù)據(jù)庫中的記錄來生成報表，需要完成以下步驟：置一個數(shù)據(jù)源，例如Microsoft數(shù)據(jù)環(huán)境，以訪問數(shù)據(jù)庫。設(shè)定DataReport對象的DataSource屬性為數(shù)據(jù)源。設(shè)定DataReport對象的DataMember屬性為數(shù)據(jù)成員。右鍵單擊設(shè)計器，并單擊“檢索結(jié)構(gòu)”。向每個相應(yīng)的節(jié)添加響應(yīng)的控件。為每一個控件設(shè)定DataMember和DataField屬性。運行時，使用Show方法顯示數(shù)據(jù)報表。至此，整個學(xué)籍管理系統(tǒng)開發(fā)完成，單擊Visual Basic “文件224?！啊薄Υ藞?zhí)行文件進行測試，然后利用Visual Basic自帶的打包向?qū)Чぞ逷ackage amp。 Deployment Wizard來發(fā)布該系統(tǒng)。學(xué)習(xí)好幫手 結(jié)　論通過這次的畢業(yè)設(shè)計，使我對Visual　Basic有了更深的理解。在本系統(tǒng)中對學(xué)生學(xué)籍信息進行存檔到SQL Server中，用戶通過登錄可以查到自己的學(xué)籍信息；管理員登錄對學(xué)生學(xué)籍信息進行維護和修改等操作。本系統(tǒng)中主要的功能有以下幾個方面：l 學(xué)生信息管理：能對學(xué)生信息進行添加、修改、刪除。l 課程管理：對課程進行添加、修改、刪除操作。l 專業(yè)/學(xué)院設(shè)置：l 考試成績管理：l 查詢學(xué)生信息：根據(jù)學(xué)號或姓名對學(xué)生信息進行精確/模糊查詢l 用戶管理：定義使用本系統(tǒng)的用戶名稱及密碼此系統(tǒng)還有以下幾個方面的問題需要解決：1. 此系統(tǒng)的整個界面做的不是很美觀，存在一些視覺上的問題。2. 學(xué)生的信息不是很完善，例如學(xué)生的電子信箱，手機號碼等具體的聯(lián)系方式?jīng)]有做進一步的統(tǒng)計。未來展望：首先，對整體系統(tǒng)的界面，進行美化。盡量能給使用者帶來視覺上的滿意。然后，對學(xué)生的具體信息，有待進一步完善。相信以后的功能會更完善，更有使用價值。謝 辭畢業(yè)設(shè)計剛開始，遇到許多問題，從開始的茫然到此次設(shè)計結(jié)束，有老師的指導(dǎo)，同學(xué)的幫助使我受益匪淺，再次感謝于國華老師。于國華老師治學(xué)嚴謹，學(xué)識淵博，品德高尚，平易近人，在我學(xué)習(xí)期間不僅傳授了做學(xué)問的秘訣，還傳授了做人的準則。這些都將使我終生受益。無論是在理論學(xué)習(xí)階段，還是在日常生活中，無不得到于老師的悉心指導(dǎo)和幫助。我愿借此機會向老師們表示衷心的感謝！回顧三年學(xué)習(xí)期間的一千多個日日夜夜，關(guān)心和支持我學(xué)習(xí)的所有老師和朋友們表示真摯的謝意！感謝對我的關(guān)心、關(guān)注和支持！在即將畢業(yè)離校之際，要感謝室友和同學(xué)在生活上給予我的關(guān)心和幫助以及學(xué)業(yè)上的切磋和指點，感謝計算機軟件專業(yè)全班同學(xué)的幫助和勉勵。同窗之誼和手足之情，我終生難忘！路漫漫其修遠兮，吾將上下而求索。愿在未來的學(xué)習(xí)和工作過程中，以更加豐厚的成果來答謝曾經(jīng)關(guān)心、幫助和支持過我的所有領(lǐng)導(dǎo)、老師、同學(xué)和朋友們！參考文獻[1] 抖斗書屋. Visual Basic , 1999[2] David Jung Pierre Boutquin John . Visual Basic 開發(fā)人員參考手冊. 電子工業(yè)出版社,2000[3] 袁鵬飛 孫軍安. SQL Server 2000數(shù)據(jù)庫系統(tǒng)管理. 人民郵電出版社, 2001[4] 李真文. Visual Basic .　北京希望電子出版社,2002[5] 張海藩. 軟件工程導(dǎo)論. 清華大學(xué)出版社，2002[6] BobReselma. Visual Basic 使用指南. 電子工業(yè)出版社 [7] Ned Sne. Microsoft Office 2003自學(xué)通. 機械工業(yè)出版社 [8] Microsoft. Visual Basic . 電子工業(yè)出版社[9] 仲維俊. Visual Basic 完全自學(xué)手冊. 機械工業(yè)出版社[10] 劉文濤. Visual Basic+Acces數(shù)據(jù)庫開發(fā)與實例. 清華大學(xué)出版社 [11] 明日科技. SQL [12] 西爾伯沙茨. 數(shù)據(jù)庫系統(tǒng)概念. 機械工業(yè)出版社[13] 朱新華. Visual Basic程序設(shè)計. 廣西師范大學(xué)出版社，2006[14] 楊俊宇. 淺談VB程序教學(xué)方法[J]. 科技資訊，2006[15] 孫秀. VB教學(xué)方法改革的探索與實踐[J]. [16] [J]. [17] 康麗萍. VB教學(xué)的幾點體會[J]. 農(nóng)業(yè)網(wǎng)絡(luò)信息，2005[18]POWELL JW 丁維剛 林向群(譯).空氣靜壓軸承設(shè)計[M].北京:國防工業(yè)出版社,1978.[19]劉暾 劉育華 [M].哈爾濱:哈爾濱工業(yè)大學(xué)出版社,1990,4.[20]鄭阿奇. Visual Basic教程. ,6寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來越容易。不奮斗就是每天都很容易，可一年一年越來越難。能干的人，不在情緒上計較，只在做事上認真；無能的人！不在做事上認真，只在情緒上計較。拼一個春夏秋冬！贏一個無悔人生！早安！—————獻給所有努力的人.