【正文】 If = ThenMsgBox 請輸入課程號檢索, vbOKOnly + vbExclamation, 警告Else39。If () = 刪除課程 Or = 修改課程 Then = Provider=。Persist Security Info=False。Data Source=chengji = adCmdText = select * from 課程表 where 課程號=39。 amp。 Trim() amp。 39。 = (0) = (1) = (2) = (3)End IfEnd SubPrivate Sub Command18_Click() = = = = = End SubPrivate Sub Command2_Click()(0).Value = (2).Value = (4).Value = (5).Value = (6).Value = (7).Value = (3).Value = MsgBox 修改成功End SubPrivate Sub Command3_Click()(0).Value = (2).Value = (4).Value = (5).Value = (6).Value = (7).Value = (3).Value = = = = = = = = MsgBox 添加成功End SubPrivate Sub Command4_Click() = = = = = = End SubPrivate Sub Command5_Click()If = ThenMsgBox 選擇操作方式ElseIf = ThenMsgBox 選擇查詢條件Exit SubEnd IfEnd If = Provider=。Persist Security Info=False。Data Source=denglu = adCmdText = select * FROM 教師信息 where amp。 Trim() amp。 =39。 amp。 Trim() amp。 39。 If = 0 ThenMsgBox 沒有記錄 Else = (0) = (2) = (4) = (5) = (6) = (7) = (8) = (9) = (3) = TrueEnd IfEnd SubPrivate Sub Command6_Click()(0).Value = (2).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (3).Value = = = = = = = = = MsgBox 添加成功End SubPrivate Sub Command7_Click()(0).Value = (2).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (3).Value = MsgBox 修改成功End SubPrivate Sub Command9_Click()MsgBox 刪除成功 = = = = = = = = End SubPrivate Sub Form_Load()If = 增加課程 Then = FalseElse = TrueEnd If = ( ) / 2 = ( ) / 2 = False = False = False = False = False = False = False = False = False = False = Provider=。Persist Security Info=False。Data Source=denglu = adCmdText = select * from 學(xué)生信息End SubPrivate Sub gly_Click() = True = False = False = False = False = False = False = False = False = FalseEnd SubPrivate Sub js_Click() = False = False = False = False = False = False = True = False = False = FalseEnd SubPrivate Sub tc_Click()EndEnd SubPrivate Sub Timer1_Timer() = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now()))End SubPrivate Sub xgjsxx_Click() = False = False = False = False = False = False = True = False = False = False = False = FalseEnd SubPrivate Sub xgxsxx_Click() = Provider=。Persist Security Info=False。Data Source=denglu = adCmdText = select * from 學(xué)生信息 = False = True = False = False = False = False = False = False = False = False = False = FalseEnd SubPrivate Sub xscjgl_Click() = False = False = False = False = False = False = True = False = False = FalseEnd SubPrivate Sub xx_Click() = False = False = False = False = False = False = True = False = False = FalseEnd SubPrivate Sub zx_Click()Unload MeEnd Sub第五章 總結(jié)與展望在畢業(yè)設(shè)計(jì)中，我們遇到的困難很多，在解決它們的同時(shí)我又學(xué)到了很多，受益匪淺，特別是如何分析、建立、開發(fā)一個(gè)系統(tǒng)。在一個(gè)系統(tǒng)開發(fā)的過程中編碼不是重要的，重要的是分析系統(tǒng)、建立起系統(tǒng)模型。在分析一個(gè)系統(tǒng)前，分析人員必須要對將要開發(fā)的系統(tǒng)所涉及到的各方面知識有一個(gè)認(rèn)識，然后將系統(tǒng)的模型建立起來。而且一個(gè)成功的軟件要符合用戶的需要，要以用戶為中心，開發(fā)出用戶想要的軟件，而不能自以為是、想當(dāng)然的做。在程序編寫中，我認(rèn)識到軟件要有簡便的界面，良好的程序風(fēng)格，較全的代碼注釋。擁有這些條件，程序的可讀性才會好，開發(fā)的復(fù)雜度才能大大減少，修改代碼時(shí)更加容易下手。我認(rèn)為，所謂友好的界面，就是用戶需要的界面，力求簡便全面。所以設(shè)計(jì)一個(gè)界面時(shí)，開發(fā)人員必須要了解用戶的想法，從用戶的角度去設(shè)計(jì)，當(dāng)然，開發(fā)不能全聽用戶的意見，在詳細(xì)分析了系統(tǒng)后，開發(fā)人員可以向用戶提出一些修改的意見，在雙方多次交流后定出程序所需的功能，以決定界面的實(shí)現(xiàn)。在編碼中，良好的編程風(fēng)格與習(xí)慣是提高工作效率的一個(gè)重要方面，而且良好的編程風(fēng)格與習(xí)慣也是使軟件便于維護(hù)的基礎(chǔ)。那如何是良好的編程風(fēng)格與習(xí)慣呢？我認(rèn)為主要是程序的模塊化、必要的注釋。所謂模塊化就是使程序的功能實(shí)現(xiàn)分成多個(gè)單獨(dú)的功能模塊，而不能在一大段代碼中實(shí)現(xiàn)多個(gè)功能，如果這樣做，別的人是非常難讀懂你的程序。必要的注釋，顯而易見是要在程序的編寫中加入對程序的說明，原因就是為了別人能讀懂你的程序，過一段時(shí)間后你自己還能讀懂自己的程序?？偨Y(jié)這次畢業(yè)設(shè)計(jì)給我感受最深的至少有三點(diǎn)：1．進(jìn)行軟件開發(fā)這樣的工作，要有恒心，要能靜下新來做，而不能浮躁。2．要善于同別人交流與合作，善于獲取各種有用的資源。3．要真真實(shí)實(shí)的多查資料，多問，多看。致謝經(jīng)過一個(gè)多月的畢業(yè)設(shè)計(jì)，我學(xué)會了很多知識，個(gè)人的能力有了很大的提高，對Visual Basic Server 2000有了更深刻的認(rèn)識，并用Visual Basic Server 2000順利的開發(fā)了這樣的一個(gè)學(xué)生信息管理系統(tǒng)，我的畢業(yè)設(shè)計(jì)取得了應(yīng)有的效果。在這里，我還要感謝我的指導(dǎo)老師鄧?yán)蠋?，他幫助我解決了設(shè)計(jì)中的疑難和困惑，提出了我的畢業(yè)論文跟設(shè)計(jì)方向，為我完成畢業(yè)設(shè)計(jì)提供了極大的幫助。在我遇到問題時(shí)她總是耐心的為我解答，并幫我查找相關(guān)資料；在我遇到困難時(shí)幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)完成。我之所以選擇鄧?yán)蠋?，是因?yàn)猷嚴(yán)蠋熣J(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝指導(dǎo)老師耐心的輔導(dǎo)。能夠順利完成畢業(yè)課題，我還要感謝貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)班,給我們提供了良好實(shí)習(xí)和設(shè)計(jì)環(huán)境。本人在此對所有向我提供幫助的老師和同學(xué)致以最誠摯的敬意。參考文獻(xiàn)[1] 《學(xué)用Visual Basic 編程》潭浩著西安電子科技大學(xué)出版社[2] 《數(shù)據(jù)庫原理》 丁寶康 施伯樂著 經(jīng)濟(jì)科學(xué)出版社[3] 《SQL Server數(shù)據(jù)庫開發(fā)入門與范例解析》 夏邦貴著 北京機(jī)械工業(yè)出版社[4] 《SQL Server 2005應(yīng)用開發(fā)技術(shù)指南》 彭東著 北京清華大學(xué)出版社[5] 《程序設(shè)計(jì)教程》 許薇 方修豐著 清華大學(xué)出版社[6] 《項(xiàng)目開發(fā)案例精粹》 馮小燕 劉斌 俞磊 牛小梅著 電子工業(yè)出版社[7] 《Visual Basic 程序設(shè)計(jì)》 張?jiān)迄i著 電子工業(yè)出版社[8] 《數(shù)據(jù)庫原理與應(yīng)用》 劉峰著 國防科技大學(xué)出版社附錄（源程