學(xué)校管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)-資料下載頁(yè)
2024-12-01 21:23本頁(yè)面
【導(dǎo)讀】在技術(shù)上已逐步成熟。信息管理系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)。本文采用VB和ACCESS等軟件為開(kāi)發(fā)工具，以。的信息、學(xué)生的課程以及成績(jī)進(jìn)行統(tǒng)一管理，便于查詢、修改和打印。主要實(shí)現(xiàn)的功能模。本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。學(xué)生成績(jī)輸入數(shù)據(jù)顯示窗體…可擴(kuò)充內(nèi)容………………………
【正文】 us If 學(xué)生情況表 .BOF = True Then 學(xué)生情況表 .MoveFirst MsgBox 已經(jīng)為第一條記錄！ , vbExclamation + vbOKOnly, 首記錄 End If 39。向上移動(dòng)，若到首記錄了，則顯示對(duì)話框 End Sub Private Sub Command3_Click() 學(xué)生情況表 .MoveNext If 學(xué)生情況表 .EOF = True Then 學(xué)生情況表 .MoveLast MsgBox 已經(jīng)為最后一條記錄！ , vbExclamation + vbOKOnly, 尾記錄 End If 39。向下移動(dòng)，若到尾記錄了，則顯示對(duì)話框 End Sub Private Sub Command4_Click() 學(xué)生情況表 .MoveLast 39。移動(dòng)到尾記錄 End Sub Private Sub Command5_Click() 學(xué) 生情況表 .Filter = cancel like 39。039。 39。取消過(guò)濾，實(shí)際是根據(jù) cancel 項(xiàng)進(jìn)行過(guò)濾，此項(xiàng)是數(shù)據(jù)型，默認(rèn)為 0 End Sub Private Sub Command6_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學(xué)生情況表 .UpdateBatch adAffectAllChapters 39。刷新記錄 MsgBox 記錄已經(jīng)更新！ , vbExclamation + vbOKOnly, 成功 End Sub Private Sub Command7_Click() 39。打印報(bào)表 End Sub Private Sub Command8_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學(xué)生情況表 .Delete 39。刪除記錄 End Sub Private Sub Command9_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 學(xué)生情況表 .AddNew End Sub *員工培訓(xùn)信息（員工 培訓(xùn)信息 .frm） Dim 員工培訓(xùn)表 As Private Sub Command1_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓(xùn)表 .AddNew 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。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = True 39。修改記錄 = True = True = True = True = True = True = False = False = False = False = False = False = False = False = False = False End Sub Private Sub Command3_Click() 員工培訓(xùn)表 .CancelUpdate 39。取消修改 = False = False = True = True = True = True = False = False = False = False = False = False = False = False = False = False End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓(xùn)表 .Update = False = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True End Sub Private Sub Command6_Click() 實(shí)習(xí)表 .CancelUpdate 39。取消添加 = False = True = True = True = True = False = False = False = False = False = False = False = False = False = False End Sub Private Sub Command7_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒(méi)有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 員工培訓(xùn)表 .Update 39。確定修改 = False = False = False = True = True = False = True = True = True = True = True = True = True = True = True = True = True End Sub Private Sub Command8_Click() msg = 確定要?jiǎng)h除嗎？ 39。刪除記錄 X = MsgBox(msg, vbYesNo, ) If X = vbYes Then 員工培訓(xùn)表 .Delete 員工培訓(xùn)表 .MoveNext If 員工培訓(xùn)表 .EOF Then 員工培訓(xùn)表 .MoveLast End If End If End Sub Private Sub Command9_Click() End Sub Private Sub Form_Load() Set 員工培訓(xùn)表 = 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。s mind. He was busy trying to solve a sixty foot, sixty ton problem: a sperm whale that refused to give up. The harpoon had not found the vital spotthe gunner blamed the choppy sea for spoiling his aim and now the whale was towing the 110 ton boat behind it. Even with the engine reversed, the craft kept moving forward. The gunner got ready to fire a second harpoon. In the bloodstained water the mammoth beast continued its agonising struggle. He was a mature male, a bull. His slate blue body bore scars, souvenirs of epic battles with giant squid he had hunted in the dark depths. The biggest of these pink monsters, whose humanlike eyes were more than fifteen inches across, weighed 42 tons and measured 66 feet. But even the ir powerful beaks and ten suc kered tentacles were no match for the whale39。s eightinch teeth. ted on the shore. Someone set it ablaze. Spar ks crackled amid whirling smoke. Excited, cherry cheeked children ringed the bonfire。 only the older ones understood that this was no celebration. For several nights to e there would be plenty of bodies to feed the flames. Niy miles inland, nothing broke the forest hush. A full moon silvered the treetops and light leaked down to the snowcovered floor beneath. Scraps of mist seemed caught on prickly branches. From the shadows, a ghostly shape
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1