學生信息管理系統(tǒng)VB版

1、課程設(shè)計VB課程設(shè)計報告系 別 ：計算機科學與技術(shù)系專業(yè)（班級）：作者（學號）：指導(dǎo)教師：完成日期：2008年12月20日教務(wù)處制題目: 學生信息管理系統(tǒng)的實現(xiàn)內(nèi)容摘要：學生信息管理系統(tǒng)主要包括班級管理信息的輸入、查詢、修改；學?；菊n程信息的輸入、修改；學生課程信息的設(shè)置和修改；學生成績信息的輸入、修改、查詢以及統(tǒng)計。目錄1. 需求分析-22. 概要設(shè)計-43. 詳細設(shè)計-44. 測試-255.附錄或參考資料-261: 需求分析隨著學校規(guī)模的不斷擴大，學生的數(shù)量急劇增加，有關(guān)學生的各種信息管理也成倍增長。而對于龐大的信息量，就需要有學生信息管理系統(tǒng)來提高學生管理工作的效率，取代從前的手工操作

2、?；诮窈笥嬎銠C的網(wǎng)路普及以及方便實現(xiàn)用戶閱讀及統(tǒng)一查詢，所以使用SQL server2000做數(shù)據(jù)庫系統(tǒng)，使用Visual Basic作為前臺處理軟件。（1） 系統(tǒng)分析a. 系統(tǒng)功能分析班級管理信息的輸入，包括班級設(shè)置、年級的設(shè)置等；班級管理信息管理的查詢；班級管理信息的修改；學校基本課程信息的輸入；基本課程信息的修改；學生課程信息的設(shè)置和修改；學生成績信息的輸入；學生成績信息的修改；學生成績信息的查詢；學生成績信息的統(tǒng)計。b. 系統(tǒng)功能模塊分析上述各功能的系統(tǒng)功能模塊圖如下：（2） 數(shù)據(jù)庫分析數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的

3、效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。同時，合理的數(shù)據(jù)庫結(jié)構(gòu)也將有利于程序的實現(xiàn)。數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保證、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能夠充分滿足各種信息的輸出和輸入。針對一般學生信息管理系統(tǒng)的要求，通過對學生學習過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計如下的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：a 學生基本信息：包括的數(shù)據(jù)項有：學生學號、學生姓名、性別、出身日期、班號、聯(lián)系電話、入校日期、家庭地址、備注等。b 班級信息：包括的數(shù)據(jù)項有：班號、所在年級、班主任姓名、所在教室等。c 課程基本信息：包括的數(shù)據(jù)項有：課程號、課程名稱、課程類別、課程描述等。

4、d 課程設(shè)置信息：包括數(shù)據(jù)項有：年級信息、所學課程等。e 學生成績信息：包括數(shù)據(jù)項有：考試編號、所在班號、學生學號、學生姓名、所學課程、考試分數(shù)等。根據(jù)上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項和數(shù)據(jù)流程，進行一下的數(shù)據(jù)庫設(shè)計。2. 概要設(shè)計（1）數(shù)據(jù)庫設(shè)計利用SQL server2000數(shù)據(jù)庫系統(tǒng)中的SQl企業(yè)管理器，建立數(shù)據(jù)庫student.sql文件，數(shù)據(jù)庫名為：student，在student數(shù)據(jù)庫中創(chuàng)建6個表，分別為：學生基本信息表、班級基本信息表、課程基本信息表、年級課程基本信息表、學生成績信息表、系統(tǒng)用戶表。（2）系統(tǒng)設(shè)計用Visual Basic來編寫數(shù)據(jù)庫系統(tǒng)客戶端程序即學生信息管理系統(tǒng)中各功能

5、模塊。該系統(tǒng)包括：工程文件Student_Mis.vbp，標準模塊文件Module1.bas，主窗體文件frmMain.frm，登陸窗體文件frmLogin.frm，添加用戶窗體文件frmAdduser.frm。修改用戶密碼窗體文件frmModifyuserinfo.frm，添加學籍信息窗體文件frmAddsinfo.frm，修改學籍信息窗體文件frmModifysinfo.frm，查詢學籍信息窗體文件frmInquiresinfo.frm，添加班級信息窗體文件frmAddclassinfo.frm，修改班級信息窗體文件frmModifyclassinfo.frm，添加課程信息窗體文件frmA

