【導(dǎo)讀】系統(tǒng)設(shè)計(jì)的目的是實(shí)現(xiàn)紀(jì)錄、查詢和修改學(xué)生檔案信息；對于學(xué)生。繳費(fèi)情況能有效的處理，以及設(shè)置課程信息及考試相關(guān)信息。發(fā)具有很強(qiáng)的使用價值及實(shí)踐意義。開發(fā)本系統(tǒng)不僅能很好的鞏固我們在。提供了很大的方便性，提高了工作效率；同時方便了我們自己。該數(shù)據(jù)庫包括學(xué)生檔案表、班級信息表、各專業(yè)學(xué)生學(xué)費(fèi)。點(diǎn)擊確定判斷數(shù)據(jù)庫中的用戶是否為合法用戶。MsgBox"可以以用戶名和密碼均為guest進(jìn)入",vbOKOnly+vbInformation,"提示". 所有功能都在菜單中打開來實(shí)現(xiàn)，在最下面添加了工具欄，來顯示時間，操作員，在代碼中判斷登陸時的用戶權(quán)限，不同權(quán)限有不同的權(quán)限來瀏覽各個窗體。MsgBox"對不起,您沒有權(quán)限!

　　

【正文】 re 專業(yè) =39。 amp。 amp。 39。 = sqlzhuanye 39。提示有需要交費(fèi)多少錢 = 您選擇的是 + + 專業(yè)，應(yīng)繳納學(xué)費(fèi) amp。 !學(xué)費(fèi) amp。 元！ End Sub Private Sub text4_KeyPress(KeyAscii As Integer) 39。回車換下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If If KeyAscii = 8 Then = End If If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub Private Sub text5_KeyPress(KeyAscii As Integer) 39?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 43 4． 5． 5 學(xué)生交費(fèi)查詢 圖 學(xué)生交費(fèi)查詢 設(shè)計(jì)過程： 所有用戶可以瀏覽的窗體，只要在兩個 bo 框中選擇已經(jīng)從數(shù)據(jù)庫中調(diào)入的學(xué)號和姓名，就可以在 的 DateGrid 控件中顯示出來。 設(shè)計(jì)代碼： Private Sub Command1_Click() 39。退出該窗體 Unload Me End Sub Private Sub Command2_Click() 39。定義 sql語言 Dim sqlxuehao As String Dim sqlxingming As String sqlxuehao = select * from Studtuition where 學(xué)號 =39。 amp。 amp。 39。 sqlxingming = select * from Studtuition where 姓名 =39。 amp。 amp。 39。 If = And = Then 44 = 至少一條記錄不空 Exit Sub End If If Then = sqlxuehao End If If Then = sqlxingming End If If Then MsgBox 無此記錄 , vbOKOnly + vbInformation, 提示 End If Unload Me End Sub Private Sub Form_Activate() End Sub Private Sub bo1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then = End If If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 45 End If 39?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 39?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Form_Load() 39。初始化 bo1 的值 Do Until !學(xué)號 Loop 39。初始化 bo2 的值 Do Until !姓名 Loop End Sub 46 4． 課程設(shè)定 4． 6． 1 基本課程設(shè)計(jì) 圖 基本課程設(shè)計(jì) 設(shè)計(jì)過程： 每個不同的專業(yè)都可以設(shè)置不同的課程，前提是要設(shè)置全部的課程和對應(yīng)的書。此窗體連接 的是數(shù)據(jù)庫中的 KindCourse表，有權(quán)限的用戶可以增加，修改或者刪除，兩個text 控件只有在增加或刪除的時候才會激活。班級課程所設(shè)計(jì)的課程所選的書就是這些書。 設(shè)計(jì)代碼： Private Sub Command1_Click() 47 39。增加基本課程的代碼 If = 加入列表 The If = Then MsgBox 課程名稱不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 教材不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。增加 !課程名稱 = !教材 = = 增加 = True = True = True = False = False = False = = MsgBox 添加課程成功！ , vbOKOnly + vbInformation, 提示 Else MsgBox 輸入課程名稱和教材！ , vbOKOnly + vbInformation, 輸入 48 = True = True = 加入列表 = False = False = False = True End If End Sub Private Sub Command2_Click() If = 保存修改 Then If = Then MsgBox 課程名稱不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 教材不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。修改 !課程名稱 = !教材 = = = 49 = True = 修改 = True = True = False MsgBox 修改成功！ , vbOKOnly + vbInformation, 提示 = False = False = = Else MsgBox 請修改課程名稱和教材！ , vbOKOnly + vbInformation, 輸入 = True = True = False = 保存修改 = False = False = True = !課程名稱 = !教材 End If End Sub Private Sub Command3_Click() 39。刪除語句 If MsgBox(確定要刪除記錄么？ , vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要刪除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then 50 MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() If = 加入列表 Then 39。取消添加 = False = True = True = 增加 = True = = Else 39。取消修改 = False = True = 修改 = True = True = = End If 51 End Sub Private Sub Form_Load() 39。打開數(shù)據(jù)庫中的 KindCourse 表 OpenTable Adodc1, KindCourse 39。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) 39?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 52 4． 6． 2 班級課程瀏覽 圖 班級課程瀏覽 設(shè)計(jì)過程： 所有用戶都可以對班級的課程進(jìn)行瀏覽，而且選擇對各個專業(yè)的分類瀏覽。要是有權(quán)限還可以打開設(shè)置的窗體。 設(shè)計(jì)代碼： Private Sub Command1_Click() If QX4 = True Then Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If 53 End Sub Private Sub Command2_Click() = select * from Allcourse where 專業(yè) =39。 amp。 amp。 39。 End Sub Private Sub Form_Load() 39。打開數(shù)據(jù)庫中的 Allcourse 表 OpenTable Adodc1, Allcourse 39。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 39。初始化 bo1 的值 For i = 0 To 3 !專業(yè) Next i = 0 End Sub 54 4． 6． 2 班級課程設(shè)置 圖 班級課程設(shè)置 設(shè)計(jì)過程： 兩個 list 控件可以任意的添加用戶所想要添加的科目，所用科目都會在 中進(jìn)行提前設(shè)置好的。 設(shè)計(jì)代碼： Private Sub Command5_Click() 39。提示選課與否 If = 0 Then MsgBox 您還沒有選課！ , vbOKOnly + vbInformation, 提示！ End If 55 For i = 0 To 1 39。判斷是否重復(fù) = select * from Allcourse where 專業(yè) =39。 amp。 amp。 39。 and 課程名稱 =39。 amp。 (i) amp。 39。 If = True Then 39。增加 !年級 = 2020 年級 !年制 = 3 年制 !專業(yè) = !學(xué)期 = 20202020 上學(xué)期 !課程名稱 = (i