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

1、日期2006年12月8日計算機網絡數據庫設計題目:學號姓名專業(yè)學生信息管理系統(tǒng)xxxxxxxx隨著學校的規(guī)模不斷擴大，學生數量急劇增加，有關學生的各種信息量也成倍增長。面對龐大的信息量需要有學生管理系統(tǒng)來提高學生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學統(tǒng)計和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。本系統(tǒng)主要用于學校學生信息管理，總體任務是實現學生信息關系的系統(tǒng)化、規(guī)范化和自動化，其主要任務是用計算機對學生各種信息進行日常管理，如查詢、修改、增加、刪除，另外還考慮到學生選課，針對這些要求設計了學生信息管理系統(tǒng)本系統(tǒng)主要用于學校學生信息管理，總體任務是實現學生信息

2、關系的系統(tǒng)化、規(guī)范化和自動化，其主要任務是用計算機對學生各種信息進行日常管理，如查詢、修改、增加、刪除，另外還考慮到學生選課，針對這些要求設計了學生信息管理系統(tǒng)。本系統(tǒng)主要包括學生信息查詢、教務信息維護和學生選課三部分。其功能主要有：1有關學籍等信息的輸入，包括輸入學生基本信息、所在班級、所學課程和成績等。2學生信息的查詢，包括查詢學生基本信息、所在班級、已學課程和成績等。3學生信息的修改。4班級管理信息的輸入，包括輸入班級設置、年級信息等。5班級管理信息的查詢。6班級管理信息的修改。7學生課程的設置和修改。學生信息管理系統(tǒng)是為本校開發(fā)的，本系統(tǒng)所采用的語言是VisualBasic，用Micr

3、osoftAccess2000數據庫完成。該系統(tǒng)總體有四部分組成，包括學生信息查詢、教務信息維護、學生選課及用戶管理。通過本系統(tǒng)，把本校內部查詢學生信息、教務信息、學生選課各個環(huán)節(jié)進行有效地計劃、組織和控制。通過本校內部的信息，依據統(tǒng)一數據信息進行管理，把任何一塊信息所產生的數據變動及時地反映給其它相關信息，做到數據共享。本系統(tǒng)主要信息流程為：教務信息維護接受學生的信息，學生信息查詢根據教務信息維護的學生信息做出對所接收的信息合理性進行判斷，并交于信息維護進行相應的修改，再把信息存入數據庫中。學生選課是對學生進行相應選擇自己相關的課程。最后進行打印。采用本系統(tǒng)，能夠使整個系統(tǒng)內部所有信息的工作

4、簡化，提高工作效益。由于采用統(tǒng)一的數據信息，使相關資料能夠快速地查詢所需的數據、資料及其它信息的，使信息快速高效運行。本系統(tǒng)中使用到的數據表主要有班級表、成績表、繳費表、課程表、學生檔案、用戶資料，由這六個表，組成了名為信息的數據庫（如圖一）。其中學生檔案是本系統(tǒng)主要的叵信息:數垂庫-Inix|國國可園國園圍I!圍誦打開隧設計側圉新連迪X-0蠱1H使坤說計阱創(chuàng)建表使坤向導創(chuàng)建表通過輔人數館創(chuàng)建表交費表諜眾表圖一）李生檔索一張表，所有信息都是根據這張學生檔案進行有關的操作，主要的字段有：學號、姓名、年級、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯系電話、入學時間、備注。其

5、中日期的數據類型為日期/時間天型，其它的數據類型為文本型；成績表中字段為：學號、姓名、年級、專業(yè)、學期、考試時間、考試科目、考試地點、課程性質、科目分數、違紀類型、備注；課程表中字段為：專業(yè)、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質、考試性質；用戶資料中的字段包括：用戶名、密碼、身份。數據庫與VB的連接：本系統(tǒng)的數據鏈接采用的是ADO方法，打開控制面板，打開ODBC數據源圖標，選擇“系統(tǒng)DSN”標簽，點擊“添加”按鈕，在彈出的“創(chuàng)建新數據源”對話框中選擇名稱為“MicrosoftAccessDrive（*.mdb）”，點擊“完成”按鈕，在ODBCMicrosoftAcce

