案例一學生信息管理系統摘要：隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統的實施在技術上已逐步成熟。管理信息系統是一個不斷發展的新型學科，任何一個單位要生存要發展，要高效率地把內部活動有機地組織起來，就必須建立與自身特點相適應的管理信息系統。學生成績管理系統主要提供方便高效的管理功能，該實現以下一些基本功能：系統管理模塊：維護系統的正常運行和安全性設置，包括添加用戶、修改密碼、刪除用戶等等。班級管理模塊：實現對全校班級的管理工作，包括：班級游覽、班級添加、班級修改等，這三個功能模塊各自獨立，完成學校的全部班級的管理。學生學籍管理模塊：實現對學生的個人信息的管理工作，包括學籍添加、學籍查詢、學籍修改等功能，從而方便學校管理部門對學校的基本情況的快速查詢和了解。課程管理模塊：該模塊對各個班級的課程進行設置，并可在其中設置各門課程的教材選用情況，方便了學校教材管理部門和教務處的教學管理人員的工作。該模塊包括基本課程設置和班級課程設置兩個模塊。成績管理模塊：檢驗學生學習情況的一個主要手段，本模塊包括考試類型設置，共有期中考試和期未考試兩種類型，還設置了成績添加、成績查詢、成績瀏覽、成績修改等功能模塊。獎懲信息管理模塊：獎懲信息是用來督促學習學習活動的一種手段，包括獎懲信息的添加和修改。個人信息查詢模塊：用于學生個人信息的查詢，分為獎懲信息查詢和成績查詢兩個模塊。退出模塊：此模塊完成程序的退出。該程序界面友好，功能強大，適合實際應用。關鍵字：數據庫ACCESS數據庫學生信息操作VB編程概述該信息管理系統可以說是一個綜合性的學校學生管理系統，它集成了學生學籍管理系統、學生成績管理系統、學生檔案管理系統等多種功能，因而具有較強的實用性和先進性。項目開發背景：學生信息管理系統是一個教育單位不可缺少的部分，它的內容對于學校的決策者和管理者來說都至關重要，對學生來說也可以輕松的查閱自己在校的成績以及信息等.但是一直以來人們都是靠傳統人工的方式管理學生成績，這種管理方式存在著許多缺點，如:效率低，保密性差，另外時間一長,將產生大量的文件和數據，這對于查找，更新和維護都帶來了不少的困難。隨著科學技術的不斷提高,計算機對學生信息進行管理，有著手工管理所無法比擬的優點.例如:檢索迅速，查找方便，可靠性高，存儲量大，保密性好，壽命長,成本低等。這些優點能夠極大地提高學生信息管理的效率，方便系統管理員對學生成績等信息的添加，修改，刪除，查詢，留言等操作，同時一樣的方面學生對自己各科成績查詢，學習的交流。項目開發的目標:建立學生信息管理系統，采用計算機對學生信息進行管理，進一步提高辦學效益和現代化水平.幫助廣大教師提高工作效率，實現學生信息管理工作流程的系統化、規范化和自動化.項目提出的意義：現在我國的大中專院校的學生信息管理水平普遍不高，有的還停留在紙介質基礎上，這種管理手段已不能適應時代的發展，因為它浪費了了許多的人力和物力。在當今信息時代這種傳統的管理方法必然被計算機為基礎的信息管理系統所代替。如果本系統能被學校所采用，將會改變以前靠手工管理學生成績的狀況，可以樹立良好的辦學形象，提高工作效率。需求分析2.1系統需求：通過調查,要求系統需要有以下功能：⑴要求有良好的人機界面；⑵較好的權限管理；⑶原始數據修改簡單方便，支持多條件修改；⑷方便的數據查詢，支持多條件查詢；⑸相應的權限下，刪除數據方便簡單，數據穩定性好；⑹數據計算自動完成，盡量減少人工干預；2.2可行性分析：由于本系統管理的對象單一，都是在校學生，且每個數據內容具有較強的關聯性，涉及的計算過程不是很復雜。因此，比較適合于采用數據庫管理。且學校用于學生管理的微機都是奔騰3以上的機器，在存儲量、速度方面都能滿足數據庫運行的要求。在技術難度方面，由于有指導老師的指導和相關參考文獻，特別是網上資料，特別是參考其它程序的功能，因此完全可以實現。數據庫是MIS中的重要支持技術，在MIS開發過程中，如何選擇數據庫管理是一個重要的問題，目前，數據庫產品較多，每種產品都具有各自的特點和適用范圍，因此，在選擇數據庫時，應考慮數據庫應用的特點及適用范圍，本系統選用的數據庫語言介紹如下：VisualBasic是一種可視化的、面對對象和調用事件驅動方式的結構化高級程序設計，可用于開發Windows環境下的種類應用程序。它簡單易學、效率高，且功能強大。在VisualBasic環境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，可以高效、快速地開發出Windows環境下功能強大、圖形界面豐富的應用軟件系統。2.3業務流程分析圖1班級管理業務流程圖圖3課程管理業務流程圖圖4成績管理業務流程圖2.4數據流程分析:數據流程圖：圖5學生成績管理系統0層數據流程圖圖6學生成績管理系統1層數據流程圖數據庫邏輯設計3.1軟件模塊結構設計3.1.1系統方案確定通過對系統的調研與分析，系統主要應完成的功能有：班級管理、學生檔案管理、課程管理、成績管理、獎懲信息管理、個人信息查詢等功能。3.1.2軟件結構設計本系統在執行時，先根據不同的操作人員的需要來進行相應的模塊，然后可以輸入數據或者進行其它的查詢或瀏覽等操作；總體來說，本系統屬于一個事務型管理系統。圖7事務型管理模塊圖3.2數據庫建模數據模型設計。首先來做出學生成績管理系統的E-R圖，分析這個問題的實體，從系統分析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組成了這個系統的三個實體。再分析三個實體之間的聯系。首先，這三個實體不是一個統一體，學生成績與教師沒有內在聯系，教師必須通過課程實體才能與學生建立聯系，因而先不考慮。課程與學生這兩個實體是多對多聯系；一位學生要學習多門課程，一門課程有多位學生共同學習。而學習成績是這兩個實體“學生”和“成績”共有的屬性，應填在二者的聯系“學習”邊。因為成績既不是學生獨有的，也不是課程獨有的；“學生甲70分”或“英語70分”是不完全的，說“學生甲英語70分”才是正確的，因為70分是學生甲和英語課二者共有的。這個E-R圖可畫成下圖。圖8學生成績管理系統中學生與課程的E-R圖教師與課程這兩個實體之間，是一對多聯系；一位教師可以教多門課程，而一門課程對于學生成績來說只能有一位教師（英語、高等數學有多位教師教，但對某個固定的學生來說只能有一位教師）。其E-R圖，如下所示。圖9一對多E-R圖教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了E-R圖，就可以設計數據庫。下圖為數據模型圖。實體模型數據模型圖10教師與課程的E-R圖3.3數據庫邏輯設計實體模型數據模型圖10教師與課程的E-R圖數據庫采用了Microsoft推出的Access數據庫，這是微軟集成到Office中的一個桌面數據庫，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡易性和有效性，大量的桌面數據庫系統都采用Access作為后臺數據庫。使用Access的好處還在于，如果你的系統擴展到Client/Server模式的時候，可以使用Microsoft的數據庫服務器軟件SQLServer，此時，程序只需要簡單的修改一下鏈接(ADO的數據源)就可以，這樣，為程序的平滑擴展提供了非常有力的條件。本系統中所涉及到的主要實體共有八個數據表：class_Cour班級課程表：(class_NO班級編號，course_Name課程名｝class_Form班級表：(class_NO班級編號，class_Name班級名稱，class_Teacher導員姓名,class_Remarks備注信息｝course_Form課程表：(course_Name課程名，course_Rem備注｝prize_Form獎懲表：｛prize_Name獎懲名稱,prize_Rem備注信息｝prize_Stud學生獎懲表：｛prize_NO獎懲編號，prize_Stu獎懲學生學號，prize_Dat獎懲日期，prize_Nam獎懲名稱｝score_Form成績表：(score_NO成績號，score_Per考試期號，score_Cla學生班號，score_Stu學生編號，score_Cou考試課程，score_Sco考試分數｝student_Form學籍表：｛student_NO學號，student_Name姓名，student_Sex性別，

student_Bir出生日期，student_Cla學生編號，student_Tel練習電話,student_Esd入學日期，student_Add家庭住址，student_Rem備注信息｝user_Form用戶表：(user_ID用戶名稱，user_PWD用戶密碼，user_DATE創建日期｝3.4數據庫的物理設計表1班級課程表(class_Cour)字段名稱數據類型字段大小允許空字符串班級編號class_NO文本20否課程名course_Name文本20否表2班級表(class_Form)字段名稱數據類型字段大小允許空字符串班級編號class_NO文本20否班級名稱class_Name文本10否導員姓名class_Teacher文本10否備注信息class_Remarks文本60表3課程表(course_Form)字段名稱數據類型字段大小允許空字符串課程名course_Name文本20否備注course_Rem備注表4獎懲表(prize_Form)字段名稱數據類型字段大小允許空字符串獎懲名稱prize_Name文本20否備注信息prize_Rem備注表5學生獎懲表(prize_Stud)字段名稱數據類型字段大小允許空字符串獎懲編號prize_NO文本14否獎懲學生學號prize_Stu文本20獎懲日期prize_Dat日期/時間短日期獎懲名稱prize_Nam文本20

表6成績表(Score_Form)字段名稱數據類型字段大小允許空字符串成績號score_NO文本14否考試期號score_Per文本20學生班號score_Cls文本20學生編號score_Stu文本20考試課程score_Cou文本20考試分數score_Sco數字單精度型自動（小數位）表7學生表(student_Form)字段名稱數據類型字段大小允許空字符串學號student_NO文本20否姓名student_Name文本10性別student_Sex文本2出生日期student_Bir日期/時間短日期學生編號student_Cla文本20聯系電話student_Tel文本13入學日期student_Esd日期/時間短日期家庭住址student_Add文本60備注信息student_Rem備注表8user_Form用戶表字段名稱數據類型字段大小允許空字符串用戶名稱user_ID文本20否用戶密碼user_PWD文本10創建日期user_DATE日期/時間短日期軟件功能設計

圖11功能模塊圖4.1系統管理模塊圖11功能模塊圖該模塊的主要任務是維護系統的正常運行和安全性設置，包括添加用戶、改密碼、刪除用戶等等。修改：PrivateSubCommand2_Click()Text1(0)Text1(1)Text1(2)EndSubTrim(Text1(3))Trim(Text1(5))NowSetmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)mrc.Fields(1)mrc.Fields(2)mrc.Updatemrc.CloseFori=3To6Text1(i)=NextMsgBox〃用戶信息修改成功Trim(Text1(3))Trim(Text1(5))NowEndSub4.2班級管理模塊該模塊的功能是實現對全校班級的管理工作，包括：班級游覽、班級添加、班級修改等，這三個功能模塊各自獨立，完成學校的全部班級的管理。PrivateSubCommand5_Click()txtSQL="deletefromclass_Formwhereclass_NO='〃&Trim(Text1(8))&","Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=8To11Text1(i)=""NextMsgBox"班級信息以經刪除!”，vbOKOnly,"警告"ShowDataEndSub4.3學生學籍管理模塊該模塊的主要功能是實現對學生的個人信息的管理工作，包括學籍添加、學籍查詢、學籍修改等功能，從而方便學校管理部門對學校的基本情況的快速查詢和了解。4.4課程管理模塊該模塊對各個班級的課程進行設置，并可在其中設置各門課程的教材選用情況，方便了學校教材管理部門和教務處的教學管理人員的工作。該模塊包括基本課程設置和班級課程設置兩個模塊。PrivateSubCommand2_Click()DimtxtSQLAsStringIfList2.Text<>""ThentxtSQL="deletefromcourse_Formwherecourse_Name='"&Trim(List2.Text)&","Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox〃課程信息已經刪除!"，vbOKOnly,〃提示〃List2TextEndIfEndSub4.5成績管理模塊學校的成績管理工作是檢驗學生學習情況的一個主要手段，本模塊包括考試類型設置，共有期中考試和期未考試兩種類型，還設置了成績添加、成績查詢、成績瀏覽、成績修改等功能模塊。PrivateSubCommand7_Click()DimjAsIntegerDimtxtSQLAsStringIfText4(0)=""ThenMsgBox"請選擇要刪除的紀錄!",vbOKOnly,"提示"MSFlexGrid1.SetFocusExitSubEndIftxtSQL="Deletefromscore_Formwherescore_NO='"&Trim(Text4(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox”考試信息修改成功!”,vbOKOnly,"提示”j=0Fori=1ToMSFlexGrid1.Rows-1IfMSFlexGrid1.TextMatrix(i,0)=Text4(0)Thenj=iEndIf4.6獎懲信息管理模塊獎懲信息是用來督促學習學習活動的一種手段，包括獎懲信息的添加和修改。PrivateSubCommand1_Click()DimtxtSQLAsStringmrc.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”獎懲信息添加成功!”，vbOKOnly,"提示"List1TextEndSub4.8退出模塊此模塊完成程序的退出。

5?界面設計5.1系統登陸界面:本界面的主要功能是為了對系統進行安全性管理，本系統的用戶名和密碼保存在USE表中，本系統根據不同的用戶而設置了不同的權限，可以用ID;PWD（大寫）為用戶名和密碼來登陸本系統。5.2系統主界面:本模塊是本系統的應用界面，在本界面上集成了本系統的所有功能，共有7個功能菜單，從而實現了本系統從用戶管理、班級管理、學籍管理、課程管理、成績管理、獎懲管理、個人信息查詢等系統功能，同時，在系統管理模塊中可以完成對本系統的安全性管理。5.3用戶管理模塊:本模塊是本系統的安全性設置模塊，實現了對用戶帳戶信息管理功能。

5.4班級信息管理模塊：班級信息管理模塊用于實現班級信息的添加、刪除、修改的功能。包括班級編號，班級名稱，導員姓名，備注信息。當對其中某個屬性進行操作時，對其基本的信息進行填寫完整。否則會出現提示信息。當班級編號，班級名稱，導員姓名為空時會自動的出現提示信息，提示某個屬性列必須要填寫，否則顯示操作成功。如圖12所示班級信息管理模塊5.5學籍信息管理模塊：學籍信息管理模塊是對學生的個人信息進行統計。實現該模塊的添加、查詢、修改、刪除功能。例如點擊添加時，系統彈出如圖1-2所示的界面，當點擊界面下方面的控件時，其所對應的位置會顯示為輸入形式，對信息進行輸入。輸入完成后，點擊添加時，系統會自動對信息進行驗證，如果學號以存在時，則提示

學號存在無法添加；如果除備注信息中有信息落填時，會提示某個屬性列沒有填寫，否則提示信息添加成功，并對添加后的信息進行顯示。如圖13所示學籍信息管理模塊（添加功能）5.6課程信息管理模塊：5.7成績信息管理模塊:?成統信息-》查詢EBB。添加?查詢。修改。刪除成績信息列表考試期號|學生班號|學生褊號|考試課程|考試分數5.8獎懲信息管理模塊:④獎陵信息-〉設置口回區輸山字號進仃苣詢市刀U—〈-添加哪除X受到獎顧或窸的的時刊蟀日期獎懲名稱獎懲信息列表咬綴憂努學生園旁綴憶秀學生芋十的獎懲名郁奮注信息5.9個人信息查詢模塊:■個入信屋-卜查詢學弓與告看成號看結束語在本系統的開發過程中，由于本人是初次開發軟件，在知識、經驗方面都存在著不足。因此，該系統必然會存在一些缺陷和不足。因為對學生管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。雖然網絡在學生管理系統中的應用不是很多，但是未來的發展方向，在本次開發過程由于硬件的限制，未能實現網絡功能，因此在以后的系統更新過程中可能會造成一些不必要的數據損失。通過開發這個系統，我掌握了項目的基本開發過程，了解了的基本知識鞏固了我對VisualBasic的學習，但在這次設計中的最大收獲并不是掌握這幾門開發工具的應用，而是學會了設計系統的思維方法，以及與同學們之間相互幫助的精神。參考文獻周佩德.《數據庫原理及應用》.電子工業出版社劉炳文等，VISUALBASIC程序設計——數據庫篇，1999李光明.《VisualBasic編程實例大制作》.冶金工業出版社李紅等編著，管理信息系統開發與應用，電子工業出版社，2003軟件工程，人民郵電出版社，2002年3月第一版康博工作室，張紅軍，王紅等縞著《VisualBasic中文版高級應用與開發指南》，人民郵電出版社，2001年4月第一版林立軍，程斌，翁迪恩縞著《VisualBasic數據庫開發指南》，西安電子科技大學出版社，2000年2月第一版宋偉，吳建國等編著《中文VisualBasic編程基礎》，北京，清華大學出版社源程序：8.1系統登錄界面：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”沒有這個用戶，請重新輸入用戶名！"，vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox”輸入密碼不正確，請重新輸入！",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)EnterToTabKeyCodeEndSub8.2系統主界面：DimiAsLongPrivateSubForm_Load()Labell.ForeColor=&H8000000ELabell.FontSize=12Labell.AutoSize=Truei=Image2.WidthEndSubPrivateSubForm_Resize()Imagel.Top=0Imagel.Left=0Imagel.Height=Me.HeightImagel.Width=Me.WidthImage2.Top=Me.Height-Image2.HeightImage2.Left=Me.Width-Image2.WidthLabell.Top=Me.Height-Labell.Height-l00EndSubPrivateSubTimerl_Timer()i=i+50Labell.Left=Me.Width-iIfi>Me.Width+Labell.WidthTheni=Image2.WidthEndIfEndSub8.3用戶管理模塊：DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCommandl_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox〃用戶名稱不能為空!”，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〃此用戶名已經存在!”，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〃請你選擇用戶名稱!”，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”用戶密碼輸入錯誤!”，vbOKOnly,"警告"Text1(4).SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(O)=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”請你選擇用戶名稱!”，vbOKOnly,"提示"Listl.SetFocusExitSubElseIfText1(7)=UserNameThenMsgBox”不可以刪除正在使用的用戶！"，vbOKOnly,"警告"Text1(7)=""Text1(8)=""Listl.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”用戶密碼輸入錯誤!”，vbOKOnly,"警告"Text1(8).SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)Text1(7)=""Text1(8)=""MsgBox”用戶信息已經刪除!”，vbOKOnly,"提示"ListappEndSubPrivateSubCommand6_Click()Text1(7)=""Text1(8)=""EndSubPrivateSubForm_Load()8.4班級信息管理模塊：DimmrcAsADODB.RecordsetDimMsgTextAsStringDimtSQLAsStringPrivateSubCommand1_Click()IfText1(0)=""ThenMsgBox"班級編號不能為空!”，vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"班級名稱不能為空!”，vbOKOnly,"提示"Text1(1).SetFocusExitSubEndIfIfText1(2)=""ThenMsgBox〃導員姓名不能為空!”，vbOKOnly,〃提示〃Text1(2).SetFocusExitSubEndIftxtSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(0))&"'Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox〃此班級編號已存在!”，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〃班級信息添加成功!”，vbOKOnly,〃提示〃ShowDataEndSubPrivateSubCommand2_Click()Fori=0To3Text1(i)=〃〃NextEndSubPrivateSubCommand3_Click()IfText1(5)=""ThenMsgBox〃班級名稱不能為空!”，vbOKOnly,〃提示〃Text1(5).SetFocusExitSubEndIfIfText1(6)=""ThenMsgBox〃導員姓名不能為空!”，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"班級信息修改成功!”，vbOKOnly,"提示"ShowDataEndSubPrivateSubCommand4_Click()Fori=4To7Text1(i)=""NextEndSubPrivateSubCommand5_Click()txtSQL="deletefromclass_Formwhereclass_NO='"&Trim(Text1(8))&Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=8To11Text1(i)=""NextMsgBox"班級信息以經刪除!”，vbOKOnly,"警告"ShowDataEndSubPrivateSubCommand6_Click()Fori=8To11Text1(i)=""NextEndSubPrivateSubForm_Load()Me.Caption="班級信息-〉添力口"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="班級信息”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)="班級編號”.TextMatrix(0,1)="班級名稱".TextMatrix(0,2)="導員姓名".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)EnterToTabKeyCodeEndSub8.5學籍信息管理模塊：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.ShowEndSubDimmrcAsADODB.RecordsetDimMsgTextAsStringDimtSQLAsStringPrivateSubCombo1_Click()Text1(4)=Combo1.TextIfLabel1(3).BackColor<>&HFFFFFFThenIfLabel2(4).Caption=Combo1.TextThenCombo1.BackColor=&HE0E0E0ElseCombo1.BackColor=&HFFFFFFEndIfEndIfEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringFori=0To7Ifi<>4ThenIfText1(i)=Label2(i).CaptionThenMsgBox”請"&Label2(i).Caption&"!”,vbOKOnly,"提示Text1(i).SetFocusExitSubEndIfElseIfText1(i)=Label2(i).CaptionThenMsgBox”請"&Label2(i).Caption&"!”,vbOKOnly,"提示Combo1.SetFocusExitSubEndIfEndIfNextIfIsDate(Text1(3))=FalseThenMsgBox”出生日期應為日期格式(yyyy-mm-dd)!”,vbOKOnly,"警告"Text1(3).SetFocusExitSubEndIfIfIsDate(Text1(6))=FalseThenMsgBox〃入學日期應為日期格式(yyyy-mm-dd)!〃，vbOKOnly,〃警告〃Text1(6).SetFocusExitSubEndIftxtSQL="select*fromstudent_Formwherestudent_NO='"&Trim(Text1(0))&Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox”學號不能重復!”，vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromstudent_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.Fields(4)=Trim(Text1(4))mrc.Fields(5)=Trim(Text1(5))mrc.Fields(6)=Trim(Text1(6))mrc.Fields(7)=Trim(Text1(7))IfText1(8)=Label2(8).CaptionThenmrc.Fields(8)=""Elsemrc.Fields(8)=Trim(Text1(8))EndIfmrc.Updatemrc.CloseMsgBox”學籍信息添加成功!”，vbOKOnly,"提示"WithMSFlexGrid1.Rows=.Rows+1.TextMatrix(.Rows-1,0)=Trim(Text1(0)).TextMatrix(.Rows-1,1)=Trim(Text1(1)).TextMatrix(.Rows-1,2)=Trim(Text1(2)).TextMatrix(.Rows-1,3)=Trim(Text1(3)).TextMatrix(.Rows-1,4)=Trim(Text1(4)).TextMatrix(.Rows-1,5)=Trim(Text1(5)).TextMatrix(.Rows-1,6)=Trim(Text1(6)).TextMatrix(.Rows-1,7)=Trim(Text1(7))IfText1(8)<>Label2(8).CaptionThen.TextMatrix(.Rows-1,8)=Trim(Text1(8))EndIfEndWithMSFlexGridl.TopRow=MSFlexGridl.Rows-1TextDcolorEndSubPrivateSubCommand2_Click()DimjAsIntegerDimtxtSQLAsStringIfText1(5)<>Label2(5).CaptionThenIfIsDate(Text1(5))=FalseThenMsgBox”起始日期應為日期格式(yyyy-mm-dd)!”,vbOKOnly,"警告"Text1(5).SetFocusExitSubElseText1(5)=Format(Text1(5),"yyyy-mm-dd")EndIfEndIfIfText1(6)<>Label2(6).CaptionThenIfIsDate(Text1(6))=FalseThenMsgBox”起始日期應為日期格式(yyyy-mm-dd)!”,vbOKOnly,"警告"Text1(6).SetFocusExitSubElseText1(6)=Format(Text1(6),"yyyy-mm-dd")EndIfEndIftxtSQL="select*fromstudent_Form"IfText1(0)<>Label2(0).CaptionThentxtSQL=txtSQL&"wherestudent_NO='"&Trim(Text1(0))&"'"EndIfIfText1(1)<>Label2(1).CaptionThenIftxtSQL="select*fromstudent_Form"ThentxtSQL=txtSQL&"wherestudent_Name='"&Trim(Text1(1))&"'"ElsetxtSQL=txtSQL&"andstudent_Name='"&Trim(Text1(1))&"'"EndIfEndIfIfText1(4)<>Label2(4).CaptionThenIftxtSQL="select*fromstudent_Form"ThentxtSQL=txtSQL&"wherestudent_Cla='"&Trim(Text1(4))&"'"ElsetxtSQL=txtSQL&"andstudent_Cla='"&Trim(Text1(4))&"'"EndIfEndIfIfText1(5)<>Label2(5).CaptionAndText1(6)<>Label2(6).CaptionThenIftxtSQL="select*fromstudent_Form"ThentxtSQL=txtSQL&"whereFormat(student_Esd,'yyyy-mm-dd')>='"&Trim(Text1(5))&"'andFormat(student_Esd,'yyyy-mm-dd')<='"&Trim(Text1(6))&"'"ElsetxtSQL=txtSQL&"andFormat(student_Esd,'yyyy-mm-dd')>='"&Trim(Text1(5))&"'andFormat(student_Esd,'yyyy-mm-dd')<='"&Trim(Text1(6))&"'"EndIfEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)j=1DoWhileNotmrc.EOFj=j+1mrc.MoveNextLoopProgressBar1.Visible=TrueProgressBar1.Min=CInt(0)ProgressBar1.Max=CInt(j)Setmrc=ExecuteSQL(txtSQL,MsgText)Frame1.Visible=TrueWithMSFlexGrid1.Visible=False.Rows=1ProgressBar1.Value=.RowsDoWhileNotmrc.EOF.Rows=.Rows+1Fori=0Tomrc.Fields.Count-1SelectCasemrc.Fields(i).TypeCaseadDBDate.TextMatrix(.Rows-1,i)=Format(mrc.Fields(i)&"","yyyy-mm-dd")CaseElse.TextMatrix(.Rows-1,i)=mrc.Fields(i)&""EndSelectNextimrc.MoveNextLoop.Visible=TrueEndWithFrame1.Visible=Falsemrc.CloseTextDcolorText1(4).Visible=TrueCombo1.Visible=FalseText1(2).Enabled=FalseText1(3).Enabled=FalseText1(7).Enabled=FalseText1(8).Enabled=FalseEndSubPrivateSubCommand3_Click()DimtxtSQLAsStringDimjAsIntegerFori=0To7Ifi<>4ThenIfText1(i)=Label2(i).CaptionThenMsgBox〃請〃&Label2(i).Caption&"!”,vbOKOnly,"提示〃Text1(i).SetFocusExitSubEndIfElseIfText1(i)=Label2(i).CaptionThenMsgBox”請"&Label2(i).Caption&"!”,vbOKOnly,"提示"Combol.SetFocusExitSubEndIfEndIfNextIfIsDate(Text1(3))=FalseThenMsgBox”出生日期應為日期格式(yyyy-mm-dd)!”,vbOKOnly,"警告"Text1(3).SetFocusExitSubEndIfIfIsDate(Text1(6))=FalseThenMsgBox〃入學日期應為日期格式(yyyy-mm-dd)!〃，vbOKOnly,〃警告〃Text1(6).SetFocusExitSubEndIftxtSQL="deletefromstudent_Formwherestudent_NO='"&Trim(Text1(0))&Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromstudent_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.Fields(4)=Trim(Text1(4))mrc.Fields(5)=Trim(Text1(5))mrc.Fields(6)=Trim(Text1(6))mrc.Fields(7)=Trim(Text1(7))IfText1(8)=Label2(8).CaptionThenmrc.Fields(8)=""Elsemrc.Fields(8)=Trim(Text1(8))EndIfmrc.Updatemrc.CloseMsgBox”學籍信息修改成功!”，vbOKOnly,"提示"j=0Fori=1ToMSFlexGrid1.Rows-1IfMSFlexGrid1.TextMatrix(i,0)=Text1(0)Thenj=iEndIfNextIfj<>0ThenMSFlexGrid1.TextMatrix(j,0)=Trim(Text1(0))MSFlexGrid1.TextMatrix(j,1)=Trim(Text1(1))MSFlexGrid1.TextMatrix(j,2)=Trim(Text1(2))MSFlexGrid1.TextMatrix(j,3)=Trim(Text1(3))MSFlexGrid1.TextMatrix(j,4)=Trim(Text1(4))MSFlexGrid1.TextMatrix(j,5)=Trim(Text1(5))MSFlexGrid1.TextMatrix(j,6)=Trim(Text1(6))MSFlexGrid1.TextMatrix(j,7)=Trim(Text1(7))IfText1(8)<>Label2(8).CaptionThenMSFlexGrid1.TextMatrix(j,8)=Trim(Text1(8))EndIfEndIfMSFlexGrid1.TopRow=jj=0TextDcolorEndSubPrivateSubCommand4_Click()DimtxtSQLAsStringDimjAsIntegertxtSQL="deletefromstudent_Formwherestudent_NO='"&Trim(Text1(0))&Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox〃學籍信息已經刪除!”，vbOKOnly,〃提示〃j=0Fori=1ToMSFlexGrid1.Rows-1IfMSFlexGrid1.TextMatrix(i,0)=Text1(0)Thenj=iEndIfNextIfj<>0ThenMSFlexGrid1.TextMatrix(j,0)=〃已刪除〃MSFlexGrid1.TextMatrix(j,1)=〃已刪除〃MSFlexGrid1.TextMatrix(j,2)=〃已刪除〃MSFlexGrid1.TextMatrix(j,3)=〃已刪除〃MSFlexGrid1.TextMatrix(j,4)=〃已刪除〃MSFlexGrid1.TextMatrix(j,5)=〃已刪除〃MSFlexGrid1.TextMatrix(j,6)=〃已刪除〃MSFlexGrid1.TextMatrix(j,7)=〃已刪除〃MSFlexGrid1.TextMatrix(j,8)=〃已刪除〃EndIfj=0TextDcolorText1(1).Enabled=FalseText1(2).Enabled=FalseText1(3).Enabled=FalseCombo1.Enabled=FalseText1(4).Enabled=FalseText1(5).Enabled=FalseText1(6).Enabled=FalseText1(7).Enabled=FalseText1(8).Enabled=FalseEndSubPrivateSubCommand5_Click()TextDcolorIfLabel1(1).BackColor=&HFFFFFFThenMSFlexGrid1.ClearShowTitleText1(4).Visible=TrueCombo1.Visible=FalseText1(2).Enabled=FalseText1(3).Enabled=FalseText1(7).Enabled=FalseText1(8).Enabled=FalseEndIfIfLabel1(3).BackColor=&HFFFFFFThenText1(1).Enabled=FalseText1(2).Enabled=FalseText1(3).Enabled=FalseCombo1.Enabled=FalseText1(4).Enabled=FalseText1(5).Enabled=FalseText1(6).Enabled=FalseText1(7).Enabled=FalseText1(8).Enabled=FalseEndIfEndSubPrivateSubForm_Load()8.6課程信息管理模塊：DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCombo1_Click()List1TextEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox”課程名稱不能為空!”，vbOKOnly,〃提示〃Text1(0).SetFocusExitSubEndIftxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox〃此課程名稱已經存在!〃，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〃課程信息已經刪除!”，vbOKOnly,〃提示〃List2TextEndIfEndSubPrivateSubForm_Load()DimtxtSQLAsString8.7成績信息管理模塊：DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCombo1_Click(IndexAsInteger)DimtxSQLAsStringIfIndex=0ThentxSQL="select*fromstudent_Formwherestudent_Cla='"&Trim(Combo1(0).Text)&"'"Setmrc=ExecuteSQL(txSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox”請先進行班級設置!”,vbOKOnly,"提示”ElseWithCombo1(1).ClearDoWhileNotmrc.EOF.AddItemTrim(mrc!student_NO)mrc.MoveNextLoopEndWithEndIftxSQL="select*fromclass_Courwhereclass_NO='"&Trim(Combo1(0).Text)&"'"Setmrc=ExecuteSQL(txSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox”請先進行班級設置!”,vbOKOnly,"提示”ElseWithCombo1(2).ClearDoWhileNotmrc.EOF.AddItemTrim(mrc!course_Name)mrc.MoveNextLoopEndWithEndIfEndIfEndSubPrivateSubCombo2_Click(IndexAsInteger)DimtxSQLAsStringIfIndex=0ThentxSQL="selectDISTINCTscore_Stufromscore_Formwherescore_Cla='"&Trim(Combo2(0).Text)&"'"Setmrc=ExecuteSQL(txSQL,MsgText)Ifmrc.EOF=FalseThenWithCombo2(1).ClearDoWhileNotmrc.EOF.AddItemTrim(mrc!score_Stu)mrc.MoveNextLoopEndWithEndIftxSQL="selectDISTINCTscore_Coufromscore_Formwherescore_Cla='"&Trim(Combo2(0).Text)&"”'Setmrc=ExecuteSQL(txSQL,MsgText)Ifmrc.EOF=FalseThenWithCombo2(2).ClearDoWhileNotmrc.EOF.AddItemTrim(mrc!score_Cou)mrc.MoveNextLoopEndWithEndIfEndIfEndSubPrivateSubCombo3_Click(IndexAsInteger)DimtxSQLAsStringIfIndex=0ThentxSQL="select*fromstudent_Formwherestudent_Cla='"&Trim(Combo3(0).Text)&”'”Setmrc=ExecuteSQL(txSQL,MsgText)Ifmrc.EOF=FalseThenWithCombo3(1).ClearDoWhileNotmrc.EOFIfmrc!student_NO<>.TextThen.AddItemTrim(mrc!student_NO)EndIfmrc.MoveNextLoopEndWithEndIftxSQL="select*fromclass_Courwhereclass_NO='"&Trim(Combo3(0).Text)&"'"Setmrc=ExecuteSQL(txSQL,MsgText)Ifmrc.EOF=FalseThenWithCombo3(2).ClearDoWhileNotmrc.EOFIfmrc!course_Name<>.TextThen.AddItemTrim(mrc!course_Name)EndIfmrc.MoveNextLoopEndWithEndIfEndIfEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(1)=""ThenMsgBox”考試期號不能為空!”,vbOKOnly,”提示”Text1(1).SetFocusExitSubEndIfIfCombo1(0).Text=""ThenMsgBox”學生班號不能為空!”,vbOKOnly,”提示”Combo1(0).SetFocusExitSubEndIfIfCombo1(1).Text=""ThenMsgBox”學生編號不能為空也vbOKOnly,”提示”Combo1(1).SetFocusExitSubEndIfIfCombo1(2).Text=""ThenMsgBox”考試課程不能為空!”,vbOKOnly,”提示”Combo1(2).SetFocusExitSubEndIfIfText1(2)=""ThenMsgBox”考試分數不能為空!”,vbOKOnly,”提示”Text1(2).SetFocusExitSubEndIftxtSQL="select*fromscore_Formwherescore_Per='"&Trim(Text1(1))&"'andscore_Cla='"&Trim(Combo1(0).Text)&"'andscore_Stu='"&Trim(Combo1(1).Text)&"'Andscore_Cou='"&Trim(Combo1(2).Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox”同次同人同科只能添加一次”,vbOKOnly,”警告”Text1(2)=""Combo1(0).SetFocusExitSubEndIftxtSQL="select*fromscore_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Trim(Combo1(0).Text)mrc.Fiel