6、ddcourseinfo.frm，修改課程信息窗體文件frmModifycourseinfo.frm，設(shè)置年級課程窗體文件frmSetcourseinfo.frm，添加成績信息窗體文件frmAddresult.frm，修改成績窗體文件frmModifyresult.frm，查詢成績信息窗體文件frmInquireresult.frm。3. 詳細設(shè)計（1）數(shù)據(jù)庫設(shè)計a數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計得到數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)后，設(shè)計出能夠滿足用戶需求的各種實體，以及它們之間的關(guān)系。這些實體包括具體信息，通過相互之間的作用形成數(shù)據(jù)段流動。設(shè)計規(guī)劃出的實體有：年級實體、學生實體、課程實體。各個實體具體的描述及關(guān)系的E-

7、R圖如下圖所示。b數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計學生信息管理系統(tǒng)數(shù)據(jù)庫中各表設(shè)計結(jié)果如圖1.11.6所示。每個表格表示在數(shù)據(jù)庫中的一個表。表1.1 student_info 學生基本信息表表1.2 class_info 班級信息表表 1.3 course_info 課程基本信息表 1.4 gradecourse_info 年級課程設(shè)計表格表 1.5 result_info 學生成績信息表表 1.6 user_info 系統(tǒng)用戶表（2）系統(tǒng)設(shè)計 1.學生信息管理系統(tǒng)主窗體的創(chuàng)建a.創(chuàng)建一個工程名為Student_Mis的工程文件Student_Mis.vbp。b.創(chuàng)建學生信息管理系統(tǒng)的主窗體MID窗體，窗體

8、名為frmMain，窗體文件名為：frmMain.frm。c.創(chuàng)建主窗體的菜單。主窗體表2.1菜單結(jié)果表對象屬性屬性值對象屬性屬性值主菜單項1名稱sysMenu子菜單項2名稱modifycionfoMenu標題系統(tǒng)標題修改班級信息子菜單項1名稱adduserMenu主菜單項4名稱courseMenu標題添加用戶標題課程設(shè)置子菜單項2名稱modifypwdMenu子菜單項1名稱addcourseMenu標題修改密碼標題添加課程設(shè)計子菜單項3名稱exitMenu子菜單項2名稱modifycourseMenu標題退出系統(tǒng)標題修改課程信息主菜單項2名稱sinfoMenu子菜單項3名稱gradecour

9、seMenu標題學籍信息標題設(shè)計年級課程子菜單項1名稱addsinfoMenu主菜單項5名稱resultMenu標題添加學籍信息標題成績管理子菜單項2名稱modifysinfoMenu子菜單項1名稱addresultMenu標題修改學籍信息標題添加成績信息子菜單項3名稱inquiresinfoMenu子菜單項2名稱modifyresultMenu標題查詢學籍信息標題修好學籍信息主菜單項3名稱classinfoMenu子菜單項3名稱inquireresultMenu標題班級管理標題查詢成績信息子菜單項1名稱addcinfoMenu標題添加班級信息學生信息管理系統(tǒng)主窗體代碼如下：Private S

