MIS課程設(shè)計(jì)報(bào)告

西安郵電學(xué)院MIS課程設(shè)計(jì)報(bào)告書(shū)(學(xué)生學(xué)籍管理系統(tǒng)分析設(shè)計(jì))系部名稱(chēng)：信息與管理工程系學(xué)生姓名：王鳴專(zhuān)業(yè)名稱(chēng)：信息管理與信息系統(tǒng)班級(jí)：信管0402班時(shí)間：2006年12月11日至2006年12

目錄：一.可行性分析…………………4二.系統(tǒng)分析部分………………41.業(yè)務(wù)流程圖………………52.數(shù)據(jù)流程圖………………53.功能分析圖………………64.數(shù)據(jù)字典…………………75.數(shù)據(jù)加工處理的描述……………………86.管理信息系統(tǒng)流程設(shè)想圖………………9三.系統(tǒng)設(shè)計(jì)部分1.功能結(jié)構(gòu)圖設(shè)計(jì)…………92.新系統(tǒng)信息處理流程設(shè)計(jì)………………93.輸出設(shè)計(jì)(主要指打印輸出設(shè)計(jì))………94.存儲(chǔ)文件格式設(shè)計(jì)(數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì))…………………95.輸入設(shè)計(jì)(主要指數(shù)據(jù)錄入卡設(shè)計(jì))……126.代碼設(shè)計(jì)(職工證號(hào)和部門(mén)代號(hào)等)……147.程序設(shè)計(jì)說(shuō)明書(shū)…………14四.系統(tǒng)實(shí)施部分1.程序框圖…………………142.源程序……………………183.模擬運(yùn)行數(shù)據(jù)……………714.打印報(bào)表…………………725.系統(tǒng)使用說(shuō)明書(shū)…………72五.附錄或參考資料設(shè)計(jì)任務(wù)書(shū)信管專(zhuān)業(yè)2004級(jí)MIS課程設(shè)計(jì)任務(wù)書(shū)一、設(shè)計(jì)目的：通過(guò)本次設(shè)計(jì)，要求同學(xué)們能夠?qū)⑺鶎W(xué)到的信息系統(tǒng)分析方法與軟件設(shè)計(jì)技術(shù)及方法綜合運(yùn)用到實(shí)際信息系統(tǒng)的分析與設(shè)計(jì)中，提高同學(xué)們對(duì)軟件的綜合分析與設(shè)計(jì)能力，主要包括對(duì)數(shù)據(jù)的分析、組織能力，數(shù)據(jù)的提取、處理能力；軟件結(jié)構(gòu)的分析設(shè)計(jì)，復(fù)雜界面與輸入輸出設(shè)計(jì)能力；學(xué)習(xí)常用軟件開(kāi)發(fā)工具的使用。二、設(shè)計(jì)內(nèi)容：學(xué)生學(xué)籍管理系統(tǒng)：1、系統(tǒng)需求：本系統(tǒng)主要是用于學(xué)生基本信息的管理。該系統(tǒng)可以完成對(duì)學(xué)生信息添加、班級(jí)管理、查找等操作,能夠?qū)W(xué)生信息進(jìn)行方便有效的科學(xué)管理。2、主要功能描述1）權(quán)限管理主要是用戶的等級(jí)和權(quán)限的劃分。分３級(jí)管理員，超級(jí)用戶、只讀用戶、普通用戶，權(quán)限可以自定義添加和刪除。2）班級(jí)管理添加班級(jí)、瀏覽班級(jí)、查詢班級(jí)。3）學(xué)生檔案管理瀏覽檔案、添加檔案、查詢檔案。4）課程設(shè)置：基本課程設(shè)置和班級(jí)課程設(shè)置。5）成績(jī)管理：考試類(lèi)型設(shè)置、成績(jī)添加瀏覽和查詢。6）打印報(bào)表：可以打印學(xué)生的檔案和成績(jī)等相關(guān)的信息報(bào)表。三、設(shè)計(jì)要求結(jié)合所學(xué)習(xí)的系統(tǒng)分析與設(shè)計(jì)的具體方法，應(yīng)用程序設(shè)計(jì)的基本知識(shí)和數(shù)據(jù)庫(kù)知識(shí)進(jìn)行詳細(xì)的系統(tǒng)分析設(shè)計(jì)。具體要求如下：學(xué)習(xí)進(jìn)行相對(duì)復(fù)雜數(shù)據(jù)的分析與設(shè)計(jì)，建立合理的數(shù)據(jù)模型。學(xué)習(xí)使用VB的數(shù)據(jù)環(huán)境設(shè)計(jì)器和數(shù)據(jù)報(bào)表設(shè)計(jì)器進(jìn)行報(bào)表輸出設(shè)計(jì)。學(xué)習(xí)使用visio工具進(jìn)行常用軟件圖形的繪制。進(jìn)一步熟練進(jìn)行軟件系統(tǒng)的界面設(shè)計(jì)，深入掌握界面設(shè)計(jì)元素。提供相應(yīng)的軟件設(shè)計(jì)報(bào)告。報(bào)告要求有系統(tǒng)的需求分析、系統(tǒng)流程圖、數(shù)據(jù)流程圖、軟件結(jié)構(gòu)圖、數(shù)據(jù)庫(kù)設(shè)計(jì)說(shuō)明和軟件說(shuō)明書(shū)。提供與設(shè)計(jì)報(bào)告相一致的軟件系統(tǒng)。每四人為一個(gè)課題組，自由組合，檢查相應(yīng)的小組討論，討論結(jié)果計(jì)入平時(shí)成績(jī)。報(bào)告書(shū)寫(xiě)規(guī)范見(jiàn)附件。四、時(shí)間安排（共兩周10天）第一周的周一、周二（2天）：查閱資料、進(jìn)行系統(tǒng)的需求分析，要求畫(huà)出系統(tǒng)的業(yè)務(wù)流程圖及數(shù)據(jù)流程圖，并設(shè)計(jì)各類(lèi)報(bào)表的格式。（圖書(shū)館）第一周的周三到周五（3天）：并進(jìn)行詳細(xì)的數(shù)據(jù)分析，建立數(shù)據(jù)字典，并進(jìn)行數(shù)據(jù)庫(kù)及數(shù)據(jù)查詢?cè)O(shè)計(jì)。（機(jī)房）第二周的周一周二（2天）：進(jìn)行軟件結(jié)構(gòu)設(shè)計(jì)，包括軟件功能的劃分、輸入輸出界面的設(shè)計(jì)。（機(jī)房）第二周的周三：（1天）：進(jìn)行輸出報(bào)表的設(shè)計(jì)。（機(jī)房）第二周的周四：（1天）：全面進(jìn)行系統(tǒng)調(diào)試。（機(jī)房）第二周的周五：（1天）：作業(yè)檢查，提交報(bào)告及設(shè)計(jì)好的軟件。（機(jī)房）五、考查方式考勤20％文檔40％程序40％六、地點(diǎn) 信管系機(jī)房正文:（1）可行性分析計(jì)算機(jī)管理學(xué)生信息的意義：在各大中小學(xué)校，用計(jì)算機(jī)管理學(xué)校的信息已經(jīng)越來(lái)越普遍了。用計(jì)算機(jī)不但可以提高工作效率，而且還節(jié)省了許多人力物力，增強(qiáng)了學(xué)校資料的安全性。提高了學(xué)校的管理能力，為此，用計(jì)算機(jī)來(lái)管理學(xué)校的信息，是非常必要的。我作為一個(gè)計(jì)算機(jī)應(yīng)用的大學(xué)生，希望能有所貢獻(xiàn)。用我三年的所學(xué)編制了一個(gè)實(shí)用的程序來(lái)幫助桂陽(yáng)一中進(jìn)行更有效的學(xué)籍檔案管理?？尚行匝芯浚耗康模嚎尚行匝芯康哪康氖怯米钚〉拇鷥r(jià)在盡可能的時(shí)間內(nèi)確定問(wèn)題是否能夠解決。經(jīng)濟(jì)上可行性：現(xiàn)在，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。而本系統(tǒng)的開(kāi)發(fā)，為學(xué)校的工作效率帶來(lái)了一個(gè)質(zhì)的飛躍，為此主要表現(xiàn)有以下幾個(gè)方面：第一，本系統(tǒng)的運(yùn)行可以代替人工進(jìn)行許多繁雜的勞動(dòng)；第二，本系統(tǒng)的運(yùn)行可以節(jié)省許多資源；第三，本系統(tǒng)的運(yùn)行可以大大的提高學(xué)校的工作效率；第四，本系統(tǒng)可以使敏感文檔更加安全，等等。所以，本系統(tǒng)在經(jīng)濟(jì)上是可行的。技術(shù)上可行性：本系統(tǒng)的開(kāi)發(fā)我利用MicrosoftSQLServer2000作為本系統(tǒng)的數(shù)據(jù)庫(kù)，它是一個(gè)支持多用戶的新型數(shù)據(jù)庫(kù)，適用于大中規(guī)模的數(shù)據(jù)量需求。學(xué)校校園網(wǎng)的建設(shè)也為新系統(tǒng)服務(wù)器/客戶端的結(jié)構(gòu)提供了硬件的支持。使用VisualBasic6.0作為系統(tǒng)開(kāi)發(fā)的開(kāi)發(fā)環(huán)境，它作為一種現(xiàn)代的編程語(yǔ)言，提供完善的指令控制語(yǔ)句、類(lèi)與對(duì)象的支持及豐富的數(shù)據(jù)類(lèi)型，給開(kāi)發(fā)高性能系統(tǒng)提供的保障為開(kāi)發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對(duì)新系統(tǒng)的擴(kuò)展與修改。綜上所述，本系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。運(yùn)行上可行性：本系統(tǒng)為一個(gè)小型的學(xué)生信息管理系統(tǒng)，所耗費(fèi)的資源非常的小，學(xué)校的電腦無(wú)論是硬件還是軟件都能夠滿足條件，因此，本系統(tǒng)在運(yùn)行上是可行的。法律可行性：本系統(tǒng)純?yōu)樗饺嗽O(shè)計(jì)，在開(kāi)發(fā)過(guò)程中沒(méi)有涉及合同、責(zé)任等與法律相抵觸的方面。因此，本系統(tǒng)在法律上是可行的。（2）系統(tǒng)分析部分1）業(yè)務(wù)流程圖2）數(shù)據(jù)流程圖3）功能分析圖4）數(shù)據(jù)字典數(shù)據(jù)存儲(chǔ)字典（1）存儲(chǔ)文件名：班級(jí)和課程標(biāo)識(shí)符：class_Cour數(shù)據(jù)結(jié)構(gòu)：班級(jí)號(hào)class_No課程名稱(chēng)course_Name(2)存儲(chǔ)文件名：班級(jí)信息標(biāo)識(shí)符：class_Form數(shù)據(jù)結(jié)構(gòu)：班級(jí)號(hào)class_No班級(jí)名稱(chēng)class_Name導(dǎo)員名稱(chēng)class_Teacher備注信息class_Remarks(3)存儲(chǔ)文件名：課程信息標(biāo)識(shí)符：course_Form數(shù)據(jù)結(jié)構(gòu)：課程名class_Name課程列表class_Rem(4)存儲(chǔ)文件名：獎(jiǎng)懲信息標(biāo)識(shí)符：prize_Form數(shù)據(jù)結(jié)構(gòu)：獎(jiǎng)懲名class_Name獎(jiǎng)懲列表class_Rem(5)存儲(chǔ)文件名：獎(jiǎng)懲信息標(biāo)識(shí)符：prize_Stud數(shù)據(jù)結(jié)構(gòu)：獎(jiǎng)懲號(hào)prize_No獎(jiǎng)懲學(xué)號(hào)prize_Stu獎(jiǎng)懲日期prize_Data獎(jiǎng)懲名prize_Name(6)存儲(chǔ)文件名：成績(jī)信息標(biāo)識(shí)符：score_Form數(shù)據(jù)結(jié)構(gòu)：成績(jī)號(hào)score_No考試期號(hào)score_Per班級(jí)號(hào)score_Cla學(xué)號(hào)score_Stu科目score_Cou成績(jī)score_Sco(7)存儲(chǔ)文件名：個(gè)人信息標(biāo)識(shí)符：student_Form數(shù)據(jù)結(jié)構(gòu)：學(xué)號(hào)student_No姓名student_Name性別student_Sex出生日期student_Bir班級(jí)號(hào)student_Cla電話student_Tel入學(xué)日期student_Esd籍貫student_Add備注student_Rem(8)存儲(chǔ)文件名：用戶信息標(biāo)識(shí)符：user_Form數(shù)據(jù)結(jié)構(gòu)：用戶名user_ID登陸密碼user_PWD用戶日期user_DATA5）數(shù)據(jù)加工處理的描述處理名：用戶名處理處理過(guò)程：登陸學(xué)生信息管理系統(tǒng)后，點(diǎn)擊“用戶信息管理”后出現(xiàn)用戶信息管理界面，可以用于添加，修改，刪除用戶信息。處理名：班級(jí)信息處理處理過(guò)程：登陸學(xué)生信息管理系統(tǒng)后，點(diǎn)擊“班級(jí)信息管理”后出現(xiàn)班級(jí)信息管理界面，可以用于查詢所有班級(jí)信息和添加，修改，刪除班級(jí)信息。處理名：學(xué)籍信息處理處理過(guò)程：登陸學(xué)生信息管理系統(tǒng)后，點(diǎn)擊“學(xué)籍信息管理”后出現(xiàn)學(xué)籍信息管理界面，可以用于查詢所有學(xué)生學(xué)籍信息和添加，修改，刪除學(xué)生學(xué)籍信息。處理名：課程信息處理處理過(guò)程：登陸學(xué)生信息管理系統(tǒng)后，點(diǎn)擊“課程信息管理”后出現(xiàn)課程信息管理界面，可以用于查詢所有班級(jí)課程信息和添加，修改，刪除班級(jí)課程信息。處理名：成績(jī)信息處理處理過(guò)程：登陸學(xué)生信息管理系統(tǒng)后，點(diǎn)擊“成績(jī)信息管理”后出現(xiàn)成績(jī)信息管理界面，可以用于查詢所有成績(jī)信息和添加，修改，刪除成績(jī)信息。處理名：獎(jiǎng)懲信息處理處理過(guò)程：登陸學(xué)生信息管理系統(tǒng)后，點(diǎn)擊“獎(jiǎng)懲信息管理”后出現(xiàn)獎(jiǎng)懲信息管理界面，可以用于查詢所有獎(jiǎng)懲信息和添加，修改，刪除獎(jiǎng)懲信息。處理名：個(gè)人信息處理處理過(guò)程：登陸學(xué)生信息管理系統(tǒng)后，點(diǎn)擊“個(gè)人信息管理”后出現(xiàn)個(gè)人信息管理界面，可以用于查詢個(gè)人信息。6）管理信息系統(tǒng)流程設(shè)想圖（新系統(tǒng)模型）（3）系統(tǒng)設(shè)計(jì)部分1）功能結(jié)構(gòu)圖設(shè)計(jì)2）新系統(tǒng)信息處理流程設(shè)計(jì)3）輸出設(shè)計(jì)（主要指打印輸出設(shè)計(jì)）4）存儲(chǔ)文件格式設(shè)計(jì)（數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)）5）輸入設(shè)計(jì)（主要指數(shù)據(jù)錄入卡設(shè)計(jì)）6）代碼設(shè)計(jì)（職工證號(hào)和部門(mén)代號(hào)等）7）程序設(shè)計(jì)說(shuō)明書(shū)（4）系統(tǒng)實(shí)施部分1）程序框圖2）源程序?qū)W生信息管理圖形界面程序設(shè)計(jì)如下：DimiAsLongPrivateSubForm_Load()Label1.ForeColor=&H8000000ELabel1.FontSize=12Label1.AutoSize=Truei=Image2.WidthEndSubPrivateSubForm_Resize()Image1.Top=0Image1.Left=0Image1.Height=Me.HeightImage1.Width=Me.WidthImage2.Top=Me.Height-Image2.HeightImage2.Left=Me.Width-Image2.WidthLabel1.Top=Me.Height-Label1.Height-100EndSubPrivateSubTimer1_Timer()i=i+50Label1.Left=Me.Width-iIfi>Me.Width+Label1.WidthTheni=Image2.WidthEndIfEndSub班級(jí)信息管理界面程序設(shè)計(jì)如下：DimmrcAsADODB.RecordsetDimMsgTextAsStringDimtSQLAsStringPrivateSubCommand1_Click()IfText1(0)=""ThenMsgBox"班級(jí)編號(hào)不能為空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"班級(jí)名稱(chēng)不能為空!",vbOKOnly,"提示"Text1(1).SetFocusExitSubEndIfIfText1(2)=""ThenMsgBox"導(dǎo)員姓名不能為空!",vbOKOnly,"提示"Text1(2).SetFocusExitSubEndIftxtSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此班級(jí)編號(hào)已存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Trim(Text1(2))mrc.Fields(3)=Trim(Text1(3))mrc.Updatemrc.CloseFori=0To3Text1(i)=""NextMsgBox"班級(jí)信息添加成功!",vbOKOnly,"提示"ShowDataEndSubPrivateSubCommand2_Click()Fori=0To3Text1(i)=""NextEndSubPrivateSubCommand3_Click()IfText1(5)=""ThenMsgBox"班級(jí)名稱(chēng)不能為空!",vbOKOnly,"提示"Text1(5).SetFocusExitSubEndIfIfText1(6)=""ThenMsgBox"導(dǎo)員姓名不能為空!",vbOKOnly,"提示"Text1(6).SetFocusExitSubEndIftxtSQL="deletefromclass_Formwhereclass_NO='"&Trim(Text1(4))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(4))mrc.Fields(1)=Trim(Text1(5))mrc.Fields(2)=Trim(Text1(6))mrc.Fields(3)=Trim(Text1(7))mrc.Updatemrc.CloseFori=4To7Text1(i)=""NextMsgBox"班級(jí)信息修改成功!",vbOKOnly,"提示"ShowDataEndSubPrivateSubCommand4_Click()Fori=4To7Text1(i)=""NextEndSubPrivateSubCommand5_Click()txtSQL="deletefromclass_Formwhereclass_NO='"&Trim(Text1(8))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=8To11Text1(i)=""NextMsgBox"班級(jí)信息以經(jīng)刪除!",vbOKOnly,"警告"ShowDataEndSubPrivateSubCommand6_Click()Fori=8To11Text1(i)=""NextEndSubPrivateSubForm_Load()Me.Caption="班級(jí)信息->添加"Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftShowDataFori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubLabel2_Click(IndexAsInteger)Me.Caption="班級(jí)信息"Me.Caption=Me.Caption&"->"&Trim(Label2(Index).Caption)Fori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(Index).BackColor=&HFFFFFFPicture1(Index).Visible=TrueFori=0To11Text1(i)=""NextCommand3.Enabled=FalseCommand5.Enabled=FalseEndSubPrivateSubShowData()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromclass_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)WithMSFlexGrid1.ColWidth(0)=1200.ColWidth(1)=1200.ColWidth(2)=1200.ColWidth(3)=6000.TextMatrix(0,0)="班級(jí)編號(hào)".TextMatrix(0,1)="班級(jí)名稱(chēng)".TextMatrix(0,2)="導(dǎo)員姓名".TextMatrix(0,3)="備注信息".Rows=1DoWhileNotmrcc.EOF.Rows=.Rows+1Fori=0Tomrcc.Fields.Count-1.TextMatrix(.Rows-1,i)=mrcc.Fields(i)&""Nextimrcc.MoveNextLoopEndWithmrcc.CloseEndSubPrivateSubMSFlexGrid1_Click()IfPicture1(1).Visible=TrueThenText1(4)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0))Text1(5)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1))Text1(6)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,2))Text1(7)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,3))Command3.Enabled=TrueEndIfIfPicture1(2).Visible=TrueThenText1(8)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0))Text1(9)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1))Text1(10)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,2))Text1(11)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,3))Command5.Enabled=TrueEndIfEndSubPrivateSubText1_Change(IndexAsInteger)IfIndex=4ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)Ifmrc.EOF=FalseThenText1(5)=mrc.Fields(1)Text1(6)=mrc.Fields(2)Text1(7)=mrc.Fields(3)Command3.Enabled=TrueExitSubElseText1(5)=""Text1(6)=""Text1(7)=""Command3.Enabled=FalseEndIfmrc.CloseEndIfIfIndex=8ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)Ifmrc.EOF=FalseThenText1(9)=mrc.Fields(1)Text1(10)=mrc.Fields(2)Text1(11)=mrc.Fields(3)Command5.Enabled=TrueExitSubElseText1(9)=""Text1(10)=""Text1(11)=""Command5.Enabled=FalseEndIfmrc.CloseEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub課程信息管理程序設(shè)計(jì)如下:DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCombo1_Click()List1TextEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"課程名稱(chēng)不能為空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此課程名稱(chēng)已經(jīng)存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromcourse_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Updatemrc.CloseText1(0)=""Text1(1)=""MsgBox"課程信息添加成功!",vbOKOnly,"提示"List2TextEndSubPrivateSubCommand2_Click()DimtxtSQLAsStringIfList2.Text<>""ThentxtSQL="deletefromcourse_Formwherecourse_Name='"&Trim(List2.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"課程信息已經(jīng)刪除!",vbOKOnly,"提示"List2TextEndIfEndSubPrivateSubForm_Load()DimtxtSQLAsStringMe.Caption="課程信息->設(shè)置"txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"請(qǐng)先進(jìn)行班級(jí)設(shè)置!",vbOKOnly,"提示"ElseWithCombo1DoWhileNotmrc.EOF.AddItemTrim(mrc!class_NO)mrc.MoveNextLoopCombo1.ListIndex=0EndWithEndIfList2TextEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label3(0).BackColor=&HC0C0CLabel3(1).BackColor=&HC0C0CLabel3(2).BackColor=&HC0C0CLabel3(3).BackColor=&HC0C0CEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubLabel3_Click(IndexAsInteger)DimtxtSQLAsStringDimtSQLAsStringDimmmrcAsADODB.RecordsetIfIndex=0ThenIfCombo1.Text<>""AndList2.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'andcourse_Name='"&Trim(List2.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Combo1.Text)mrc.Fields(1)=Trim(List2.Text)mrc.Updatemrc.CloseEndIfEndIfIfIndex=1ThenIfCombo1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)tSQL="select*fromcourse_Form"txtSQL="select*fromclass_Cour"Setmmrc=ExecuteSQL(tSQL,MsgText)Ifmmrc.EOF=TrueThenMsgBox"請(qǐng)先進(jìn)行班級(jí)設(shè)置!",vbOKOnly,"提示"ElseDoWhileNotmmrc.EOFSetmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Combo1.Text)mrc.Fields(1)=mmrc.Fields(0)mrc.Updatemrc.Closemmrc.MoveNextLoopEndIfEndIfEndIfIfIndex=2ThenIfCombo1.Text<>""AndList1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'andcourse_Name='"&Trim(List1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)EndIfEndIfIfIndex=3ThenIfCombo1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)EndIfEndIftxtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL,MsgText)List1TextEndSubPrivateSubLabel3_MouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label3(Index).BackColor=&HFFFFFFEndSubPrivateSubList2_Click()Text1(0)=List2.TextEndSubPrivateSubText1_Change(IndexAsInteger)DimtxSQLAsStringIfIndex=0ThentxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenText1(1)=mrc.Fields(1)Text1(1).Locked=TrueElseText1(1)=""Text1(1).Locked=FalseEndIfEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubList1Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrcc=ExecuteSQL(txSQL,MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!course_Name)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateSubList2Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromcourse_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)List2.ClearDoWhileNotmrcc.EOFList2.AddItemTrim(mrcc!course_Name)mrcc.MoveNextLoopmrcc.CloseEndSub用戶信息管理程序設(shè)計(jì)如下：DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"用戶名稱(chēng)不能為空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"用戶密碼不能為空!",vbOKOnly,"提示"Text1(1).SetFocusExitSubElseIfText1(1)<>Text1(2)ThenMsgBox"兩次密碼輸入不同!",vbOKOnly,"提示"Text1(1)=""Text1(2)=""Text1(1).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此用戶名已經(jīng)存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Nowmrc.Updatemrc.CloseFori=0To2Text1(i)=""NextMsgBox"用戶信息添加成功!",vbOKOnly,"提示"ListappEndSubPrivateSubCommand2_Click()Text1(0)=""Text1(1)=""Text1(2)=""EndSubPrivateSubCommand3_Click()DimtxtSQLAsStringIfText1(3)=""ThenMsgBox"請(qǐng)你選擇用戶名稱(chēng)!",vbOKOnly,"提示"List1.SetFocusExitSubEndIfIfText1(4)=""ThenMsgBox"修改密碼要舊密碼!",vbOKOnly,"警告"Text1(4).SetFocusExitSubEndIfIfText1(5)=""ThenMsgBox"新的密碼不能為空!",vbOKOnly,"提示"Text1(5).SetFocusExitSubElseIfText1(5)<>Text1(6)ThenMsgBox"兩次密碼輸入不同!",vbOKOnly,"提示"Text1(5)=""Text1(6)=""Text1(5).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(3))&"'anduser_PWD='"&Trim(Text1(4))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThentxtSQL="deletefromuser_Formwhereuser_ID='"&Trim(Text1(3))&"'"ElseMsgBox"用戶密碼輸入錯(cuò)誤!",vbOKOnly,"警告"Text1(4).SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(3))mrc.Fields(1)=Trim(Text1(5))mrc.Fields(2)=Nowmrc.Updatemrc.CloseFori=3To6Text1(i)=""NextMsgBox"用戶信息修改成功!",vbOKOnly,"提示"EndSubPrivateSubCommand4_Click()Text1(3)=""Text1(4)=""Text1(5)=""Text1(6)=""EndSubPrivateSubCommand5_Click()DimtxtSQLAsStringIfText1(7)=""ThenMsgBox"請(qǐng)你選擇用戶名稱(chēng)!",vbOKOnly,"提示"List1.SetFocusExitSubElseIfText1(7)=UserNameThenMsgBox"不可以刪除正在使用的用戶!",vbOKOnly,"警告"Text1(7)=""Text1(8)=""List1.SetFocusExitSubEndIfEndIfIfText1(8)=""ThenMsgBox"刪除用戶需要密碼!",vbOKOnly,"警告"Text1(8).SetFocusExitSubEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(7))&"'anduser_PWD='"&Trim(Text1(8))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThentxtSQL="deletefromuser_Formwhereuser_ID='"&Trim(Text1(7))&"'"ElseMsgBox"用戶密碼輸入錯(cuò)誤!",vbOKOnly,"警告"Text1(8).SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)Text1(7)=""Text1(8)=""MsgBox"用戶信息已經(jīng)刪除!",vbOKOnly,"提示"ListappEndSubPrivateSubCommand6_Click()Text1(7)=""Text1(8)=""EndSubPrivateSubForm_Load()Me.Caption="用戶信息->添加"Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftListappFori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEndSubPrivateSubLabel2_Click(IndexAsInteger)Me.Caption="用戶信息"Me.Caption=Me.Caption&"->"&Trim(Label2(Index).Caption)Fori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(Index).BackColor=&HFFFFFFPicture1(Index).Visible=TrueFori=0To8Text1(i)=""NextEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubListapp()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromuser_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!user_ID)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateSubList1_Click()IfPicture1(1).Visible=TrueThenText1(3)=List1.TextEndIfIfPicture1(2).Visible=TrueThenText1(7)=List1.TextEndIfEndSubPrivateSubList1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSub登陸界面程序設(shè)計(jì)如下：OptionExplicitPrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBooleanDimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsStringDimmiCountAsIntegerPrivateSubForm_Load()DimiAsIntegeri=0txtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)WithtxtUserNameDoWhileNotmrc.EOFi=i+1.AddItemTrim(mrc!user_ID)mrc.MoveNextLoop.ListIndex=i-1EndWithmrc.CloseOK=FalsemiCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()txtSQL="select*fromuser_Formwhereuser_ID='"&txtUserName.Text&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名!",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox"輸入密碼不正確，請(qǐng)重新輸入！",vbOKOnly+vbExclamation,"警告"txtPassword.SetFocustxtPassword.Text=""EndIfEndIfmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSubPrivateSubtxtPassword_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubtxtPassword_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallcmdOK_ClickEndIfEndSubPrivateSubtxtUserName_Click()txtPassword.Text=""EndSubPrivateSubtxtUserName_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub學(xué)生信息管理系統(tǒng)界面程序設(shè)計(jì)如下：PrivateSubclaiMenu_Click()frmclai.ShowEndSubPrivateSubcouiMenu_Click()frmcoui.ShowEndSubPrivateSubcusiMenu_Click()frmcusi.ShowEndSubPrivateSubMDIForm_Load()dColor.ShowEndSubPrivateSubMDIForm_Resize()IfMe.Height>1100ThendColor.Height=Me.Height-1100EndIfIfMe.Width>180ThendColor.Width=Me.Width-180EndIfEndSubPrivateSubprpiMenu_Click()frmprpi.ShowEndSubPrivateSubscoiMenu_Click()frmscoi.ShowEndSubPrivateSubstsiMenu_Click()frmstsi.ShowEndSubPrivateSubsumiMenu_Click()frmsumi.ShowEndSub獎(jiǎng)懲信息管理界面程序設(shè)計(jì)如下：DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"獎(jiǎng)懲名稱(chēng)不能為空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromprize_Formwhereprize_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此獎(jiǎng)懲名稱(chēng)已經(jīng)存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromprize_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Updatemrc.CloseText1(0)=""Text1(1)=""MsgBox"獎(jiǎng)懲信息添加成功!",vbOKOnly,"提示"List1TextEndSubPrivateSubCommand2_Click()IfList1.Text<>""ThentxtSQL="deletefromprize_Formwhereprize_Name='"&Trim(List1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"獎(jiǎng)懲信息已經(jīng)刪除!",vbOKOnly,"提示"List1TextEndIfEndSubPrivateSubForm_Load()MSFlexGrid1.Cols=5MSFlexGrid1.ColWidth(0)=300MSFlexGrid1.ColWidth(1)=0MSFlexGrid1.ColWidth(2)=0MSFlexGrid1.ColWidth(3)=1200MSFlexGrid1.ColWidth(4)=1200MSFlexGrid1.TextMatrix(0,3)="獎(jiǎng)懲日期"MSFlexGrid1.TextMatrix(0,4)="獎(jiǎng)懲名稱(chēng)"MSFlexGrid1.Rows=1Text3(0)=GetRknoList1TextEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6(0).BackColor=&HC0C0CLabel6(1).BackColor=&HC0C0CEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubList1Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromprize_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!prize_Name)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateFunctionGetRkno()AsStringGetRkno=Format(Now,"yymmddhhmmss")RandomizeGetRkno=GetRkno&Int((99-10+1)*Rnd+10)EndFunctionPrivateSubLabel6_Click(IndexAsInteger)DimtxtSQLAsStringIfIndex=0ThenIfText2=""ThenMsgBox"請(qǐng)輸入學(xué)號(hào)!",vbOKOnly,"提示"Text2.SetFocusExitSubElsetxtSQL="select*fromstudent_Formwherestudent_NO='"&Trim(Text2)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"請(qǐng)確認(rèn)此學(xué)號(hào)的學(xué)籍信息已存在!",vbOKOnly,"警告"Text2.SetFocusExitSubEndIfmrc.CloseEn