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