【正文】 后清空文本 For j = 0 To 5 Text1(j).Text = Next j End If End Sub Private Sub Command2_Click() 39。反白錯(cuò)誤的框 Text1(4).SetFocus Text1(4).SelStart = 0 16 Text1(4).SelLength = 10 End If 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 f = False Text1(j).SetFocus Exit Sub End If Next j 39?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_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 Command4_Click() Unload Me End Sub Private Sub Form_Load() 39。 的記錄么？ amp。此窗體與數(shù)據(jù)輪中的 student 表進(jìn)行連接。 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。 設(shè)計(jì)代碼： Private Sub adddangan_Click() If QX2 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub 8 Private Sub addjiaofei_Click() If QX3 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub banjikechengliulan_Click() End Sub Private Sub cengdie_Click() 0 End Sub Private Sub chengji_Click() End Sub Private Sub chengjiadd_Click() If QX4 = True Then flAg = True Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub chongpai_Click() 3 End Sub Private Sub chuizhi_Click() 2 End Sub Private Sub classkechengset_Click() If QX4 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub danganfind_Click() 9 End Sub Private Sub liulanbiao_Click() End Sub Private Sub jiaofeifind_Click() End Sub Private Sub jiaofeiliulan_Click() End Sub Private Sub jibenkechengset_Click() If QX4 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub kecheng_Click() End Sub Private Sub liulanchengjibiao_Click() End Sub Private Sub liulandanganbiao_Click() End Sub Private Sub MDIForm_Load() (2) = Now OpenTable Adodc1, use = select * from use where username = 39。 txtUserName amp。 39。使用 sql語(yǔ)言進(jìn)行數(shù)據(jù)庫(kù)的查找 sql = select userpassword from use where username=39。 第 2 章 系統(tǒng)功能流程圖 圖 系統(tǒng)功能流程圖 用戶(hù)登陸 系統(tǒng)主控界面 檔案管理 成績(jī)管理 學(xué)費(fèi)管理 課程設(shè)置 用戶(hù)管理 管理 添加 查詢(xún) 瀏覽 提交 查詢(xún) 權(quán)限 設(shè)定 增加 設(shè)置 學(xué)費(fèi) 增加 學(xué)生綜合管理系統(tǒng) 3 第 3章 數(shù)據(jù)庫(kù)的設(shè)計(jì) 本系統(tǒng)的數(shù)據(jù)庫(kù)是 Access 數(shù)據(jù)庫(kù)，在 Access 環(huán)境下創(chuàng)建數(shù)據(jù)庫(kù) 文件。 2 第 1 章 設(shè)計(jì)的目的和意義 系統(tǒng)是對(duì)高校教師及管理人員提供的對(duì)在校學(xué)生有效管理的一個(gè)信息系統(tǒng)。系統(tǒng)設(shè)計(jì)的目的是實(shí)現(xiàn)紀(jì)錄、查詢(xún)和修改學(xué)生檔案信息；對(duì)于學(xué)生繳費(fèi)情況能有效的處理，以及設(shè)置課程信息及考試相關(guān)信息。該數(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 用戶(hù)名 uerpassword 文本 20 密碼 admin 文本 2 是否為管理員 readonly 文本 2 是否為只讀用戶(hù) 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ò)程： 用于輸入用戶(hù)名和密碼登錄，提示中寫(xiě)可以以用戶(hù)名和密碼都為 guest 進(jìn)入系統(tǒng)，不過(guò)是只讀用戶(hù)。 amp。使用 find 語(yǔ)句查找數(shù)據(jù)庫(kù)；（不能刷新） 39。 39。 amp。 If QXstr = admin Then ZhuangTai = 超級(jí)管理員 ElseIf QXstr = userreadonly Then ZhuangTai = 只讀用戶(hù) Else ZhuangTai = 普通用戶(hù) End If (4) = 狀態(tài)： amp。 設(shè)計(jì)代碼： Private Sub Command1_Click() 13 End Sub Private Sub Command2_Click() If QX2 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command3_Click() If QX2 = True Then 39。 Chr(10) + Chr(13) amp。打開(kāi)數(shù)據(jù)庫(kù)中的 student 表 OpenTable Adodc1, student 39?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then 15 SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。判斷出生年月是否為日期 If Not IsDate(Text1(2).Text) Then MsgBox 應(yīng)輸入日期 yymmdd, vbOKOnly + vbInformation, 提示 g = False 39。判斷是否要保存 If f = True And g = True Then msg = MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) End If 39。退出該窗體 Unload Me End Sub Private Sub Form_Load() 39。在此窗體上必須輸入至少一條記錄，不然會(huì)提示。 amp。 amp。 amp。退出該窗體 19 Unload Me End Sub Private Sub Form_Activate() End Sub Private Sub bo1_KeyPress(KeyAscii As Integer) 39。若是有權(quán)限的話(huà)還可以直接刪除。 !學(xué)號(hào) amp。 Chr(10) + Chr(13) amp。 Combo1(2).Text amp。 Combo1(3).Text amp。初始化 bo 的初值 For i = 0 To 2 Combo1(i).Text = Combo1(i).List(ListIndex) Next i 39?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Privat