【正文】 詢結(jié)果、界面、實(shí)習(xí)管理、學(xué)生成績查詢、學(xué)生成績輸入、學(xué)生成績輸入數(shù)據(jù)顯示、學(xué)?；菊n程、用戶登陸、員工培訓(xùn)信息、重修成績查詢結(jié)果、綜合測評、綜合測評信息都由我完成。 課程管理部分分為學(xué)?；菊n程，各班 課程設(shè)置兩部分。綜合測評信息部分顯示所有綜合測評資料，并能實(shí)現(xiàn)多項(xiàng)查詢，支持打印。當(dāng) ProgressBar 的達(dá)到 100（ max設(shè)定值）時觸發(fā) Unload Me 用戶登陸 .Show = False 39。當(dāng)用戶名和密碼相符的時候，進(jìn)入主窗體，跳出循環(huán) If = True Then MsgBox 密碼錯誤，請重新輸入！ , vbExclamation + vbOKOnly, 警告 = Exit Do End If 39。按年級過濾 班級表 .Filter = cancel like 39。三個 Lable 設(shè)置了排序、查找、篩選三個功能模塊，而在排序和查找模塊中又分別用了三個 Option 來做出選擇，用 Adodc 連接了后臺數(shù)據(jù)庫用 DataGrid 實(shí)現(xiàn)前臺數(shù)據(jù)的展現(xiàn)， DataCombo 的選擇來實(shí)現(xiàn)篩選 。 %39。 Private Sub Form_Load() = = = = = = Set rs = End Sub Private Sub Text1_Change() = = = = = = End Sub （表）分析 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接對應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。用于驗(yàn)證是否有管理員權(quán)限 7 用戶操作說明 1. 軟硬件環(huán)境 硬件配置： 486 以上檔次的計(jì)算機(jī) ，彩色顯示器，內(nèi)存 8M,硬盤 200M。 刪除：輸入用戶編號，經(jīng)確認(rèn)之后，再輸入用戶密碼，即可以刪除用戶。 優(yōu)點(diǎn) 接口美觀大方，界面風(fēng)格統(tǒng)一。 查詢模塊做的不是很理想，只能進(jìn)行單條件查詢。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 實(shí)習(xí)表 .AddNew 39。數(shù)據(jù)項(xiàng)（專業(yè)） = 39。 End Sub Private Sub Command2_Click() 39。 amp。 amp。039。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學(xué)生情況表 .AddNew End Sub *員工培訓(xùn)信息（員工 培訓(xùn)信息 .frm） Dim 員工培訓(xùn)表 As Private Sub Command1_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓(xùn)表 .Update 39。刪除記錄 X = MsgBox(msg, vbYesNo, ) If X = vbYes Then 員工培訓(xùn)表 .Delete 員工培訓(xùn)表 .MoveNext If 員工培訓(xùn)表 .EOF Then 員工培訓(xùn)表 .MoveLast End If End If End Sub Private Sub Command9_Click() End Sub Private Sub Form_Load() Set 員工培訓(xùn)表 = End Sub d the whale municate over hundreds of miles? How did it use echoes to find its prey in the ocean gloom, to stun fish, diagnose illness in another whale? Questionsto which the answers could prove invaluable. But instead of learning, men threatened to wipe the species out. Aboard the catcher boat no such thoughts crossed the gunner39。添加記錄 = False = False = True = True = False = True = False = True = True = True = True = True = True = True = True = True = True End Sub Private Sub Command10_Click() If = True Then MsgBox (已到首記錄 ) End If End Sub Private Sub Command11_Click() If = True Then MsgBox (已到末記錄 ) End If End Sub Private Sub Command12_Click() End Sub Private Sub Command14_Click() Unload Me End Sub Private Sub Command2_Click() 39。取消過濾，實(shí)際是根據(jù) cancel 項(xiàng)進(jìn)行過濾，此項(xiàng)是數(shù)據(jù)型，默認(rèn)為 0 End Sub Private Sub Command6_Click() 39。 %39。 39。彈出一個 有確定和取消按扭的對話框，點(diǎn)選確定則刪除記錄 各班課程 .UpdateBatch adAffectAllChapters MsgBox 課程刪除成功！ , vbExclamation + vbOKOnly, 成功 End If End Sub Private Sub Command3_Click() 各班課程 .Filter = cancel like 39。數(shù)據(jù)項(xiàng)（課程代號） = 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = True = True = False = False = True = True = True = False = False = False = False End Sub Private Sub Command3_Click() 實(shí)習(xí)表 .CancelUpdate = False = False = True = True = True = True = False = False = False = False End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() 39。 可擴(kuò)充內(nèi)容 使用者的權(quán)限，成績管理部分，數(shù)據(jù)庫備份和恢復(fù)等。 缺點(diǎn) 學(xué)校管理系統(tǒng)的局限性：該系統(tǒng)是單機(jī)版，所以使用范圍得到了限制。 學(xué)籍管理系統(tǒng)以學(xué)號和員工號生成，能夠快速的錄入成績、設(shè)置課程等，極大的方便了學(xué)校對于學(xué)生成績和 員工工作狀況的管理；而信息管理系統(tǒng)是與學(xué)籍管理系統(tǒng)數(shù)據(jù)共享的，其中各式各樣的報表方便了信息的管理；圖書館管理系統(tǒng)則是現(xiàn)代學(xué)校的典型的一個管理系統(tǒng)，它實(shí)現(xiàn)了對書籍的各式管理。 2. 應(yīng)用系統(tǒng)安裝 直接拷貝：把應(yīng)用系統(tǒng)光盤插入到驅(qū)動器中，在任意盤目錄下建立子文件夾畢業(yè)設(shè)計(jì)，將光盤根目錄中所用的文件拷貝到任意盤文件夾畢業(yè)設(shè)計(jì)中。 針對學(xué)校管理的需求，通過對學(xué)校內(nèi)部管理內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 數(shù)據(jù)庫：數(shù)據(jù)庫 .mdb 資料表 1：按課程類型 列名 數(shù)據(jù)類型 可否為空 說明 課程類型 文本 否 cancel 數(shù)字 是 資 料表 2：班級表 列名 數(shù)據(jù)類型 可否為空 說明 年級 文本 是 教室 文本 是 專業(yè) 文本 否 年制 文本 是 班主任 文本 是 備注 文本 是 Cancel 數(shù)字 是 資料表 3：畢業(yè)設(shè)計(jì)表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 數(shù)字 否 姓名 文本 是 畢業(yè)設(shè)計(jì)課題名 文本 是 指導(dǎo)老師名 文本 是 指導(dǎo)老師所在 文本 是 資料表 4：補(bǔ)考表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 文本 是 姓名 文本 是 課程代號 文本 是 課程名稱 文 本 是 學(xué)期 文本 是 成績 文本 是 Cancel 數(shù)字 是 資料表 5：成績表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 文本 是 姓名 文本 是 課程代號 文本 是 課程名稱 文本 是 學(xué)期 文本 是 成績 文本 是 績點(diǎn)數(shù) 文本 是 Cancel 數(shù)字 是 資料表 6：各班課程 列名 數(shù)據(jù)類型 是否為空 說明 專業(yè) 文本 是 學(xué)期 文本 是 課程代號 文本 是 課程名稱 文本 是 Cancel 數(shù)字 是 資料表 7：積考表 列 名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 文本 否 姓名 文本 是 課程代號 文本 否 課程名稱 文本 是 學(xué)期 文本 是 成績 文本 是 Cancel 數(shù)字 是 資料表 8：教材表 列名 數(shù)據(jù)類型 是否為空 說明 課程代號 文本 是 課程名 文本 是 教材 文本 是 資料表 9：課程總表 列名 數(shù)據(jù)類型 是否為空 說明 課程代號 文本 否 課程名 文本 是 課程類型 文本 是 課時數(shù) 文本 是 教學(xué)要求 文本 是 學(xué)分 文本 是 學(xué)期 文本 是 Cancel 數(shù)字 是 資料表 10：年級表 列名 數(shù)據(jù)類型 是否為空 說明 年級 文本 否 資料表 11：實(shí)習(xí)表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 數(shù)字 否 姓名 文本 是 實(shí)習(xí)單位 文本 是 實(shí)習(xí)電話 數(shù)字 是 資料表 12：學(xué)期表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)期 文本 是 資料表 13：學(xué)生情況表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 數(shù)字 否 姓名 文本 是 性別 文本 是 系別 文本 是 班級 文本 是 政治面貌 文本 是 家庭地址 文本 是 聯(lián)系電話 文本 是 郵政編碼 文本 是 父親姓名 文本 是 母親姓名 文本 是 畢業(yè)學(xué)校 文本 是 入學(xué)成績 文本 是 宿舍號 文本 是 退學(xué) 是 /否 是 cancel 數(shù)字 是 資料表 14：用戶表 列名 數(shù)據(jù)類型 是否為空 說明 組名稱 文本 是 組密碼 文本 是 用戶名 文本 否 密碼 文本 是 資料表 15：員工信息表 列名 數(shù)據(jù)類型 是否為空 說明 員工號 數(shù)字 否 姓名 文本 是 性別 文本 是 職 稱 文本 是 培訓(xùn)時間 文本 是 培訓(xùn)部門 文本 是