【正文】 If = Then 39。 amp。 where operator_name like39。 sql, n, adOpenKeyset, adLockPessimistic MsgBox 密碼修改成功，請牢記您的新密碼!, vbInformation, End If End If End If End IfEnd IfEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = Provider=。Data Source= Set n = New strni = 0End SubPrivate Sub opt_no_Click() 39。下面給出學(xué)生信息維護(hù)模塊的主要代碼。添加其他記錄時(shí)直接在DataGrid 控件進(jìn)行操作。Option ExplicitDim ssex As StringPrivate Sub cmd_addsdept_Click() 39。用對話框輸入要添加的班級和學(xué)院的名稱，如果要添 39。再次添加一條記錄時(shí)，可以點(diǎn)擊“清除”按鈕， = 39。實(shí)際情況，學(xué)號不會過長，所以設(shè)最大長度為10位。并不影響輸入數(shù)據(jù)時(shí)的選擇，所以不提供清除Item的 39。也可能需要查詢同時(shí)滿足這些條件的學(xué)生的信息，由于SQL 語言提供了方便的 “%”通配符，所以此處在可以采用模糊查詢的地方，都使用了類似If = vbChecked Then sql4 = Sclass like39。 ) amp。End If的語句，用戶可以選擇一個(gè)或多個(gè)查詢條件，可以輸入大概的查詢條件，增加查找到所需信息的概率。下面是模塊的代碼：Private Sub cmd_add_Click() 39。不能再添加一條空白的記錄，保障數(shù)據(jù)庫正常工作 39。取消 = False = False = TrueEnd SubPrivate Sub cmd_del_Click() 39。此處對刪除一條記錄操作進(jìn)行確認(rèn)，如果選擇“是”， 39。原退出按鈕的功能39。If opt = vbYes Then39。End IfEnd SubPrivate Sub cmd_fianl_Click() 39。下一條記錄If Not ThenElse If And 0 Then MsgBox 已經(jīng)是最后一條, vbInformation, End IfEnd IfEnd SubPrivate Sub cmd_query_Click() 39。點(diǎn)，對于為選中的查詢字段，sql=39。 % amp。 amp。Else sql1 = Sno like 39。 Trim( amp。Else sql2 = Sname like 39。對于后面的Ssex,Sbirth,Sdept 也都選用like來進(jìn)行查詢，以避免不必要的 39。 ) amp。End IfIf = vbChecked Then sql4 = Sclass like39。 ) amp。End IfIf = vbChecked Then sql5 = Saddress like39。 ) amp。End IfIf = vbChecked Then sql6 = Sbirth like39。 ) amp。End Ifsql = select * from Student where amp。 And amp。 And amp。SQL查詢功能強(qiáng)大但對語法要求較為嚴(yán)格，如果不是必要 39。退出Unload MeEnd SubPrivate Sub Command2_Click() 39。不可增加 = False 39。下面是用Word 2003 圖片工具裁切過的一個(gè)設(shè)計(jì)的報(bào)表，名稱為課程信息表。 \用戶須知\ For Input As 1While Not EOF(1)Line Input 1, strline = amp。第四章 實(shí)驗(yàn)總結(jié) 實(shí)驗(yàn)過程經(jīng)過斷斷續(xù)續(xù)每天寫一點(diǎn)代碼的努力，我終于完成了這次的數(shù)據(jù)庫原理與應(yīng)用的課程實(shí)踐。當(dāng)我換到一臺名為DELLPC 裝有Win7 x86 系統(tǒng)的計(jì)算機(jī)進(jìn)行測試，在生成報(bào)表時(shí)出現(xiàn)了問題，系統(tǒng)提示找不到指定的服務(wù)器。這個(gè)地放浪費(fèi)了我許多時(shí)間，因?yàn)榫W(wǎng)上說可能計(jì)算機(jī)上Activex 或者 dll沒有正常注冊。（3） 如果程序運(yùn)行時(shí)并未提前開啟SQL Server服務(wù)，系統(tǒng)將會給出如下提示。 運(yùn)行界面入上圖?？偠灾@次課程實(shí)踐我學(xué)到了很多有用的知識。對簡單的VB編程熟練性增加，對用Visual Basic 開發(fā)SQL 2000數(shù)據(jù)庫系統(tǒng)也有了比較全面的了解。安裝程序到一臺計(jì)算機(jī)時(shí)如何迅速建立系統(tǒng)所需的School 數(shù)據(jù)庫，我在網(wǎng)上查了一些資料，最終選取了下面的方式：將已建好的數(shù)據(jù)庫文件School備份到VB工程文件夾中”\BACKUP\School”，最后和VB工程一起打包為安裝程序。個(gè)人認(rèn)為VB在這一方面應(yīng)該改進(jìn)一些，當(dāng)添加控件的數(shù)量超出當(dāng)前工具箱的顯示范圍時(shí)，VB可以給出用戶提示?？墒钱?dāng)我保存VB 工程再到第一臺計(jì)算機(jī)測試同樣的問題又出現(xiàn)了，最后我認(rèn)真檢查了老師所提供的例子，將選擇輸入服務(wù)器名稱一項(xiàng)空白，問題就解決了。 問題解決 實(shí)驗(yàn)過程中，我遇到了一些問題，并努力通過網(wǎng)絡(luò)和參考資料，逐漸解決了這些問題。 vbCrLfWendClose 1End Sub通過Line Input 函數(shù)， 文件讀入到Text1 Box中，使用方便，界面簡潔大方。實(shí)現(xiàn)方式也比較簡單，僅分別需要一個(gè)窗體和一個(gè)大小合適的文本框。不可更新 = 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命令。生成報(bào)表End SubPrivate Sub exit_Click() 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。 And amp。 And amp。 And amp。Else sql6 = Sbirth like 39。 Trim( amp。Else sql5 = Saddress like 39。 Trim( amp。Else sql4 = Sclass like 39。 Trim( amp。Else sql3 = Ssex like 39。 amp。 39。 ) amp。 End IfIf = vbChecked Then sql2 = Sname like39。 ) amp。可以保證查詢的有效性，也支持查詢同一個(gè)省 39。.對于選 39。 為了增加“查詢”按鈕的實(shí)用性功能，支持 39。第一條記錄End SubPrivate Sub cmd_last_Click() 39。Else 39。Dim opt As String39。刷新39。“數(shù)據(jù)無價(jià)”，操作必須謹(jǐn)慎。 End SubPrivate Sub cmd_adjust_Click() 39。 = False 39。也可以同時(shí)選中這兩項(xiàng)，確定某一個(gè)學(xué)生是否選修了某一門課程。Else sql4 = Sclass like 39。 Trim( amp。當(dāng)然也可以通過SQL 語句來執(zhí)行這樣的查詢。完成數(shù)據(jù)的檢驗(yàn)以后，向SQL數(shù)據(jù)庫中寫入數(shù)據(jù) (Sno) = Trim() (Sname) = Trim() (Ssex) = ssex (Sbirth) = Trim() (Sclass) = () (Saddress) =