【正文】 39。 ) amp。 ) amp。 amp。 Trim( amp。 Trim( amp。 Trim( amp。 And amp。 And amp。生成報表End SubPrivate Sub exit_Click() 39。實現(xiàn)方式也比較簡單，僅分別需要一個窗體和一個大小合適的文本框。 問題解決 實驗過程中，我遇到了一些問題，并努力通過網(wǎng)絡(luò)和參考資料，逐漸解決了這些問題。個人認(rèn)為VB在這一方面應(yīng)該改進(jìn)一些，當(dāng)添加控件的數(shù)量超出當(dāng)前工具箱的顯示范圍時，VB可以給出用戶提示。對簡單的VB編程熟練性增加，對用Visual Basic 開發(fā)SQL 2000數(shù)據(jù)庫系統(tǒng)也有了比較全面的了解。 運行界面入上圖。這個地放浪費了我許多時間，因為網(wǎng)上說可能計算機(jī)上Activex 或者 dll沒有正常注冊。第四章 實驗總結(jié) 實驗過程經(jīng)過斷斷續(xù)續(xù)每天寫一點代碼的努力，我終于完成了這次的數(shù)據(jù)庫原理與應(yīng)用的課程實踐。下面是用Word 2003 圖片工具裁切過的一個設(shè)計的報表，名稱為課程信息表。退出Unload MeEnd SubPrivate Sub Command2_Click() 39。 And amp。End Ifsql = select * from Student where amp。End IfIf = vbChecked Then sql6 = Sbirth like39。End IfIf = vbChecked Then sql5 = Saddress like39。End IfIf = vbChecked Then sql4 = Sclass like39。對于后面的Ssex,Sbirth,Sdept 也都選用like來進(jìn)行查詢，以避免不必要的 39。 Trim( amp。 amp。點，對于為選中的查詢字段，sql=39。End IfEnd SubPrivate Sub cmd_fianl_Click() 39。原退出按鈕的功能39。取消 = False = False = TrueEnd SubPrivate Sub cmd_del_Click() 39。下面是模塊的代碼：Private Sub cmd_add_Click() 39。 ) amp。并不影響輸入數(shù)據(jù)時的選擇，所以不提供清除Item的 39。再次添加一條記錄時，可以點擊“清除”按鈕， = 39。Option ExplicitDim ssex As StringPrivate Sub cmd_addsdept_Click() 39。下面給出學(xué)生信息維護(hù)模塊的主要代碼。 sql, n, adOpenKeyset, adLockPessimistic MsgBox 密碼修改成功，請牢記您的新密碼!, vbInformation, End If End If End If End IfEnd IfEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = Provider=。 amp。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbExclamation + vbOKOnly, 沒有權(quán)限 Else If Trim((Password).Value) = Trim() Then MsgBox 恭喜，您可以開始修改密碼！新密碼的長度不能低于六位，建議您使用數(shù)字和字母的組合。用戶可以選擇輸入密碼的時候，新密碼是否可見，默認(rèn)為新密碼不可見。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbExclamation + vbOKOnly, 沒有權(quán)限 Else If Trim((Password).Value) = Trim() Then Unload Me Else MsgBox 密碼不正確, vbExclamation + vbOKOnly, = End If End IfEnd Ifi = i + 1If i = 3 ThenUnload MeEnd IfExit SubEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = Provider=。 amp。, conn, 1, 3 If 1 Then mkdir_kill restore database School from disk=39。Data Source= conn_str2 = Provider=。學(xué)生信息查詢End Sub Private Sub teacheradd_Click() 39。退出Unload MeEnd SubPrivate Sub gradeadd_Click() 39。然后再Visiual Basic ： 因為程序在運行的時候我才能抓取到當(dāng)前窗體，程序運行的時候Imagelist 控件隱藏了，所以我們只能看到ToolBar控件。面對龐大的信息量就需要有一個學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。下面試這一部分的代碼:Option ExplicitPrivate Sub Classmanagement_Click() 39。密碼修改End SubPrivate Sub querybycourse_Click() 39。查詢教師信息End Sub‘選擇ToolBar上每個按鈕的關(guān)鍵字Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case password Case student Case grade Case teacher Case class Case course Case sdept Case help Case exit Unload Me End SelectEnd Sub 全局變量設(shè)置 程序編寫過程中需要用到一些全局變量，并且軟件的啟動從Sub Main 過程開始，這一過程包含了軟件的初始化，School 數(shù)據(jù)庫的恢復(fù)。Initial Catalog=master。 \backup\School39。在這個地方遇到了問題，執(zhí)行到下一句總是出錯，也看不出來是什么問題，想了很久之后我在SQL Server 39。Initial Catalog=School。再次驗證用戶權(quán)限，保障系統(tǒng)安全 39。密碼不能和原來的密碼一樣 = = Else If Len() 6 Then 39。 sql = sql amp。Initial Catalog=School。與課程信息、部門信息或班級信息相比，添加學(xué)生信息和教師信息要復(fù)雜的多，所以這兩項分別提供了單獨的添加記錄窗口，方便用戶進(jìn)行操作，也保障了用戶的安全。少輸入錯誤Dim sdept As StringDim i As IntegerDim permission As Booleanpermission = True 39。必須輸入項，所以寫入數(shù)據(jù)之前要進(jìn)行判斷，考慮到 39。為了增強(qiáng)查詢功能，考慮到實際使用的需要，我們有時可能會查找全部姓張的學(xué)生，或者家庭住址都是河南省的學(xué)生，也或者出生在1992年2月的學(xué)生的記錄，或者同在某一個班級的學(xué)生的記錄。%39。在新數(shù)據(jù)存入數(shù)據(jù)庫之前，或者取消添加一條記錄之前 39。 39。opt = MsgBox(你確定要退出嗎, vbYesNo, )39。上一條記錄If Not ThenElse If And 0 Then MsgBox 已經(jīng)是第一條記錄！, vbInformation, End IfEnd IfEnd SubPrivate Sub cmd_next_Click() 39。中的查詢條件，也都添加了一個amp。 39。 39。 Trim( amp。 % amp。 % amp。 % amp。 sql2 amp。 sql6 = adUseClient sql, n, adOpenKeyset, adLockPessimistic