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