【正文】 所以此處仍 _ 默認(rèn)調(diào)用frm_studentadd窗口添加記錄。修改一條記錄On Error GoTo erradjust = Trueerradjust:If 0 ThenMsgBox End IfEnd SubPrivate Sub cmd_cancel_Click() 39。刪除一條記錄Dim opt As StringOn Error GoTo deleror 39。 39。將刪除一條記錄，如果選擇“否”，將取消操作opt = MsgBox(你確定要?jiǎng)h除嗎？, vbYesNo, )If opt = vbYes Then = TrueMsgBox 刪除成功, vbExclamation + vbOKOnly, = FalseElse Exit SubEnd Ifdeleror:If 0 ThenMsgBox End IfEnd SubPrivate Sub cmd_refresh_Click() 39。此處原位cmd_exit,用于退出系統(tǒng)，使用中發(fā)現(xiàn)此“退出”鍵，位置不明顯，且功能簡(jiǎn)單， _比較多余，所以改為“刷新按鈕”，在通過frm_studentadd 窗口添加學(xué)生記錄后，刷新系統(tǒng)， _可以讓cmd_add的功能恢復(fù)正常，同時(shí)舒心DataGrid1的內(nèi)容更新，方便查看剛輸入的內(nèi)容Dim sql As Stringsql = select* from Student order by Sno = adUseClient sql, n, adOpenDynamic, adLockPessimistic, adCmdTextSet = rst_student = vbDefault sql = False = False = False = True 39。對(duì)退出進(jìn)行確認(rèn)39。opt = MsgBox(你確定要退出嗎, vbYesNo, )39。Unload Me39。 Exit Sub39。最后一條記錄End SubPrivate Sub cmd_first_Click() 39。上一條記錄If Not ThenElse If And 0 Then MsgBox 已經(jīng)是第一條記錄！, vbInformation, End IfEnd IfEnd SubPrivate Sub cmd_next_Click() 39。查詢Dim rs_findstudent As New Dim sql As String 39。模糊查詢和多條件查詢，考慮到SQL語(yǔ)言的特 39。%39。中的查詢條件，也都添加了一個(gè)amp。 39。市縣鎮(zhèn)村的人，或者同姓張或他姓的人Dim sql1 As StringDim sql2 As StringDim sql3 As StringDim sql4 As StringDim sql5 As StringDim sql6 As StringIf = vbChecked Then sql1 = Sno=39。 Trim( amp。 39。%39。 amp。 % amp。 39。%39。不能用”=“比較文本數(shù)據(jù)，除非是NOT NULL，所以對(duì)于姓名應(yīng)該用Like 39。麻煩End IfIf = vbChecked Then sql3 = Ssex like 39。 Trim( amp。 39。%39。 amp。 % amp。 39。%39。 amp。 % amp。 39。%39。 amp。 % amp。 39。%39。 sql1 amp。 sql2 amp。 sql3 amp。 sql4 amp。 sql5 amp。 sql6 = adUseClient sql, n, adOpenKeyset, adLockPessimistic = False = False = FalseSet = rs_findstudent sqlEnd SubPrivate Sub cmd_sqlquery_Click() 39。建議不要采用ＳＱＬ查詢，避免出現(xiàn)不必要的錯(cuò)誤Dim rs_findstudent As New 39。確定錄入數(shù)據(jù)按鈕的功能 = False = False = False = TrueEnd SubPrivate Sub cmdclear_Click() = False = False = False = False = False = False = = = = = = End SubPrivate Sub cmdexit_Click() 39。全部記錄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。菜單退出Unload MeEnd SubPrivate Sub Form_Load() = 2Set rst_student = New = False 39。不可刪除 = False 39。并沒有什么代碼。下面是一份導(dǎo)出的課程信息表報(bào)表的內(nèi)容：課程信息表課程編號(hào)課程名稱學(xué)時(shí)課程類型0001高等數(shù)學(xué)（上）4800010002大學(xué)物理6000010003化學(xué)4800010004政治4800020005英語(yǔ)4800020006影視鑒賞3600030007民法基礎(chǔ)2400030008地圖制圖基礎(chǔ)1600030009數(shù)據(jù)結(jié)構(gòu)4800040010數(shù)據(jù)庫(kù)原理與應(yīng)用3600040011工程力學(xué)4800030012音樂鑒賞160002 關(guān)于系統(tǒng)此部分提供了使用須知和幫助文檔兩個(gè)窗口。運(yùn)行界面如下： 實(shí)現(xiàn)代碼為：Option ExplicitPrivate Sub Form_Load()Dim strline As String = Open amp。 strline amp。這些東西時(shí)在網(wǎng)上查找學(xué)到的，非常感謝在網(wǎng)上熱心認(rèn)真回答他人問題的網(wǎng)友。在編寫代碼的過程中，我主要學(xué)習(xí)了老師提供給我們的課件和用VB 開發(fā)的 Access 數(shù)據(jù)庫(kù)的例子，尤其是第四章數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)，是我在實(shí)驗(yàn)過程中少走了許多彎路，窗體界面并沒有什么大的創(chuàng)新。下面是我遇到的幾個(gè)問題：① DataEnvironment 中 Connection 屬性如下圖需要選擇一個(gè)數(shù)據(jù)庫(kù)，最開始我在一臺(tái)名為ZHANGJIANTAO裝有Windows XP的計(jì)算機(jī)上測(cè)試程序，并沒有什么問題。我以為是Win 7 系統(tǒng)的問題，于是把 服務(wù)器的名稱改為DELLPC，程序又可以正常運(yùn)行了。②在工具箱中找不到ToolBars 和 ImageList 控件，我上網(wǎng)查找資料得知需要在”工程—部件”選項(xiàng)中勾選“Microsoft Common Control ”一項(xiàng)，我參照老師給的例子，在部件中選擇和例子中一樣的選項(xiàng)，卻還是找不到這兩個(gè)控件。最后我在無(wú)意中發(fā)現(xiàn)把鼠標(biāo)停留在工具箱欄的右邊界時(shí)，可以調(diào)節(jié)工具箱的大小，我向右寬了一些，然后工具箱上多了許多的控件，這樣才找到了ToolBar和ImageList 控件?；蛘咴诠ぞ邫谏咸砑右粋€(gè)垂直滾動(dòng)條，方便用戶查找控件。 如果單擊“確定“，系統(tǒng)將自動(dòng)啟動(dòng)SQL Server服務(wù)，如下圖所示：安裝程序時(shí)數(shù)據(jù)庫(kù)的初始化和在程序中啟動(dòng)MSSQLSERVER 服務(wù)。在程序安裝后，第一次啟動(dòng)程序時(shí)，會(huì)檢驗(yàn)計(jì)算機(jī)上是否已經(jīng)啟動(dòng)MSSQLSERVER服務(wù)，如果沒有啟動(dòng)，程序?qū)⑼ㄟ^shell “net strat mssqlserver”來(lái)啟動(dòng)服務(wù)，然后檢查當(dāng)前服務(wù)器上是否存在School數(shù)據(jù)庫(kù)，如果沒有則將備份好的School 數(shù)據(jù)庫(kù)恢復(fù)到當(dāng)前服務(wù)器上，這一部門的功能在啟動(dòng)對(duì)象Sub Main實(shí)現(xiàn)。這次課程實(shí)踐，加深了我對(duì)Visual Basic 的了解，特別是又學(xué)會(huì)了新的控件，比如ADODC，DataGrid，DataReport，DataEnvironment的常用屬性和使用方法。另外，最后的軟件打包使用 Setup Factory ，對(duì)軟件的打包過程和設(shè)置安裝序列號(hào)、軟件使用的有效期有了直觀的認(rèn)識(shí)。第五章 參考資料 Basic 程序設(shè)計(jì) 張艷 清華大學(xué)出版社 賀利堅(jiān) 北京希望電子出版社 +SQL 學(xué)生管理系統(tǒng) 楊茂科 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院33