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