6、ss安裝對話框中在數據源名中輸入信息，在數據庫這個框中，單擊“選擇”按鈕，在彈出的選擇數據庫這一對話框架中，在驅動器下拉列表框中選擇本系統(tǒng)數據庫所在驅動器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“Access數據庫（*.mdb）”，在數據庫名中選擇本系統(tǒng)的數據庫，點擊“確定”按鈕即完成數據鏈接。在VB中，用ADODC鏈接數據庫，用DataGrid或DATA將庫中的數據在界面中顯示出來，本系統(tǒng)采用DataGrid。在界面上右擊Adodc控制，在彈出的快捷菜單中選擇屬性，在屬性對話框中，在“屬性”這一標簽中，選中單選框“UseODBCDataSourceName”，并在下拉文本框中選擇已經

7、配置好的數據源名信息，再在“RecordSoure”標簽中，在CommardText（SQL）文本框中輸入查詢語句，女口：select*from學生檔案。同時，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設為Adodc。我們可以設置DataGrid控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對話框中單擊“確定”，這時，表格中出現了表的字段。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調整。系統(tǒng)功能（查詢模塊）1查詢信息的情況；2判斷信息是否符合要求；3將符合條件的信息進行打印流程圖23數據庫設計231庫

8、設計本系統(tǒng)涉及到的信息主要有5類：學生信息、成績信息、教師信息、圖書信息、后備信息。由于成績信息和教師信息與學生信息關系密切，因此將這三類信息存放在同一數據庫中，以提高多種信息同時讀取的速度。按以上分析，將系統(tǒng)的數據庫設計為三個：一、學生數據庫：該數據庫為中包含有以下各表：1、學生表：記錄學生的基本信息，是進行學生及其它各類信息處理的基礎。2、成績表：記錄學生的期中、期末及總評的各科成績。3、總分表：記錄學生的期中、期末及總評的總分及名次。4、課程表：記錄各專業(yè)各年級開課情況，在添加學生記錄時，可根據該表的情況決定在成績表添加學生記錄的個數。三、后備數據庫：該數據庫主要保存兩類信息：學生信息、

9、成績信息。其數據表是按用戶的要求在運行過程中動態(tài)建立的。232表設計：1、學生表結構：表2.1編號字段名稱字段類型字段寬度2、課程表結構表2.23、成績表結構表2.34、總分表結構表2.41學號CHAR152姓名CHAR103性別CHAR24出生日期DATE85電話CHAR106家庭住址CHAR507班級CHAR208原畢業(yè)學校CHAR509是否住宿CHAR410政治面貌CHAR611入學總分LONG412專業(yè)char20編號字段名稱字段類型字段寬度1課程名稱CHAR152年級CHAR103專業(yè)char20編號字段名稱字段類型字段寬度1學號CHAR152課程名稱CHAR153期中成績LONG4

10、4期末成績LONG45總評成績LONG46班級char20編號字段名稱字段類型字段寬度1學號CHAR152期中總分LONG43期末總分LONG44期中名次LONG45期末名次LONG46班級char20第五章詳細設計根據系統(tǒng)的主要功能及上一章的總體設計，系統(tǒng)開發(fā)進入第二個階段：詳細設計。在這一階段的工作中，主要任務有以下幾項：1、根據原型化的開發(fā)原則，為系統(tǒng)的每個模塊功能進行界面設計，作為進一步優(yōu)化的基礎。2、進行系統(tǒng)的流程分析，為模塊的細化做好準備。3、對每個模塊進行詳細的算法設計。31系統(tǒng)界面設計一、登錄及系統(tǒng)主窗口界面設計該部分界面主要包括登錄窗口、系統(tǒng)主窗口、修改密碼窗口。1、登錄窗口

11、界面：ifn:打學生1W息管理系系統(tǒng)設置迫班級管理喲檔案管理切課程管理成績管理交費管理打印統(tǒng)計埋）幫助本系統(tǒng)中使用到的數據表主要有班級表、成績表、繳費表、課程表、學生檔案、用戶資料，由這六個表，組成了名為信息的數據庫（如圖一）。其中學生檔案是本系統(tǒng)主要的叵信息:數據庫-lolX|誦打開隧設計側雷新建（阻X-0壺1H國可可國園in圍國圖使坤說計齡創(chuàng)建表使坤向導創(chuàng)建表通過輔人數幄創(chuàng)建表謖糅表傭戶茨制李生檔完（圖一）一張表，所有信息都是根據這張學生檔案進行有關的操作，主要的字段有：學號、姓名、年級、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯系電話、入學時間、備注。其中日期的數

