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