1、第七章 系統具體實現學生信息管理系統全套(VB+ACCESS) 作者：Admin     來源：博景源     點擊數： 2464     更新時間：2008-1-11    學生信息管理系統是典型的信息管理系統 (MIS)，其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點。經過分析，我們使用MICROSOFT公司

2、的VISUAL BASIC開發工具，利用其提供的各種面向對象的開發工具，尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象，首先在短時間內建立系統應用原型，然后，對初始原型系統進行需求迭代，不斷修正和改進，直到形成用戶滿意的可行系統。 關鍵字：控件、窗體、域、數據庫。 前  言隨著學校的規模不斷擴大，學生數量急劇增加，有關學生的各種信息量也成倍增長。面對龐大的信息量需要有學生管理系統來提高學生管理工作的效率。通過這樣的系統可以做到信息的規范管理、科學統計和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。本系統主要用于學校學生信息管理，總體任務是實現學生信

3、息關系的系統化、規范化和自動化，其主要任務是用計算機對學生各種信息進行日常管理，如查詢、修改 、增加、刪除，另外還考慮到學生選課，針對這些要求設計了學生信息管理系統本系統主要用于學校學生信息管理，總體任務是實現學生信息關系的系統化、規范化和自動化，其主要任務是用計算機對學生各種信息進行日常管理，如查詢、修改 、增加、刪除，另外還考慮到學生選課，針對這些要求設計了學生信息管理系統。本系統主要包括學生信息查詢、教務信息維護和學生選課三部分。其功能主要有：有關學籍等信息的輸入，包括輸入學生基本信息、所在班級、所學課程和成績等。學生信息的查詢，包括查詢學生基本信息、所在班級、已學課程和成績等。學生信息

4、的修改。班級管理信息的輸入，包括輸入班級設置、年級信息等。班級管理信息的查詢。班級管理信息的修改。學生課程的設置和修改。 目     錄 前言 第一章    Visual Basic 概述                         1.1  

5、Visual Basic 語言的特點1.2   Visual Basic 系統幾個程序應用中的常用名詞第二章    Windows 下的Visual Basic 編程環境簡介2.1 面對對象的編程2.2 實現菜單選項2.3 實現工具欄第三章    怎樣開發一個學生信息管理系統的查詢模塊3.1 學生信息系統的設計分析3.2 編程環境的選擇3.3 關系型數據庫的實現3.4 二者的結合(DBA)第四章    使用Access2000 創建數據庫4.1 數據庫的概念4.2 新建一個數據庫4.3

6、 修改已建的數據庫第五章    可行性分析第六章    系統總體規劃6.1 系統功能6.2 系統流程圖第七章    系統具體實現7.1 各功能的實現7.1.1 課程管理7.1.2 打印統計結束語后記主要參考文獻第一章     Visual Basic 概述1.1 Visual Basic 語言的特點 Visual Basic 語言用其設計應用程序時具有兩個基本特點：可視化設計和事件驅動編程。（1）      

7、; 可視化設計：表現在VB在設計應用于程序界面時有“所見即所得”的處理功能。（2）       事件驅動編程：在設計應用程序時，把對象添加到窗體中，在用戶及程序進行交互時，用戶基本上是通過鼠標、鍵盤及應用程序進行交互的，那些對象就必須對鼠標和鍵盤操作所引發的事件做出響應，來執行一段應用程序。1.2 Visual Basic 系統幾個在程序應用中的常用名詞     Visual Basic 系統除了一般高級語言所具有的一些名詞術語外，還有幾個系統常用的名詞。其基本含義如下：(1) 

8、60;  視窗（Form）視窗是進行人機交互的界面或接口，也叫窗體。VB系統的人機交互界面或接口，無論是在設計時或是在運行時，都是Windows 系統的標準視窗。(2)    對象 (Object)對象是VB系統內部提供給設計者可以直接使用的處理輸出的控制工具。本程序所應用到的對象類型有標簽框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，網格 (Data Grid)，ADO控件 (Adodc1)等。當把這些工具放置到用戶界面對應的窗體上時，被稱為對象或控件。用戶可以通過設置對象的“屬性”和“方法”，便

