【正文】 amp。打開(kāi)數(shù)據(jù)庫(kù)中的 KindCourse 表 OpenTable Adodc1, KindCourse 39。 amp。 amp。確定后執(zhí)行的語(yǔ)句 If MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then 39。確定后執(zhí)行的語(yǔ)句 If MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then MsgBox 添加成功！ , vbOKOnly + vbInformation, 提示 39。打開(kāi)數(shù)據(jù)庫(kù)中的 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é)費(fèi)管理 4． 5． 1 學(xué)費(fèi)設(shè)置瀏覽 圖 學(xué)費(fèi)設(shè)置瀏覽 設(shè)計(jì)過(guò)程： 此窗體是有權(quán)限的用戶可以瀏覽的，主要用來(lái)對(duì)各個(gè)專(zhuān)業(yè)的學(xué)費(fèi)金額進(jìn)行設(shè)置，與數(shù)據(jù)庫(kù)中的 Tuition 表進(jìn)行了連接。 39?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 4． 4． 3 考試類(lèi)型設(shè)置 27 圖 考試類(lèi)型設(shè)置 設(shè)計(jì)過(guò)程： 有權(quán)限的用戶盒超級(jí)管理員可以進(jìn)行考試類(lèi)型的增加，修改，刪除等操作。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) 39。 確定么 ?, vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要?jiǎng)h除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command3_Click() 39。 amp。打開(kāi)數(shù)據(jù)庫(kù)中的 student 表 OpenTable Adodc1, student 39。連接 DataGrid1 表到數(shù)據(jù)庫(kù) Set = Adodc1 End Sub 14 4． 3． 2 檔案添加 圖 檔案登記 設(shè)計(jì)過(guò)程： 用于檔案 的登記，此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進(jìn)行了連接，可以直接進(jìn)行添加，前提是必須有權(quán)限，加入了 text 和 bo 控件的 keypress事件，讓用戶可以更輕松的進(jìn)行添加。 amp。點(diǎn)擊確定判斷數(shù)據(jù)庫(kù)中的用戶是否為合法用戶。 設(shè)計(jì)代碼： Private Sub cmdCancel_Click() 6 End End Sub Private Sub cmdOK_Click() Dim sql As String 39。 39。 設(shè)計(jì)代碼： Private Sub bo1_KeyPress(KeyAscii As Integer) 39。初始化 bo 的初值 = (ListIndex) = (ListIndex) 17 End Sub Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer) 39。 39。定義 sql語(yǔ)言 Dim sqlxuwqi As String Dim sqlleixing As String sqlxuwqi = select * from score where 學(xué)期 =39?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。在此窗體修改過(guò)的東西會(huì)在其它具有選擇類(lèi)型的 bo 控件的窗體中作出相應(yīng)的修改。 = End If End If 39。 設(shè)計(jì)代碼： Private Sub Command1_Click() 32 If QX3 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command2_Click() If QX3 = True Then 39。數(shù)據(jù)傳遞到數(shù)據(jù)庫(kù) !年級(jí) = !專(zhuān)業(yè) = !年制 = !學(xué)期 = !學(xué)費(fèi) = End If Unload Form8 Unload Me End Sub Private Sub Form_Load() 39。找到這個(gè)專(zhuān)業(yè)的交費(fèi)金額 sqlzhuanye = select * from tuition where 專(zhuān)業(yè) =39。 39。 39。連接 DataGrid1 表到數(shù)據(jù)庫(kù) Set = Adodc1 End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39。 amp。判斷是否重復(fù) = select * from Allcourse where 專(zhuān)業(yè) =39。取消修改 = False = True = 修改 = True = True = = End If 51 End Sub Private Sub Form_Load() 39。 amp。 amp。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 39。取消修改 = False = 修改 = True = True = True = End If End Sub Private Sub Form_Load() 39。 () amp。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If If KeyAscii = 8 Then Text2 = End If End Sub Private Sub text3_KeyPress(KeyAscii As Integer) 39?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 39。 Chr(10) + Chr(13) amp。 amp。退出該窗體 Unload Me End Sub Private Sub Form_Load() 39。打開(kāi)數(shù)據(jù)庫(kù)中的 student 表 OpenTable Adodc1, student 39。 amp。該數(shù)據(jù)庫(kù)包括學(xué)生檔案表、班級(jí)信息表、各專(zhuān)業(yè)學(xué)生學(xué)費(fèi)表、管理人員表用于紀(jì)錄學(xué)生的基本信息數(shù)據(jù)庫(kù)表結(jié)構(gòu)如下所示： 字段名 類(lèi)型 大小 說(shuō)明 學(xué)號(hào) 文本 10 學(xué)生學(xué)號(hào) 姓名 文本 8 學(xué)生姓 名 性別 文本 2 學(xué)生性別 班級(jí) 文本 10 班級(jí) 出生年月 日期 /時(shí)間 家庭住址 文本 30 入學(xué)時(shí)間 日期 /時(shí)間 學(xué)生入學(xué)時(shí)間 表 學(xué)生檔案表 字段名 類(lèi)型 大小 說(shuō)明 年級(jí) 文本 16 班級(jí) 文本 20 年制 文本 8 學(xué)習(xí)年限 班主任 文本 8 備注 備注 表 班級(jí)信息表 字段名 類(lèi)型 大小 說(shuō)明 課程名稱(chēng) 文本 20 紀(jì)錄課程名稱(chēng) 教材 文本 30 所使用教材 表 課程種類(lèi)表 4 字段名 類(lèi)型 大小 說(shuō)明 學(xué)號(hào) 文本 10 學(xué)生學(xué)號(hào) 學(xué)期 文本 50 類(lèi)型 文本 16 期中 /期末 課程名稱(chēng) 文本 20 分?jǐn)?shù) 數(shù)字 單精度型 考試成績(jī) 表 學(xué)生成績(jī)表 字段名 類(lèi)型 大小 說(shuō)明 年級(jí) 文本 16 專(zhuān)業(yè) 文本 12 專(zhuān)業(yè)類(lèi)型 年制 文本 8 學(xué)習(xí)年限 學(xué)期 文本 50 課程名稱(chēng) 文本 20 開(kāi)設(shè)課程 表 課程信息表 字段名 類(lèi)型 大小 說(shuō)明 username 文本 20 用戶名 uerpassword 文本 20 密碼 admin 文本 2 是否為管理員 readonly 文本 2 是否為只讀用戶 qx1 文本 2 是否有系統(tǒng)管理權(quán)限 qx2 文本 2 是否有檔案管理權(quán)限 qx3 文本 2 是否有交費(fèi)管理權(quán)限 qx4 文本 2 是否有成績(jī)管理權(quán)限 表 管理人員表 字段名 類(lèi)型 大小 說(shuō)明 年級(jí) 文本 16 專(zhuān)業(yè) 文本 50 年制 文本 20 學(xué)習(xí)年限 學(xué)期 文本 40 5 學(xué)費(fèi) 貨幣 應(yīng)繳納學(xué)費(fèi) 表 學(xué)費(fèi)表 字段名 類(lèi)型 大小 說(shuō)明 學(xué)號(hào) 文本 10 學(xué)期 文本 50 繳費(fèi) 貨幣 貨幣 已交納費(fèi)用 欠費(fèi) 貨幣 貨幣 欠費(fèi)額 日期 日期 日期 /時(shí)間 紀(jì)錄時(shí)間 操作員 文本 10 添加紀(jì)錄人員 表 學(xué)身繳費(fèi)情況 第 4 章 主要內(nèi)容 4． 1 登錄窗體 圖 登錄窗體 設(shè)計(jì)過(guò)程： 用于輸入用戶名和密碼登錄，提示中寫(xiě)可以以用戶名和密碼都為 guest 進(jìn)入系統(tǒng)，不過(guò)是只讀用戶。使用 sql語(yǔ)言進(jìn)行數(shù)據(jù)庫(kù)的查找 sql = select userpassword from use where username=39。 If !admin = y Then QXstr = admin ElseIf !userreadonly = y Then 10 QXstr = userreadonly End If If !QX1 = y Then QX1 = True End If If !QX2 = y Then QX2 = True End If If !QX3 = y Then QX3 = True End If If !QX4 = y Then QX4 = True End If (3) = 當(dāng)前操作員： amp。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 39。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Form_Activate() Text1(0).SetFocus End Sub 4． 3． 3檔案查詢(xún) 圖 學(xué)生信息查找 設(shè)計(jì)過(guò)程： 用