【正文】 ion, 警告 ! End If End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() Unload Me 38 End Sub Private Sub Command4_Click() If QX3 = True Then 39。數(shù)據(jù)傳遞到數(shù)據(jù)庫 !年級 = !專業(yè) = !年制 = !學(xué)期 = !學(xué)費(fèi) = End If Unload Form8 Unload Me End Sub Private Sub Form_Load() 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 35 If = Then MsgBox Label2(3).Caption amp?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。 設(shè)計代碼： Private Sub bo1_KeyPress(KeyAscii As Integer) 39。 設(shè)計代碼： Private Sub Command1_Click() 32 If QX3 = True Then Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command2_Click() If QX3 = True Then 39。這個 Form_Load 是刷新 list 列表用的 Form_Load MsgBox 修改成功！ , vbOKOnly + vbInformation, 提示 Else = 0 = Len() If = Then MsgBox 類型名稱不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If = False = False = 保存修改 = False 30 = True End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() If = 加入列表 Then 39。 amp。 39。 = End If End If 39。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then = select * from leixing where 類型 =39。判 斷是否重復(fù) If = False Then MsgBox 已經(jīng)存在該類型名稱！ , vbOKOnly + vbExclamation, 警告 = 0 = Len() Exit Sub Else 39。 amp。在此窗體修改過的東西會在其它具有選擇類型的 bo 控件的窗體中作出相應(yīng)的修改。退出該窗體 Unload Me End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39。數(shù)據(jù)傳遞到數(shù)據(jù)庫 !學(xué)期 = !班級 = !學(xué)號 = !姓名 = !課程名稱 = Visual Basic !類型 = !分?jǐn)?shù) = !年級 = 2020 級 End If 25 End If Unload Me End Sub Private Sub Form_Load() = (ListIndex) = (ListIndex) 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If flAg = True Then 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。初始化 bo1(3)的值 Combo1(3).Clear Do Until Combo1(3).AddItem !類型 Loop Combo1(3).ListIndex = 0 End Sub 4． 4． 2 成績添加 23 圖 成 績添加 設(shè)計過程： 有權(quán)限的用戶可以進(jìn)行成績的添加或刪除的操作，學(xué)期，專業(yè)，類型都可以從 bo框中選擇，學(xué)號，姓名是用戶自己輸入的，且不能為空，還有考試成績，使用了 keypress事件，只能鍵入數(shù)字，而且限定長度為 3 位數(shù)。 = sqlxuwqi = sqlleixing If Then MsgBox 無此記錄 , vbOKOnly + vbInformation, 提示 End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() 39。 sqlleixing = select * from score where 類型 =39。定義 sql語言 Dim sqlxuwqi As String Dim sqlleixing As String sqlxuwqi = select * from score where 學(xué)期 =39。 Chr(10) + Chr(13) amp。 設(shè)計代碼： Private Sub Command1_Click() If QX4 = True Then flAg = False Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub 21 Private Sub Command2_Click() If QX4 = True Then 39。回車換下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) 39。 39。 39。 39。 設(shè)計代碼： Private Sub Command1_Click() 39。初始化 bo 的初值 = (ListIndex) = (ListIndex) 17 End Sub Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer) 39。數(shù)據(jù)傳遞到數(shù)據(jù)庫 !學(xué)號 = Text1(0).Text !姓名 = Text1(1).Text !出生年月 = Text1(2).Text !家庭住址 = Text1(3).Text !入學(xué)時間 = Text1(4).Text !備注 = Text1(5).Text !性別 = !班級 = 39。判斷入學(xué)時間是否為日期 If Not IsDate(Text1(4).Text) Then MsgBox 應(yīng)輸入日期 yymmdd, vbOKOnly + vbInformation, 提示 g = False 39。判斷文本框是否為空 For j = 0 To 4 If Text1(j).Text = Then MsgBox Label2(j).Caption amp。 設(shè)計代碼： Private Sub bo1_KeyPress(KeyAscii As Integer) 39。 Chr(10) + Chr(13) amp。 !學(xué)號 amp。彈出式菜單 If Button = 2 Then PopupMenu tan End If End Sub Private Sub MDIForm_Unload(Cancel As Integer) Call quit_Click End Sub Private Sub quit_Click() If MsgBox(確定要要退出本系統(tǒng)么？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then 11 End End If End Sub Private Sub shuiping_Click() 1 End Sub Private Sub textleixing_Click() If QX4 = True Then Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Timer1_Timer() (2) = Now End Sub Private Sub useradd_Click() If QX1 = True Then Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub viewchengji_Click() End Sub Private Sub viewdangan_Click() End Sub Private Sub viewjiaofei_Click() End Sub Private Sub xiugaimima_Click() End Sub Private Sub xuefeiadd_Click() If QX3 = True Then 12 Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub xuefeishezhi_Click() End Sub 4． 3 檔案管理 4． 3． 1 檔案瀏覽 圖 檔案瀏覽 設(shè)計過程： 用控件可以實現(xiàn)檔案的瀏覽，在此窗體所有上用戶可以瀏覽，查找，有權(quán)限的用戶可以進(jìn)行修改和刪除。 39。在代碼中判斷登陸時的用戶權(quán)限，不同權(quán)限有不同的權(quán)限來瀏覽各個窗體。 amp。 39。 設(shè)計代碼： Private Sub cmdCancel_Click() 6 End End Sub Private Sub cmdOK_Click() Dim sql As String 39。開發(fā)本系統(tǒng)不僅能很好的鞏固我們在學(xué)習(xí)中的所掌握的知識，而且系統(tǒng)本身就是應(yīng)用于實踐，為學(xué)校 教學(xué)管理提供了很大的方便性，提高了工作效率；同時方便了我們自己?；?VB 和 Access 的 畢業(yè)設(shè)計 （ 學(xué)生綜合管理系統(tǒng) ） 目錄 未找到目錄項。本系統(tǒng)的開發(fā)具有很強(qiáng)的使用價值及實踐意義。點擊確定判斷數(shù)據(jù)庫中的用戶是否為合法用戶。 txtUserName amp。 username=39。, , adSearchForward, 1 = sql If Not Then If !userpassword txtPassword Then MsgBox 密碼錯誤！ txtPassword = ElseIf !userpassword = txtPassword Then MsgBox 登陸成功，歡迎進(jìn)入本系統(tǒng)！ , vbOKOnly + vbInformation, 提示 End If ElseIf Then MsgBox