【正文】 炳文 清華大學(xué)出版社 源代碼 : 進(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() 教職員入庫(kù)信息 排課管理 教職員帶課查詢 本學(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。這些都有待進(jìn)一步改善。其功能基本符合用戶需求，能夠完成教師課程的存儲(chǔ)和排課的查詢以及各類相關(guān)報(bào)表的打印。 Options：指明 mand 的類型，有 adCmdText、 adCmdTable、adCmdStoredProc 等等，用戶可見(jiàn) MSDN。pwd= ‘創(chuàng)建的系統(tǒng)數(shù)據(jù)源 MYDSN 指向 PUBS 數(shù)據(jù)庫(kù) strCnn ‘打開(kāi)連接 在窗體的 UNLOAD 中的加入代碼如下： ‘關(guān)閉連接 Set n1 = Nothing ‘釋放連接 在按鈕中的代碼如下： Dim I As integer Dim j as integer Set parm_jobid = New Set mymand = New 39。 5． 創(chuàng)建參數(shù)并設(shè)置各個(gè)參數(shù)的屬性； 6． 執(zhí)行 ADO mand。 我們以 ADO為例來(lái)說(shuō)明其實(shí)現(xiàn)的步驟 1． 創(chuàng)建、調(diào)試存儲(chǔ)過(guò)程。下面，我們談?wù)勗?VB 中調(diào)用存儲(chǔ)過(guò)程的實(shí)現(xiàn)方法及其注意事項(xiàng)。 課程數(shù)據(jù)庫(kù)課程數(shù)據(jù)庫(kù)利存儲(chǔ)了課程的信息：課程名、作者、出版社等如表列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空課程IDCourseDate8No 課程名 NameDate15No 出版 社 PublisherDate20No 作者ScoreDate18No 備注 RecordDate15No 表 課程模塊：該模塊主要完成存儲(chǔ)課程的所有信息及錄入、刪除 、更新等功能 與 VB 的連接 Visual Basic 提供了與底層數(shù)據(jù)庫(kù)系統(tǒng)緊密的連接。如果用戶修改某一紀(jì)錄中的某一項(xiàng)，可單添加按鈕進(jìn)行教師記錄的編輯 ，此窗口使用數(shù)據(jù)窗口的 FREEDOM 風(fēng)格（典型的錄入界面）。 件包括：新建打開(kāi)打開(kāi)寫字板 保存另存打印退出視圖包括：狀態(tài)條工具欄背景顏色顯示課程表 2．記錄操作打開(kāi)記錄操作進(jìn)入記錄操作選項(xiàng)頁(yè)分別由瀏覽記錄、查找等三個(gè)選項(xiàng)組成。數(shù)據(jù)庫(kù)中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。創(chuàng)建一個(gè)數(shù)據(jù) 庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。 無(wú)論寫出來(lái)的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助文檔。 5． HotImangeList 屬性設(shè)置一個(gè) ImageList 控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。選擇 工程 下拉菜單中的 部件 選項(xiàng)，顯示 部件 對(duì)話框。通過(guò)在CoolBar 中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。實(shí)現(xiàn)菜單選項(xiàng)菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)， Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。 第三章 Windows 下的 VisualVisual Basic 應(yīng)用程序 基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。缺省情況 下， DATA 控件根據(jù)數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè) dynasettype（動(dòng)態(tài)集合）類型的記錄集合。 二者的結(jié)合（ DBA）微軟的 JET 數(shù)據(jù)庫(kù)引擎提供了與數(shù)據(jù)庫(kù)打交道的途徑，我們是通過(guò)它以及 Visual Basic 來(lái)訪問(wèn)數(shù)據(jù)庫(kù)并對(duì)其進(jìn)行各種操作。另外， Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。故而，實(shí)現(xiàn)本系統(tǒng) VB是一個(gè)相對(duì)較好的選擇。使用戶和開(kāi)發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開(kāi)發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具 備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。改革的總設(shè)計(jì)師鄧小平同志說(shuō)過(guò) 科學(xué)技術(shù)是第一生產(chǎn)力 ，我希望能用我四年的所學(xué)編制出一個(gè)實(shí)用的程序來(lái)幫助中小學(xué)進(jìn)行更有效的課程管理。 第一章為什么要開(kāi)發(fā)一個(gè)排課管理系統(tǒng)？ 計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí) ,它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。經(jīng)過(guò)分析 ,我們使用 MICROSOFT公司的 VISUAL BASIC開(kāi)發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。 題 目 排課管理系統(tǒng) 姓 名 學(xué) 號(hào) 專 業(yè) 指導(dǎo)教師 學(xué) 院 日 期 畢 業(yè) 設(shè) 計(jì)（論文） 排課管理系統(tǒng) 摘要 排課管理系統(tǒng)是典型的信息管理系統(tǒng) ,其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。 關(guān)鍵字 ：控件、窗體、域。作為計(jì)算機(jī)應(yīng)用的一部分 ,使用計(jì)算機(jī)對(duì)排課信息進(jìn)行管理 ,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；其次，計(jì)算機(jī)可以節(jié)省許多資源；第三，計(jì)算機(jī)可以大大的提高人們的工作效率；第四，計(jì)算機(jī)可以使敏感文檔更加安全 ，等等。 歸納起來(lái)，好處大約有以下幾點(diǎn)： 1． 可以存儲(chǔ)歷屆的排課，安全、高效；2． 只需一到二名排課錄入員 即可操作系統(tǒng)，節(jié)省大量人力； 3． 可以迅速查到所需信息。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn) Access2020 就是關(guān)系 數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。 Visual Basic、 Access 以及其他微軟的軟件產(chǎn)品都是通過(guò)共用 JET數(shù)據(jù)庫(kù)引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來(lái)的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。開(kāi)發(fā)人員可以最有效利 用所創(chuàng)建的每一個(gè)對(duì)象。您可以使用 Visual Basic 的 Application Wizard也可以使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。 Toolbar 是工具條控件，是實(shí)現(xiàn)工具條的主體。在 控件 選項(xiàng)卡列表中選擇 Microsoft Windows Common Controls 后工具相中增加改控件。 6． DisabledImageList 屬性定義工具條按鈕無(wú)效時(shí)顯示的圖像。微軟的 Help 是一套獨(dú)立于 Visual Basic 的用來(lái)協(xié)助我們創(chuàng)建、運(yùn)行于 32 位Windows 操作系統(tǒng)下的幫助文件的工具。 Visual Basic 允許你使用 APP 對(duì)象來(lái)保存這些信息， APP對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類：非關(guān)系數(shù)據(jù)庫(kù)（ flatfile）和關(guān)系數(shù)據(jù)庫(kù)（ relational）。 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)建物理表。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立 的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。 2． 1瀏覽記錄：教師課程庫(kù)課程庫(kù)排課庫(kù) 2． 2 查找記錄 2． 3備注 3．系統(tǒng)信息打開(kāi)系統(tǒng)信息進(jìn)入選項(xiàng)頁(yè)分別由系統(tǒng)信息、信息采集等組成。該種風(fēng)格特點(diǎn)是列標(biāo)題緊挨著數(shù)據(jù)列在此窗口還可以增加新教師紀(jì)錄。 Visual Basic 支持不同的關(guān)系數(shù)據(jù)庫(kù) 管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫(kù)的特長(zhǎng)。通過(guò)使用由 Visual Basic 提供的專用的直接與數(shù)據(jù)庫(kù)相連的接口 . 第七章 VB 中調(diào)用帶參數(shù)存儲(chǔ)過(guò)程的實(shí)現(xiàn) VB 做為快速應(yīng)用開(kāi)發(fā)（ RAD）工具越來(lái)越得到開(kāi)發(fā)人員的認(rèn)可和接受。 我們知道， VB 的數(shù)據(jù)庫(kù)編程有許多種方法，比如直接用 ODBC API 編程，這種方法靈活、高效，程序員可以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)復(fù)雜的控制；也可以用 VB中的數(shù)據(jù)對(duì)象，如 RDO（遠(yuǎn)程數(shù)據(jù)對(duì)象）、 DAO（數(shù)據(jù)訪問(wèn)對(duì)象）、 ADO（ ActiveX 數(shù)據(jù)對(duì)象），這種方法實(shí)現(xiàn)起來(lái)方便、快捷，但靈活性較差一些。你可以在數(shù)據(jù)庫(kù)中也可以在其他外掛程序的支持下進(jìn)行存儲(chǔ)過(guò)程的創(chuàng)建和調(diào)試工作。 7． 對(duì)數(shù)據(jù)進(jìn)行處理； MSFlexGrid 顯示查詢到的數(shù)據(jù) 8． 釋放 連接，退出程序。 = 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ǔ)過(guò)程名稱 = adCmdStoredProc ‘表明 mand 為存儲(chǔ)過(guò)程 Set rstByQuery = New Set rstByQuery = () I = 0 D