軟件工程課程設(shè)計(jì)論文范文

COLLEGEOFSCIENCEANDTECHNOLOGYHNUT課程設(shè)計(jì)說明書課程名稱：軟件開發(fā)技術(shù)設(shè)計(jì)題目學(xué)生信息管理系統(tǒng)專業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)班級(jí)：0801學(xué)生姓名:歐陽鋒學(xué)號(hào):湖南工業(yè)大學(xué)科技學(xué)院教務(wù)部制2011年12月10日1引言(或緒論)1.1課題背景隨著教育事業(yè)的不斷發(fā)展，學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量及其信息量的急劇增加，有關(guān)學(xué)生的各種信息管理也隨之展開，學(xué)生信息管理系統(tǒng)應(yīng)運(yùn)而生了，它可用來管理學(xué)生信息與提高系統(tǒng)管理工作的效率。學(xué)生信息管理系統(tǒng)把Eclipse(前臺(tái)開發(fā))與SQL數(shù)據(jù)庫(后臺(tái)管理)有機(jī)地結(jié)合，并運(yùn)用SWING等相關(guān)技術(shù)，完成學(xué)生信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢，從而可大大減少該管理上的工作量。數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)庫存儲(chǔ)的效率，保證數(shù)據(jù)的完整性和一致性。同時(shí)，合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的順利實(shí)現(xiàn)。1.2系統(tǒng)開發(fā)關(guān)鍵技術(shù)介紹本系統(tǒng)采用的是Eclipse開發(fā)工具做為開發(fā)系統(tǒng)程序，采用SQLsever數(shù)據(jù)庫訪問技術(shù)完成對(duì)數(shù)據(jù)庫信息的規(guī)范管理和統(tǒng)計(jì)查詢。SQLsever使用更加簡單靈活的對(duì)象模型，適用于各種程序設(shè)計(jì)語言。SQLsever提供執(zhí)行以下操作方式：連接到數(shù)據(jù)源。指定訪問數(shù)據(jù)源的命令，可以在命令中指定參數(shù)。執(zhí)行命令，例如一個(gè)SELECT語句。在適當(dāng)情況下，可以把緩存行的更改內(nèi)容寫回?cái)?shù)據(jù)庫中，更新數(shù)據(jù)源。提供常規(guī)方法檢測錯(cuò)誤，錯(cuò)誤通常由建立連接或執(zhí)行命令造成，涉及到SQL的error對(duì)象。2系統(tǒng)分析2.1總體設(shè)計(jì)思想及工作流程用戶必須通過已經(jīng)注冊(cè)的帳號(hào)和密碼才能進(jìn)行對(duì)該系統(tǒng)的管理與應(yīng)用，否則在登錄系統(tǒng)前要進(jìn)行新賬號(hào)的注冊(cè)；管理員通過輸入密碼和帳號(hào)可以對(duì)數(shù)據(jù)庫的數(shù)據(jù)進(jìn)行各種操作，而普通用戶僅僅可以進(jìn)行一部分的操作；用戶根據(jù)自己的實(shí)際情況選擇相應(yīng)的功能來提取自己所需信息。(1)學(xué)生信息管理系統(tǒng)的功能為顯示主要操作頁面，通過密碼驗(yàn)證登陸界面，檔案信息處理功能。通過密碼驗(yàn)證登陸，可實(shí)現(xiàn)安全登錄，方便可靠。學(xué)生信息處理功能包括輸入學(xué)生信息，顯示學(xué)生的檔案信息，學(xué)生檔案信息條件查詢(分為：按學(xué)生姓名進(jìn)行查詢，按學(xué)生學(xué)號(hào)進(jìn)行查詢)，更新學(xué)生檔案信息。(2)學(xué)生信息管理系統(tǒng)的功能模塊有：系統(tǒng)登陸界面，美觀大方，按enter鍵進(jìn)入密碼驗(yàn)證登陸界面，輸入正確密碼登陸主菜單選擇框架界面，方便用戶對(duì)程序個(gè)功能進(jìn)行選擇，選擇要實(shí)現(xiàn)的功能按enter鍵進(jìn)入該功能。輸入學(xué)生檔案信息。顯示學(xué)生的檔案信息學(xué)生檔案信息條件查詢更新學(xué)生檔案信息。0.退出，謝謝使用程序分為多個(gè)小模塊，通過調(diào)用實(shí)現(xiàn)各種功能，增強(qiáng)了程序的可建設(shè)性。2.2業(yè)務(wù)需求安全性：用戶必須通過帳號(hào)和密碼才能進(jìn)行對(duì)該系統(tǒng)的管理。權(quán)限分配：超級(jí)管理員通過輸入密碼和帳號(hào)可以對(duì)數(shù)據(jù)庫的數(shù)據(jù)進(jìn)行各種操作，而普通用戶僅僅可以進(jìn)行一部分的操作。⑶易操作性：可以快速進(jìn)行查詢操作，進(jìn)行數(shù)據(jù)的匯總。2.3數(shù)據(jù)流圖用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新、查詢和統(tǒng)計(jì)上，這就要求數(shù)據(jù)庫結(jié)構(gòu)應(yīng)充分滿足各種信息的輸入和輸出。系統(tǒng)應(yīng)定義數(shù)據(jù)結(jié)構(gòu)、收集基本數(shù)據(jù)以及設(shè)置數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后的具體設(shè)計(jì)打下基礎(chǔ)與伏筆。在仔細(xì)分析、調(diào)查有關(guān)學(xué)生信息管理需要的基礎(chǔ)上，得到了本系統(tǒng)的流程圖：圖3.2總數(shù)據(jù)流圖0層數(shù)據(jù)流圖-圖3.3零層數(shù)據(jù)流圖2.2總體設(shè)計(jì)流程圖圖2總體設(shè)計(jì)流程圖該流程圖為此次學(xué)生信息查詢系統(tǒng)的總體流程圖，用戶進(jìn)入界面以后可以看到登陸密碼界面，密碼輸入正確進(jìn)入主菜單選擇框架界面，1為輸入學(xué)生信息檔案，2為顯示學(xué)生檔案，3為學(xué)生信息檔案查詢，4為更新學(xué)生檔案，0為退出系統(tǒng)。用戶可以根據(jù)自己的需求方便快捷的做出自己的選擇。

