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