9、于對象適應自己所設計應用程序的輸入輸出內容，對象的生成過程及結構都被封裝起來。正確使用對象可以減少程序和開發時間，提高程序設計者的工作效率。(3)    屬性 (Properties)屬性是VB系統提供的有關對象的參數或數據接口。用戶通過適當地設置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統提供的對象。比如，對象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數據內容及數據的表現格式等。(4)    事件 (Events)事件是指用戶或操作者對計算機進行的某一操作（如擊鍵、單擊或移動鼠標等）的行為或系統狀態發生的

10、變化。VB系統常用事件來引導計算機執行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標事件有Click（單擊鼠標）事件，DbDlicd（雙擊鼠標）。(5)    方法 (Method)方法主要是指對一個對象使用某種作用的過程。它是在程序執行的過程中要計算機執行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。(6)    過程 (Procedure)過程是指經過定義或說明的，或基于某一對象對應的事件所引發的程序段。(7) &#

11、160;  模塊 (Module)模塊是指一些運算量或過程進行聲明或定義的一個集合。系統程序大體可分成四個模塊：數據輸入、根據查詢、數據打印和通訊。   第二章 Windows下的Visual Basic 編程環境簡介2.1 面對對象的編程面向對象的設計方法 (OOP, Objected Programming) 從應用領域內的問題著手，以直觀自然的方式描述客觀世界的實體。Visual Basic 作為一種面向對象的編程方法，把程序和數據封裝起來作為一個對象，并為每個對象賦予相應的屬性。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，由

12、Visual Basic 自動生成對象的程序代碼并封裝起來。Visual Basic 應用程序基本的構建塊是用戶所創建的對象，每一個對象都具有一些特性和行為（屬性、事件和方法）。開發人員可以最有效利用所創建的每一個對象。使用應用程序具有可通用性可說擴展性和強有力的功能。Visual Basic 應用由一系列對象組成，包括有函數、菜單、函數、結構和數據窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應用中重復使用。2.2 實現菜單選項菜單是程序最重要的特性之一，大多數程序都依賴一個定義良好的菜單使程序易于使用和維護，Visual Basic 也提

13、供了強大的創建菜單功能是程序更加標準。本系統使用 Visual Basic 的菜單編輯器建立菜單或者修改已經存在的菜單，您也可以使用Visual Basic 的Application Wizard 來操作。2.3 實現工具欄CoolBar控件及Office2000 中看到的CoolBar是類似的。CoolBar就是一個可以在窗體上浮動的工具，同時也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“Microsoft Windows Common Contro

14、ls 6.0”后工具相中增加改控件。本系統就用了Cool工具中的Statubar控件，在系統這一界面中，添加了狀態欄，在第一個欄中，在樣式這一欄中選擇了文本，在第二個欄中，選擇了系統日期，第三個欄中選擇了系統時間，這樣，任何時候操作本系統，都可以看到當前的時間和日期。 第三章 怎樣開發一個學生信息管理系統的查詢模塊？3.1查詢模塊的設計分析根據實際情況，我們使用原型法(Rapid Prototyping) 即以少量代價快速地構造一個可執行的軟件模型。使用戶可以較快地確定需求，然后采用循環進化的開發方式，對系統模型作連續的精化，將系統需具備的性質逐漸增加上去，直到所有的性質全部滿足。此

15、時模塊也發展成為最終產品了。3.2編程環境的選擇微軟公司的Visual Basic 6.0是Windows應用程序開發工具，使目前最為廣泛的、易學易用的面向對象的開發工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應 用程序的運行效率和可*性。故而，實現本系統VB是一個相對較好的選擇。3.3關系型數據庫的實現Access2000就是關系數據庫開發工具，數據庫能匯集各種信息以供查詢、存儲和檢索。Access的優點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于Exc

16、el的電子表格，可以使數據庫一目了然。另外，Access允許創建自定義報表用于打印或輸出數據庫中的信息。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，及其他用戶共享數據庫。Access 是一種關系數據庫工具，關系數據庫是已開發的最通用的數據庫之一。如上所述，Access作為關系數據庫開發具備了許多優點，可以在一個數據包同時擁有桌面數據庫的便利和關系數據庫的強大功能。3.4二者的結合(DBA)微軟的JET數據庫引擎提供了及數據庫打交道的途徑，我們是通過它以及Visual Basic來訪問數據庫并對其進行各種操作。Visual Basic、Access以及其