12、據類型為日期/時間天型，其它的數據類型為文本型；成績表中字段為：學號、姓名、年級、專業(yè)、學期、考試時間、考試科目、考試地點、課程性質科目分數、違紀類型、備注；課程表中字段為：專業(yè)、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質、考試性質；用戶資料中的字段包括：用戶名、密碼、身份。數據庫與VB的連接：本系統(tǒng)的數據鏈接采用的是ADO方法，打開控制面板，打開ODBC數據源圖標，選擇“系統(tǒng)DSN”標簽，點擊“添加”按鈕，在彈出的“創(chuàng)建新數據源”對話框中選擇名稱為“MicrosoftAccessDrive（*.mdb）”，點擊“完成”按鈕，在ODBCMicrosoftAccess安裝對話

13、框中在數據源名中輸入信息，在數據庫這個框中，單擊“選擇”按鈕，在彈出的選擇數據庫這一對話框架中，在驅動器下拉列表框中選擇本系統(tǒng)數據庫所在驅動器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“Access數據庫（*.mdb）”，在數據庫名中選擇本系統(tǒng)的數據庫，點擊“確定”按鈕即完成數據鏈接。在VB中，用ADODC鏈接數據庫，用DataGrid或DATA將庫中的數據在界面中顯示出來，本系統(tǒng)采用DataGrid。在界面上右擊Adodc控制，在彈出的快捷菜單中選擇屬性，在屬性對話框中，在“屬性”這一標簽中，選中單選框“UseODBCDataSourceName”，并在下拉文本框中選擇已經配置好的數據

14、源名信息，再在“RecordSoure”標簽中，在CommardText（SQL）文本框中輸入查詢語句，女口：select*from學生檔案。同時，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設為Adodc。我們可以設置DataGrid控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對話框中單擊“確定”，這時，表格中出現了表的字段。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調整。各功能的實現課程管理：課程設置（如：界面如圖二）圖二）運行程序后，進入課程管理模塊，課程管理模塊的第一塊是課程設置，在這模塊中可

15、以把專業(yè)、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質和考試性質等信息輸入，以便使用。下面為其代碼：PrivateSubCommand1_Click()DimmyConAsNewADODB.ConnectionDimmyRsAsNewADODB.RecordsetDimZhuanYe,NianJi,XueQi,KeCheng,JiaoCai,RenKLS,KeShi,ShangKeDD,KeChengXZ,KaoShiXZAsStringZhuanYe=Text1.TextNianJi=Text2.TextXueQi=DTPicker1.ValueKeCheng=Text4.

16、TextJiaoCai=Text5.TextRenKLS=Text6.TextKeShi=Text7.TextShangKeDD=Text8.TextKeChengXZ=Combo1.TextKaoShiXZ=Combo2.TextIfTrim(ZhuanYe)=OrTrim(NianJi)=OrTrim(XueQi)=OrTrim(KeCheng)=OrTrim(JiaoCai)=OrTrim(RenKLS)=OrTrim(KeShi)=OrTrim(ShangKeDD)=OrTrim(KeChengXZ)=OrTrim(KaoShiXZ)=ThenMsgBox請?zhí)顚懸薷恼n程資料的內容！C

17、ombo1.Text=Combo2.Text=ExitSubEndIfmyCon.Open小$口=信息myRs.Openselect*from課程表where專業(yè)=&Text1.Text&,myCon,3,2myRs!年級=Text2.TextmyRs!學期=DTPickerl.ValuemyRs!課程名稱=Text4.TextmyRs!教材=Text5.TextmyRs!任課老師=Text6.TextmyRs!課時=Text7.TextmyRs!上課地點=Text8.TextmyRs!課程性質=Combol.TextmyRs!考試性質=Combo2.TextmyRs.UpdatemyRs.C

