【正文】 這次課程實踐，加深了我對Visual Basic 的了解，特別是又學會了新的控件，比如ADODC，DataGrid，DataReport，DataEnvironment的常用屬性和使用方法。最后我在無意中發(fā)現把鼠標停留在工具箱欄的右邊界時，可以調節(jié)工具箱的大小，我向右寬了一些，然后工具箱上多了許多的控件，這樣才找到了ToolBar和ImageList 控件。在編寫代碼的過程中，我主要學習了老師提供給我們的課件和用VB 開發(fā)的 Access 數據庫的例子，尤其是第四章數據庫應用系統(tǒng)開發(fā)，是我在實驗過程中少走了許多彎路，窗體界面并沒有什么大的創(chuàng)新。下面是一份導出的課程信息表報表的內容：課程信息表課程編號課程名稱學時課程類型0001高等數學（上）4800010002大學物理6000010003化學4800010004政治4800020005英語4800020006影視鑒賞3600030007民法基礎2400030008地圖制圖基礎1600030009數據結構4800040010數據庫原理與應用3600040011工程力學4800030012音樂鑒賞160002 關于系統(tǒng)此部分提供了使用須知和幫助文檔兩個窗口。全部記錄Dim sql As Stringsql = select* from Student order by Sno = adUseClient sql, n, adOpenDynamic, adLockPessimistic, adCmdTextSet = rst_student = vbDefault sqlEnd SubPrivate Sub Command3_Click() 39。 sql5 amp。 sql1 amp。 amp。 amp。 amp。麻煩End IfIf = vbChecked Then sql3 = Ssex like 39。 % amp。 Trim( amp。%39。最后一條記錄End SubPrivate Sub cmd_first_Click() 39。對退出進行確認39。刪除一條記錄Dim opt As StringOn Error GoTo deleror 39。添加一條記錄 = True = True‘此處為了保證系統(tǒng)的安全，用戶在將一條新的有效的記錄寫入到數據庫之前，不能再添加新的空白的記錄，因為數據庫中主鍵的約束不允許添加空白的記錄，而添加空白記錄本身也沒有意義。 39。功能 測繪116班 水文112班 英語112班End Sub各個模塊信息查找的功能都是相似的，下面繼續(xù)以學生信息模塊為代表，給出這一模塊的界面和主要實現代碼:考慮到查找關鍵字的實用性，系統(tǒng)提供了SQL 語言查詢功能和便于操作的按學號、姓名、性別、班級、生日、家庭住址查找的功能，雖然也可以實現通過電話號碼和簡歷查找的功能，但是這樣做的實用性似乎并不大?？焖偾宄弦淮屋斎氲臄祿?= = = = = = False = FalseEnd SubPrivate Sub cmd_exit_Click()Unload MeEnd SubPrivate Sub cmd_yes_Click() 39。添加學生所屬的院系和班級時，采用列表框選擇的方 39。 添加學生記錄 控件向SQL 2000 數據庫中寫入記錄。Integrated Security=SSPI。 amp。, vbInformation, = True Else MsgBox 密碼不正確, vbExclamation + vbOKOnly, = End If End IfEnd IfEnd SubPrivate Sub cmd_yes_Click()Dim sql1 As StringDim rst_psd As New 39。下面是修改密碼窗體frm_psdmodify的界面：這一部分的代碼為：Option ExplicitPrivate Sub cmd_cancel_Click()Dim opt As Stringopt = MsgBox(您確定要退出修改密碼嗎？, vbYesNo, )If opt = vbYes Then 39。Integrated Security=SSPI。 39。 amp。Integrated Security=SSPI。添加教師信息End SubPrivate Sub teachermodify_Click() 39。錄入成績信息End SubPrivate Sub gradequery_Click() ‘成績查詢End SubPrivate Sub help_Click() ‘幫助文檔End SubPrivate Sub loginagain_Click() 39。使用ToolBar 程序的美觀性和直觀性都有了一些提高，下面是ToolBar控件的代碼。中國礦業(yè)大學環(huán)境與測繪學院數據庫技術與應用課程實踐目錄第一章 系統(tǒng)分析與設計………………………………………………………………… 3 ……………………………………………………………………. 3……………………………………………………………………….. 3第二章 系統(tǒng)實施……………………………………………………………………………. 5 主界面設置…………………………………………………………………….. 6 全局變量設置…………………………………………………………………. 9 用戶登錄窗口………………………………………………………………… 11 密碼修改窗口………………………………………………………………… 12 用戶注冊窗口………………………………………………………………… 16第三章 信息維護…………………………………………………………………………… 16 添加學生記錄………………………………………………………………… 16 查詢學生記錄………………………………………………………………… 20 生成報表窗口………………………………………………………………… 28 關于系統(tǒng)窗口………………………………………………………………… 29第四章 實驗總結…………………………………………………………………………. 31 實驗過程………………………………………………………………………… 31 問題解決…………………………………………………………………………. 31 經驗總結…………………………………………………………………………. 33第五章 參考資料………………………………………………………………………….. 33第一章 系統(tǒng)分析與設計隨著學校的規(guī)模不斷擴大，學生數量急劇增加，有關學生的各種信息量也成倍增長。這一過程使用 select case …… end select 語句，比使用 if …… end if語句，程序簡化很多。重新登錄End SubPrivate Sub passwordmodify_Click() 39。修改教師信息End SubPrivate Sub teacherquery_Click() 39。Persist Security Info=False。 amp。 39。Persist Security Info=False。對用戶行為進行確認Unload MeElse Exit SubEnd IfEnd SubPrivate Sub cmd_check_Click() 39。新密碼不能為空If = ThenMsgBox 密碼不能為空, vbInformation, 密碼不能為空Else If = Then MsgBox 不能和原來的密碼一樣, vbInformation, 39。 39。Persist Security Info=False。為了保證系統(tǒng)的正常運行，在程序中對學生的學號、姓名和行唄進行檢驗，如果為空則不執(zhí)行寫入數據庫的命名，以降低系統(tǒng)出現錯誤的可能。式，這樣一個班級只需輸入一次，可以節(jié)省時間，減 39。添加學生記錄的主要操作，因為學號、姓名和性別為 39。當然也可以通過SQL 語句來執(zhí)行這樣的查詢。Else sql4 = Sclass like 39。 = False 39。“數據無價”，操作必須謹慎。Dim opt As String39。第一條記錄End SubPrivate Sub cmd_last_Click() 39。.對于選