【正文】 詢結(jié)果、界面、實習管理、學生成績查詢、學生成績輸入、學生成績輸入數(shù)據(jù)顯示、學?；菊n程、用戶登陸、員工培訓信息、重修成績查詢結(jié)果、綜合測評、綜合測評信息都由我完成。 課程管理部分分為學?；菊n程，各班 課程設置兩部分。綜合測評信息部分顯示所有綜合測評資料，并能實現(xiàn)多項查詢，支持打印。當 ProgressBar 的達到 100（ max設定值）時觸發(fā) Unload Me 用戶登陸 .Show = False 39。當用戶名和密碼相符的時候，進入主窗體，跳出循環(huán) If = True Then MsgBox 密碼錯誤，請重新輸入！ , vbExclamation + vbOKOnly, 警告 = Exit Do End If 39。按年級過濾 班級表 .Filter = cancel like 39。三個 Lable 設置了排序、查找、篩選三個功能模塊，而在排序和查找模塊中又分別用了三個 Option 來做出選擇，用 Adodc 連接了后臺數(shù)據(jù)庫用 DataGrid 實現(xiàn)前臺數(shù)據(jù)的展現(xiàn)， DataCombo 的選擇來實現(xiàn)篩選 。 %39。 Private Sub Form_Load() = = = = = = Set rs = End Sub Private Sub Text1_Change() = = = = = = End Sub （表）分析 數(shù)據(jù)庫設計 數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構設計的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構能充分滿足各種信息的輸出和輸入。用于驗證是否有管理員權限 7 用戶操作說明 1. 軟硬件環(huán)境 硬件配置： 486 以上檔次的計算機 ，彩色顯示器，內(nèi)存 8M,硬盤 200M。 刪除：輸入用戶編號，經(jīng)確認之后，再輸入用戶密碼，即可以刪除用戶。 優(yōu)點 接口美觀大方，界面風格統(tǒng)一。 查詢模塊做的不是很理想，只能進行單條件查詢。判斷是否有權限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 實習表 .AddNew 39。數(shù)據(jù)項（專業(yè)） = 39。 End Sub Private Sub Command2_Click() 39。 amp。 amp。039。判斷是否有權限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學生情況表 .AddNew End Sub *員工培訓信息（員工 培訓信息 .frm） Dim 員工培訓表 As Private Sub Command1_Click() 39。判斷是否有權限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓表 .Update 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 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。取消過濾，實際是根據(jù) cancel 項進行過濾，此項是數(shù)據(jù)型，默認為 0 End Sub Private Sub Command6_Click() 39。 %39。 39。彈出一個 有確定和取消按扭的對話框，點選確定則刪除記錄 各班課程 .UpdateBatch adAffectAllChapters MsgBox 課程刪除成功！ , vbExclamation + vbOKOnly, 成功 End If End Sub Private Sub Command3_Click() 各班課程 .Filter = cancel like 39。數(shù)據(jù)項（課程代號） = 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。 可擴充內(nèi)容 使用者的權限，成績管理部分，數(shù)據(jù)庫備份和恢復等。 缺點 學校管理系統(tǒng)的局限性：該系統(tǒng)是單機版，所以使用范圍得到了限制。 學籍管理系統(tǒng)以學號和員工號生成，能夠快速的錄入成績、設置課程等，極大的方便了學校對于學生成績和 員工工作狀況的管理；而信息管理系統(tǒng)是與學籍管理系統(tǒng)數(shù)據(jù)共享的，其中各式各樣的報表方便了信息的管理；圖書館管理系統(tǒng)則是現(xiàn)代學校的典型的一個管理系統(tǒng)，它實現(xiàn)了對書籍的各式管理。 2. 應用系統(tǒng)安裝 直接拷貝：把應用系統(tǒng)光盤插入到驅(qū)動器中，在任意盤目錄下建立子文件夾畢業(yè)設計，將光盤根目錄中所用的文件拷貝到任意盤文件夾畢業(yè)設計中。 針對學校管理的需求，通過對學校內(nèi)部管理內(nèi)容和數(shù)據(jù)流程分析，設計如下所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構： 數(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ù)字 否 姓名 文本 是 性別 文本 是 職 稱 文本 是 培訓時間 文本 是 培訓部門 文本 是