18、losemyCon.CloseMsgBox您確定要修改嗎？,vbYesNo,提示Frm_UpdateGrean.Adodcl.RefreshFrm_UpdateGrean.DataGridl.RefreshText1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=Combo1.Text=Combo2.Text=EndSubPrivateSubCommand2_Click（）UnloadMeEndSubPrivateSubCommand3_Click（）UnloadMeFrm_F

19、indGrean.Show1EndSubPrivateSubDataGrid1_Click（）Frm_UpdateGrean.Adodc1.RecordSource=select*from課程表where專業(yè)=&Trim（DataGrid1.Row）&Textl.Text=Frm_UpdateGrean.Adodcl.Recordset.Fields（專業(yè)）Text2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（年級）Text3.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（學期）Text4.Text=F

20、rm_UpdateGrean.Adodc1.Recordset.Fields（課程名稱）Text5.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（教材）Text6.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（任課老師）Text7.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（課時）Text8.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（上課地點）Combo1.Text=Frm_UpdateGrean.Adodc1.R

21、ecordset.Fields（課程性質）Combo2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields（考試性質）EndSubPrivateSubDTPicker1_CallbackKeyDown（ByValKeyCodeAsInteger,ByValShiftAsInteger,ByValCallbackFieldAsString,CallbackDateAsDate）EndSubPrivateSubForm_Activate（）Frm_FindGrean.Adodc1.RecordSource=strTiaoJianFrm_FindGrean.Ad

22、odc1.RefreshSetDataGrid1.DataSource=Frm_FindGrean.Adodc1EndSubPrivateSubForm_Load（）Combo1.AddItem（必修）Combo1.AddItem（選修）Combo1.AddItem（自開）Combo2.AddItem（考試）Combo2.AddItem（查考）Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=Combo1.Text=Combo2.Text=EndSubPrivateSu

23、bText1_Change（）EndSubPrivateSubText2_Change（）EndSubPrivateSubText8_Change（）EndSub課程管理：課程查詢（如：界面如圖三）圖三）當輸入查詢類別、運算符和條件后可以查找到所需要的課程設置，或按查詢時間來查詢，輸入所要查找的時間段，就可查到所要的課程設置。代碼如下：DimsqlstrAsStringPrivateSubCombo1_Change()EndSubPrivateSubCombo2_Change()EndSubPrivateSubCombo4_Change()EndSubPrivateSubCombo5_Chan

24、ge()EndSubPrivateSubCombo7_Change()EndSubPrivateSubCommand1_Click()DimaAsStringDimKCCX1AsStringDimKCCX2AsStringDimstr1AsStringDimstr2AsStringIfOption3.Value=TrueThena=Trim(Combo2)SelectCaseaCase=KCCX1=&Combo1.Text&Combo2.Text&Trim(Text1)&CaselikeKCCX1=Instr(1,&Combo1.Text&,&Trim(Text1.Text)&)0EndSel

25、ecta=Trim(Combo4)SelectCaseaCase=KCCX2=&Combo3.Text&Combo4.Text&Trim(Text2)&CaselikeKCCX2=Instr(1,&Combo3.Text&,&Trim(Text2.Text)&)0EndSelectIfOption1.Value=TrueThenIfKCCX1=ThenstrTiaoJian=select*from課程表where&KCCX2ElseIfKCCX2=ThenstrTiaoJian=select*from課程表where&KCCX1ElsestrTiaoJian=select*from課程表whe

26、re&KCCX1&and&KCCX2EndIfElseIfOption2.Value=TrueThenIfKCCX1=ThenstrTiaoJian=select*from課程表where&KCCX2ElseIfKCCX2=ThenstrTiaoJian=select*from課程表where&KCCX1ElsestrTiaoJian=select*from課程表where&KCCX1&or&KCCX2EndIfElseIfKCCX1=ThenstrTiaoJian=select*from課程表where&KCCX2ElseIfKCCX2=ThenstrTiaoJian=select*from