17、他微軟的軟件產品都是通過共用JET數據庫引擎，從而給用戶提供了豐富的數據類型。ADODC控件在數據庫中的信息及將信息顯示給用戶看的Visual Basic 程序之間架起了一座橋梁。我們可以設置ADODC控件的各個屬性，告訴它要調用那個數據庫的哪個部分。缺省情況下，ADODC控件根據數據庫中的一個或多個數據庫表建立一個dynaset-type（動態集合）類型的記錄集合。一個記錄集合是動態的也就意味著，當原來的數據表中的容改變了以后，該記錄集合中的記錄也會隨之改變。將ADODC控件放置在窗體中之后，我們還必須在該控件及要處理的數據庫之間建立聯系。 第四章 使用Access2000創建數據

18、庫4.1數據庫的概念數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息的集合。計算機的數據庫可以分為兩類：非關系數據庫(flat-file)和關系數據庫（relational）。關系數據庫中包含了多個數據表的信息，數據庫含有各個不同部分的術語，象記錄、域等。4.2新建一個數據庫創建任何一個數據庫的第一步是仔細的規劃數據庫，設計必須是靈活的、有邏輯的。創建一個數據庫結構的過程被認為是數據模型設計。1  標識需要的數據；2  收集被子標識的字段到表中；3  標識主關鍵字字段；4  規范數據；5  標

19、識指定字段的信息； 4.3修改已建的數據庫   數據庫的修改分為；添加、編輯和刪除記錄。這三種操作均可由Visual Basic創建的程序來完成，下面的章節將詳細描述實現的具體方法第五章 可行性分析學生信息，作為一個學校，就有一定的工作量存在，而學生信息，它的工作量可能是其它信息工作量的幾倍，班級的增加、班級的查找、班級的修改；學生檔案；課程管理；成績管理；繳費管理；統計等等，每個信息的數據都在不斷地變化著，如果采用人工的方式進行操作，那么，一天的工作量，足以讓人覺得比較繁瑣，吃不消。針對這樣的情況，采用讓數據的查詢變得簡單化，數據變的更讓每個人都在任何時刻都可以

20、了解到。學生信息管理系統是為本校開發的，本系統所采用的語言是Visual Basic，用Microsoft Access 2000數據庫完成。該系統總體有四部分組成，包括學生信息查詢、教務信息維護、學生選課及用戶管理。通過本系統，把本校內部查詢學生信息、教務信息、學生選課各個環節進行有效地計劃、組織和控制。通過本校內部的信息，依據統一數據信息進行管理，把任何一塊信息所產生的數據變動及時地反映給其它相關信息，做到數據共享。本系統主要信息流程為：教務信息維護接受學生的信息，學生信息查詢根據教務信息維護的學生信息做出對所接收的信息合理性進行判斷，并交于信息維護進行相應的修改，再把信息存入數據庫中。學

21、生選課是對學生進行相應選擇自己相關的課程。最后進行打印。采用本系統，能夠使整個系統內部所有信息的工作簡化，提高工作效益。由于采用統一的數據信息，使相關資料能夠快速地查詢所需的數據、資料及其它信息的，使信息快速高效運行。 本系統中使用到的數據表主要有班級表、成績表、繳費表、課程表、學生檔案、用戶資料，由這六個表，組成了名為信息的數據庫（如圖一）。其中學生檔案是本系統主要的（圖一）一張表，所有信息都是根據這張學生檔案進行有關的操作，主要的字段有：學號、姓名、年級、專業、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯系電話、入學時間、備注。其中日期的數據類型為日期/時間天型，

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

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

24、配置好的數據源名信息，再在“RecordSoure”標簽中，在Commard Text（SQL）文本框中輸入查詢語句，如：select * from 學生檔案。同時，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設為Adodc。我們可以設置DataGrid控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對話框中單擊“確定”，這時，表格中出現了表的字段。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調整。第六章 系統（查詢模塊）總體規劃6.1系統功能（查詢模塊）1  查詢信息的情況；2  判斷

25、信息是否符合要求；3  將符合條件的信息進行打印；6.2流程圖 1 2 3 4 5  下一頁學生注冊基本信息輸入學籍信息管理班級管理班級課程設置課程基本信息班級課程管理成績信息輸入成績信息管理班級設置7.1各功能的實現7.1.1課程管理：課程設置（如：界面如圖二）（圖二）運行程序后，進入課程管理模塊，課程管理模塊的第一塊是課程設置，在這模塊中可以把專業、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質和考試性質等信息輸入，以便使用。下面為其代碼：Private Sub Command1_Click()