10、ub MDIForm_Load() Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000) Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000) Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500) Me.Height = GetSetting(App.Title, &q

11、uot;Settings", "MainHeight", 6500)End SubPrivate Sub MDIForm_Unload(Cancel As Integer) If Me.WindowState <> vbMinimized Then SaveSetting App.Title, "Settings", "MainLeft", Me.Left SaveSetting App.Title, "Settings", "MainTop", Me.Top SaveSe

12、tting App.Title, "Settings", "MainWidth", Me.Width SaveSetting App.Title, "Settings", "MainHeight", Me.Height End IfEnd SubPrivate Sub modifycinfoMenu_Click() frmModifyclassinfo.ShowEnd SubPrivate Sub modifycourseMenu_Click() frmModifycourseinfo.ShowEnd SubPri

13、vate Sub modifypwdMenu_Click() frmModifyuserinfo.ShowEnd SubPrivate Sub modifyresultMenu_Click() frmModifyresult.ShowEnd SubPrivate Sub modifysinfo_Menu_Click() frmModifysinfo.ShowEnd Subd創(chuàng)建公共模塊。在工程資源管理器中為項目添加一個名稱為Module的標準模塊文件Module.bas。代碼如下：Public fMainForm As frmMainPublic UserName As StringSub M

14、ain() Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then 'Login Failed so exit app End End If Unload fLogin Set fMainForm = New frmMain fMainForm.ShowEnd SubPublic Function ConnectString() _ As String'returns a DB ConnectString ConnectString = "FileDSN=studentinfo.dsn&

15、quot;End FunctionPublic Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset'executes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.C

16、onnection cnn.Open ConnectString If InStr("INSERT,DELETE,UPDATE", _ UCase$(sTokens(0) Then cnn.Execute SQL MsgString = sTokens(0) & _ " query successful" Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic 'rst.MoveLast 'get

17、 RecordCount Set ExecuteSQL = rst MsgString = "查詢到" & rst.RecordCount & _ " 條記錄 " End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionExecuteSQL_Error: MsgString = "查詢錯誤: " & _ Err.Description Resume ExecuteSQL_ExitEnd FunctionPublic Func

18、tion Testtxt(txt As String) As Boolean If Trim(txt) = "" Then Testtxt = False Else Testtxt = True End IfEnd Function2系統(tǒng)用戶管理模塊的創(chuàng)建a系統(tǒng)用戶管理模塊主頁實現(xiàn)：用戶登陸；用戶添加；修改用戶密碼用戶登陸窗體的創(chuàng)建。進入系統(tǒng)后出現(xiàn)如圖2.1所示用戶登陸窗體，用戶首先輸入用戶名，然后輸入密碼。如果用戶3次輸入密碼不正確，將退出程序。圖2.1代碼如下：Option ExplicitPublic OK As Boolean'記錄確定次數(shù)Dim miCou

19、nt As IntegerPrivate Sub Form_Load() OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String 'ToDo: create test for correct password 'check for correct password UserNam

20、e = "" If Trim(txtUserName.Text = "") Then MsgBox "沒有這個用戶，請重新輸入用戶名！", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'" Set mrc = ExecuteSQ

21、L(txtSQL, MsgText) If mrc.EOF = True ThenMsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else MsgBox "輸入密碼不正確，請重新輸入！", v

22、bOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd Sub用戶添加窗體的創(chuàng)建。進入系統(tǒng)后，選擇菜單“系統(tǒng)|添加用戶”就可以添加用戶，會出現(xiàn)如圖2.2所示的窗體。圖2.2代碼如下：Private Sub cmdCancel_Click() Unload MeEnd SubPrivate

23、Sub cmdOK_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String If Trim(Text1(0).Text) = "" Then MsgBox "請輸入用戶名稱！", vbOKOnly + vbExclamation, "警告" Exit Sub Text1(0).SetFocus Else txtSQL = "select * from user_Info " Set mrc = ExecuteSQL(

24、txtSQL, MsgText) While (mrc.EOF = False) If Trim(mrc.Fields(0) = Trim(Text1(0) Then MsgBox "用戶已經(jīng)存在，請重新輸入用戶名！", vbOKOnly + vbExclamation, "警告" Text1(0).SetFocus Text1(0).Text = "" Text1(1).Text = "" Text1(2).Text = "" Exit Sub Else mrc.MoveNext End If

25、 Wend End If If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then MsgBox "兩次輸入密碼不一樣，請確認！", vbOKOnly + vbExclamation, "警告" Text1(1).SetFocus Text1(1).Text = "" Text1(2).Text = "" Exit Sub Else If Text1(1).Text = "" Then MsgBox "密碼不能為空！",

26、 vbOKOnly + vbExclamation, "警告" Text1(1).SetFocus Text1(1).Text = "" Text1(2).Text = "" Else mrc.AddNew mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) mrc.Update mrc.Close Me.Hide MsgBox "添加用戶成功！", vbOKOnly + vbExclamation, "添加用戶&

27、quot; End If End If End Sub修改用戶密碼窗體的創(chuàng)建。用戶可以修改自己的密碼，選擇“系統(tǒng)|修改密碼”，出現(xiàn)如圖2.3所示，在這個窗體中放置看兩個文本框，用來輸入密碼和確認密碼。圖2.3代碼如下：Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then MsgBo

28、x "密碼輸入不正確！", vbOKOnly + vbExclamation, "警告" Text1(1).SetFocus Text1(1).Text = "" Else txtSQL = "select * from user_Info where user_ID = '" & UserName & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(1) = Text1(1).Text mrc.Updat

29、e mrc.Close MsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼" Me.Hide End If End Sub3學籍管理模塊的創(chuàng)建學籍信息管理主題實現(xiàn)如下功能：添加學籍信息；修改學籍信息；查詢學校信息。添加學籍信息窗體的創(chuàng)建。選擇“學籍管理|添加學籍信息”菜單，將出現(xiàn)如圖2.4所示的窗體。圖2.4代碼如下：Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As Stri

30、ngif Not Testtxt(txtSID.Text) Then MsgBox "請輸入學號！", vbOKOnly + vbExclamation, "警告" txtSID.SetFocus Exit Sub End If If Not Testtxt(txtName.Text) Then MsgBox "請輸入姓名！", vbOKOnly + vbExclamation, "警告" txtName.SetFocus Exit Sub End If If Not Testtxt(comboSex.Text)

31、Then MsgBox "請選擇性別！", vbOKOnly + vbExclamation, "警告" comboSex.SetFocus Exit Sub End If If Not Testtxt(txtBorndate.Text) Then MsgBox "請輸入出生日期！", vbOKOnly + vbExclamation, "警告" txtBorndate.SetFocus Exit Sub End If If Not Testtxt(comboClassno.Text) Then MsgBox &q

32、uot;請選擇班號！", vbOKOnly + vbExclamation, "警告" comboClassno.SetFocus Exit Sub End If If Not Testtxt(txtTel.Text) Then MsgBox "請輸入聯(lián)系電話！", vbOKOnly + vbExclamation, "警告" txtTel.SetFocus Exit Sub End If If Not Testtxt(txtRudate.Text) Then MsgBox "請輸入入校日期！", vbO

33、KOnly + vbExclamation, "警告" txtRudate.SetFocus Exit Sub End If If Not Testtxt(txtAddress.Text) Then MsgBox "請輸入家庭住址！", vbOKOnly + vbExclamation, "警告" txtAddress.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtSID.Text) Then MsgBox "請輸入數(shù)字！", vbOKOnly + vbExcl

34、amation, "警告" Exit Sub txtSID.SetFocus End If txtSQL = "select * from student_Info where student_ID = '" & Trim(txtSID.Text) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "學號重復(fù)，請重新輸入！", vbOKOnly + vbExclamation, &qu

35、ot;警告" mrc.Close txtSID.SetFocusElsemrc.Close If Not IsDate(txtBorndate.Text) Then MsgBox "出生時間應(yīng)輸入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告" txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, "yyyy-mm-dd") If Not IsDate(txtRudate.Text) Then MsgBox

36、"入校時間應(yīng)輸入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告" txtRudate.SetFocus Else txtRudate = Format(txtRudate, "yyyy-mm-dd") txtSQL = "select * from student_Info" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(txtSID.Text) mrc.Fields(1

37、) = Trim(txtName.Text) mrc.Fields(2) = Trim(comboSex.Text) mrc.Fields(3) = Trim(txtBorndate.Text) mrc.Fields(4) = Trim(comboClassno.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtRudate.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Fields(8) = Trim(txtComment.Text) mrc.Update MsgB

38、ox "添加學籍信息成功！", vbOKOnly + vbExclamation, "警告" mrc.Close Me.Hide End If End If End If End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String Dim i As Integer comboSex.AddItem "男"

39、comboSex.AddItem "女" txtSQL = "select * from class_Info " Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 1 To mrc.RecordCount comboClassno.AddItem mrc.Fields(0) mrc.MoveNext Next i mrc.CloseEnd Sub修改學籍信息窗體的創(chuàng)建。選擇“學籍管理|修改學籍信息”菜單，將會出現(xiàn)如圖2.5所示的窗體。這個窗體在添加學籍信息窗體的基礎(chǔ)上增加了兩排按鈕。圖2.5代碼略。查詢學籍信息

40、窗體的建立。選擇“學籍管理|查詢學籍信息”菜單，將出現(xiàn)如圖2.6所示的窗體。這里可以按照各種方式以及它們的組合進行查詢。圖2.6代碼略。4班級管理模塊的創(chuàng)建班級管理模塊主要實現(xiàn)如下功能：添加班級信息；修改班級信息。添加班級信息窗體的創(chuàng)建。選擇“班級管理|添加班級信息”菜單，將出現(xiàn)如圖2.7所示的窗體。圖2.7窗體中各個表的控件屬性設(shè)置見下表：控件屬性屬性取值控件屬性屬性取值FrmAddclassinfo(Form)NameFrmAddclassinfoLabel1Caption班號Caption添加班級信息Command2NameCommand2MIDChildTrueCaption退出按鈕t

41、xtClassnoNametxtClassnoLabel2Caption年級comboGradeNamecomboGradeLabel3Caption班主任txtDirectorNametxtDirectorLabel4Caption教室txtClassroomNametxtClassroomCommand1NameCommand1Caption確定添加輸入完內(nèi)容，單擊按鈕“確認添加”，觸發(fā)Click事件，添加內(nèi)容到數(shù)據(jù)庫。代碼如下：Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim

42、 txtSQL As String If Not Testtxt(txtClassno.Text) Then MsgBox "請輸入班號！", vbOKOnly + vbExclamation, "警告" txtClassno.SetFocus Exit Sub End If If Not Testtxt(comboGrade.Text) Then MsgBox "請選擇年級！", vbOKOnly + vbExclamation, "警告" comboGrade.SetFocus Exit Sub End If

43、If Not Testtxt(txtDirector.Text) Then MsgBox "請輸入班主任姓名！", vbOKOnly + vbExclamation, "警告" txtDirector.SetFocus Exit Sub End Ifif Not Testtxt(txtClassroom.Text) Then MsgBox "請輸入教室房間號！", vbOKOnly + vbExclamation, "警告" txtClassroom.SetFocus Exit Sub End If If Not

44、IsNumeric(Trim(txtClassno.Text) Then MsgBox "請輸入數(shù)字！", vbOKOnly + vbExclamation, "警告" Exit Sub txtClassno.SetFocus End If txtSQL = "select * from class_Info " Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.MoveFirst While (mrc.EOF = False) If (Trim(mrc.Fields(0) = Trim(txtCla

45、ssno.Text) Then MsgBox "班號已經(jīng)存在，請重新輸入班號！", vbOKOnly + vbExclamation, "警告" Exit Sub txtClassno.Text = "" txtClassno.SetFocus Else mrc.MoveNext End If Wend mrc.AddNew mrc.Fields(0) = Trim(txtClassno.Text) mrc.Fields(1) = Trim(comboGrade.Text) mrc.Fields(2) = Trim(txtDirect

46、or.Text) mrc.Fields(3) = Trim(txtClassroom.Text) mrc.Update mrc.Close MsgBox "添加班級信息成功！", vbOKOnly + vbExclamation, "添加班級信息"End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() comboGrade.AddItem "初中一年級" comboGrade.AddItem "初中二年級" comboG

47、rade.AddItem "初中三年級" comboGrade.AddItem "高中一年級" comboGrade.AddItem "高中二年級" comboGrade.AddItem "高中三年級"End Sub5課程設(shè)置模塊的創(chuàng)建課程設(shè)置模塊主要實現(xiàn)如下功能：添加課程信息；修改課程信息；設(shè)置年級課程。添加課程信息窗體的創(chuàng)建。選擇“課程設(shè)置|添加課程信息”菜單，將出現(xiàn)如圖2.8所示的窗體。圖2.8單擊“確定添加”按鈕，添加班級信息。單擊“取消添加”將退出程序。代碼可以參照上面的添加班級信息修改課程信息窗體的創(chuàng)建

48、。選擇“課程設(shè)置|修改課程信息”菜單，將出現(xiàn)如圖2.9所示的窗體。圖2.9查看課程信息和修改基礎(chǔ)信息框架中的按鈕的功能，方法前面已經(jīng)介紹過，參照前面的內(nèi)容。設(shè)置年級課程窗體的創(chuàng)建。選擇菜單“課程設(shè)置|設(shè)置年級課程”，將出現(xiàn)如圖2.10所示的窗體。圖2.10窗體中各個控件的屬性如下表：控件屬性屬性取值控件屬性屬性取值frmSetcourseinfo(From)NamefrmSetcourseinfocmdModifyNamecmdModifyCaption設(shè)置年級課程信息Caption確認設(shè)置MIDChildTruecmdAddNamecmdAddcomboGradeNamecomboGrade

49、Caption->listAllcourseNamelistAllcoursecmdDeleteNamecmdDeletelistSelectcourseNamelistSelectcourseCaption<-cmdSetNamecmdSetLabel1Caption選擇年級：Caption設(shè)置課程Label2Caption所有課程：Label3Caption已經(jīng)選擇程主要代碼如下：Private Sub cmdModify_Click() Dim i As Integer Dim mrc As ADODB.Recordset Dim mrcc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String Dim myBookmark As Variant If Not Testtxt(comboGrade.Text) Then Msg