27、課程表where&KCCX1ElseMsgBox請選擇連接方式！,vbOKOnly,警告ExitSubEndIfEndIfIf(KCCX1&KCCX2)=ThenMsgBox請輸入查詢類別！,vbOKOnly,警告ExitSubElseUnloadMeFrm_UpdateGrean.Show1EndIfEndIfIfOption4.Value=TrueThenIfVal(Combo6)Val(Combo9)ThenMsgBox請正確選擇年份！,vbOKOnly+vbExclamation,信息提示Combo6.SetFocusExitSubElseIfVal(Combo6)=Val(Combo

28、9)ThenIfVal(Combo7)Val(Combo10)ThenMsgBox請正確選擇月份！,vbOKOnly+vbExclamation,信息提示Combo7.SetFocusExitSubElseIfVal(Combo7)=Val(Combo10)ThenIfVal(Combo8)Val(Combo11)ThenMsgBox請正確選擇日期！,vbOKOnly+vbExclamation,信息提示Combo8.SetFocusExitSubEndIfEndIfEndIfEndIfEndIfIfCombo6.Text=OrCombo7.Text=OrCombo8.Text=OrCombo

29、9.Text=OrCombo10.Text=OrCombo11.Text=ThenMsgBox請輸入完整的日期,vbOKOnly,警告ExitSubEndIfstr1=Trim(Combo6)&-&Trim(Combo7)&-&Trim(Combo8)str2=Trim(Combo9)&-&Trim(Combo10)&-&Trim(Combo11)str1=Format(str1,yyyy-mm-dd)str2=Format(str2,yyyy-mm-dd)Ifsqlstr=Thensqlstr=&Trim(Combo5.Text)&=#&Format(str1,yyyy-mm-dd)&#an

30、d&Trim(Combo5.Text)&=#&Format(str1,yyyy-mm-dd)&#and&Trim(Combo5.Text)&=#&Format(str2,yyyy-mm-dd)&#EndIfIfsqlstr=ThenMsgBox請先輸入查找時間！ExitSubEndIfstrTiaoJian=select專業(yè),年級,學期,課程名稱,教材,任課老師,課時,上課地點,課程性質,考試性質from課程表where&sqlstrUnloadMeFrm_UpdateGrean.Show1EndIfIfOption3.ValueTrueAndOption4.ValueTrueThenMsgB

31、ox請選擇查詢方式！,vbOKOnly,警告ExitSubEndIfEndSubPrivateSubCommand3_Click（）UnloadMeEndSubPrivateSubForm_Load（）Dimi,jAsIntegerFori=1999To2010Combo6.AddItemiCombo9.AddItemiNextiCombo6.ListIndex=0Combo9.ListIndex=0Fori=1To12Combo7.AddItemiCombo10.AddItemiNextiCombo7.ListIndex=0Combo10.ListIndex=0Fori=1To31Combo

32、8.AddItemiCombo11.AddItemiNextiCombo8.ListIndex=0Combo11.ListIndex=0Combo1.AddItem（專業(yè)）Combo1.AddItem（年級）Combo1.AddItem（課程名稱）Combo1.AddItem（教材）Combo1.AddItem（任課老師）Combo1.AddItem（課時）Combo1.AddItem（課程性質）Combo1.AddItem（考試性質）Combo2.AddItem（=）Combo3.AddItem（專業(yè)）Combo3.AddItem（年級）Combo3.AddItem（課程名稱）Combo3.

33、AddItem（教材）Combo3.AddItem（任課老師）Combo3.AddItem（課時）Combo3.AddItem（課程性質）Combo3.AddItem（考試性質）Combo4.AddItem（=）Combo5.AddItem（學期）Combo1.Text=Combo2.Text=Text1.Text=Combo3.Text=Combo4.Text=Text2.Text=Combo5.Text=Combo6.Text=Combo7.Text=Combo8.Text=Combo9.Text=Combo10.Text=Combo11.Text=EndSub7.1.2打印統(tǒng)計運行打印統(tǒng)

34、計后可以按條件把符合條件的各種信息以報表形式羅列出來，各種信息還可以以打印出來或以報表形式保存。打印統(tǒng)計包括班級統(tǒng)計分析、檔案統(tǒng)計分析、課程統(tǒng)計分析、成績統(tǒng)計分析和交費統(tǒng)計分析五類。班級統(tǒng)計分析（如：界面如圖四）圖四）代碼如下：PrivateSubCommand1_Click（）DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringSQLoriginal=SELECT年級,專業(yè),人數,輔導員,備注FROM班級表SQLadd=WHERE年級=年級AND專業(yè)=專業(yè)SQLorder=IfCheck1.Va