26、Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetDim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As StringZhuanYe = Text1.TextNianJi = Text2.TextXueQi = DTPicker1.ValueKeCheng = Text4.TextJiaoCai = Text5.TextRenKLS = Text6.TextKeShi = Text7.

27、TextShangKeDD = Text8.TextKeChengXZ = Combo1.TextKaoShiXZ = Combo2.TextIf Trim(ZhuanYe) = "" Or Trim(NianJi) = "" Or Trim(XueQi) = "" Or Trim(KeCheng) = "" Or Trim(JiaoCai) = "" Or Trim(RenKLS) = "" Or Trim(KeShi) = "" Or Trim(Sha

28、ngKeDD) = "" Or Trim(KeChengXZ) = "" Or Trim(KaoShiXZ) = "" Then    MsgBox "請填寫要修改課程資料的內容！"    Combo1.Text = ""    Combo2.Text = ""    Exit SubEnd IfmyCon.Open "dsn=信息"my

29、Rs.Open "select * from 課程表 where 專業='" & Text1.Text & "'", myCon, 3, 2    myRs!年級 = Text2.Text    myRs!學期 = DTPicker1.Value    myRs!課程名稱 = Text4.Text    myRs!教材 = Text5.Text    myRs!任課老師 =

30、Text6.Text    myRs!課時 = Text7.Text    myRs!上課地點 = Text8.Text    myRs!課程性質 = Combo1.Text    myRs!考試性質 = Combo2.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox "您確定要修改嗎？", vbYesNo, "提示"Frm_UpdateGrean.Adodc1.RefreshFrm_UpdateGr

31、ean.DataGrid1.RefreshText1.Text = ""Text2.Text = ""'Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Combo1.Text = ""Combo2.Text = ""End SubPrivate Sub Com

32、mand2_Click()    Unload MeEnd SubPrivate Sub Command3_Click()    Unload Me    Frm_FindGrean.Show 1End SubPrivate Sub DataGrid1_Click()'Frm_UpdateGrean.Adodc1.RecordSource = "select * from 課程表 where 專業 = '" & Trim(DataGrid1.Row) &

33、 "'"'Text1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("專業")'Text2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("年級")'Text3.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("學期")'Text4.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("

34、;課程名稱")'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("上課地

35、點")'Combo1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課程性質")'Combo2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("考試性質")End SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate A

36、s Date)End SubPrivate Sub Form_Activate()Frm_FindGrean.Adodc1.RecordSource = strTiaoJianFrm_FindGrean.Adodc1.RefreshSet DataGrid1.DataSource = Frm_FindGrean.Adodc1End SubPrivate Sub Form_Load()Combo1.AddItem ("必修")Combo1.AddItem ("選修")Combo1.AddItem ("自開")Combo2.AddItem

37、 ("考試")Combo2.AddItem ("查考")Text1.Text = ""Text2.Text = ""'Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Combo1.Text = ""Combo2.Text = "&

38、quot;End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End SubPrivate Sub Text8_Change()End Sub課程管理：課程查詢（如：界面如圖三）（圖三）當輸入查詢類別、運算符和條件后可以查找到所需要的課程設置，或按查詢時間來查詢，輸入所要查找的時間段，就可查到所要的課程設置。代碼如下：Dim sqlstr As StringPrivate Sub Combo1_Change()End SubPrivate Sub Combo2_Change()End SubPrivate Sub

39、Combo4_Change()End SubPrivate Sub Combo5_Change()End SubPrivate Sub Combo7_Change()End SubPrivate Sub Command1_Click()Dim a As StringDim KCCX1 As StringDim KCCX2 As StringDim str1 As StringDim str2 As StringIf Option3.Value = True Thena = Trim(Combo2)Select Case a    Case "="

40、;        KCCX1 = "" & Combo1.Text & " " & Combo2.Text & " '" & Trim(Text1) & "'"    Case "like"        KCCX1 = "Instr(1," &

41、amp; Combo1.Text & ",'" & Trim(Text1.Text) & "')<>0 "End Selecta = Trim(Combo4)Select Case a    Case "="        KCCX2 = "" & Combo3.Text & " " & Combo4.Text &

