【正文】 朱老師的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的 理論水平都使我非常的感動。對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。你可以用 RDO 數(shù)據(jù)對象， MSDN 中有一個例子，此處不做過多贅述； 4．可以不用 ADO COMMAND 對象，也可直接調(diào)用 ADO CONNECTION 的execute 方法 ,結(jié)果很類似。 RecordsAffected：是指用 update、 delete 操作時所影響的結(jié)果，對select 的查詢，其值為 1；這和在 Ms sql server 中的 Query Analyzer 中的不一樣。 其中代碼如下： 在窗體中聲明以下變量： Dim n1 As ‘連接 Dim mymand As ‘命令 Dim parm_jobid As ‘參數(shù) 1 Dim parm_joblvl As ‘參數(shù) 2 Dim rstByQuery As ‘結(jié)果集 Dim strCnn As String ‘連接字符串 在 窗體的 LOAD 事件中加入如下代碼： Set n1 = New ‘生成一個連接 strCnn = DSN=MYDSN。本例中的存儲過程代碼如下（使用PUBS 的 MS SQL 中的例子庫 ）： CREATE PROCEDURE myprocedure job_id smallint, job_lvl tinyint AS SELECT * FROM employee WHERE job_id job_id AND job_lvl job_lvl 2． 在 VB 中生成一個新的工程，工程有一窗體，一個 COMMAND（ NAME：COMMAND1） 按鈕，一個 MSFlexGrid（ NAME： MSFlexGrid1）控件。由于存儲過程在實現(xiàn)數(shù)據(jù)封裝、隱藏以及代碼的預(yù)編譯、減少網(wǎng)絡(luò)負(fù)載、維護(hù)方便等優(yōu)點，所以被許多 RDBMS 和編程工具做支持。它對許多 API（如 ODBC API、 SOCKET API 等等）的封裝使得編程變得簡單起來。生成獨立應(yīng)用或脫離服務(wù)器運行的服務(wù)以上的應(yīng)用， Visual Basic 連接數(shù)據(jù)庫的方式有兩種： 6． 2． 2 排課數(shù)據(jù)庫排課數(shù)據(jù)庫里存儲了教師的排課包括：編號、排課、等如表 列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點位數(shù)是否為空姓名 Name Date8No 編號 CodeInteger6No 排課 ScoreDate10No 備注RecordDate15No 表 排課模塊：該模塊主要完成教師排課的基本信息的錄入、刪除 、更新等功能。幫助系統(tǒng) 系統(tǒng)管理員登錄 數(shù) 據(jù) 庫Access 系統(tǒng)管理 增加用戶 功能界面 刪除用戶 密碼修改 課程模塊：該模塊主要完成教師基本信息的錄入、刪除 、更新等功能。 系統(tǒng)結(jié)構(gòu)圖 圖一 支持環(huán)境 Microsoft Window98/2020/XP 程圖 系統(tǒng)流程圖 圖 二 系統(tǒng)功能流程圖 系統(tǒng) 登錄界面 輸入操作員及密碼 數(shù)據(jù)庫 正確 功能 界 面 登錄 出錯 信 息 密碼錯 功能 處 理 出錯 信息 系 統(tǒng) 主 界 面 系 統(tǒng) 主 界 面 檢查 系統(tǒng)功能流程圖 圖三 5 、系統(tǒng)管理流程圖 教職員入庫信息 課程設(shè)置 排課管理 打印表 系統(tǒng)管理員登錄 功能界面 教員入庫 數(shù)據(jù) 庫Access 添加 修改 刪除 全刪 課程安排 帶課查詢 查詢 退出 系統(tǒng)管 理流程圖 第五章 系統(tǒng)總體規(guī)劃 系統(tǒng)功能 1． 可以進(jìn)行文本操作； 2． 添加一個數(shù)據(jù)庫項目； 3． 刪除一個數(shù)據(jù)庫項目； 4． 修改一個數(shù)據(jù)庫項目； 5． 查詢信息； 6． 察看課程表。一個更高級的連接形式稱為自連接。 修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。 APP 對象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些 APP 提供的屬性，可以在應(yīng)用程序和 用戶之間交流重要信息，在項目屬性框中可以設(shè)置它的屬性。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。創(chuàng)建工具條包括 ImageList 和 Toolbar 控件 ImageList 用于為其他控件提供圖像庫，將ImageList 控件加入到工具箱的操作于前述 Toolbar 控件相同。 其屬性及對象如下： 6． Align 屬性定義工具條在窗體中的位置 7． ToolTipText 屬性是字符串類型，定義控件的提示字符 8． Style 屬性定義按鈕外觀。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。 實現(xiàn)工具欄 CoolBar 控件與 Office97 種看到的 CoolBar 是類似的。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強有力的功能。 DATA 控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。 DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的 Visual Basic 程序之間架起了一座橋梁。 Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 第二章怎樣開發(fā)一個排課管理系統(tǒng)？ 編程環(huán)境的選擇微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。 為將來學(xué)校上網(wǎng)做好準(zhǔn)備跟據(jù) 1999 年中國電信的調(diào)查報告顯示我國的上網(wǎng)人數(shù)已達(dá)到 890 萬，互聯(lián)網(wǎng)已經(jīng)十分普及，學(xué)校往界的畢業(yè)生希望能在世界的任何一個角落查到自己校友的信息，本系統(tǒng)為學(xué)校將來的上網(wǎng)作了先期工作，比如數(shù)據(jù)庫的建立。 在中小學(xué)中用計算機管理排課的意義現(xiàn)在我國的中小學(xué)校中排課的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機制已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理所取代。這些優(yōu)點能夠極大地提高排課管理的效率 ,也是企業(yè)的科學(xué)化、正規(guī)化管理 ,與 世界接軌的重要條件。 ABSTRACT The system of managing student file is a typical application of managing information system （ know as MIS） ,which mainly includes building up database of backend and developing the application interface of frontend. The former required consistency and integrality and security of data. The later should make the application powerful and easily looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a database. It can give you a shortcut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with : ActiveX , Form , Field . 目錄 1 前言 ………………………………………………………………………… 3 1 為什么要開發(fā)一個排課管理系統(tǒng) ………………………………………… 3 1 怎樣開發(fā)一個排課管理系統(tǒng) ……………………………………………… 4 1 Windows 下的 VisualVisual Basic 應(yīng)用程序 …………………………… 4 1 使用 Access2020 實 現(xiàn) 關(guān) 系 型 數(shù) 據(jù)庫 ……………………………………… 6 1 系統(tǒng)總體規(guī)劃 ………………………………………………………………10 1 系統(tǒng)具體實現(xiàn) ……………………………………………………………15 VB 中調(diào)用帶參數(shù)存儲 過程的實現(xiàn) ………………………………………20 2 結(jié)束語 ………………………………………………………………………27 2 致謝 …………………………………………………………………………28 2 參考文獻(xiàn) ……………………………………………………………………29 2 源代碼 ………………………………………………………………………30 前言 排課管理系統(tǒng)是一個教育單位不可缺少的部分 ,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要 ,所以排課管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。Text1(i).Text = If Len((i)) 0 Then Text1(i).Text = (i) strBak(i) = Text1(i).Text End If Next i End Sub Private Sub toNull() For i = 0 To 2 Text1(i).Text = strBak(i) = Next i End Sub Private Sub Form_Unload(Cancel As Integer) On Error GoTo KK Set rs = Nothing Set qrs = noting Set con = Nothing KK: End Sub Private Sub queryComm_Click() slSql = select * from Teacher where cTrname = 39。 data source= amp。okEnd: End Sub Private Sub CanSave(ok As Boolean) = Not ok = ok For i = 0 To 4 If i 3 Then Command2(i).Enabled = Not ok Else Command2(i).Enabled = ok End If Next i End Sub Private Sub Form_Load() Dim t As Integer Set con = New Set rs = New Set qrs = New 39。 參考文獻(xiàn) ： 軟件系統(tǒng)開發(fā)技術(shù) 潘錦平 西安電子科技大學(xué)出版社 《軟件工程導(dǎo)論》 清華大學(xué)出版社 《 Visual Basic 數(shù)據(jù)庫實用程序設(shè)計 100 例》 段興 人民郵電出版社 《 Visual Basic 編程方法詳解》 李鴻吉 科學(xué)教育出版社 《數(shù)據(jù)庫系統(tǒng)概論》 薩師煊 高等教育出版社 《 Visual Basic 程序設(shè)計教程》 劉