35、lue=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+and年級=+Text1+EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+and專業(yè)=+Text2+EndIfIfCheck3.Value=1AndIsNumeric(Text3)ThenSQLadd=SQLadd+and人數=+Text3+EndIfIfCheck4.Value=1AndNotIsNull(Text4)ThenSQLadd=SQLadd+and輔導員=+Text4+EndIfstrSql=SQLoriginal+SQLadd+

36、SQLordeIfDat_Main.rsDat_Class.State=1ThenDat_Main.rsDat_Class.CloseEndIfDat_Main.rsDat_Class.OpenstrSqlDat_Class.ShowvbModalText1.Text=Text2.Text=Text3.Text=Text4.Text=EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=Text2.Text=Text3.Text=Text4.Text=EndSubPrivateSubText1

37、_Change()EndSubPrivateSubText3_Change()EndSub檔案分析統(tǒng)計（如：界面如圖五）圖五）代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringOnErrorResumeNextSQLoriginal=SELECT*FROM學生檔案SQLadd=WHERE學號=學號AND姓名=姓名SQLorder=IfCheck1.Value=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+

38、and學號=+Text1+EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+and姓名=+Text2+EndIfIfCheck3.Value=1AndNotIsNull(Text3)ThenSQLadd=SQLadd+and專業(yè)=+Text3+EndIfIfCheck4.Value=1AndIsDate(DTPicker1)ThenSQLadd=SQLadd+and出生年月=#&DTPicker1.Value&#EndIfstrSql=SQLoriginal+SQLadd+SQLordeIfDat_Main.rsDat_Stru

39、dent.State=1ThenDat_Main.rsDat_Strudent.CloseEndIfDat_Main.rsDat_Strudent.OpenstrSqlDat_Strudent.ShowvbModalText1.Text=Text2.Text=Text3.Text=EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem(男)Combo1.AddItem(女)Text1.Text=Text2.Text=Text3.Text=EndSubPrivateSubText1_Cha

40、nge()EndSub課程統(tǒng)計分析（如：界面如圖六）圖六）代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringSQLoriginal=SELECT*FROM課程表SQLadd=WHERE專業(yè)=專業(yè)AND課程名稱=課程名稱SQLorder=IfCheck1.Value=1AndNotIsNull(Text1)ThenSQLadd=SQLadd+and專業(yè)=+Text1+EndIfIfCheck2.Value=1AndNotIsNull(C

41、ombo1)ThenSQLadd=SQLadd+and課程性質=+Combo1+EndIfIfCheck3.Value=1AndNotIsNumeric(Text2)ThenSQLadd=SQLadd+and課時=+Text2+EndIfIfCheck4.Value=1AndNotIsNull(Text3)ThenSQLadd=SQLadd+and課程名稱=+Text3+EndIfstrSql=SQLoriginal+SQLadd+SQLordeIfDat_Main.rsDat_Grean.State=1ThenDat_Main.rsDat_Grean.CloseEndIfDat_Main.r

42、sDat_Grean.OpenstrSqlDat_Grean.ShowvbModalText1.Text=Combo1.Text=Text2.Text=Text3.Text=EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=Text2.Text=Text3.Text=Combo1.Text=Combo1.AddItem(必修)Combo1.AddItem(選修)Combo1.AddItem(自開)EndSubPrivateSubText3_Change()EndSub成績統(tǒng)計分析（如：界面

43、如圖七）代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringOnErrorResumeNextSQLoriginal=SELECT*FROM成績表SQLadd=WHERE學號=學號AND姓名=姓名SQLorder=IfCheck1.Value=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+and學號=+Text1+EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+and姓名=+Text2+EndIfIfCheck3.Value=1AndNotIsNull(Text3)ThenSQLadd=SQLadd+and考試科目=+Text3+EndIfIfCheck4.Value=1ThenSQLadd=SQLadd+and科目分數60EndIfstrSql=SQLoriginal+SQLadd+S