【正文】 源代碼 : 進(jìn)入界面 Option Explicit Dim strRun As String Dim iTp As Integer Private Sub Command1_Click() = 11 = True strRun = LTrim$(RTrim$()) Select Case strRun Case (0): Case (1): Case (2): Case (3): Case (4): Case (5): Case Else: MsgBox 請(qǐng)選擇一正確的操作 項(xiàng) , vbInformation + vbOKOnly, 操作 End Select End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() 教職員入庫信息 排課管理 教職員帶課查詢 本學(xué)期課程設(shè)置 打印課程表 打印教師代課表 End Sub Private Sub Form_Unload(Cancel As Integer) iTp = MsgBox(你確定要退出本系統(tǒng) , vbYesNo + vbQuestion, 退出 ) If iTp = vbNo Then Cancel = 1 End If If Cancel = 0 Then End End If End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Timer1_Timer() = False = 0 End Sub 進(jìn)啟動(dòng)界面 Option Explicit Private Sub Form_Load() = 11 Dim X, Y As Integer = LoadPicture( + \) = = X = ( ) / 2 Y = ( ) / 2 = X = Y = True 39。其功能基本符合用戶需求，能夠完成教師課程的存儲(chǔ)和排課的查詢以及各類相關(guān)報(bào)表的打印。pwd= ‘創(chuàng)建的系統(tǒng)數(shù)據(jù)源 MYDSN 指向 PUBS 數(shù)據(jù)庫 strCnn ‘打開連接 在窗體的 UNLOAD 中的加入代碼如下： ‘關(guān)閉連接 Set n1 = Nothing ‘釋放連接 在按鈕中的代碼如下： Dim I As integer Dim j as integer Set parm_jobid = New Set mymand = New 39。 我們以 ADO 為例來說明其實(shí)現(xiàn)的步驟 1． 創(chuàng)建、調(diào)試存儲(chǔ)過程。 如果用戶修改某一紀(jì)錄中的某一項(xiàng)，可單添加按鈕進(jìn)行教師記錄的編輯 ，此窗口使用數(shù)據(jù)窗口的 FREEDOM 風(fēng)格（典型的錄入界面）。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。創(chuàng)建一個(gè)數(shù)據(jù) 庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。 5． HotImangeList 屬性設(shè)置一個(gè) ImageList 控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。通過在CoolBar 中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。 第三章 Windows 下的 VisualVisual Basic 應(yīng)用程序 基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。 二者的結(jié)合（ DBA）微軟的 JET 數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。故而，實(shí)現(xiàn)本系統(tǒng) VB是一個(gè)相對(duì)較好的選擇。改革的總設(shè)計(jì)師鄧小平同志說過 科學(xué)技術(shù)是第一生產(chǎn)力 ，我希望能用我四年的所學(xué)編制出一個(gè)實(shí)用的程序來幫助中小學(xué)進(jìn)行更有效的課程管理。隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí) ,它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。 題 目 排課管理系統(tǒng) 姓 名 學(xué) 號(hào) 專 業(yè) 指導(dǎo)教師 學(xué) 院 日 期 畢 業(yè) 設(shè) 計(jì)（論文） 排課管理系統(tǒng) 摘要 排課管理系統(tǒng)是典型的信息管理系統(tǒng) ,其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。作為計(jì)算機(jī)應(yīng)用的一部分 ,使用計(jì)算機(jī)對(duì)排課信息進(jìn)行管理 ,具有著手工管理所無法比擬的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。 歸納起來，好處大約有以下幾點(diǎn)： 1． 可以存儲(chǔ)歷屆的排課，安全、高效；2． 只需一到二名排課錄入員 即可操作系統(tǒng)，節(jié)省大量人力； 3． 可以迅速查到所需信息。 關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn) Access2021 就是關(guān)系 數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。 Visual Basic、 Access 以及其他微軟的軟件產(chǎn)品都是通過共用 JET 數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。開發(fā)人員可以最有效利 用所創(chuàng)建的每一個(gè)對(duì)象。 Toolbar 是工具條控件，是實(shí)現(xiàn)工具條的主體。 6． DisabledImageList 屬性定義工具條按鈕無效時(shí)顯示的圖像。 Visual Basic 允許你使用 APP對(duì)象來保存這些信息， APP 對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。 1． 標(biāo)識(shí)需要的數(shù)據(jù)； 2． 收集被標(biāo)識(shí)的字段到表中； 3． 標(biāo)識(shí)主關(guān)鍵字字段； 4． 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識(shí)指定字段的信息； 7． 創(chuàng)建物理表。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。該種風(fēng)格特點(diǎn)是列標(biāo)題緊挨著數(shù)據(jù)列在此窗口還可以增加新教師紀(jì)錄。通過使用由 Visual Basic 提供的專用的直接與數(shù)據(jù)庫相連的接口 . 第七章 VB中調(diào)用帶參數(shù)存儲(chǔ)過程的實(shí)現(xiàn) VB 做為快速應(yīng)用開發(fā)（ RAD）工具越來越得到開發(fā)人員的認(rèn)可和接受。你可以在數(shù)據(jù)庫中也可以在其他外掛程序的支持下進(jìn)行存儲(chǔ)過程的創(chuàng)建和調(diào)試工作。 = name1 this line can be ommited = adInteger ‘參數(shù)類型 = 3 ‘參數(shù)長(zhǎng)度 = adParamInput ‘參數(shù)方向，輸入或輸出 = 100 ‘參數(shù)的值 parm_jobid ‘加入?yún)?shù) Set parm_joblvl = New ‘ = name2 = adInteger = 3 = adParamInput = 100 parm_joblvl = n1 ‘指定該 mand 的當(dāng)前活動(dòng)連接 = myprocedure ‘ myprocedure 是你要調(diào)用的存儲(chǔ)過程名稱 = adCmdStoredProc ‘表明 mand 為存儲(chǔ)過程 Set rstByQuery = New Set rstByQuery = () I = 0 Do While Not I = I + 1 ‘ I 中保存記錄個(gè)數(shù) Loop = I + 1 ‘動(dòng)態(tài)設(shè)置 MSFlexGrid 的行和列 = + 1 = 0 For I = 0 To 1 = I + 1 = (I).Name Next ‘設(shè)置第一行的標(biāo)題，用域名填充 I = 0 Set rstByQuery = () Do While Not I = I + 1 = I ‘確定行 For j = 0 To 1 = j + 1 = rstByQuery (j) ‘添充所有的列 Next Loop ‘這個(gè)循環(huán)用來填充 MSFlexGrid 的內(nèi)容 特殊說明 1． Set recordset = ( RecordsAffected, Parameters, Options ) RecordsAffected, Parameters, Options 這是mand 的兩種用法，一種有返回結(jié)果集，一種沒有返回結(jié)果集。并提供部分系統(tǒng)維護(hù)功能 ,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。 39。 amp。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。因此，開發(fā)這樣一套管理軟件成為很有必要的事情 ,在下面的各章中我們將以開發(fā)一套排課管理系統(tǒng)為例 ,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。 排課的設(shè)計(jì)分析根據(jù)實(shí)際情況，我們使用原型法（ Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。我們可以設(shè)置 DATA 控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。 Visual Basic 應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。 Toolbar也是一個(gè)控件容器且具有 Style 屬性，并可 以為其增加下拉按鈕和平滑按鈕等。 幫助專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。 第四章使用 Access2021 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫 數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 流程圖 第六章 系統(tǒng)具體實(shí)現(xiàn) 用戶界面的實(shí)現(xiàn)封面具體實(shí)現(xiàn)見主界面 具體實(shí)現(xiàn)見 .主界面包含三方面的內(nèi)容 ,以下一一介紹 : ,進(jìn)入記錄操作菜單項(xiàng)分別由文件、視圖及幫助三個(gè)選項(xiàng)。在此模塊中定義了四個(gè)域名來進(jìn)行教師的信 息存儲(chǔ)。同時(shí)，它支持集成開發(fā)環(huán)境下的可視化、事件驅(qū)動(dòng)、面向?qū)ο?等編程特點(diǎn)。 3． 創(chuàng)建連接 ADO connection； 4． 創(chuàng)建命令 ADO mand。 Query Analyzer 中， select、 update、 delete 的結(jié)果顯示的是實(shí)際查、改、刪的記錄數(shù)。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。 致謝： 在這次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師朱靜老師身上學(xué)到了很多東西。 ，用戶可以用 varchar 來代替 integer,系統(tǒng)會(huì)幫你自動(dòng)實(shí)施轉(zhuǎn)化； 3．本例中僅為帶輸入?yún)?shù)的存儲(chǔ)過程，如果要有輸出參數(shù)，根據(jù) MSDN的材料，用 ADO 不行。 7． 對(duì)數(shù)據(jù)進(jìn)行處理； MSFlexGrid 顯示查詢到的數(shù)據(jù) 8． 釋放 連接，退出程序。 我們知道， VB 的數(shù)據(jù)庫編程有許多種方法，比如直接用 ODBC API 編程，這種方法靈活、高效，程序員可以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫復(fù)雜的控制；也可以用 VB中的數(shù)據(jù)對(duì)象，如 RDO（遠(yuǎn)程數(shù)據(jù)對(duì)象）、 DAO（數(shù)據(jù)訪問對(duì)象）、 ADO（ ActiveX 數(shù)據(jù)對(duì)象），這種方法實(shí)現(xiàn)起來方便、快捷，但靈活性較差一些。 Visual Basic 支持不同的關(guān)系數(shù)據(jù)庫 管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫的特長(zhǎng)。 2． 1瀏覽記錄：教師課程庫課程庫排課庫 2． 2 查找記錄 2． 3 備注 3．系統(tǒng)信息打開系統(tǒng)信息進(jìn)入選項(xiàng)頁分別由系統(tǒng)信息、信息采集等組成。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立 的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（ flatfile）和關(guān)系數(shù)據(jù)庫（ relational）。微軟的 Help 是一套獨(dú)立于 Visual Basic 的