學(xué)生信息管理系統(tǒng)-信息管理與信息系統(tǒng)本科生課程設(shè)計

內(nèi)蒙古科技大學(xué)課程設(shè)計說明書(課程論文)-47-附錄部分代碼A系統(tǒng)登陸代碼DimTIMAsIntegerDimmyValAsStringPrivateSubcmdCancel_Click()DimmyValAsStringBeepmyVal=MsgBox("確認(rèn)退出系統(tǒng)嗎?",vbYesNo+vbQuestion,"退出")IfmyVal=vbYesThenUnloadMefrmCload.ShowElsetxtname.Text=""txtpwd.Text=""txtname.SetFocusEndIfEndSubPrivateSubcmdOK_Click()Iftxtname.Text<>""Andtxtname.Text<>""Thenadcload.RecordSource="select*from管理員身份認(rèn)證表wherename='"+Trim(txtname.Text)+"'"adcload.RefreshIfTIM<2ThenOnErrorGoToerrnameIfTrim(txtpwd.Text)=Trim(adcload.Recordset.Fields("pwd"))ThenValname=Trim(adcload.Recordset.Fields("style"))Valming=Trim(txtname.Text)Loadfrmmainfrmmain.ShowUnloadMeExitSubElseMsgBox"您的用戶名或密碼有誤,請重行輸入!",vbExclamation+vbDefaultButton1,"錯誤"TIM=TIM+1txtname.Text=""txtpwd.Text=""txtname.SetFocusExitSubEndIfElsemyVal=MsgBox("您不是合法用戶,請與系統(tǒng)管理員聯(lián)系!",vbInformation+vbOKOnly,"抱歉")IfmyVal=vbOKThenEndUnloadMeEndIfElseMsgBox"請把用戶名和密碼輸全!",vbInformation+vbOKOnly,"提示"txtname.Text=""txtpwd.Text=""txtname.SetFocusExitSubEndIferrname:MsgBox"抱歉您的用戶名不存在!",vbInformation+vbOKOnly,"抱歉"txtname.Text=""txtpwd.Text=""txtname.SetFocusExitSubEndSubPrivateSubcmdok_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyUpThentxtpwd.SetFocusEndIfEndSubPrivateSubtxtName_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThentxtpwd.SetFocusEndIfIfKeyCode=vbKeyDownThentxtpwd.SetFocusEndIfEndSubPrivateSubtxtpwd_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThencmdok.SetFocusEndIfIfKeyCode=vbKeyDownThencmdok.SetFocusEndIfIfKeyCode=vbKeyUpThentxtname.SetFocusEndIfEndSubB信息瀏覽代碼PrivateSubForm_Activate()dgdInf.SetFocusEndSubPrivateSubForm_Unload(CancelAsInteger)UnloadMeLoadfrmmainfrmmain.ShowEndSubPrivateSubcmdFirst_Click()Ifrs_Allinf.Recordset.RecordCount<>0Thenrs_Allinf.Recordset.MoveFirstElseMsgBox"當(dāng)前沒有有效記錄供瀏覽!",vbInformation+vbOKOnly,"提示"EndIfEndSubPrivateSubcmdLast_Click()Ifrs_Allinf.Recordset.RecordCount<>0Thenrs_Allinf.Recordset.MoveLastElseMsgBox"當(dāng)前沒有有效記錄供瀏覽!",vbInformation+vbOKOnly,"提示"EndIfEndSubPrivateSubcmdNext_Click()Ifrs_Allinf.Recordset.RecordCount<>0Thenrs_Allinf.Recordset.MoveNextIfrs_Allinf.Recordset.EOF=TrueThenrs_Allinf.Recordset.MoveLastElseMsgBox"當(dāng)前沒有有效記錄供瀏覽!",vbInformation+vbOKOnly,"提示"EndIfEndSubPrivateSubcmdPreive_Click()Ifrs_Allinf.Recordset.RecordCount<>0Thenrs_Allinf.Recordset.MovePreviousIfrs_Allinf.Recordset.BOF=TrueThenrs_Allinf.Recordset.MoveFirstElseMsgBox"當(dāng)前沒有有效記錄供瀏覽!",vbInformation+vbOKOnly,"提示"EndIfEndSubC課程管理代碼PrivateSubcmdDelet_Click()OnErrorGoToerrorDeleteDimmyValAsStringBeepmyVal=MsgBox("要刪除此條信息嗎?",vbQuestion+vbOKCancel,"詢問")IfmyVal=vbOKThenrs_Kgl.Recordset.Deleters_Kgl.Recordset.MoveNextIfrs_Kgl.Recordset.EOFThenrs_Kgl.Recordset.MoveLastEndIfrs_Kgl.RefreshElsers_Kgl.Recordset.Cancelrs_Kgl.RefreshEndIferrorDelete:rs_Kgl.Recordset.Cancelrs_Kgl.RefreshEndSubPrivateSubcmdEdit_Click()MsgBox"可以修改請在表格中直接修改!",vbInformation+vbOKOnly,"提示"dtgGlk.AllowUpdate=TruecmdSave.Enabled=TrueEndSubPrivateSubcmdExit_Click()DimmyStrAsStringBeepmyStr=MsgBox("是否取消此次操作!",vbQuestion+vbYesNo,"詢問")IfmyStr=vbYesThenrs_Kgl.Recordset.Cancelrs_Kgl.RefreshdtgGlk.AllowUpdate=FalseElseExitSubEndIfEndSubPrivateSubcmdSave_Click()rs_Kgl.Recordset.UpdateMsgBox"保存成功!",vbInformation+vbOKOnly,"提示"rs_Kgl.RefreshcmdSave.Enabled=FalsedtgGlk.AllowUpdate=FalseEndSubD密碼修改代碼PrivateSubcmdYes_Click()DimmyValAsStringIftxtMm.Text=""ThenBeepmyVal=MsgBox("確實不添加密碼嗎?",vbQuestion+vbYesNo,"詢問")IfmyVal=vbYesThenrs_Shenfen.Recordset.Fields("pwd")=Trim(txtMm.Text)rs_Shenfen.Recordset.Updaters_Shenfen.RefreshMsgBox"密碼更新成功!",vbInformation+vbOKOnly,"更新完成"ElsetxtMm.SetFocusExitSubEndIfEndIfIftxtMm.Text=txtXmm.TextThenMsgBox"密碼更新成功!",vbInformation+vbOKOnly,"更新完成"rs_Shenfen.Recordset.Fields("pwd")=Trim(txtMm.Text)rs_Shenfen.Recordset.Updaters_Shenfen.RefreshUnloadMeElseMsgBox"兩次密碼輸入不符請確認(rèn)!",vbInformation+vbOKOnly,"注意"txtMm.Text=""txtXmm.Text=""txtMm.SetFocusEndIfEndSubPrivateSubForm_Activate()txtname.Text=Valmingrs_Shenfen.RecordSource="select*from管理員身份認(rèn)證表wherename='"+Trim(txtname.Text)+"'"rs_Shenfen.RefreshEndSubE系統(tǒng)退出代碼PrivateSubcmdOK_Click()IfoptTeacher.Value=TrueThenUnloadMefrmLoad.ShowElseIfoptStudent.Value=TrueThenUnloadMefrmsload.ShowEndIfEndSubPrivateSubouta_Click()IfMsgBox("確定注銷嗎？",vbYesNo+vbInformation,"提示")=vbYesThenEndEndIfEndSubPrivateSuboutb_Click()IfMsgBox("確定重新登錄嗎？",vbYesNo+vbInformation,"提示")=vbYesThenUnloadMefrmCload.ShowEndIfEndSub致謝通過這段時間的學(xué)習(xí)，發(fā)現(xiàn)了自己還有很多不足，所學(xué)的知識還有很多沒有掌握的地方，在這里首先要感謝王威老師對我課程設(shè)計的耐心指導(dǎo)，還要感謝同學(xué)的幫助。同時我也感悟到自己的實踐經(jīng)驗還是有很大的不足，理論聯(lián)系實際的能力還需提高。在這個過程中，我也曾經(jīng)因為實踐經(jīng)驗的缺乏感到沮喪，而有時也會熱情高漲。生活就是這樣，一分耕耘一分收獲，成功是努力和汗水的結(jié)晶。通過這次設(shè)計，就我本人而言有很大的感悟和收獲。面對電腦的這兩周的日子，讓我體會到了喜悅與沮喪的含義，也學(xué)會了要迎難而上。其實我們對于以前學(xué)過的VB這門課并未真正掌握，通過這次設(shè)計，使我們認(rèn)識到了自己在知識上的不足，以及今后努力的方向，知識是需要不斷溫習(xí)、不斷重復(fù)的?；贑8051F單片機直流電動機反饋控制系統(tǒng)的設(shè)計與研究基于單片機的嵌入式Web服務(wù)器的研究MOTOROLA單片機MC68HC（8）05PV8/A內(nèi)嵌EEPROM的工藝和制程方法及對良率的影響研究基于模糊控制的電阻釬焊單片機溫度控制系統(tǒng)的研制基于MCS-51系列單片機的通用控制模塊的研究基于單片機實現(xiàn)的供暖系統(tǒng)最佳啟停自校正（STR）調(diào)節(jié)器單片機控制的二級倒立擺系統(tǒng)的研究基于增強型51系列單片機的TCP/IP協(xié)議棧的實現(xiàn)基于單片機的蓄電池自動監(jiān)測系統(tǒng)基于32位嵌入式單片機系統(tǒng)的圖像采集與處理技術(shù)的研究基于單片機的作物營養(yǎng)診斷專家系統(tǒng)的研究基于單片機的交流伺服電機運動控制系統(tǒng)研究與開發(fā)基于單片機的泵管內(nèi)壁硬度測試儀的研制基于單片機的自動找平控制系統(tǒng)研究基于C8051F040單片機的嵌入式系統(tǒng)開發(fā)基于單片機的液壓動力系統(tǒng)狀態(tài)監(jiān)測儀開發(fā)模糊Smith智能控制方法的研究及其單片機實現(xiàn)一種基于單片機的軸快流CO〈,2〉激光器的手持控制面板的研制基于雙單片機沖床數(shù)控系統(tǒng)的研究基于CYGNAL單片機的在線間歇式濁度儀的研制基于單片機的噴油泵試驗臺控制器的研制基于單片機的軟起動器的研究和設(shè)計基于單片機控制的高速快走絲電火花線切割機床短循環(huán)走絲方式研究基于單片機的機電產(chǎn)品控制系統(tǒng)開發(fā)基于PIC單片機的智能手機充電器基于單片機的實時內(nèi)核設(shè)計及其應(yīng)用研究基于單片機的遠程抄表系統(tǒng)的設(shè)計與研究基于單片機的煙氣二氧化硫濃度檢測儀的研制基于微型光譜儀的單片機系統(tǒng)單片機系統(tǒng)軟件構(gòu)件開發(fā)的技術(shù)研究基于單片機的液體點滴速度自動檢測儀的研制基于單片機系統(tǒng)的多功能溫度測量儀的研制基于PIC單片機的電能采集終端的設(shè)計和應(yīng)用基于單片機的光纖光柵解調(diào)儀的研制氣壓式線性摩擦焊機單片機控制系統(tǒng)的研制基于單片機的數(shù)字磁通門傳感器基于單片機的旋轉(zhuǎn)變壓器-數(shù)字轉(zhuǎn)換器的研究基于單片機的光纖Bragg光柵解調(diào)系統(tǒng)的研究單片機控制的便攜式多功能乳腺治療儀的研制基于C8051F020單片機的多生理信號檢測儀基于單片機的電機運動控制系統(tǒng)設(shè)計Pico專用單片機核的可測性設(shè)計研究基于MCS-51單片機的熱量計基于雙單片機的智能遙測微型氣象站MCS-51單片機構(gòu)建機器人的實踐研究基于單片機的輪軌力檢測基于單片機的GPS定位儀的研究與實現(xiàn)基于單片機的電液伺服控制系統(tǒng)用于單片機系統(tǒng)的MMC卡文件系統(tǒng)研制基于單片機的時控和計數(shù)系統(tǒng)性能優(yōu)化的研究基于單片機和CPLD的粗光柵位移測量系統(tǒng)研究單片機控制的后備式方波UPS提升高職學(xué)生單片機應(yīng)用能力的探究基于單片機控制的自動低頻減載裝置研究基于單片機控制的水下焊接電源的研究基于單片機的多通道數(shù)據(jù)采集系統(tǒng)基于uPSD3234單片機的氚表面污染測量儀的研制基于單片機的紅外測油儀的研究96系列單片機仿真器研究與設(shè)計基于單片機的單晶金剛石刀具刃磨設(shè)備的數(shù)控改造基于單片機的溫度智能控制系統(tǒng)的設(shè)計與實現(xiàn)基于MSP430單片機的電梯門機控制器的研制基于單片機的氣體測漏儀的研究基于三菱M16C/6N系列單片機的CAN/USB協(xié)議轉(zhuǎn)換器基于單片機和DSP的變壓器油色譜在線監(jiān)測技術(shù)研究基于單片機的膛壁溫度報警系統(tǒng)設(shè)計基于AVR單片機的低壓無功補償控制器的設(shè)計基于單片機船舶電力推進電機監(jiān)測系統(tǒng)基于單片機網(wǎng)絡(luò)的振動信號的采集系統(tǒng)基于單片機的大容量數(shù)據(jù)存儲技術(shù)的應(yīng)用研究基于單片機的疊圖機研究與教學(xué)方法實踐基于單片機嵌入式Web服務(wù)器技術(shù)的研究及實現(xiàn)基于AT89S52單片機的通用數(shù)據(jù)采集系統(tǒng)基于單片機的多道脈沖幅度分析儀研究機器人旋轉(zhuǎn)電弧傳感角焊縫跟蹤單片機控制系統(tǒng)基于單片機的控制系統(tǒng)在PLC虛擬教學(xué)實驗中的應(yīng)用研究基于單片機系統(tǒng)的網(wǎng)絡(luò)通信研究與應(yīng)用基于PIC16F877單片機的莫爾斯碼自動譯碼系統(tǒng)設(shè)計與研究基于單片機的模糊控制器在工業(yè)電阻爐上的應(yīng)用研究基于雙單片機沖床數(shù)控系統(tǒng)的研究與開發(fā)基于Cygnal單片機的μC/OS-Ⅱ的研究基于單片機的一體化智能差示掃描量熱儀系統(tǒng)研究基于TCP/IP協(xié)議的單片機與Internet互聯(lián)的研究與實現(xiàn)變頻調(diào)速液壓電梯單片機控制器的研究基于單片機γ-免疫計數(shù)器自動換樣功能的研究與實現(xiàn)基于單片機的倒立擺控制系統(tǒng)設(shè)計與實現(xiàn)單片機嵌入式以太網(wǎng)防盜報警系統(tǒng)基于51單片機的嵌入式Internet系統(tǒng)的設(shè)計與實現(xiàn)單片機監(jiān)測系統(tǒng)在擠壓機上的應(yīng)用MSP430單片機在智能水表系統(tǒng)上的研究與應(yīng)用基于單片機的嵌入式系統(tǒng)中TCP/IP協(xié)議棧的實現(xiàn)與應(yīng)用單片機在高樓恒壓供水系統(tǒng)中的應(yīng)用基于ATmega16單片機的流量控制器的開發(fā)基于MSP430單片機的遠程抄表系統(tǒng)及智能網(wǎng)絡(luò)水表的設(shè)計基于MSP430單片機具有數(shù)據(jù)存儲與回放功能的嵌入式電子血壓計的設(shè)計基于單片機的