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