學(xué)校管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文-資料下載頁(yè)
2025-08-06 08:56本頁(yè)面
【正文】 eger) = 專業(yè) =39。 amp。 amp。 39。 39。按專業(yè)過(guò)濾數(shù)據(jù)End SubPrivate Sub DataGrid1_Click() = True = False 39。只有在DataGrid1中點(diǎn)擊才能添加數(shù)據(jù)End SubPrivate Sub DataGrid2_Click() = False = True 39。只有在DataGrid2中點(diǎn)擊才能刪除數(shù)據(jù)End SubPrivate Sub Form_Click() = False = FalseEnd SubPrivate Sub Form_Load() = False = False = False = False = False = False 39。不能在datagrid中直接進(jìn)行數(shù)據(jù)的改動(dòng) = False = FalseEnd Sub *學(xué)生基本信息窗體（學(xué)生基本信息窗體frm）源代碼Option ExplicitPrivate Sub Command1_Click() 39。移動(dòng)到首記錄End SubPrivate Sub Command10_Click() = 系別 like 39。 amp。 amp。 %39。 39。按系別過(guò)濾End SubPrivate Sub Command2_Click()If = True ThenMsgBox 已經(jīng)為第一條記錄！, vbExclamation + vbOKOnly, 首記錄End If 39。向上移動(dòng)，若到首記錄了，則顯示對(duì)話框End SubPrivate Sub Command3_Click()If = True ThenMsgBox 已經(jīng)為最后一條記錄！, vbExclamation + vbOKOnly, 尾記錄End If 39。向下移動(dòng)，若到尾記錄了，則顯示對(duì)話框End SubPrivate Sub Command4_Click() 39。移動(dòng)到尾記錄End SubPrivate Sub Command5_Click() = cancel like 39。039。 39。取消過(guò)濾，實(shí)際是根據(jù)cancel項(xiàng)進(jìn)行過(guò)濾，此項(xiàng)是數(shù)據(jù)型，默認(rèn)為0End SubPrivate Sub Command6_Click()39。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒(méi)有此權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If adAffectAllChapters 39。刷新記錄MsgBox 記錄已經(jīng)更新！, vbExclamation + vbOKOnly, 成功End SubPrivate Sub Command7_Click() 39。打印報(bào)表End SubPrivate Sub Command8_Click()39。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒(méi)有此權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。刪除記錄End SubPrivate Sub Command9_Click()39。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒(méi)有此權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd IfEnd Sub*員工培訓(xùn)信息（）Dim 員工培訓(xùn)表 As Private Sub Command1_Click()39。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒(méi)有此權(quán)限！, 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。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒(méi)有此權(quán)限！, 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。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒(méi)有此權(quán)限！, 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。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒(méi)有此權(quán)限！, 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 = 確定要?jiǎng)h除嗎？ 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 員工培訓(xùn)表 = End Sub
化學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1