【正文】 。 Trim( amp。 % amp。 ) amp。 39。 Else sql5 = Saddress like 39。%39。 End If If = vbChecked Then sql6 = Sbirth like39。 amp。 Trim( amp。 % amp。 ) amp。 39。 Else sql6 = Sbirth like 39。%39。 End If sql = select * from Student where amp。 sql1 amp。 And amp。 sql2 amp。 And amp。 sql3 amp。 And amp。 sql4 amp。 And amp。 sql5 amp。 And amp。 sql6 = adUseClient sql, n, adOpenKeyset, adLockPessimistic = False 26 = False = False Set = rs_findstudent sql End Sub Private Sub cmd_sqlquery_Click() 39。SQL 查詢功能強大但對語法要求較為嚴格，如果不是必要 39。建議不要采用ＳＱＬ查詢，避免出現(xiàn)不必要的錯誤 Dim rs_findstudent As New 39。rs_findstudent 為要查找的項目的記錄源 Dim sql As String sql = Trim() = adUseClient sql, n, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_findstudent sql End Sub Private Sub cmd_update_Click() 39。確定錄入數(shù)據(jù)按鈕的功能 = False = False = False = True End Sub Private Sub cmdclear_Click() 27 = False = False = False = False = False = False = = = = = = End Sub Private Sub cmdexit_Click() 39。退出 Unload Me End Sub Private Sub Command2_Click() 39。全部記錄 Dim sql As String sql = select* from Student order by Sno = adUseClient sql, n, adOpenDynamic, adLockPessimistic, adCmdText Set = rst_student = vbDefault sql End Sub Private Sub Command3_Click() 39。生成報表 End Sub Private Sub exit_Click() 39。菜單退出 Unload Me End Sub Private Sub Form_Load() 28 = 2 Set rst_student = New = False 39。不可增加 = False 39。不可刪除 = False 39。不可更新 = vbHourglass Dim sql As String sql = select* from Student order by Sno = adUseClient sql, n, adOpenDynamic, adLockPessimistic, adCmdText Set = rst_student = vbDefault End Sub 生成報表 這一部門采用了 DataReport 控件和 DataEnvoronmnt 的 Connection 中的Command 命令。并沒有什么代碼。 下面是用 Word 2021 圖片工具裁切過的一個設計的報表，名稱為課程信息表。 下面是一份導出的課程信息表報表的內(nèi)容： 課程信息表 課程編號 課程名稱 學時 課程類型 29 0001 高等數(shù)學（上） 48 0001 0002 大學物理 60 0001 0003 化學 48 0001 0004 政治 48 0002 0005 英語 48 0002 0006 影視鑒賞 36 0003 0007 民法基礎 24 0003 0008 地圖制圖基礎 16 0003 0009 數(shù)據(jù)結(jié)構 48 0004 0010 數(shù)據(jù)庫原理與應用 36 0004 0011 工程力學 48 0003 0012 音樂鑒賞 16 0002 關于系統(tǒng) 此部分提供了使用須知和幫助文檔兩個窗口。實現(xiàn)方式也比較簡單，僅分別需要一個窗體和一個大小合適的文本框。 運行界面如下： 30 實現(xiàn)代碼為： Option Explicit Private Sub Form_Load() Dim strline As String = Open amp。 \用戶須知 \ For Input As 1 While Not EOF(1) Line Input 1, strline = amp。 strline amp。 vbCrLf Wend Close 1 End Sub 通過 Line Input 函數(shù)，將安裝文件夾得 文件讀入到 Text1 Box 中， 使用方便，界面簡潔大方。這些東西時在網(wǎng)上查找學到的，非常感謝在網(wǎng)上熱心認真回答他人問題的網(wǎng)友。 31 第四章 實驗總結(jié) 實驗過程 經(jīng)過斷斷續(xù)續(xù)每天寫一點代碼的努力，我終于完成了這次的數(shù)據(jù)庫原理與 應用的課程實踐。在編寫代碼的過程中，我主要學習了老師提供給我們的課件和用VB 開發(fā)的 Access 數(shù)據(jù)庫的例子，尤其是第四章數(shù)據(jù)庫應用系統(tǒng)開發(fā)，是我在實驗過程中少走了許多彎路，窗體界面并沒有什么大的創(chuàng)新。 問題解決 實驗過程中，我遇到了一些問題，并努力通過網(wǎng)絡和參考資料，逐漸解決了這些問題。下面是我遇到的幾個問題： ① DataEnvironment 中 Connection 屬性如下圖 需要選擇一個數(shù)據(jù)庫，最開始我在一臺名為 ZHANGJIANTAO 裝有 Windows XP 的計算機上測試程序，并沒有什么問題。當我換到一臺名為 DELLPC 裝有 Win7 x86 系統(tǒng)的計算機進行測試，在生成報表時出現(xiàn)了問題，系統(tǒng)提示找不到指定的服務器。我以為是 Win 7 系統(tǒng)的問題，于是把 服務器的名稱改為 DELL PC，程序又可以正常運行了。可是當我保存 VB 工程再到第一臺計算機測試同樣 32 的問題又出現(xiàn)了，最后我認真檢查了老師所提供的例子，將選擇輸入服務器名稱一項空白，問題就解決了。 ② 在工具箱中找不到 ToolBars 和 ImageList 控件，我上網(wǎng)查找資料得知需要在 ”工程 —部件 ”選項中勾選“ Microsoft Common Control ”一項，我參照老師給的例子，在部件中選擇和例子中一樣的選項，卻還是找不到這兩個控件。這個地放浪費了我許多時間，因為網(wǎng)上說可能計算機上 Activex 或者 dll 沒有正常注冊。最后我在無意中發(fā)現(xiàn)把鼠標停留在工具箱欄的右邊界時，可以調(diào)節(jié)工具箱的大小，我向右寬了一些，然后工具箱上多了許多的控件，這樣才找到了 ToolBar和 ImageList 控件。個人認為 VB 在這一方面應該改進一些，當添加控件的數(shù)量超出當前工具箱的顯示范圍時， VB 可以給出用 戶提示?；蛘咴诠ぞ邫谏咸砑右粋€垂直滾動條，方便用戶查找控件。 （ 3） 如果程序運行時并未提前開啟 SQL Server 服務，系統(tǒng)將會給出如下提示。 如果單擊“確定“，系統(tǒng)將自動啟動 SQL Server 服務，如下圖所示： 33 安裝程序時數(shù)據(jù)庫的初始化和在程序中啟動 MSSQLSERVER 服務。 安裝程序到一臺計算機時如何迅速建立系統(tǒng)所需的 School 數(shù)據(jù)庫，我在網(wǎng)上查了一些資料，最終選取了下面的方式：將已建好的數(shù)據(jù)庫文件 School備份到 VB 工程文件夾中 ”\BACKUP\School”，最后和 VB工程一起打包為安裝程序。在程序安裝后，第一次啟動程序時，會檢驗計算機上是否已經(jīng)啟動 MSSQLSERVER 服務，如果沒有啟動，程序?qū)⑼ㄟ^ shell “ strat mssqlserver”來啟動服務，然后檢查當前服務器上是否存在 School數(shù)據(jù)庫，如果沒有則將備份好的 School 數(shù)據(jù)庫恢復到當前服務器上，這一部門的功能在啟動對象 Sub Main 實現(xiàn)。 運行界面入上圖。 經(jīng)驗總結(jié) 這次課程實踐，加深了我對 Visual Basic 的了解，特別是又學會了新的控件，比如 ADODC， DataGrid， DataReport， DataEnvironment 的常用屬性和使用方法。對簡單的 VB編程熟練性增加，對用 Visual Basic 開發(fā) SQL 2021 數(shù)據(jù)庫系統(tǒng)也有了比較全面的了解。 另外，最后的軟件打包使用 Setup Factory 件打包工具的初級功能，對軟件的打包過程和設置安裝序列號、軟件使用的有效期有了直觀的認識。 總而言之，這次課程實踐我學到了很多有用的知識。 第五章 參考資料 Visual Basic 程序設計 張艷 清華大學出版社 賀利堅 北京希望電子出版社 +SQL 學生管理系統(tǒng) 楊茂科 貴州師范大學職業(yè)技術學院