學(xué)生成績管理系統(tǒng)

學(xué)生成績管理系統(tǒng)1.課程設(shè)計目的通過本課程教學(xué)，培養(yǎng)學(xué)生具備利用可視化開發(fā)工具開發(fā)信息系統(tǒng)能力，培養(yǎng)學(xué)生的實際動手能力以及自學(xué)其它系統(tǒng)開發(fā)工具的能力。著重培養(yǎng)學(xué)生具備理論聯(lián)系實際的能力，以所學(xué)的知識，用于解決實際問題的良好素質(zhì)。這次實驗主要通過對可視化開發(fā)工具VISUALBASIC的使用，結(jié)合ACCESS強大的數(shù)據(jù)庫功能，建立一個人機交互友好系統(tǒng)，通過對已學(xué)知知識的掌握，在理論根底上鍛煉自己的實際動手能力，培養(yǎng)學(xué)生發(fā)散思維和系統(tǒng)思維。為了進一步穩(wěn)固課堂上所學(xué)到的知識，深刻把握可視化開發(fā)工具VISUALBASIC的使用，鍛煉學(xué)生熟練的應(yīng)用能力和解決實際問題的能力，開設(shè)了VISUALBASIC可視化開發(fā)工具課程設(shè)計。我想借本次課程設(shè)計之際，開發(fā)一個適用于通用高校的學(xué)生成績管理系統(tǒng)。該設(shè)計方法易于推廣至其它信息化管理系統(tǒng)的設(shè)計，充分利用計算機作為輔助工具，實現(xiàn)學(xué)生考試成績從傳統(tǒng)的手工管理到計算機管理，對提高管理效率和節(jié)約大量的人力、物力有一定的推動作用。該系統(tǒng)面向各班級和全體學(xué)生，實現(xiàn)對學(xué)生個人成績情況、學(xué)生年級成績情況等的計算機管理。系統(tǒng)支持教師對學(xué)生的成績信息進行添加、刪除和修改等的操作，同時還可修改自己的密碼，確保了數(shù)據(jù)庫的平安性和一致性。本系統(tǒng)一切從實際出發(fā)，充分考慮了成績的內(nèi)部管理、信息交流等方面的復(fù)雜需求，實現(xiàn)成績的有效管理，真正為學(xué)生成績管理提供一個電子平臺。2.設(shè)計方案論證學(xué)生成績管理系統(tǒng)實現(xiàn)以下功能：可以實現(xiàn)院系管理，即院系、專業(yè)、班級的添加、修改、刪除；可以實現(xiàn)學(xué)生管理，即實現(xiàn)學(xué)生根本資料的添加、修改，包括學(xué)生的姓名、性別、民族、出生日期、籍貫、職務(wù)、身份證號、學(xué)生證號、居住住址、家庭、、入校日期、備注等；可以實現(xiàn)學(xué)生成績管理，包括學(xué)期管理、課程管理、排課管理、成績管理和成績排名，其中學(xué)期管理可對學(xué)年進行添加、修改、刪除操作，課程管理可以對課程進行添加、修改、刪除操作，排課管理可以對所選學(xué)期的所學(xué)班級進行排課，成績管理可以對所選學(xué)期，所選班級的某門課進行成績的添加、修改、刪除等操作，成績排名可以對所選學(xué)期，所選學(xué)院班級的某門課進行成績排名；實現(xiàn)系統(tǒng)用戶管理，包括用戶管理和修改密碼。2.1功能模塊通過對系統(tǒng)的調(diào)研與分析，學(xué)生成績管理系統(tǒng)主要應(yīng)完成的功能有如下幾個方面：根本信息管理，學(xué)生成績管理，系統(tǒng)用戶管理等功能。其中，根本信息管理包括院系管理、學(xué)生管理等；學(xué)生成績管理包括學(xué)期管理、課程管理、排課管理、成績管理和成績排名；系統(tǒng)用戶管理包括用戶管理和修改密碼。根據(jù)以上分類，可以得出如下系統(tǒng)功能模塊圖。學(xué)生成績管理系統(tǒng)學(xué)生成績管理系統(tǒng)根本信息管理學(xué)生成績管理系統(tǒng)用戶管理院系管理學(xué)生管理退出成績排名課程管理學(xué)期管理排課管理成績管理用戶管理修改密碼圖1系統(tǒng)功能模塊圖2.2數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫是信息管理的根底。數(shù)據(jù)庫結(jié)構(gòu)直接關(guān)系到各種功能的實現(xiàn)和程序運行的效率。數(shù)據(jù)通信接口采用ODBC(OpenDatabaseConnectivity，開放數(shù)據(jù)庫互連)。ODBC是微軟開發(fā)的一套讀取數(shù)據(jù)庫的解決方案，它的目的是將所有對數(shù)據(jù)庫的底層操作全部隱藏在ODBC的驅(qū)動程序內(nèi)核里。對于程序員來說，只要構(gòu)建了一個指向數(shù)據(jù)庫的連接，就可以采用統(tǒng)一的應(yīng)用程序編程接口(ApplicationProgramInterface)實現(xiàn)對數(shù)據(jù)庫的讀寫。(1)名稱：用戶表表名稱標識：users用戶表1包括UserName,UserPwd兩個字段；表1用戶表名稱字段名稱數(shù)據(jù)類型用戶名UserName文本用戶密碼UserPwd文本(2)名稱：學(xué)生根本信息表表名稱標識：Students學(xué)生根本信息表包括Student_id,Student_name,Sex,Nationality,Birth,Family_place,Id_card,Badgeid,Home_phone,Residence,Postcode,Indate,Class_id,Title,Memo,Fillin_time十六個字段；表2學(xué)生根本信息表名稱字段名稱數(shù)據(jù)類型學(xué)生編號Student_id自動編號學(xué)生姓名Student_name文本性別Sex文本民族Nationality文本出生日期Birth文本籍貫Family_place文本身份證號Id_card文本學(xué)生證號Badgeid文本家庭Home_phone文本居住住處Residence文本郵政編碼Postcode文本入校日期indate文本班級號Class_id數(shù)字職務(wù)Title文本備注Memo文本填表時間Fillin_time文本(3)名稱：課程表表名稱標識：LESSONS課程表包括LESSONID,LESSONNAME兩個字段；表3課程表名稱字段名稱數(shù)據(jù)類型課程編號LESSONID自動編號課程名稱LESSONNAME文本(4)名稱：學(xué)期表表名稱標識：TERM學(xué)期表包括TERMID，TERMNAME個字段；表4學(xué)期表名稱字段名稱數(shù)據(jù)類型學(xué)期編號TERMID自動編號學(xué)期名稱TERMNAME文本(5)名稱：班級表表名稱標識：CLASSES班級表包括CLASS_ID,CLASS_NAME,UPPER_ID三個字段；表5班級表名稱字段名稱數(shù)據(jù)類型班級編號CLASS_ID自動編號班級名稱CLASS_NAME文本上級編號UPPER_ID數(shù)字(6)名稱：排課表表名稱標識：Arrangement用戶信息表包括二個字段；表6用戶信息表名稱字段名稱數(shù)據(jù)類型排課編號Arrangeid自動編號學(xué)期編號Termed數(shù)字課程編號Lessonid數(shù)字班級編號Class_id數(shù)字教師姓名Teacher文本學(xué)時Hours數(shù)字課程類型lenssontype文本(7)名稱：成績表表名稱標識：SCORES班級表包括ARRANGEID，STUDENT_ID,SCORE三個字段；表7成績表名稱字段名稱數(shù)據(jù)類型課程IDARRANGEID數(shù)字學(xué)生IDSTUDENT_ID數(shù)字分數(shù)SCORE數(shù)字3.詳細設(shè)計3.1運行流程啟動VisualBasic后，單擊File|NewProject菜單，在工程模塊中選擇StandardEXE,VisualBasic將自動產(chǎn)生一個Form窗體，屬性都是缺省設(shè)置，這里我刪除這個窗體，單擊File|SaveProject菜單，將這個工程工程命名為student。登陸窗體由以下幾局部組成：2個文本框：txtUser用來記錄用戶輸入用戶名信息。TxtPwd用來記錄用戶輸入密碼信息。2個標簽、2個命令按鈕組成、1個框架控件組成。登陸模塊功能主要由Cmd_OK_Click()事件實現(xiàn)。Cmd_OK_Click()事件實現(xiàn)過程如下：定義2個字符串變量：PasswrdKey用來以字符串形式記錄用戶輸入密碼。NameKey用來以字符串形式記錄用戶輸入用戶名。定義1個整型變量：Try_times用來記錄用戶登陸系統(tǒng)失敗次數(shù)。(1)對數(shù)據(jù)有效性進行檢查：iftxtUser為空then彈出信息對話框提示：請輸入用戶名。txtUser獲得焦點。iftxtPwd為空then彈出信息對話框提示：請輸入密碼。txtPwd獲得焦點。(2)將用戶輸入賦值到變量中NameKeyPasswordKey(3)判斷用戶是否存在If用戶表無記錄與NameKey相等then彈出信息對話框提示：用戶名不存在。Try_times自動加1IfTry_times大于等于3Then彈出信息對話框提示：您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉。Else退出。(4)判斷密碼是否正確查到用戶名信息MyUser.GetInfo(NameKey)if密碼不正確then彈出信息對話框提示：密碼錯誤。Try_times自動加1IfTry_times大于等于3Then彈出信息對話框提示：您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉。Else退出。(5)登錄成功，將當前用戶的信息保存在CurUser中CurUser.GetInfo(MyUser.UserName)關(guān)閉登錄對話框。3.2主界面設(shè)計當窗體啟動時，將翻開“登陸〞對話框，填入相應(yīng)的登陸信息，包括用戶名和密碼。即可登錄進入學(xué)生成績管理系統(tǒng)主界面。如果不能通過身份驗證，那么不能進入系統(tǒng)。通過身份驗證后可以進入系統(tǒng)，呈現(xiàn)如下學(xué)生成績管理系統(tǒng)界面：圖2登陸界面翻開窗口，進入學(xué)生信息管理界面，出現(xiàn)如下列圖所示的窗口。在各個選項中填入相應(yīng)的學(xué)生信息，并添加學(xué)生，依次填入學(xué)生信息。在此界面下可以完成添加學(xué)生、修改資料、刪除學(xué)生等操作。圖3學(xué)生信息管理界面3.3學(xué)生成績信息學(xué)生成績管理信息包括以下幾個方面：學(xué)期信息管理、課程信息管理、課程安排管理、學(xué)生成績排名等。單擊窗口，出現(xiàn)學(xué)期信息管理界面，對學(xué)期進行選擇，還可以對其進行添加、修改、刪除等操作。圖4學(xué)期信息管理界面選擇好學(xué)期之后，還要對課程信息進行選擇。點擊課程信息管理，出現(xiàn)如下列圖所示界面，可以對課程進行添加、修改、刪除等操作。圖5課程信息管理界面選取相應(yīng)的課程，并對其進行編輯課程安排的操作，選擇課程名稱、課程類型、課時設(shè)置以及該課程的授課教師姓名。選擇好以上所述內(nèi)容以后，單擊“確定〞按鈕，完成課程安排的編輯。圖6編輯課程安排對已經(jīng)選好的課程進行課程安排編輯以后，操作界面如下列圖所示。選擇學(xué)期和班級，以及課程類型授課教師等信息。進行課程安排管理的操作。圖7課程安排管理界面課程信息的相關(guān)操作完成以后，要對考試成績信息進行編輯。操作界面如下。根據(jù)相應(yīng)的課程，填入相對應(yīng)的考生姓名以及該名學(xué)生的該科考試成績。填寫完畢以后，單擊“確定〞按鈕，準備進入下一個界面。圖8編輯考試信息當學(xué)期信息、課程信息、課程安排以及考生的考試成績信息都輸入正確以后，就可以開始進入學(xué)生成績管理界面了，界面主要內(nèi)容包括：學(xué)期、班級、課程姓名、學(xué)生姓名及其考試成績。在此界面下，還可以完成對學(xué)生成績的添加、刪除和修改等操作。更方便快捷準確的記錄了學(xué)生的成績信息，更好的對學(xué)生成績系統(tǒng)進行管理。圖9學(xué)生成績管理界面接下來就要進行學(xué)生成績排名階段了，根據(jù)考生考試成績的上下，對學(xué)生進行成績排名。界面如下列圖所示。圖10學(xué)生成績排名4．設(shè)計體會經(jīng)過這次課程設(shè)計，我覺得自己學(xué)到了不少東西。歸納起來，主要有以下幾點：〔1〕大學(xué)期間的時間都是在學(xué)習(xí)計算機理論根底知識，真正地去應(yīng)用和實踐相對較少。經(jīng)過這次畢業(yè)課程設(shè)計，我接觸到了更多平時沒有接觸到的開發(fā)語言、開發(fā)工具，發(fā)現(xiàn)了自己很多缺乏之處。我還體會到了所學(xué)理論知識的重要性：知識掌握得越多，設(shè)計得就更全面、更順利、更好?！?〕學(xué)會了怎樣查閱資料和利用工具書。〔3〕實踐能力得到了進一步提高，在調(diào)試過程中積累了一些經(jīng)驗。〔4〕在設(shè)計過程中，遇到很多困難，我學(xué)會通過別人的代碼理解語言的含義但這并不是抄襲，然后根據(jù)自己的設(shè)計要求編寫代碼?！?〕課程設(shè)計對以前學(xué)過的理論知識起到了回憶作用，并對其加以進一步的消化和穩(wěn)固。本次課程設(shè)計的順利完成，尤為感謝劉天惠老師的辛勤教導(dǎo)。本學(xué)期的課程中，劉老師嚴肅的科學(xué)態(tài)度，嚴謹?shù)闹螌W(xué)精神，精益求精的工作作風(fēng)，支持了學(xué)生本次系統(tǒng)的順利開發(fā)?？傊?，通過課程設(shè)計,我深刻體會到要做好一個完整的事情，需要有系統(tǒng)的思維方式和方法，對待一個新的問題，要耐心、要善于運用已有的資源來充實自己。同時我也深刻的認識到，在對待一個新事物時，一定要從整體考慮，完成一步之后再作下一步，這樣對于系統(tǒng)而言才能更加有效。參考文獻[1]王珊,薩師煊.數(shù)據(jù)庫系統(tǒng)概論[M].第三版.北京：高等教育出社14[2]劉天惠.VISUALBASIC程序設(shè)計教程[M].北京：清華大學(xué)出版社25[3]李敏業(yè).VisualBasic+Access數(shù)據(jù)庫應(yīng)用實例解析[M].人民郵電出版社[4]曾琦.Visualbasic6.0編程實例與技巧[M].中國水利水電出版社，45[5]韓潤春，佟志臣，王漢新.管理信息系統(tǒng)[M].河北人民出版社，35[6]溫賢發(fā).VisualBasic6數(shù)據(jù)庫程序設(shè)計高手[M].北京：科學(xué)出版社，78[7]龔沛增.VisualBasic程序設(shè)計教程[M].清華大學(xué)出版社[8]蔣加伏.VisualBasic程序設(shè)計教程[M].北京郵電大學(xué)出版社[9]郝春強.新概念VISUALBASIC6.0教程[M].北京科海集團公司[10]王國榮．VB6.0數(shù)據(jù)庫程序設(shè)計．北京：人民郵電出版社，1999.9附錄:〔1〕主界面代碼PrivateSubForm_Load()'連接字符串conn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+"\學(xué)生成績.mdb;"FrmLogin.Show1EndSubPrivateSublblUsers_Click()EndSubPrivateSubmn_change_Click()FrmChangeMan.Show1EndSubPrivateSubm_arrange_Click()FrmArrangeMan.Show1EndSubPrivateSubmn_class_Click()FrmClassMan.Show1EndSubPrivateSubmn_eva_Click()FrmEvaMan.Show1EndSubPrivateSubmn_exit_Click()DBapi_DisconnectEndEndSubPrivateSubmn_lesson_Click()FrmLessonMan.Show1EndSubPrivateSubmn_pwd_Click()'如果當前用戶是普通用戶，那么翻開用戶編輯窗體，編輯自己的用戶信息WithFrmUserEdit.OriUser=CurUser.UserName.txtUserName=CurUser.UserName.txtPass=CurUser.UserPwd.txtPass2=CurUser.UserPwd.Modify=True.Show1EndWithEndSubPrivateSubmn_score_Click()FrmScoresMan.Show1EndSub〔2〕編輯課程安排代碼PublicOriIdAsLongPublicTermIdAsLongPublicClassIdAsLongPublicLessonIdAsLongPublicModifyAsBooleanPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_OK_Click()'判斷是否輸入了課程名稱IfVal(DataCombo1.BoundText)<=0ThenMsgBox"請選擇課程名稱"DataCombo1.SetFocusExitSubEndIf'把用戶錄入的數(shù)據(jù)賦值到MyLesson對象的成員變量中WithMyArrange.TermId=TermId.LessonId=Val(DataCombo1.BoundText).Class_Id=ClassId.LessonType=Trim(ComboType.Text).Teacher=MakeStr(txtTeacher).Hours=Val(txtHours)根據(jù)變量Modify決定是插入新數(shù)據(jù)，還是更新已有的數(shù)據(jù)IfModify=FalseThen.InsertElseCall.Update(OriId)EndIfEndWithMsgBox"編輯完成"'關(guān)閉窗口UnloadMeEndSubPrivateSubForm_Load()'設(shè)置記錄源AdoLesson.ConnectionString=connAdoLesson.RecordSource="SELECT*FROMLessonsORDERBYLessonName"AdoLesson.RefreshDataCombo1.ListField="LessonName"DataCombo1.BoundColumn="LessonId"DataCombo1.BoundText=LessonIdEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSub〔3〕課程安排管理PrivateSubRefreshData()'設(shè)置數(shù)據(jù)源Adodc1.ConnectionString=connAdodc1.RecordSource="SELECTa.ArrangeId,a.TermId,a.LessonId,a.Class_id,"_+"l.LessonNameAs課程名稱,a.LessonTypeAs課程類型,a.TeacherAs授課教師,"+"a.HoursAs課時FROMArrangementa,LessonslWHEREa.LessonId=l.LessonId"_+"ANDa.Class_Id="+Trim(CurClass.Class_Id)+"Anda.TermId="_+Trim(Val(DataCombo1.BoundText))Adodc1.RefreshWithDataGrid1.Columns(0).Width=0.Columns(1).Width=0.Columns(2).Width=0.Columns(3).Width=0EndWithEndSubPrivateSubCmd_Add_Click()IfVal(DataCombo1.BoundText)<=0ThenMsgBox"請選擇學(xué)期"ExitSubEndIfIfCurClass.Class_Id<=0ThenMsgBox"請選擇班級"ExitSubEndIfFrmArrangeEdit.ClassId=CurClass.Class_IdFrmArrangeEdit.LessonId=0FrmArrangeEdit.TermId=Val(DataCombo1.BoundText)FrmArrangeEdit.lblTerm=DataCombo1.TextFrmArrangeEdit.lblClass=ComboClass.TextFrmArrangeEdit.ComboType.ListIndex=0FrmArrangeEdit.Modify=FalseFrmArrangeEdit.Show1RefreshDataEndSubPrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Del_Click()DimTmpAidAsLongIfAdodc1.Recordset.EOF=TrueThenMsgBox"請選擇記錄"ExitSubEndIfTmpAid=Adodc1.Recordset.Fields(0)IfMsgBox("是否刪除當前行?",vbYesNo,"確認")=vbYesThenCallMyArrange.Delete(TmpAid)MsgBox"刪除成功"RefreshDataEndIfEndSubPrivateSubCmd_Modi_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"請選擇記錄"ExitSubEndIf'初始化frmarrangeedit信息FrmArrangeEdit.Modify=TrueFrmArrangeEdit.OriId=Adodc1.Recordset.Fields(0)FrmArrangeEdit.TermId=Adodc1.Recordset.Fields(1)FrmArrangeEdit.LessonId=Adodc1.Recordset.Fields(2)FrmArrangeEdit.ClassId=Adodc1.Recordset.Fields(3)FrmArrangeEdit.ComboType.Text=Trim(Adodc1.Recordset.Fields(5))FrmArrangeEdit.txtTeacher=Trim(Adodc1.Recordset.Fields(6))FrmArrangeEdit.txtHours=Trim(Adodc1.Recordset.Fields(7))FrmArrangeEdit.Show1RefreshDataEndSubPrivateSubComboClass_GotFocus()Cmd_Add.SetFocus'設(shè)置FrmClassSel窗體的位置FrmClassSel.Left=Me.Left+ComboClass.Left+350FrmClassSel.Top=Me.Top+ComboClass.Top+ComboClass.Height+450FrmClassSel.Show1'將選擇的院系名稱顯示到ComboClass控件中ComboClass.Text=CurClass.Class_Name'刷新顯示RefreshDataEndSubPrivateSubForm_Load()'設(shè)置記錄源AdoTerm.ConnectionString=connAdoTerm.RecordSource="SELECT*FROMTermsORDERBYTermName"AdoTerm.RefreshDataCombo1.ListField="TermName"DataCombo1.BoundColumn="TermId"ComboClass.Text=""'刷新表格數(shù)據(jù)RefreshDataEndSub(4)學(xué)生成績管理代碼PrivateSubRefresh_Scores()'設(shè)置數(shù)據(jù)源Adodc1.ConnectionString=connAdodc1.RecordSource="SELECTs.Student_IdAs學(xué)生編號,s.Student_NameAs學(xué)生姓名,"_+"s1.ScoreAs考試成績,a.ArrangeIdFROMStudentss,Scoress1,Arrangementa"_+"WHEREs.Class_Id="+Trim(CurClass.Class_Id)_+"Ands.Student_Id=s1.Student_IdAnds1.ArrangeId=a.ArrangeId"_+"Anda.TermId="+Trim(Val(DataCombo1.BoundText))+"ANDa.LessonId="_+Trim(Val(DataCombo2.BoundText))+"ANDa.Class_Id=s.Class_IdORDERBYs1.ScoreDESC"Adodc1.RefreshWithDataGrid1.Columns(0).Width=0.Columns(1).Width=3200.Columns(2).Width=3500.Columns(3).Width=0EndWithEndSubPrivateSubCmd_Add_Click()IfVal(DataCombo1.BoundText)=0ThenMsgBox"請選擇學(xué)期"ExitSubEndIfIfCurClass.Class_Id<=0ThenMsgBox"請選擇班級"ExitSubEndIfIfVal(DataCombo2.BoundText)=0ThenMsgBox"請選擇課程"ExitSubEndIf'獲取課程安排編號DimTmpAidAsLongTmpAid=MyArrange.GetId(Val(DataCombo1.BoundText),CurClass.Class_Id,Val(DataCombo2.BoundText))FrmScoresEdit.TmpCid=CurClass.Class_IdFrmScoresEdit.TmpAid=TmpAidFrmScoresEdit.OriStuName=""FrmScoresEdit.lbl_TermName=DataCombo1.TextFrmScoresEdit.lbl_LessonName=DataCombo2.TextFrmScoresEdit.lbl_ClassName=ComboClass.TextFrmScoresEdit.txtScore=""FrmScoresEdit.Modify=FalseFrmScoresEdit.Show1Refresh_ScoresEndSubPrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Del_Click()DimTmpSid,TmpAidAsLongIfAdodc1.Recordset.EOF=TrueThenMsgBox"請選擇記錄"ExitSubEndIfTmpSid=Adodc1.Recordset.Fields(0)TmpAid=Adodc1.Recordset.Fields(3)IfMsgBox("是否刪除當前行?",vbYesNo,"確認")=vbYesThenCallMyScores.Delete(TmpAid,TmpSid)MsgBox"刪除完成"Refresh_ScoresEndIfEndSubPrivateSubCmd_Modi_Click()'初始化FrmScoresEdit信息FrmScoresEdit.Modify=TrueFrmScoresEdit.OriStuName=Trim(Adodc1.Recordset.Fields(1))FrmScoresEdit.TmpCid=CurClass.Class_IdFrmScoresEdit.TmpAid=Adodc1.Recordset.Fields(3)FrmScoresEdit.txtScore=Adodc1.Recordset.Fields(2)FrmScoresEdit.lbl_TermName=DataCombo1.TextFrmScoresEdit.lbl_LessonName=DataCombo2.TextFrmScoresEdit.lbl_ClassName=ComboClass.TextFrmScoresEdit.Show1Refresh_ScoresEndSubPrivateSubComboClass_GotFocus()Cmd_Add.SetFocus'設(shè)置FrmClassSel窗體的位置FrmClassSel.Left=Me.Left+ComboClass.Left+350FrmClassSel.Top=Me.Top+ComboClass.Top+ComboClass.Height+450FrmClassSel.Show1'將選擇的院系名稱顯示到ComboClass控件中ComboClass.Text=CurClass.Class_Name'設(shè)置課程記錄源AdoLesson.ConnectionString=connAdoLesson.RecordSource="SELECTl.LessonName,a.LessonIdFROMLessonsl,Arrangementa"_+"WHEREa.LessonId=l.LessonIdANDa.Class_Id="+Trim(CurClass.Class_Id)_+"ANDa.TermId="+Trim(Val(DataCombo1.BoundText))+"ORDERBYLesso