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