42、 " '" & Trim(Text2) & "'"    Case "like"        KCCX2 = "Instr(1," & Combo3.Text & ",'" & Trim(Text2.Text) & "')<>0 "End SelectIf Option1.Value

43、= True Then    If KCCX1 = "" Then            strTiaoJian = "select * from 課程表 where " & KCCX2    ElseIf KCCX2 = "" Then上一頁  1 2 3 4 5  下一頁bsp

44、;      strTiaoJian = "select * from 課程表 where " & KCCX1         Else            strTiaoJian = "select * from 課程表 where " & KCCX1 & "and " &

45、 KCCX2    End IfElseIf Option2.Value = True Then    If KCCX1 = "" Then            strTiaoJian = "select * from 課程表 where " & KCCX2    ElseIf KCCX2 = "" Then 

46、0;          strTiaoJian = "select * from 課程表 where " & KCCX1        Else            strTiaoJian = "select * from 課程表 where " & KCCX1 &

47、; "or " & KCCX2    End IfElse    If KCCX1 = "" Then        strTiaoJian = "select * from 課程表 where " & KCCX2    ElseIf KCCX2 = "" Then      

48、60; strTiaoJian = "select * from 課程表 where " & KCCX1    Else        MsgBox "請選擇連接方式！", vbOKOnly, "警告"    Exit Sub    End IfEnd IfIf (KCCX1 & KCCX2) = "" Then  

49、60; MsgBox "請輸入查詢類別！", vbOKOnly, "警告"Exit SubElse    Unload Me    Frm_UpdateGrean.Show 1End IfEnd IfIf Option4.Value = True Then    If Val(Combo6) > Val(Combo9) Then        MsgBox "請正確選擇年份！&qu

50、ot;, vbOKOnly + vbExclamation, "信息提示"        Combo6.SetFocus        Exit Sub    Else    If Val(Combo6) = Val(Combo9) Then        If Val(Combo7) > Val(Co

51、mbo10) Then            MsgBox "請正確選擇月份！", vbOKOnly + vbExclamation, "信息提示"            Combo7.SetFocus            Ex

52、it Sub        Else            If Val(Combo7) = Val(Combo10) Then                If Val(Combo8) > Val(Combo11) Then   

53、                 MsgBox "請正確選擇日期！", vbOKOnly + vbExclamation, "信息提示"                    Combo8.SetFocus&#

54、160;                   Exit Sub                End If            End If 

55、60;      End If    End If    End If    If Combo6.Text = "" Or Combo7.Text = "" Or Combo8.Text = "" Or Combo9.Text = "" Or Combo10.Text = "" Or Combo11.Text = "" Then 

56、;       MsgBox "請輸入完整的日期", vbOKOnly, "警告"        Exit Sub    End If    str1 = Trim(Combo6) & "-" & Trim(Combo7) & "-" & Trim(Combo8)   

57、; str2 = Trim(Combo9) & "-" & Trim(Combo10) & "-" & Trim(Combo11)    str1 = Format(str1, "yyyy-mm-dd")    str2 = Format(str2, "yyyy-mm-dd")    If sqlstr = "" Then    

58、60;   sqlstr = "" & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "#"    Else 

59、0;      sqlstr = sqlstr & " and " & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and  " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "

60、;#"    End If    If sqlstr = "" Then        MsgBox "請先輸入查找時間！"        Exit Sub    End If    strTiaoJian = "select 專業,年級,學期,課程名稱,教材,任課老師,課時,上

61、課地點,課程性質,考試性質 from 課程表 where " & sqlstr    Unload Me    Frm_UpdateGrean.Show 1End IfIf Option3.Value <> True And Option4.Value <> True Then    MsgBox "請選擇查詢方式！", vbOKOnly, "警告"    Exit SubEnd IfEnd S

62、ubPrivate Sub Command3_Click()    Unload MeEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 2019 To 2019    Combo6.AddItem i    Combo9.AddItem iNext i    Combo6.ListIndex = 0    Combo9.ListIndex = 0For i = 1 To 12

63、0;   Combo7.AddItem i    Combo10.AddItem iNext i    Combo7.ListIndex = 0    Combo10.ListIndex = 0For i = 1 To 31    Combo8.AddItem i    Combo11.AddItem iNext i    Combo8.ListIndex = 0   

