基于visualbasic學(xué)校信息管理系統(tǒng)畢業(yè)設(shè)計(含源文件)(參考版)
2025-08-09 08:43本頁面
【正文】 刪除記錄 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。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒有此權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒有此權(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。修改記錄 = 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 = 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 你不是管理員,沒有此權(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 你不是管理員,沒有此權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。刷新記錄MsgBox 記錄已經(jīng)更新！, vbExclamation + vbOKOnly, 成功End SubPrivate Sub Command7_Click() 39。取消過濾，實際是根據(jù)cancel項進(jìn)行過濾，此項是數(shù)據(jù)型，默認(rèn)為0End SubPrivate Sub Command6_Click()39。039。向下移動，若到尾記錄了，則顯示對話框End SubPrivate Sub Command4_Click() 39。按系別過濾End SubPrivate Sub Command2_Click()If = True ThenMsgBox 已經(jīng)為第一條記錄！, vbExclamation + vbOKOnly, 首記錄End If 39。 %39。 amp。不能在datagrid中直接進(jìn)行數(shù)據(jù)的改動 = False = FalseEnd Sub *學(xué)生基本信息窗體（學(xué)生基本信息窗體frm）源代碼Option ExplicitPrivate Sub Command1_Click() 39。只有在DataGrid1中點擊才能添加數(shù)據(jù)End SubPrivate Sub DataGrid2_Click() = False = True 39。 39。 amp。顯示各班課程的打印報表End SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub DataCombo1_Click(Area As Integer) = 專業(yè) =39。 = 專業(yè) 39。彈出一個有確定和取消按扭的對話框，點選確定則刪除記錄 adAffectAllChaptersMsgBox 課程刪除成功！, vbExclamation + vbOKOnly, 成功End IfEnd SubPrivate Sub Command3_Click() = cancel like 39。End SubPrivate Sub Command2_Click()39。 amp。過濾項設(shè)為0 adAffectAllChaptersMsgBox 課程添加成功！, vbExclamation + vbOKOnly, 成功 = 專業(yè) =39。數(shù)據(jù)項（課程代號） = 39。數(shù)據(jù)項（專業(yè)） = 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í)表 = End Sub*各班課程設(shè)置窗體（）Private Sub Command1_Click()39。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒有此權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒有此權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If = True = True = False = False = True = True = True = False = False = False = False End SubPrivate Sub Command3_Click() = False = False = True = True = True = True = False = False = False = FalseEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()39。判斷是否有權(quán)限If admin = 0 ThenMsgBox 你不是管理員,沒有此權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。 另外，在系統(tǒng)開發(fā)過程中同組的同學(xué)也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同樣給與我不少幫助，這里一并表示感謝。陳老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。使用者的權(quán)限，成績管理部分，數(shù)據(jù)庫備份和恢復(fù)等。查詢模塊做的不是很理想，只能進(jìn)行單條件查詢。圖書信息的管理，需要圖書館來完成。而信息管理系統(tǒng)，需要多個職能部門來參與管理，比如學(xué)生信息以及成績的錄入，需要教師來管理。學(xué)校管理系統(tǒng)的局限性：該系統(tǒng)是單機版，所以使用范圍得到了限制。接口美觀大方，界面風(fēng)格統(tǒng)一。 通過圖書館管理系統(tǒng)，實現(xiàn)圖書檢索和借閱，從而一方面能作到資料共享。通過該系統(tǒng)，將實現(xiàn)各種數(shù)據(jù)的共享，方便了信息的管理。學(xué)籍管理系統(tǒng)以學(xué)號和員工號生成，能夠快速的錄入成績、設(shè)置課程等，極大的方便了學(xué)校對于學(xué)生成績和員工工作狀
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1