【正文】 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è)計中，我們遇到的困難很多，在解決它們的同時我又學(xué)到了很多，受益匪淺，特別是如何分析、建立、開發(fā)一個系統(tǒng)。在一個系統(tǒng)開發(fā)的過程中編碼不是重要的，重要的是分析系統(tǒng)、建立起系統(tǒng)模型。在分析一個系統(tǒng)前，分析人員必須要對將要開發(fā)的系統(tǒng)所涉及到的各方面知識有一個認識，然后將系統(tǒng)的模型建立起來。而且一個成功的軟件要符合用戶的需要，要以用戶為中心，開發(fā)出用戶想要的軟件，而不能自以為是、想當然的做。在程序編寫中，我認識到軟件要有簡便的界面，良好的程序風格，較全的代碼注釋。擁有這些條件，程序的可讀性才會好，開發(fā)的復(fù)雜度才能大大減少，修改代碼時更加容易下手。我認為，所謂友好的界面，就是用戶需要的界面，力求簡便全面。所以設(shè)計一個界面時，開發(fā)人員必須要了解用戶的想法，從用戶的角度去設(shè)計，當然，開發(fā)不能全聽用戶的意見，在詳細分析了系統(tǒng)后，開發(fā)人員可以向用戶提出一些修改的意見，在雙方多次交流后定出程序所需的功能，以決定界面的實現(xiàn)。在編碼中，良好的編程風格與習慣是提高工作效率的一個重要方面，而且良好的編程風格與習慣也是使軟件便于維護的基礎(chǔ)。那如何是良好的編程風格與習慣呢？我認為主要是程序的模塊化、必要的注釋。所謂模塊化就是使程序的功能實現(xiàn)分成多個單獨的功能模塊，而不能在一大段代碼中實現(xiàn)多個功能，如果這樣做，別的人是非常難讀懂你的程序。必要的注釋，顯而易見是要在程序的編寫中加入對程序的說明，原因就是為了別人能讀懂你的程序，過一段時間后你自己還能讀懂自己的程序?？偨Y(jié)這次畢業(yè)設(shè)計給我感受最深的至少有三點：1．進行軟件開發(fā)這樣的工作，要有恒心，要能靜下新來做，而不能浮躁。2．要善于同別人交流與合作，善于獲取各種有用的資源。3．要真真實實的多查資料，多問，多看。致謝經(jīng)過一個多月的畢業(yè)設(shè)計，我學(xué)會了很多知識，個人的能力有了很大的提高，對Visual Basic Server 2000有了更深刻的認識，并用Visual Basic Server 2000順利的開發(fā)了這樣的一個學(xué)生信息管理系統(tǒng)，我的畢業(yè)設(shè)計取得了應(yīng)有的效果。在這里，我還要感謝我的指導(dǎo)老師鄧老師，他幫助我解決了設(shè)計中的疑難和困惑，提出了我的畢業(yè)論文跟設(shè)計方向，為我完成畢業(yè)設(shè)計提供了極大的幫助。在我遇到問題時她總是耐心的為我解答，并幫我查找相關(guān)資料；在我遇到困難時幫助解決了不少的難點，使得系統(tǒng)能及時完成。我之所以選擇鄧老師，是因為鄧老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺，使我得到不少的提高，這對于我以后的工作和學(xué)習都有一種巨大的幫助，感謝指導(dǎo)老師耐心的輔導(dǎo)。能夠順利完成畢業(yè)課題，我還要感謝貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計算機工程系計算機網(wǎng)絡(luò)技術(shù)班,給我們提供了良好實習和設(shè)計環(huán)境。本人在此對所有向我提供幫助的老師和同學(xué)致以最誠摯的敬意。參考文獻[1] 《學(xué)用Visual Basic 編程》潭浩著西安電子科技大學(xué)出版社[2] 《數(shù)據(jù)庫原理》 丁寶康 施伯樂著 經(jīng)濟科學(xué)出版社[3] 《SQL Server數(shù)據(jù)庫開發(fā)入門與范例解析》 夏邦貴著 北京機械工業(yè)出版社[4] 《SQL Server 2005應(yīng)用開發(fā)技術(shù)指南》 彭東著 北京清華大學(xué)出版社[5] 《程序設(shè)計教程》 許薇 方修豐著 清華大學(xué)出版社[6] 《項目開發(fā)案例精粹》 馮小燕 劉斌 俞磊 牛小梅著 電子工業(yè)出版社[7] 《Visual Basic 程序設(shè)計》 張云鵬著 電子工業(yè)出版社[8] 《數(shù)據(jù)庫原理與應(yīng)用》 劉峰著 國防科技大學(xué)出版社附錄（源程