64、; Combo11.ListIndex = 0Combo1.AddItem ("專業")Combo1.AddItem ("年級")Combo1.AddItem ("課程名稱")Combo1.AddItem ("教材")Combo1.AddItem ("任課老師")'Combo1.AddItem ("課時")Combo1.AddItem ("課程性質")Combo1.AddItem ("考試性質")Combo2.AddItem (

65、"=")Combo3.AddItem ("專業")Combo3.AddItem ("年級")Combo3.AddItem ("課程名稱")Combo3.AddItem ("教材")Combo3.AddItem ("任課老師")'Combo3.AddItem ("課時")Combo3.AddItem ("課程性質")Combo3.AddItem ("考試性質")Combo4.AddItem ("=&q

66、uot;)Combo5.AddItem ("學期")Combo1.Text = ""Combo2.Text = ""Text1.Text = ""Combo3.Text = ""Combo4.Text = ""Text2.Text = ""Combo5.Text = ""Combo6.Text = ""Combo7.Text = ""Combo8.Text = ""Combo9

67、.Text = ""Combo10.Text = ""Combo11.Text = ""End Sub7.1.2 打印統計運行打印統計后可以按條件把符合條件的各種信息以報表形式羅列出來，各種信息還可以以打印出來或以報表形式保存。打印統計包括班級統計分析、檔案統計分析、課程統計分析、成績統計分析和交費統計分析五類。班級統計分析（如：界面如圖四）（圖四）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As

68、StringDim strSql As StringSQLoriginal = "SELECT 年級,專業,人數,輔導員,備注 FROM 班級表 "SQLadd = "WHERE 年級=年級 AND 專業=專業 "SQLorder = ""If Check1.Value = 1 And IsNumeric(Text1) Then    SQLadd = SQLadd + "and 年級='" + Text1 + "'"End IfIf Check2.

69、Value = 1 And Not IsNull(Text2) Then    SQLadd = SQLadd + "and 專業='" + Text2 + "'"End IfIf Check3.Value = 1 And IsNumeric(Text3) Then    SQLadd = SQLadd + "and 人數='" + Text3 + "'"End IfIf Check4.Value = 1 And Not I

70、sNull(Text4) Then    SQLadd = SQLadd + "and 輔導員='" + Text4 + "'"End IfstrSql = SQLoriginal + SQLadd + SQLordeIf Dat_Main.rsDat_Class.State = 1 Then    Dat_Main.rsDat_Class.CloseEnd If    Dat_Main.rsDat_Class.Open strSql &#

71、160;  Dat_Class.Show vbModalText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command2_Click()  &n 上一頁  1 2 3 4 5  下一頁sp; Unload Me End SubPrivate Sub Form_Load()Text1.Text

72、 = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Text1_Change()End SubPrivate Sub Text3_Change()End Sub檔案分析統計（如：界面如圖五）（圖五）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As Stri

73、ngOn Error Resume NextSQLoriginal = "SELECT * FROM 學生檔案 "SQLadd = "WHERE 學號=學號 AND 姓名=姓名 "SQLorder = ""If Check1.Value = 1 And IsNumeric(Text1) Then    SQLadd = SQLadd + "and 學號='" + Text1 + "'"End IfIf Check2.Value = 1 And Not

74、 IsNull(Text2) Then    SQLadd = SQLadd + "and 姓名='" + Text2 + "'"End IfIf Check3.Value = 1 And Not IsNull(Text3) Then    SQLadd = SQLadd + "and 專業='" + Text3 + "'"End IfIf Check4.Value = 1 And IsDate(DTPicker1) The

75、n    SQLadd = SQLadd + " and 出生年月= # " & DTPicker1.Value & "#"End IfstrSql = SQLoriginal + SQLadd + SQLordeIf Dat_Main.rsDat_Strudent.State = 1 Then    Dat_Main.rsDat_Strudent.CloseEnd IfDat_Main.rsDat_Strudent.Open strSqlDat_Strudent.Show vb

76、ModalText1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command2_Click()    Unload MeEnd SubPrivate Sub Form_Load()'Combo1.AddItem ("男")'Combo1.AddItem ("女")Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Text1_Change()End Sub課程統計分析（如：界面如圖六）（圖六）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As StringSQLoriginal = "SELECT * FROM 課程表 "SQLadd = "WHERE 專業=專業 AND 課程名稱=課程名