【正文】 43 4． 5． 5 學(xué)生交費查詢 圖 學(xué)生交費查詢 設(shè)計過程： 所有用戶可以瀏覽的窗體，只要在兩個 bo 框中選擇已經(jīng)從數(shù)據(jù)庫中調(diào)入的學(xué)號和姓名，就可以在 的 DateGrid 控件中顯示出來。 amp。此窗體連接 的是數(shù)據(jù)庫中的 KindCourse表，有權(quán)限的用戶可以增加，修改或者刪除，兩個text 控件只有在增加或刪除的時候才會激活。取消修改 = False = True = 修改 = True = True = = End If 51 End Sub Private Sub Form_Load() 39。 amp。判斷是否重復(fù) = select * from Allcourse where 專業(yè) =39。 If = True Then 39。 amp。 End Sub Private Sub Form_Load() 39。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39。 設(shè)計代碼： Private Sub Command1_Click() 47 39。 39。退出該窗體 Unload Me End Sub Private Sub Command2_Click() 39。 39。顯示當(dāng)前日期于 Text5 = Date 39。找到這個專業(yè)的交費金額 sqlzhuanye = select * from tuition where 專業(yè) =39。交費之后系統(tǒng)提醒還欠費多少。數(shù)據(jù)傳遞到數(shù)據(jù)庫 !年級 = !專業(yè) = !年制 = !學(xué)期 = !學(xué)費 = End If Unload Form8 Unload Me End Sub Private Sub Form_Load() 39。回車換下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Command1_Click() 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。 amp。 = End If End If 39。判 斷是否重復(fù) If = False Then MsgBox 已經(jīng)存在該類型名稱！ , vbOKOnly + vbExclamation, 警告 = 0 = Len() Exit Sub Else 39。在此窗體修改過的東西會在其它具有選擇類型的 bo 控件的窗體中作出相應(yīng)的修改。數(shù)據(jù)傳遞到數(shù)據(jù)庫 !學(xué)期 = !班級 = !學(xué)號 = !姓名 = !課程名稱 = Visual Basic !類型 = !分數(shù) = !年級 = 2020 級 End If 25 End If Unload Me End Sub Private Sub Form_Load() = (ListIndex) = (ListIndex) 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。 = sqlxuwqi = sqlleixing If Then MsgBox 無此記錄 , vbOKOnly + vbInformation, 提示 End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() 39。定義 sql語言 Dim sqlxuwqi As String Dim sqlleixing As String sqlxuwqi = select * from score where 學(xué)期 =39。 設(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。 39。 39。初始化 bo 的初值 = (ListIndex) = (ListIndex) 17 End Sub Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer) 39。判斷入學(xué)時間是否為日期 If Not IsDate(Text1(4).Text) Then MsgBox 應(yīng)輸入日期 yymmdd, vbOKOnly + vbInformation, 提示 g = False 39。 設(shè)計代碼： Private Sub bo1_KeyPress(KeyAscii As Integer) 39。 !學(xué)號 amp。 39。 amp。 設(shè)計代碼： Private Sub cmdCancel_Click() 6 End End Sub Private Sub cmdOK_Click() Dim sql As String 39?；?VB 和 Access 的 畢業(yè)設(shè)計 （ 學(xué)生綜合管理系統(tǒng) ） 目錄 未找到目錄項。點擊確定判斷數(shù)據(jù)庫中的用戶是否為合法用戶。 username=39。 amp。刪除語句 If MsgBox(確定要刪除學(xué)號為 amp。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 End Sub 14 4． 3． 2 檔案添加 圖 檔案登記 設(shè)計過程： 用于檔案 的登記，此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進行了連接，可以直接進行添加，前提是必須有權(quán)限，加入了 text 和 bo 控件的 keypress事件，讓用戶可以更輕松的進行添加。反白錯誤的框 Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = 10 Exit Sub End If 39。打開數(shù)據(jù)庫中的 student 表 OpenTable Adodc1, student 39。 amp。 amp。此窗體是連接到數(shù)據(jù)庫中的 scorei表。 確定么 ?, vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要刪除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command3_Click() 39。 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) 39。確定后執(zhí)行的語句 If MsgBox(確定要修 改么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then MsgBox 修改成功！ , vbOKOnly + vbInformation, 提示 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 4． 4． 3 考試類型設(shè)置 27 圖 考試類型設(shè)置 設(shè)計過程： 有權(quán)限的用戶盒超級管理員可以進行考試類型的增加，修改，刪除等操作。 39。 39。修改 = select * from leixing where 類型 =39。打開數(shù)據(jù)庫中的 leixing表 OpenTable Adodc1, leixing If = False Then Do While Not (0) Loop End If 31 End Sub Private Sub List1_Click() = () End Sub 4． 學(xué)費管理 4． 5． 1 學(xué)費設(shè)置瀏覽 圖 學(xué)費設(shè)置瀏覽 設(shè)計過程： 此窗體是有權(quán)限的用戶可以瀏覽的，主要用來對各個專業(yè)的學(xué)費金額進行設(shè)置，與數(shù)據(jù)庫中的 Tuition 表進行了連接。回車換下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Combo4_KeyPress(KeyAscii As Integer) 39。確定后執(zhí)行的語句 If MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then MsgBox 添加成功！ , vbOKOnly + vbInformation, 提示 39。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 End Sub 39 4． 5． 4 學(xué)生交費添加 圖 學(xué)生交費添加 設(shè)計過程： 有權(quán)限的用戶可以用此窗體交費，當(dāng)選擇專業(yè)后，會在最底端顯示用戶應(yīng)交的費用，日期也是當(dāng)前系統(tǒng)的時間，不可修改的。確定后執(zhí)行的語句 If MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then 39。 元！ , vbOKOnly + vbInformation, 提示 41 End If Unload Form11 Unload Me End Sub Private Sub Form_Load() 39。 amp。 設(shè)計代碼： Private Sub Command1_Click() 39。 amp。班級課程所設(shè)計的課程所選的書就是這些書。打開數(shù)據(jù)庫中的 KindCourse 表 OpenTable Adodc1, KindCourse 39。 39。 amp。增加 !年級 = 2020 年級 !年制 = 3 年制 !專業(yè) = !學(xué)期 = 20202020 上學(xué)期 !課程名稱 = (