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