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