密碼登陸函數(shù)流程圖:該函數(shù)為密碼登陸函數(shù)模塊，當(dāng)輸入的密碼不正確的時(shí)候，系統(tǒng)會(huì)提示“密碼輸入錯(cuò)誤，請(qǐng)重新輸入”，直到輸入正確密碼為止。選擇框架函數(shù)流程圖:進(jìn)入學(xué)生檔案管理系統(tǒng)時(shí)顯示程序名稱和選擇框架主菜單，提示用戶進(jìn)行選擇，完成相應(yīng)任務(wù)。此代碼被main（）函數(shù)調(diào)用。輸入信息函數(shù)流程圖：

輸入學(xué)生信息函數(shù)模塊，用戶可以根據(jù)提示的信息來進(jìn)行每一步的輸入操作，當(dāng)輸入不當(dāng)時(shí)，系統(tǒng)會(huì)自動(dòng)提示，并讓用戶進(jìn)行正確的操作。在此系統(tǒng)中，要求用戶輸入的只有字符型和數(shù)值型數(shù)據(jù)，設(shè)計(jì)了相應(yīng)的函數(shù)來進(jìn)行數(shù)據(jù)校驗(yàn)工作，保證數(shù)據(jù)輸入的準(zhǔn)確性。顯示信息流程圖:當(dāng)用戶進(jìn)入查詢信息模塊時(shí)，系統(tǒng)會(huì)顯示內(nèi)部存儲(chǔ)的內(nèi)容。查詢信息流程圖：[選擇查詢函數(shù)開始選擇按姓名還是學(xué)號(hào)查詢<,輸入錯(cuò)誤/重新輸入當(dāng)用戶執(zhí)行此查詢?nèi)蝿?wù)時(shí)，系統(tǒng)會(huì)提醒用戶進(jìn)行查詢字段的選擇，即按學(xué)號(hào)或姓名進(jìn)行查詢。若此學(xué)生檔案信息記錄存在，則會(huì)顯示該省的檔案信息。此函數(shù)完成了節(jié)點(diǎn)定位的功能。更新信息流程圖：在更新學(xué)生檔案信息的操作中，系統(tǒng)會(huì)先按輸入的學(xué)號(hào)查詢到該生檔案信息記錄，然后按順序填入要修改的學(xué)生信息。3系統(tǒng)設(shè)計(jì)3.1系統(tǒng)功能結(jié)構(gòu)圖設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)應(yīng)充分滿足各種信息的輸入和輸出。據(jù)此，結(jié)學(xué)生信息管理系統(tǒng)所需完成的主體任務(wù)。學(xué)生信息管理系統(tǒng)主要任務(wù)如下：（1）基本信息的輸入。包括學(xué)籍（學(xué)生基本）信息，班能、課程和成績等住處的輸入。（2）基本信息的修改。包括學(xué)籍信息、班級(jí)、課程和成績等信息的修改。（3）基本信息的查詢。包括學(xué)籍信息和成績信息等的查詢。（4）年級(jí)信息及班級(jí)信息的設(shè)置等。（5）學(xué)?；菊n程信息的輸入、修改和設(shè)置。基于需求分析及主要任務(wù)的表述，可對(duì)上述各項(xiàng)功能按照結(jié)構(gòu)化程序設(shè)計(jì)的要求進(jìn)行集中、分層結(jié)構(gòu)化，自上而下逐層設(shè)置得到系統(tǒng)功能模塊結(jié)構(gòu)圖：學(xué)生信息管理系統(tǒng)」—濡加用戶匚(#改陪瑪工退出系統(tǒng)匚沒直甲玻果程二添加S程信息七查詢成痛信息濡加用戶匚(#改陪瑪工退出系統(tǒng)匚沒直甲玻果程二添加S程信息七查詢成痛信息濡加成痛信息11n111成J管理，?學(xué)籍管理#t31□戶班管理P用戶管理】圖3.1系統(tǒng)功能結(jié)構(gòu)圖4系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)4.1系統(tǒng)E-R圖概念結(jié)構(gòu)設(shè)計(jì)就是E-R方法的分析與設(shè)計(jì)，概念結(jié)構(gòu)設(shè)計(jì)是整個(gè)數(shù)據(jù)庫設(shè)計(jì)的關(guān)鍵。在此，將使用實(shí)體一聯(lián)系（E-R）模型來描述系統(tǒng)的概念結(jié)構(gòu)，同時(shí)設(shè)計(jì)出能夠滿足用戶需求的的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。這也實(shí)體包括各種具體的實(shí)際信息，通過相互之間的作用形成數(shù)據(jù)的流動(dòng)。本程序根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：學(xué)籍實(shí)體、班級(jí)實(shí)體、年級(jí)實(shí)體、課程實(shí)體與成績實(shí)體，學(xué)生信息管理系統(tǒng)數(shù)據(jù)庫E-R模型，如下圖所示：

圖4.1學(xué)生信息管理系統(tǒng)E-R模型圖4.2數(shù)據(jù)表的創(chuàng)建根據(jù)系統(tǒng)特點(diǎn)，由數(shù)據(jù)模型利用Oracle10g進(jìn)行數(shù)據(jù)庫的詳細(xì)設(shè)計(jì)，學(xué)生信息管理系統(tǒng)數(shù)據(jù)庫中各個(gè)表格的設(shè)計(jì)結(jié)果如下：表1:學(xué)籍信息表列名數(shù)據(jù)翅允許空stadent_111LTlt1■%VFarchar50/atudent^atchar2/bomllatedatetine8VclassJUchar10VteleJJumberckar10Vrn_Datedatetine8VadiiresEvarchar90Vccrnmentvarchar300V表2:學(xué)生成績信息表

數(shù)垂類型輸空^pBTch：li'■/studentJUintIlu也折目7&TEh4I勺class_Bock&rIDcK&rIDresultfloatB表3:班級(jí)信息表魏英1長度允祥空i-LiSsJIijcharT10■/grni&上har10■/dir^rtorch：MT10■/cl：±zsroo(Ti_Fi：ick：ar10■/表4:年級(jí)課程設(shè)置表grillsyarcbar1EO■/caniseJJaiechar]0■/表5:課程基本信息表數(shù)據(jù)矣里長匿代許空caujEe_NoLilt4■/caujEeJlanevai'charEO■/'：anT5e_TjTechsr10■/caiiTEeJJesch：ar50■/表6:系統(tǒng)用戶表嗾型長隹辯空user_IDckar10/usei_PMJckar10■/uem.D罪ch：sr10、;4.3存儲(chǔ)過程和觸發(fā)器設(shè)計(jì)為了提高該系統(tǒng)的運(yùn)行環(huán)境，后臺(tái)有關(guān)數(shù)據(jù)的操作部分使用了存儲(chǔ)過程和觸發(fā)器。創(chuàng)建的存儲(chǔ)過程進(jìn)行添加班級(jí)信息，代碼如下：createorreplaceprocedureinsertclass(p_class_noinclass_no%type,p_gradeingrade%type,p_directorindirector%type,p_classroom_noinclassroom_no%type)isv_countnumber;beginselectcount(*)intov_countfromclass_infowhereclass_no=p_class_no;ifv_count=0theninsertintoclass_infovalues(p_class_no,p_grade,p_director,p_classroom_no);elsedbms_output.put_line('班號(hào)已經(jīng)存在，請(qǐng)重新輸入班號(hào)');endif;endinsertclass;存儲(chǔ)過程的調(diào)用代碼：PrivateSubCommand1_Click()DimsqlconAsNewADODB.ConnectionDimmrcAsADODB.RecordsetDimMsgTextAsStringDimtxtSQLAsStringDimcmdAsNewADODB.CommandDimclassNO,grad,DIRECTO,CLASSROOMNOsqlcon.Open"Provider=OraOLEDB.Oracle.1;Password=1234;PersistSecurityInfo=True;UserID=CC;DataSource=orcl”IfNotTesttxt(txtClassno.Text)ThenMsgBox”請(qǐng)輸入班號(hào)！”,vbOKOnly+vbExclamation,”警告”txtClassno.SetFocusExitSubEndIfIfNotTesttxt(comboGrade.Text)ThenMsgBox”請(qǐng)選擇年級(jí)！”,vbOKOnly+vbExclamation,”警告”comboGrade.SetFocusExitSubEndIfIfNotTesttxt(txtDirector.Text)ThenMsgBox”請(qǐng)輸入班主任姓名！”,vbOKOnly+vbExclamation,”警告”txtDirector.SetFocusExitSubEndIfIfNotTesttxt(txtClassroom.Text)ThenMsgBox”請(qǐng)輸入教室房間號(hào)！”,vbOKOnly+vbExclamation,”警告”txtClassroom.SetFocusExitSubEndIfIfNotIsNumeric(Trim(txtClassno.Text))ThenMsgBox”請(qǐng)輸入數(shù)字！”,vbOKOnly+vbExclamation,”警告”ExitSubtxtClassno.SetFocusEndIfcmd.ActiveConnection=sqlconcmd.CommandText="insertclass"cmd.CommandType=adCmdStoredProcSetclassNO=cmd.CreateParameter("@CLASS_NO”,adVarChar,adParamInput,50)cmd.Parameters.Append(classNO)Setgrad=cmd.CreateParameter("@GRADE”,adVarChar,adParamInput,50)cmd.Parameters.Append(grad)SetDIRECTO=cmd.CreateParameter("@DIRECTOR”,adVarChar,adParamInput,50)cmd.Parameters.Append(DIRECTO)SetCLASSROOMNO=cmd.CreateParameter("@CLASSROOM_NO”,adVarChar,adParamInput,50)cmd.Parameters.Append(CLASSROOMNO)cmd("@CLASS_NO")=txtClassno.Textcmd("@GRADE")=comboGrade.Textcmd("@DIRECTOR")=txtDirector.Textcmd("@CLASSROOM_NO")=txtClassroom.TextSetmrc=cmd.Executecmd.Parameters.Delete("@CLASS_NO")cmd.Parameters.Delete("@GRADE")cmd.Parameters.Delete("@DIRECTOR")cmd.Parameters.Delete("@CLASSROOM_NO")MsgBox”添加班級(jí)信息成功！”,vbOKOnly+vbExclamation,”添加班級(jí)信息”EndSub創(chuàng)建觸發(fā)器：createorreplacetriggercourse_info_delbeforedeleteoncourse_infoforeachrowdeclare--localvariablesherebegindeletefromgradecourse_info;end;4.4數(shù)據(jù)庫的連接配置文件連接數(shù)據(jù)庫的代碼：ConnectString="Provider=OraOLEDB.Oracle.1;Password=1234;PersistSecurityInfo=True;UserID=CC;DataSource=orcl”5系統(tǒng)實(shí)現(xiàn)根據(jù)整個(gè)系統(tǒng)的總體設(shè)計(jì)以及相關(guān)子系統(tǒng)的相關(guān)模塊功能的設(shè)計(jì)，我們進(jìn)行了系統(tǒng)的軟件開發(fā)。詳細(xì)設(shè)計(jì)和功能展示如下：5.1系統(tǒng)實(shí)現(xiàn)工具與支持平臺(tái)用戶界面本系統(tǒng)采用MicrosoftVisualBasic6.0設(shè)計(jì)，用戶交互界面采用的是基于Windows的窗口界面。開發(fā)和運(yùn)行環(huán)境工具軟件：VisualBasic系統(tǒng)軟件：Oracle10g開發(fā)環(huán)境：WindowsXPProfessional運(yùn)行環(huán)境：Windows98\NT\2000\XP\2003硬件配置：Pentiumlll以上CPU、256MB以上的內(nèi)存、4GB以上的硬盤空間5.2公用模塊的設(shè)計(jì)以下為系統(tǒng)主控窗口的界面截圖：圖5.1主控窗口在系統(tǒng)中創(chuàng)建公用模塊，存放在整個(gè)工程項(xiàng)目中會(huì)調(diào)用到的函數(shù)、變量等。代碼如下：PublicfMainFormAsfrmMainPublicUserNameAsStringSubMain()DimfLoginAsNewfrmLoginfLogin.ShowvbModalIfNotfLogin.OKThen'LoginFailedsoexitappEndEndIfUnloadfLoginSetfMainForm=NewfrmMainfMainForm.ShowEndSubPublicFunctionConnectString()_AsString'returnsaDBConnectStringConnectString="Provider=OraOLEDB.Oracle.1;Password=1234;PersistSecurityInfo=True;UserID=CC;DataSource=orcl”EndFunctionPublicFunctionExecuteSQL(ByValSQL_AsString,MsgStringAsString)_AsADODB.Recordset'executesSQLandreturnsRecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr("INSERT,DELETE,UPDATE",_UCase$(sTokens(0)))Thencnn.ExecuteSQLMsgString=sTokens(0)&_"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.CursorLocation=adUseClientrst.OpenTrim$(SQL),cnn,_adOpenKeyset,_adLockOptimistic'rst.MoveLast'getRecordCountSetExecuteSQL=rstMsgString="查詢到"&rst.RecordCount&_"條記錄"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString=”查詢錯(cuò)誤："&_Err.DescriptionResumeExecuteSQL_Exit

EndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction5.3系統(tǒng)界面設(shè)計(jì)：圖5.2系統(tǒng)登錄界面圖5.4添加學(xué)籍信息界面圖5.5設(shè)置年級(jí)課程信息界面5.4系統(tǒng)核心代碼(1)添加班級(jí)信息是通過存儲(chǔ)過程的調(diào)用實(shí)現(xiàn)的,部分源代碼：sqlcon.Open"Provider=OraOLEDB.Oracle.1;Password=1234;PersistSecurityInfo=True;UserID=CC;DataSource=orcl”cmd.ActiveConnection=sqlconcmd.CommandText="insertclass"cmd.CommandType=adCmdStoredProcSetclassNO=cmd.CreateParameter("@CLASS_NO",adVarChar,adParamInput,50)cmd.Parameters.Append(classNO)Setgrad=cmd.CreateParameter("@GRADE",adVarChar,adParamInput,50)cmd.Parameters.Append(grad)SetDIRECTO=cmd.CreateParameter("@DIRECTOR",adVarChar,adParamInput,50)cmd.Parameters.Append(DIRECTO)SetCLASSROOMNO=cmd.CreateParameter("@CLASSROOM_NO”,adVarChar,adParamInput,50)cmd.Parameters.Append(CLASSROOMNO)cmd("@CLASS_NO")=txtClassno.Textcmd("@GRADE")=comboGrade.Textcmd("@DIRECTOR")=txtDirector.Textcmd("@CLASSROOM_NO")=txtClassroom.TextSetmrc=cmd.Executecmd.Parameters.Delete("@CLASS_NO")cmd.Parameters.Delete("@GRADE")cmd.Parameters.Delete("@DIRECTOR")cmd.Parameters.Delete("@CLASSROOM_NO")MsgBox”添加班級(jí)信息成功！”,vbOKOnly+vbExclamation,”添加班級(jí)信息”EndSub(2)查詢學(xué)生成績模塊的部分代碼：PrivateSubcmdInquire_Click()DimtxtSQLAsStringDimMsgTextAsStringDimdd(4)AsBooleanDimmrcAsADODB.RecordsettxtSQL="select*fromRESULT_INFOwhere"IfCheck1(0).ValueThenIfTrim(txtSID.Text)=""ThensMeg="學(xué)號(hào)不能為空”MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtSID.SetFocusExitSubElseIfNotIsNumeric(Trim(txtSID.Text))ThenMsgBox”請(qǐng)輸入數(shù)字！”,vbOKOnly+vbExclamation,”警告”ExitSubtxtSID.SetFocusEndIfdd(0)=TruetxtSQL=txtSQL&"student_ID='"&Trim(txtSID.Text)&"”'EndIfEndIfIfCheck1(1).ValueThenIfTrim(txtName.Text)=""ThensMeg="姓名不能為空”MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtName.SetFocusExitSubElsedd(1)=TrueIfdd(0)ThentxtSQL=txtSQL&"andstudent_Name='"&txtName.Text&"'"ElsetxtSQL=txtSQL&"student_Name='"&txtName.Text&"'"EndIfEndIfEndIfIfCheck1(2).ValueThenIfTrim(txtCourse.Text)=""ThensMeg=”課程不能為空”MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtCourse.SetFocusExitSubElsedd(2)=TrueIfdd(0)Ordd(1)ThentxtSQL=txtSQL&"andcourse_Name='"&txtCourse.Text&"'"ElsetxtSQL=txtSQL&"course_Name='"&txtCourse.Text&"'"EndIfEndIfEndIfIfNot(dd(0)Ordd(1)Ordd(2)Ordd(3))ThenMsgBox”請(qǐng)?jiān)O(shè)置查詢方式！”,vbOKOnly+vbExclamation,”警告”ExitSubEndIftxtSQL=txtSQL&"orderbystudent_ID"Setmrc=ExecuteSQL(txtSQL,MsgText)Withmyflexgrid.Rows=2.CellAlignment=4,TextMatrix(1,0)="考試編號(hào)”,TextMatrix(1,1)="學(xué)號(hào)”.TextMatrix(1,2)="姓名”.TextMatrix(1,3)="班號(hào)”.TextMatrix(1,4)="課程名稱”.TextMatrix(1,5)="分?jǐn)?shù)”DoWhileNotmrc.EOF.Rows=.Rows+1.CellAlignment=4.TextMatrix(.Rows-1,0)=mrc.Fields(0).TextMatrix(.Rows-1,1)=mrc.Fields(1).TextMatrix(.Rows-1,2)=mrc.Fields(2).TextMatrix(.Rows-1,3)=mrc.Fields(3).TextMatrix(.Rows-1,4)=mrc.Fields(4).TextMatrix(.Rows-1,5)=mrc.Fields(5)mrc.MoveNextLoopEndWithmrc.CloseEndSub(3)修改課程信息部分代碼：PrivateSubcancelCommand_Click()IfNotmccleanThenFrame2.Enabled=TruefirstCommand.Enabled=TruepreviousCommand.Enabled=TruenextCommand.Enabled=TruelastCommand.Enabled=TruetxtCourseno.Enabled=FalsetxtCoursename.Enabled=FalsecomboCoursetype.Enabled=FalsetxtCoursedes.Enabled=Falsemrc.Bookmark=myBookmarkCallviewDataElseMsgBox”什么都沒有修改，不需要取消！”,vbOKOnly+vbExclamation,”警告EndIfEndSubPrivateSubdeleteCommand_Click()myBookmark=mrc.Bookmarkstr2$=MsgBox("是否刪除當(dāng)前記錄？”,vbOKCancel,”刪除當(dāng)前記錄”)Ifstr2$=vbOKThenmrc.MoveNextIfmrc.EOFThenmrc.MoveFirstmyBookmark=mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark=myBookmarkCallviewDataElsemyBookmark=mrc.Bookmarkmrc.MovePreviousmrc.Deletemrc.Bookmark=myBookmarkCallviewDataEndIfElsemrc.Bookmark=myBookmarkCallviewDataEndIfEndSubPrivateSubeditCommand_Click()mcclean=FalseFrame2.Enabled=FalsefirstCommand.Enabled=FalsepreviousCommand.Enabled=FalsenextCommand.Enabled=FalselastCommand.Enabled=FalsetxtCourseno.Enabled=TruetxtCoursename.Enabled=TruecomboCoursetype.Enabled=TruetxtCoursedes.Enabled=TruecomboCoursetype.AddItem”必修”comboCoursetype.AddItem”考查”myBookmark=mrc.BookmarkEndSubPrivateSubfirstCommand_Click()mrc.MoveFirstCallviewDataEndSubPrivateSubpreviousCommand_Click()mrc.MovePreviousIfmrc.BOFThenmrc.MoveLastEndIfCallviewDataEndSubPrivateSubupdateCommand_Click()DimtxtSQLAsStringDimMsgTextAsStringDimmrccAsADODB.RecordsetIfmccleanThenMsgBox”請(qǐng)先修改課程信息”,vbOKOnly+vbExclamation,”警告ExitSubIfNotTesttxt(txtCourseno.Text)ThenMsgBox”請(qǐng)輸入課程編號(hào)！”,vbOKOnly+vbExclamation,”警告”txtCourseno.SetFocusExitSubEndIfIfNotIsNumeric(Trim(txtCourseno.Text))ThenMsgBox”課程編號(hào)請(qǐng)輸入數(shù)字！”,vbOKOnly+vbExclamation,”警告”txtCourseno.SetFocusExitSubEndIfIfNotTesttxt(txtCoursename.Text)ThenMsgBox”請(qǐng)輸入課程名稱！”,vbOKOnly+vbExclamation,，警告”txtCoursename.SetFocusExitSubEndIfIfNotTesttxt(comboCoursetype.Text)ThenMsgBox”請(qǐng)選擇課程類型！”,vbOKOnly+vbExclamation,，警告”comboCoursetype.SetFocusExitSubEndIfIfNotTesttxt(txtCoursedes.Text)ThenMsgBox”請(qǐng)輸入課程描述信息！”,vbOKOnly+vbExclamation,”警告”txtCoursedes.SetFocusExitSubEndIfmrc.DeletetxtSQL="select*fromcours