【正文】 工培訓(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。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓(xùn)表 .Update = False = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True End Sub Private Sub Command6_Click() 實(shí)習(xí)表 .CancelUpdate 39。添加記錄 = 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。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學(xué)生情況表 .Delete 39。取消過濾，實(shí)際是根據(jù) cancel 項(xiàng)進(jìn)行過濾，此項(xiàng)是數(shù)據(jù)型，默認(rèn)為 0 End Sub Private Sub Command6_Click() 39。向下移動(dòng)，若到尾記錄了，則顯示對(duì)話框 End Sub Private Sub Command4_Click() 學(xué)生情況表 .MoveLast 39。 %39。不能在 datagrid 中直接進(jìn)行數(shù)據(jù)的改動(dòng) = False = False End Sub *學(xué)生基本信息窗體（學(xué)生基本信息窗體 frm）源代碼 Option Explicit Private Sub Command1_Click() 學(xué)生情況表 .MoveFirst 39。 39。顯示各班課程的打印報(bào)表 End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub DataCombo1_Click(Area As Integer) 各班課程 .Filter = 專業(yè) =39。彈出一個(gè) 有確定和取消按扭的對(duì)話框，點(diǎn)選確定則刪除記錄 各班課程 .UpdateBatch adAffectAllChapters MsgBox 課程刪除成功！ , vbExclamation + vbOKOnly, 成功 End If End Sub Private Sub Command3_Click() 各班課程 .Filter = cancel like 39。 amp。數(shù)據(jù)項(xiàng)（課程代號(hào)） = 39。刪除記錄 X = MsgBox(msg, vbYesNo, ) If X = vbYes Then 實(shí)習(xí)表 .Delete 實(shí)習(xí)表 .MoveNext If 實(shí)習(xí)表 .EOF Then 實(shí)習(xí)表 .MoveLast End If End If End Sub Private Sub Command9_Click() End Sub Private Sub Form_Load() Set 實(shí)習(xí)表 = End Sub *各班課程設(shè)置窗體（各班課 程設(shè)置 .frm） Private Sub Command1_Click() 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。 另外，在系統(tǒng)開發(fā)過程中同組的同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同樣給與我不少幫助，這里一并表示感謝。 可擴(kuò)充內(nèi)容 使用者的權(quán)限，成績(jī)管理部分，數(shù)據(jù)庫(kù)備份和恢復(fù)等。圖書信息的管理，需要圖書館來(lái)完成。 缺點(diǎn) 學(xué)校管理系統(tǒng)的局限性：該系統(tǒng)是單機(jī)版，所以使用范圍得到了限制。 通過圖書 館管理系統(tǒng)，實(shí)現(xiàn)圖書檢索和借閱，從而一方面能作到資料共享。 學(xué)籍管理系統(tǒng)以學(xué)號(hào)和員工號(hào)生成，能夠快速的錄入成績(jī)、設(shè)置課程等，極大的方便了學(xué)校對(duì)于學(xué)生成績(jī)和 員工工作狀況的管理；而信息管理系統(tǒng)是與學(xué)籍管理系統(tǒng)數(shù)據(jù)共享的，其中各式各樣的報(bào)表方便了信息的管理；圖書館管理系統(tǒng)則是現(xiàn)代學(xué)校的典型的一個(gè)管理系統(tǒng)，它實(shí)現(xiàn)了對(duì)書籍的各式管理。 (3)用戶管理，可以進(jìn)行添加和刪除用戶。 2. 應(yīng)用系統(tǒng)安裝 直接拷貝：把應(yīng)用系統(tǒng)光盤插入到驅(qū)動(dòng)器中，在任意盤目錄下建立子文件夾畢業(yè)設(shè)計(jì)，將光盤根目錄中所用的文件拷貝到任意盤文件夾畢業(yè)設(shè)計(jì)中。此外，參考了同學(xué)的設(shè)計(jì)，因?yàn)樗麄兪前?功能做在外面所以可以在登陸時(shí)界面后就能發(fā)現(xiàn)，這明顯與我們做的有沖突換句話說是不值得我們借鑒，因此我要朋友詢問了適合我們的權(quán)限設(shè)置，在系統(tǒng)中添加個(gè)模塊，然后在代碼中再增加語(yǔ)句。 針對(duì)學(xué)校管理的需求，通過對(duì)學(xué)校內(nèi)部管理內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 數(shù)據(jù)庫(kù)：數(shù)據(jù)庫(kù) .mdb 資料表 1：按課程類型 列名 數(shù)據(jù)類型 可否為空 說明 課程類型 文本 否 cancel 數(shù)字 是 資 料表 2：班級(jí)表 列名 數(shù)據(jù)類型 可否為空 說明 年級(jí) 文本 是 教室 文本 是 專業(yè) 文本 否 年制 文本 是 班主任 文本 是 備注 文本 是 Cancel 數(shù)字 是 資料表 3：畢業(yè)設(shè)計(jì)表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號(hào) 數(shù)字 否 姓名 文本 是 畢業(yè)設(shè)計(jì)課題名 文本 是 指導(dǎo)老師名 文本 是 指導(dǎo)老師所在 文本 是 資料表 4：補(bǔ)考表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號(hào) 文本 是 姓名 文本 是 課程代號(hào) 文本 是 課程名稱 文 本 是 學(xué)期 文本 是 成績(jī) 文本 是 Cancel 數(shù)字 是 資料表 5：成績(jī)表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號(hào) 文本 是 姓名 文本 是 課程代號(hào) 文本 是 課程名稱 文本 是 學(xué)期 文本 是 成績(jī) 文本 是 績(jī)點(diǎn)數(shù) 文本 是 Cancel 數(shù)字 是 資料表 6：各班課程 列名 數(shù)據(jù)類型 是否為空 說明 專業(yè) 文本 是 學(xué)期 文本 是 課程代號(hào) 文本 是 課程名稱 文本 是 Cancel 數(shù)字 是 資料表 7：積考表 列 名 數(shù)據(jù)類型 是否為空 說明 學(xué)號(hào) 文本 否 姓名 文本 是 課程代號(hào) 文本 否 課程名稱 文本 是 學(xué)期 文本 是 成績(jī) 文本 是 Cancel 數(shù)字 是 資料表 8：教材表 列名 數(shù)據(jù)類型 是否為空 說明 課程代號(hào) 文本 是 課程名 文本 是 教材 文本 是 資料表 9：課程總表 列名 數(shù)據(jù)類型 是否為空 說明 課程代號(hào) 文本 否 課程名 文本 是 課程類型 文本 是 課時(shí)數(shù) 文本 是 教學(xué)要求 文本 是 學(xué)分 文本 是 學(xué)期 文本 是 Cancel 數(shù)字 是 資料表 10：年級(jí)表 列名 數(shù)據(jù)類型 是否為空 說明 年級(jí) 文本 否 資料表 11：實(shí)習(xí)表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號(hào) 數(shù)字 否 姓名 文本 是 實(shí)習(xí)單位 文本 是 實(shí)習(xí)電話 數(shù)字 是 資料表 12：學(xué)期表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)期 文本 是 資料表 13：學(xué)生情況表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號(hào) 數(shù)字 否 姓名 文本 是 性別 文本 是 系別 文本 是 班級(jí) 文本 是 政治面貌 文本 是 家庭地址 文本 是 聯(lián)系電話 文本 是 郵政編碼 文本 是 父親姓名 文本 是 母親姓名 文本 是 畢業(yè)學(xué)校 文本 是 入學(xué)成績(jī) 文本 是 宿舍號(hào) 文本 是 退學(xué) 是 /否 是 cancel 數(shù)字 是 資料表 14：用戶表 列名 數(shù)據(jù)類型 是否為空 說明 組名稱 文本 是 組密碼 文本 是 用戶名 文本 否 密碼 文本 是 資料表 15：?jiǎn)T工信息表 列名 數(shù)據(jù)類型 是否為空 說明 員工號(hào) 數(shù)字 否 姓名 文本 是 性別 文本 是 職 稱 文本 是 培訓(xùn)時(shí)間 文本 是 培訓(xùn)部門 文本 是 培訓(xùn)費(fèi)用 文本 是 培訓(xùn)課程 文本 是