【正文】 Do While Not I = I + 1 ‘ I 中保存記錄個數(shù) Loop = I + 1 ‘動態(tài)設(shè)置 MSFlexGrid 的行和列 = + 1 = 0 For I = 0 To 1 = I + 1 = (I).Name Next ‘設(shè)置第一行的標題，用域名填充 I = 0 Set rstByQuery = () Do While Not I = I + 1 = I ‘確定行 For j = 0 To 1 = j + 1 = rstByQuery (j) ‘添充所有的列 Next Loop ‘這個循環(huán)用來填充 MSFlexGrid 的內(nèi)容 特殊說明 1． Set recordset = ( RecordsAffected, Parameters, Options ) RecordsAffected, Parameters, Options 這是mand 的兩種用法，一種有返回結(jié)果集，一種沒有返回結(jié)果集。 ，用戶可以用 varchar 來代替 integer,系統(tǒng)會幫你自動實施轉(zhuǎn)化； 3．本例中僅為帶輸入?yún)?shù)的存儲過程，如果要有輸出參數(shù)，根據(jù) MSDN的材料，用 ADO 不行。并提供部分系統(tǒng)維護功能 ,使用戶方便進行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。 致謝： 在這次畢業(yè)設(shè)計中，我從指導老師朱靜老師身上學到了很多東西。 39。Provider=。 amp。 + Text1(3).Text + 39。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點。但一直以來人們使用傳 統(tǒng)人工的方式管理文件排課，這種管理方式存在著許多缺點 ,如 :效率低、保密性差 ,另外時間一長 ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對于查找、更新和維護都帶來了不少的困難。因此，開發(fā)這樣一套管理軟件成為很有必要的事情 ,在下面的各章中我們將以開發(fā)一套排課管理系統(tǒng)為例 ,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。我作為一個計算機應(yīng)用的大專生，希望可以在這方面有所貢獻。 排課的設(shè)計分析根據(jù)實際情況，我們使用原型法（ Rapid Prototyping）即以少量代價快速地構(gòu)造一個可執(zhí)行的軟件系統(tǒng)模型。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可 以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。我們可以設(shè)置 DATA 控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。 Visual Basic 應(yīng)用由一系列對象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應(yīng)用中重復(fù)使用。 CoolBar就是一個可以在窗體上浮動的工具，同時也是其他 ActiveX 的容器。 Toolbar也是一個控件容器且具有 Style 屬性，并可 以為其增加下拉按鈕和平滑按鈕等。 9． ImageList 屬性定義與數(shù)據(jù)條對應(yīng)的 ImageList 控件名，該控件定義工具條按鈕顯示的圖像。 幫助專業(yè)水平的軟件通常都帶有聯(lián)機幫助功能。 關(guān)于版本為了是程序顯得更具有專業(yè)風格，首先可以在其中加入通常的應(yīng)用程序信息。 第四章使用 Access2021 實現(xiàn)關(guān)系型數(shù)據(jù)庫 數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。 新建一個數(shù)據(jù)庫創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設(shè)計必須是靈活的、有邏輯的。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復(fù)數(shù)據(jù)的組合字段。 流程圖 第六章 系統(tǒng)具體實現(xiàn) 用戶界面的實現(xiàn)封面具體實現(xiàn)見主界面 具體實現(xiàn)見 .主界面包含三方面的內(nèi)容 ,以下一一介紹 : ,進入記錄操作菜單項分別由文件、視圖及幫助三個選項。在此模塊中定義了八個域名來進行教師的信息存儲。在此模塊中定義了四個域名來進行教師的信 息存儲。通過使用 Visual Basic 的 DATA控件。同時，它支持集成開發(fā)環(huán)境下的可視化、事件驅(qū)動、面向?qū)ο?等編程特點。 VB 中的各類數(shù)據(jù)對象也提供 對存儲過程的支持。 3． 創(chuàng)建連接 ADO connection； 4． 創(chuàng)建命令 ADO mand。uid=sa。 Query Analyzer 中， select、 update、 delete 的結(jié)果顯示的是實際查、改、刪的記錄數(shù)。 第八章 結(jié)束語 經(jīng)過 三個多月的設(shè)計和開發(fā)，中小學排課管理系統(tǒng)基本開發(fā)完畢。但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。她無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝她細心而又耐心的輔導，我會永遠銘記心中的。 致謝： 在這次畢業(yè)設(shè)計中，我從指導老師朱靜老師身上學到了很多東西。并提供部分系統(tǒng)維護功能 ,使用戶方便進行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。 ，用戶可以用 varchar 來代替 integer,系統(tǒng)會幫你自動實施轉(zhuǎn)化； 3．本例中僅為帶輸入?yún)?shù)的存儲過程，如果要有輸出參數(shù)，根據(jù) MSDN的材料，用 ADO 不行。 = 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 Do While Not I = I + 1 ‘ I 中保存記錄個數(shù) Loop = I + 1 ‘動態(tài)設(shè)置 MSFlexGrid 的行和列 = + 1 = 0 For I = 0 To 1 = I + 1 = (I).Name Next ‘設(shè)置第一行的標題，用域名填充 I = 0 Set rstByQuery = () Do While Not I = I + 1 = I ‘確定行 For j = 0 To 1 = j + 1 = rstByQuery (j) ‘添充所有的列 Next Loop ‘這個循環(huán)用來填充 MSFlexGrid 的內(nèi)容 特殊說明 1． Set recordset = ( RecordsAffected, Parameters, Options ) RecordsAffected, Parameters, Options 這是mand 的兩種用法，一種有返回結(jié)果集，一種沒有返回結(jié)果集。 7． 對數(shù)據(jù)進行處理； MSFlexGrid 顯示查詢到的數(shù)據(jù) 8． 釋放 連接，退出程序。你可以在數(shù)據(jù)庫中也可以在其他外掛程序的支持下進行存儲過程的創(chuàng)建和調(diào)試工作。 我們知道， VB 的數(shù)據(jù)庫編程有許多種方法，比如直接用 ODBC API 編程，這種方法靈活、高效，程序員可以實現(xiàn)對數(shù)據(jù)庫復(fù)雜的控制；也可以用 VB中的數(shù)據(jù)對象，如 RDO（遠程數(shù)據(jù)對象）、 DAO（數(shù)據(jù)訪問對象）、 ADO（ ActiveX 數(shù)據(jù)對象），這種方法實現(xiàn)起來方便、快捷，但靈活性較差一些。通過使用由 Visual Basic 提供的專用的直接與數(shù)據(jù)庫相連的接口 . 第七章 VB中調(diào)用帶參數(shù)存儲過程的實現(xiàn) VB 做為快速應(yīng)用開發(fā)（ RAD）工具越來越得到開發(fā)人員的認可和接受。 Visual Basic 支持不同的關(guān)系數(shù)據(jù)庫 管理系統(tǒng)并充分發(fā)揮每一個數(shù)據(jù)庫的特長。該種風格特點是列標題緊挨著數(shù)據(jù)列在此窗口還可以增加新教師紀錄。 2． 1瀏覽記錄：教師課程庫課程庫排課庫 2． 2 查找記錄 2． 3 備注 3．系統(tǒng)信息打開系統(tǒng)信息進入選項頁分別由系統(tǒng)信息、信息采集等組成。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立 的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。 2． 標識需要的數(shù)據(jù)； 2． 收集被標識的字段到表中； 3． 標識主關(guān)鍵字字段； 4． 繪制一個簡單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標識指定字段的信息； 7． 創(chuàng)建物理表。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（ flatfile）和關(guān)系數(shù)據(jù)庫（ relational）。 Visual Basic 允許你使用 APP對象來保存這些信息， APP 對象是一個預(yù)定義對象，不需要在程序中創(chuàng)建它。微軟的 Help 是一套獨立于 Visual Basic 的用來協(xié)助我們創(chuàng)建、運行于 32 位Windows 操作系統(tǒng)下的幫助文件的工具。 6． DisabledImageList 屬性定義工具條按鈕無效時顯示的圖像。在 控件 選項卡列表中選擇 Microsoft Windows Common Controls 后工具相中增加改控件。 Toolbar 是工具條控件，是實現(xiàn)工具條的主體。您可以使用 Visual Basic 的 Application Wizard也可以使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。開發(fā)人員可以最有效利 用所創(chuàng)建的每一個對象。一個記錄集合是動態(tài)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。 Visual Basic、 Access 以及其他微軟的軟件產(chǎn)品都是通過共用 JET 數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。 Access 也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。 關(guān)系型數(shù)據(jù)庫的實現(xiàn) Access2021 就是關(guān)系 數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。此時模塊也發(fā)展成為最終產(chǎn)品了。 歸納起來，好處大約有以下幾點： 1． 可以存儲歷屆的排課，安全、高效；2． 只需一到二名排課錄入員 即可操作系統(tǒng)，節(jié)省大量人力； 3． 可以迅速查到所需信息。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機之所以如此流行的原因主要有以下幾個方面：首先，計算機可以代替人工進行許多繁雜的勞動；其次，計算機可以節(jié)省許多資源；第三，計算機可以大大的提高人們的工作效率；第四，計算機可以使敏感文檔更加安全 ，等等。作為計算機應(yīng)用的一部分 ,使用計算機對排課信息進行管理 ,具有著手工管理所無法比擬的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。 關(guān) 鍵字 ：控件、窗體、域。Text1(i).Text = If Len((i)) 0 Then Text1(i).Text = (i) strBak(i) = Text1(i).Text End If Next i End If End Sub 題 目 排課管理系統(tǒng) 姓 名 學 號 專 業(yè)