學校管理系統的設計與實現—計算機畢業設計論文-資料下載頁

　　

【正文】 eger) = 專業 =39。 amp。 amp。 39。 39。按專業過濾數據End SubPrivate Sub DataGrid1_Click() = True = False 39。只有在DataGrid1中點擊才能添加數據End SubPrivate Sub DataGrid2_Click() = False = True 39。只有在DataGrid2中點擊才能刪除數據End SubPrivate Sub Form_Click() = False = FalseEnd SubPrivate Sub Form_Load() = False = False = False = False = False = False 39。不能在datagrid中直接進行數據的改動 = False = FalseEnd Sub*學生基本信息窗體（學生基本信息窗體frm）源代碼Option ExplicitPrivate Sub Command1_Click() 39。移動到首記錄End SubPrivate Sub Command10_Click() = 系別 like 39。 amp。 amp。 %39。 39。按系別過濾End SubPrivate Sub Command2_Click()If = True ThenMsgBox 已經為第一條記錄！, vbExclamation + vbOKOnly, 首記錄End If 39。向上移動，若到首記錄了，則顯示對話框End SubPrivate Sub Command3_Click()If = True ThenMsgBox 已經為最后一條記錄！, vbExclamation + vbOKOnly, 尾記錄End If 39。向下移動，若到尾記錄了，則顯示對話框End SubPrivate Sub Command4_Click() 39。移動到尾記錄End SubPrivate Sub Command5_Click() = cancel like 39。039。 39。取消過濾，實際是根據cancel項進行過濾，此項是數據型，默認為0End SubPrivate Sub Command6_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If adAffectAllChapters 39。刷新記錄MsgBox 記錄已經更新！, vbExclamation + vbOKOnly, 成功End SubPrivate Sub Command7_Click() 39。打印報表End SubPrivate Sub Command8_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。刪除記錄End SubPrivate Sub Command9_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd IfEnd Sub*員工培訓信息（）Dim 員工培訓表 As Private Sub Command1_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。添加記錄 = False = False = True = True = False = True = False = True = True = True = True = True = True = True = True = True = TrueEnd SubPrivate Sub Command10_Click()If = True ThenMsgBox (已到首記錄)End IfEnd SubPrivate Sub Command11_Click()If = True ThenMsgBox (已到末記錄)End IfEnd SubPrivate Sub Command12_Click()End SubPrivate Sub Command14_Click()Unload MeEnd SubPrivate Sub Command2_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If = True 39。修改記錄 = True = True = True = True = True = True = False = False = False = False = False = False = False = False = False = FalseEnd SubPrivate Sub Command3_Click() 39。取消修改 = False = False = True = True = True = True = False = False = False = False = False = False = False = False = False = FalseEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If = False = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = TrueEnd SubPrivate Sub Command6_Click() 39。取消添加 = False = True = True = True = True = False = False = False = False = False = False = False = False = False = False End SubPrivate Sub Command7_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。確定修改 = False = False = False = True = True = False = True = True = True = True = True = True = True = True = True = True = TrueEnd SubPrivate Sub Command8_Click()msg = 確定要刪除嗎？ 39。刪除記錄 X = MsgBox(msg, vbYesNo, ) If X = vbYes Then If Then End If End If End SubPrivate Sub Command9_Click()End SubPrivate Sub Form_Load() Set 員工培訓表 = End Sub