【正文】 供應(yīng)廠商名稱, GetType()) (供應(yīng)廠商地址, GetType()) (聯(lián)系人姓名, GetType()) (電話號碼, GetType()) (傳真號碼, GetType()) (郵箱地址, GetType()) (備注, GetType()) End If Return Table_Name 39。返回DatasetEnd Function2. 設(shè)備登記信息刪除主要代碼： Private Sub But_ZwZl_Del_Click(ByVal sender As , ByVal e As ) Handles Try If Trim(ListNo) = Then MsgBox(請選擇要刪除的記錄！, , 設(shè)備管理系統(tǒng)) Else If MsgBox(你真要刪除選中的記錄嗎？, + , 設(shè)備管理系統(tǒng)) = Then (delete from SB_RECORD where LISTNO=39。 amp。 Trim(ListNo) amp。 39。) End If End If TextClear() TextClose() dts = RecordsetToDataTable(P_Rs, SB_RECORD) = () Catch ex As Exception MsgBox(出錯了，錯誤信息為：【 amp。 amp。 】, + , 設(shè)備管理系統(tǒng)) End Try End Sub ： Private Sub But_ZwZl_Query_Click(ByVal sender As , ByVal e As ) Handles TextClear() TextOpen() ButClose() () ActionButton = 3 End Sub ： Private Sub But_ZwZl_Update_Click(ByVal sender As , ByVal e As ) Handles If Trim(ListNo) = Then MsgBox(請先選擇需要修改的記錄, + , 提示信息) Exit Sub Else ButClose() TextOpen() 39。 = False ActionButton = 2 () End If End Sub5. 增加設(shè)備登記信息主要代碼： Private Sub But_ZwZl_Add_Click(ByVal sender As , ByVal e As ) Handles TextClear() TextOpen() ButClose() ActionButton = 1 () = Format(Now, yyyyMMdd) = Format(Now, yyyyMMdd) End Sub 以上代碼增改查方法中的ActionButton數(shù)值是對應(yīng)封裝確定響應(yīng)方法里面的對應(yīng)實(shí)現(xiàn)代碼，通過點(diǎn)擊確定判斷ActionButton數(shù)值來匹配對應(yīng)要實(shí)現(xiàn)的代碼塊。結(jié)語 通過這次畢業(yè)設(shè)計，使我更進(jìn)一步地掌握了Visual Basic 這門語言，對它的功能以及應(yīng)用有了更深一步的了解，對它的操縱更熟練了。但是同時也讓我了解了到自身的許多不足，也發(fā)現(xiàn)了以前對這門語言學(xué)得不透徹，沒有很好地重視它，掌握它。通過這次畢業(yè)設(shè)計，雖然比起以前有了很大的進(jìn)步，但還是了解得不夠，學(xué)習(xí)得不夠，今后要更加努力學(xué)習(xí)好一些基礎(chǔ)的知識，以備在需要的時候發(fā)揮自身的才能。也有一部分原因是一開始對Visual Basic不熟悉，跟同學(xué)一起開發(fā)時候能力顯得有些不足，開發(fā)過程中幸虧跟一組的同學(xué)討論和學(xué)習(xí)，一段時間后才慢慢開始掌握Visual Basic的開發(fā)，過程中真的非常感謝同組的同學(xué)，讓自己學(xué)到了很多東西，明白同學(xué)們之間的交流也十分重要，交流就是進(jìn)步。經(jīng)過這次畢業(yè)作品的開發(fā)，了解到一個系統(tǒng)好不好，要經(jīng)過反復(fù)的使用才能知道，不光光是理論中分析和設(shè)計得出來的。這次設(shè)計的設(shè)備管理系統(tǒng)也有不少的不足之處：系統(tǒng)的功能不夠完善，只能說是一個簡單的設(shè)備信息管理系統(tǒng)。經(jīng)過這次畢業(yè)設(shè)計，引發(fā)了我的很多思考和興趣，首先是做程序要勤，手勤，眼勤，心勤；其次要有韌性，不怕麻煩，不怕失敗，反復(fù)調(diào)試，反復(fù)練習(xí)，這樣才能找到最佳的程序設(shè)計。參考文獻(xiàn)插入分頁符 [1]Carl Franklin，（瀟湘工作室 譯）.《Visual Basic Internet 編程指南》[M].北京人民郵電出版社，1999。[2]趙杰、李濤.《SQL Server數(shù)據(jù)庫管理、設(shè)計與實(shí)現(xiàn)教程》[M].清華大學(xué)出版社，2004年3月。[3]劉炳文.《Visual Basic程序設(shè)計教程》[M]，清華大學(xué)出版社，2006年8月第三版。[4]網(wǎng)冠科技.《Visual Basic 時尚編程百例》[M]. 北京：機(jī)械工業(yè)出版社，2001 。[5].《數(shù)據(jù)庫系統(tǒng)概論》[M].南京：南京大學(xué)出版社，1995 。[6]宋昆、李嚴(yán).《SQL Server數(shù)據(jù)庫開發(fā)實(shí)例解析》[M].機(jī)械工業(yè)出版社，2006年月。[7] 路游、于玉宗.《數(shù)據(jù)庫系統(tǒng)課程設(shè)計》[M].清華大學(xué)出版社，2009年5月第一版。 [8]王運(yùn)堅.《VISUAL BASIC 應(yīng)用指南》[M]. 北京: 人民郵電出版社, 1998。[9]曹軍生等.《SQL Server2000實(shí)用教程 》[M].北京:北京理工大學(xué)出版社 2001年9月。[10]郝春強(qiáng).《新概念VISUAL BASIC 6 教程》[M].北京: 科海集團(tuán)公司, 2001。 致 謝 本論文最終得以順利完成，非常感謝我的指導(dǎo)老師楊林。從論文選題直到論文的最終完成，他都給予我盡心盡力的指導(dǎo)楊林老師嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度深深的影響著我，對我今后的學(xué)習(xí)、工作、生活必將產(chǎn)生影響。借此機(jī)會，特向楊林老師表示最誠摯的感謝?！　「兄x信息技術(shù)學(xué)院的所有領(lǐng)導(dǎo)和老師。他們嚴(yán)謹(jǐn)?shù)膶W(xué)風(fēng)、淵博的知識、誨人不倦的品格一直感染和激勵著我不斷上進(jìn)，使我大學(xué)四年的時光充實(shí)而有意義?！昂＜{百川，取則行遠(yuǎn)”，在這所美麗的北師大珠海分校校園里，不斷成長，在這里我所學(xué)到的，必將使我受益終生?！　≡谙到y(tǒng)開發(fā)和論文寫作過程中，我和同學(xué)也參照了大量的網(wǎng)上資料和書籍資料，也因為得到了很多人的幫助和同學(xué)耐心的講解和教導(dǎo)，才能一步步的把畢業(yè)作品完成。感謝我的家人、同學(xué)、朋友對我的大力支持，他們的無私奉獻(xiàn)、關(guān)愛和支持使我能夠繼續(xù)去追求自己的人生理想和目標(biāo)。感謝所有關(guān)心、幫助和支持我的人。 專業(yè)整理分享