【正文】 能用我四年的所學(xué)編制出一個(gè)實(shí)用的程序來幫助中小學(xué)進(jìn)行更有效的課程管理。 二者的結(jié)合（ DBA）微軟的 JET 數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。通過在CoolBar 中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。 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。 參考文獻(xiàn) ： 軟件系統(tǒng)開發(fā)技術(shù) 潘錦平 西安電子科技大學(xué)出版社 《軟件工程導(dǎo)論》 清華大學(xué)出版社 《 Visual Basic 數(shù)據(jù)庫實(shí)用程序設(shè)計(jì) 100 例》 段興 人民郵電出版社 《 Visual Basic 編程方法詳解》 李鴻吉 科學(xué)教育出版社 《數(shù)據(jù)庫系統(tǒng)概論》 薩師煊 高等教育出版社 《 Visual Basic 程序設(shè)計(jì)教程》 劉炳文 清華大學(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() 教職員入庫信息 排課管理 教職員帶課查詢 本學(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。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。 為將來學(xué)校上網(wǎng)做好準(zhǔn)備跟據(jù) 1999 年中國電信的調(diào)查報(bào)告顯示我國的上網(wǎng)人數(shù)已達(dá)到 890萬，互聯(lián)網(wǎng)已經(jīng)十分普及，學(xué)校往界的畢業(yè)生希望能在世界的任何一個(gè)角落查到自己校友的信息，本系統(tǒng)為學(xué)校將來的上網(wǎng)作了先期工作，比如數(shù)據(jù)庫的建立。 DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的 Visual Basic 程序之間架起了一座橋梁。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。 APP 對(duì)象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些 APP 提供的屬性，可以在應(yīng)用程序和 用戶之間交流重要信息，在項(xiàng)目屬性框中可以設(shè)置它的屬性。 系統(tǒng)結(jié)構(gòu)圖 圖一 支持環(huán)境 Microsoft Window98/2021/XP 程圖 系統(tǒng)流程圖 圖 二 系統(tǒng)功能流程圖 系統(tǒng) 登錄界面 輸入操作員及密碼 數(shù)據(jù)庫 正確 功能 界 面 登錄 出錯(cuò) 信 息 密碼錯(cuò) 功能 處 理 出錯(cuò) 信息 系 統(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． 添加一個(gè)數(shù)據(jù)庫項(xiàng)目； 3． 刪除一個(gè)數(shù)據(jù)庫項(xiàng)目； 4． 修改一個(gè)數(shù)據(jù)庫項(xiàng)目； 5． 查詢信息； 6． 察看課程表。它對(duì)許多 API（如 ODBC API、 SOCKET API 等等）的封裝使得編程變得簡單起來。 RecordsAffected：是指用 update、 delete 操作時(shí)所影響的結(jié)果，對(duì)select 的查詢，其值為 1；這和在 Ms sql server 中的 Query Analyzer 中的不一樣。朱老師的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的 理論水平都使我非常的感動(dòng)。 其中代碼如下： 在窗體中聲明以下變量： 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 ‘生成一個(gè)連接 strCnn = DSN=MYDSN。生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的服務(wù)以上的應(yīng)用， Visual Basic 連接數(shù)據(jù)庫的方式有兩種：一個(gè)更高級(jí)的連接形式稱為自連接。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。 實(shí)現(xiàn)工具欄 CoolBar 控件與 Office97 種看到的 CoolBar 是類似的。 Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。 在中小學(xué)中用計(jì)算機(jī)管理排課的意義現(xiàn)在我國的中小學(xué)校中排課的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。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。這些都有待進(jìn)一步改善。 5． 創(chuàng)建參數(shù)并設(shè)置各個(gè)參數(shù)的屬性； 6． 執(zhí)行 ADO mand。課程數(shù)據(jù)庫課程數(shù)據(jù)庫利存儲(chǔ)了課程的信息：課程名、作者、出版社等如表列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空課程IDCourseDate8No 課程名 NameDate15No 出版 社 PublisherDate20No 作者ScoreDate18No 備注 RecordDate15No 表 課程模塊：該模塊主要完成存儲(chǔ)課程的所有信息及錄入、刪除 、更新等功能 與 VB 的連接 Visual Basic 提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。 無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助文檔。實(shí)現(xiàn)菜單選項(xiàng)菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)， Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。另外， Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。 第一章為什么要開發(fā)一個(gè)排課管理系統(tǒng)？ 計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。 關(guān)鍵字 ：控件、窗體、域。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。在 控件 選項(xiàng)卡列表中選擇 Microsoft Windows Common Controls 后工具相中增加改控件。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（ flatfile）和關(guān)系數(shù)據(jù)庫（ relational）。 2． 1瀏覽記錄：教師課程庫課程庫排課庫 2． 2 查找記錄 2． 3 備注 3．系統(tǒng)信息打開系統(tǒng)信息進(jìn)入選項(xiàng)頁分別由系統(tǒng)信息、信息采集等組成。 我們知道， 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)起來方便、快捷，但靈活性較差一些。 ，用戶可以用 varchar 來代替 integer,系統(tǒng)會(huì)幫你自動(dòng)實(shí)施轉(zhuǎn)化； 3．本例中僅為帶輸入?yún)?shù)的存儲(chǔ)過程，如果要有輸出參數(shù)，根據(jù) MSDN的材料，用 ADO 不行。Provider=。但一直以來人們使用傳 統(tǒng)人工的方式管理文件排課，這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間一長 ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。 9． ImageList 屬性定義與數(shù)據(jù)條對(duì)應(yīng)的 ImageList 控件名，該控件定義工具條按鈕顯示的圖像。 新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)