vb程序設(shè)計(jì)語言課程設(shè)計(jì)實(shí)踐指導(dǎo)書

《VB程序設(shè)計(jì)》課程設(shè)計(jì)

設(shè)計(jì)指導(dǎo)書

一、課程設(shè)計(jì)指導(dǎo)書包含：《VB程序設(shè)計(jì)》課程設(shè)計(jì)理論指導(dǎo)書(本書)和電子指導(dǎo)書(具

體設(shè)計(jì)題目的可執(zhí)行文件)。

二、課程設(shè)計(jì)目的：

課程設(shè)計(jì)的目的是為了加深學(xué)生對(duì)課堂所講授的計(jì)算機(jī)基礎(chǔ)知識(shí)及VB中的命令和程序

設(shè)計(jì)方法的進(jìn)一步理解與掌握,提高學(xué)生對(duì)所學(xué)內(nèi)容的綜合運(yùn)用能力，同時(shí)增強(qiáng)學(xué)生程序設(shè)計(jì)

能力，掌握一些編程技巧，并可培養(yǎng)學(xué)生實(shí)際上機(jī)調(diào)試程序的能力，使學(xué)生對(duì)開發(fā)信息管理

系統(tǒng)有一個(gè)總體認(rèn)識(shí)，可使學(xué)生得到很好鍛煉，為以后學(xué)習(xí)、工作打下堅(jiān)實(shí)基礎(chǔ)。

三、課程設(shè)計(jì)內(nèi)容

該課程設(shè)計(jì)要求學(xué)生根據(jù)所學(xué)知識(shí)以及個(gè)人愛好，設(shè)計(jì)開發(fā)一個(gè)或多個(gè)VB應(yīng)用程序。

四、課程設(shè)計(jì)要求

1.實(shí)用性：應(yīng)用程序要有明確的應(yīng)用主題，有一定的實(shí)用價(jià)值。

2.結(jié)構(gòu)性：應(yīng)用程序具有良好的程序結(jié)構(gòu)。

3.可讀性：應(yīng)用程序具有較好的可讀性。

4.全面性：根據(jù)題目?jī)?nèi)容，應(yīng)用程序應(yīng)包含比較全面的功能。

5.友好性：根據(jù)題目要求，合理使用VB提供的各種控件，設(shè)計(jì)友好、美觀的使用界面。

五、課程設(shè)計(jì)指導(dǎo)

1.選題：據(jù)個(gè)人興趣、愛好，確定設(shè)計(jì)題目的名稱，具體題目見任務(wù)書

2.查找與設(shè)計(jì)題目相關(guān)的資料，思考實(shí)現(xiàn)方法。

3.進(jìn)行應(yīng)用程序總體結(jié)構(gòu)設(shè)計(jì)，畫功能結(jié)構(gòu)圖。

運(yùn)行選定題目的VB課程設(shè)計(jì)電子指導(dǎo)書一一程序可執(zhí)行文件，了解系統(tǒng)的整體功能,

畫出功能結(jié)構(gòu)圖

4.數(shù)據(jù)庫設(shè)計(jì)：

(1)用ACCEES建立數(shù)據(jù)庫及數(shù)據(jù)表，用ADO數(shù)據(jù)控件連接數(shù)據(jù)庫，指導(dǎo)步驟如下：

利用Access建立好數(shù)據(jù)庫

?添加ADO：“工程”一“部件”一

?在設(shè)計(jì)窗體：添加Adodcl控件

用快捷鍵打開屬性頁

?選擇“通用”選項(xiàng)卡~“使用連接字符串”一“1生成(U)~打開“數(shù)據(jù)連

接屬性”對(duì)話框

在"提供者”選項(xiàng)卡f選擇"MicrosoftJetOLEDBProvider”選項(xiàng)。

?在“連接”選項(xiàng)卡f“選擇或輸入數(shù)據(jù)庫名稱”中指定數(shù)據(jù)庫文件名

為保證連接有效，單擊“連接”選項(xiàng)卡下方的“測(cè)試連接”按鈕，如果測(cè)試成功則關(guān)

閉屬性頁

打開ADO控件屬性窗口，單擊其中的Recordsource屬性的“…”按鈕

?在彈出的記錄源屬性頁對(duì)話框中，在''命令類型”下拉式列表框中選擇

“2-adCmdTable”選項(xiàng)，在“表或存儲(chǔ)過程名稱”下拉式列表框中選擇你的某數(shù)

據(jù)庫中的“某個(gè)表”，關(guān)閉記錄源屬性頁。

?注意：當(dāng)數(shù)據(jù)庫有兩個(gè)以上表時(shí)，請(qǐng)按以下方式連接兩個(gè)表

例兩個(gè)表：“基本情況”和“成績(jī)”，是按照字段“學(xué)號(hào)”相等的方式連接,

在ACCESS中不必建立關(guān)聯(lián)

(2)ADO數(shù)據(jù)控件集(Recordset)常用方法

AddNew方法：添加記錄。

Delete方法:刪除當(dāng)前記錄。

UpdateBatch方法：更新當(dāng)前記錄。

Movefirst方法：移到第一個(gè)記錄

Movelast方法：移到最后一個(gè)記錄

Movenext方法：移到下一個(gè)記錄

MovePrevious方法：移到上一個(gè)記錄

Moven方法：移到第n個(gè)記錄

Refresh方法：刷新

參考代碼：

添加

PrivateSubCommand1_C1ick()

EndSub

刪除

PrivateSubCommand2_Click()

EndSub

更新

PrivateSubCommand3_C1ick()

EndSub

第一個(gè)

上一個(gè)

下一個(gè)

最后一個(gè)

5.進(jìn)行應(yīng)用程序的界面設(shè)計(jì)和過程代碼的編寫;

運(yùn)行選定題目的課程設(shè)計(jì)電子指導(dǎo)書：程序可執(zhí)行文件，完成以下任務(wù):

(1)描述窗體模塊功能

(2)畫出窗體及控件的外觀

(3)列表給出各窗體及控件的名稱、功能及屬性設(shè)置

(4)上機(jī)設(shè)計(jì)窗體及控件的外觀

(5)描述過程名稱及過程應(yīng)實(shí)現(xiàn)的功能

(6)描述變量定義及用途

(7)編制過程代碼

(8)上機(jī)輸入并調(diào)試過程代碼，使之實(shí)現(xiàn)預(yù)定功能。

6.查詢功能設(shè)計(jì)

例：利用SQL查詢語句，查詢所有女生，步驟:

(1)、添加Adodcl——打開屬性頁——測(cè)試連接

記錄源：命令類型：l_adcmdtext

命令文本(SQL)：Select*from表名

(2)^添加表格Datagrid控件

設(shè)置表格控件Datasource：Adodcl

(3)、編寫程序代碼

PrivateSubCommandl_Click()

Adodcl.RecordSource="select*from學(xué)生表where性別=，女，"

'或Adodcl.RecordSource="select*from學(xué)生表where性別11146"'&"女"&

EndSub

PrivateSubCommand2_Click()

End

EndSub

7.報(bào)表設(shè)計(jì)：

(1)創(chuàng)建數(shù)據(jù)環(huán)境

在“工程”菜單上，單擊“添加DataEnviroment”向工程中添加一個(gè)設(shè)計(jì)器。

右鍵一屬性

至數(shù)據(jù)鏈接屬性

提供程序I連接I高級(jí)I所有I

選擇您希望連接的數(shù)據(jù)：

OLEDB提供程序

MediaC&talogDBOLEDBProvider

MediaCatalogMergedDBOLEDBProvider

MediaCatalogWebDBOLEDBProvider

MicrosoftJet3.51OLEDBProvider

|桁cros;o￡tJet4.0OLEDB

MicrosoftOLEDBProviderForDataMiningServices

MicrosoftOLEDBProviderforIndexingService

Microsoft0L￡DBProviderforInternetPublishing

MicrosoftOLEDBProviderforODBCDrivers

MicrosoftOLEDBProviderforOLWServices

MicrosoftOLEDBProviderforOLAPServices8.0

MicrosoftOLEDBProviderforOracle

MicrosoftOLEDBProviderforOutlookSearch

MicrosoftOLEDBProviderforSQLServer

MicrosoftOLEDBSimpleProvider

MSDataShape

OLEDBProviderforMicrosoftDirectoryServices

I下一步Q)?"]

確定取消幫助

在“數(shù)據(jù)鏈接屬性”對(duì)話框上單擊“MicrosoftJetOLEDBProvider”。

單擊“下一步”按鈕進(jìn)入“連接”選項(xiàng)卡。

單擊第一個(gè)文本框旁邊的省略按鈕(…)。

據(jù)庫文件,單擊”確定”

右鍵“Connection]”圖標(biāo)，然后單擊“添加命令”，出現(xiàn)“Commandl”

將工…口回I區(qū)1皿)專工…匚]回區(qū)

引口||3|X|囤||囪口

直DataEnvironinent1B

ConnectioiHI_____L引口局信Ix|回：直

全部擴(kuò)展(E)

全部折疊(L)錮DataEnvironinent1

-Connection1

刪除(D)

Commandl

聯(lián)接：Connectioi

重命名(R)

刷新(E)

添加命令9)命令：CojiunandlfromConn

插入存儲(chǔ)過程(1).

查看代用(Y)

屬性(E)...

右鍵“Commands對(duì)話框，屬性設(shè)置:

屬性設(shè)置值

命令名稱Command1

連接Connectionl

數(shù)據(jù)庫對(duì)象表

對(duì)象名稱學(xué)生檔案

單擊“確定”結(jié)束對(duì)話框。

貼工程…匚晅區(qū)

聞口周

施DataEnvironmen11

E%Connectionl

-國(guó)Coiranandl

姓名

別

性

齡

年

治

政

績(jī)

成

號(hào)

學(xué)

[2]object(s)

當(dāng)只想顯示符合條件的數(shù)據(jù)時(shí)：選擇“SQL“，"SQL生成器”

Command1屬性前即計(jì)：C…逆區(qū)

通用麴|關(guān)聯(lián)|分組|合計(jì)|高級(jí)|圖學(xué)...

命令名稱Q）：|Coir）mandl連接?：[Connectionl~~▼|*

姓

名

學(xué)

號(hào)

數(shù)據(jù)源年

齡

C數(shù)據(jù)庫對(duì)象Q）：|世

SII

對(duì)象名稱@）：「

列I準(zhǔn)則

名

SQL生成器⑹…|姓

號(hào)

學(xué)

及

成

90

確定|取消應(yīng)用?

引口局固|x|囪力圖I

商DataEnvironment1

-Connectionl

臼輸Commandl

目姓名

國(guó)學(xué)號(hào)

國(guó)成績(jī)___________

命令：Commandl用戶定義的工

注意以下是有關(guān)表間關(guān)聯(lián)的問題：

右鍵“Connection1”圖標(biāo),然后單擊“添加子命令”，出現(xiàn)“Command2"，設(shè)置屬性:

生工程1…口回區(qū)ICommand2屬性

通用|參數(shù)|關(guān)聯(lián)|分組］合計(jì)］高級(jí)|

闖口|宜邑Ix|團(tuán)II囪I旦命令名稱⑨：——連接?:IConnectionl=1

富DataEnvironment1數(shù)據(jù)懣

"數(shù)據(jù)庫對(duì)象9）：俵三］

日嗎Connectionl對(duì)象名稱@）：同番三|

E施Coiranandl

國(guó)Command?rSQL語句g：%生應(yīng)留㈤.I

命令：Command?fromConnectior

|確定i取消gfflR）I幫助

屬性設(shè)置值

命令名稱Command1

連接Connectionl

數(shù)據(jù)庫對(duì)象表

對(duì)象名稱成績(jī)

單擊“關(guān)聯(lián)”選項(xiàng)卡。選中“與父命令對(duì)象相關(guān)聯(lián)”復(fù)選框。

“父”包含“學(xué)號(hào)”。。。

“子字段/參數(shù)”包含“數(shù)學(xué)”…

單擊“添加”。單擊“確定”關(guān)閉對(duì)話框。

Connnand2屬性區(qū)

通用］參數(shù)關(guān)聯(lián)|分組|合計(jì)|高級(jí)|

V與父命令對(duì)象相關(guān)聯(lián)國(guó)）

父命令C）：CommandlTI

關(guān)聯(lián)定義

父字段位）子字段/參數(shù)國(guó)）

|出生日期三R+Sa三添加①）|

拜

字號(hào)TOr刪除也）|

姓名TO

學(xué)

號(hào)

出生日期

數(shù)

出生日期TO學(xué)

英

出生日期TO語

健

ToLi

確定取消|應(yīng)用Q）|幫助

設(shè)置工程和設(shè)計(jì)器的屬性，然后保存工程，設(shè)置工程和設(shè)計(jì)器的屬性：

（2）.創(chuàng)建數(shù)據(jù)報(bào)表

在“工程”菜單上，單擊“添加DataReport",VB將把它添加到的工程中。

工程（R）格式9）調(diào)試①）運(yùn)行（R

13添加窗體（E）

拈添加MDI窗體（工）

建添加模塊⑻

?添加類模塊（C）

國(guó)添加用戶控件但）回困口

畫添加屬性頁（P）

日3工程1ci面廠

愴添加用戶文檔（D）m片窗體

添加WebClassaForml(Forml)

添加DataReportBS設(shè)計(jì)器

添加DKTMLPageRDataEnvirownent1(T

添力口DataEnvironment宿D(zhuǎn)ataReportl(DataRw

設(shè)置DataReport對(duì)象的屬性:

屬性設(shè)置值

NameDataReport1

CaptionDataReport1

DatasourceDataEnvironmentl

DataNumberCommand1

打開“數(shù)據(jù)環(huán)境設(shè)計(jì)器”和“數(shù)據(jù)報(bào)表設(shè)計(jì)器”兩個(gè)文件

程1一...1.1口1*址工程1-DataRepor...匚叵區(qū)

知后店I刮x|囤匕|明日

-%Connectionl

&圃Coiranandl

學(xué)號(hào)

姓名

(±)性別

(1|

[11出生日期

(^成績(jī)

(±)照片

(1]

簡(jiǎn)歷

H|1]

|1Coiranand2

日學(xué)號(hào)

日數(shù)學(xué)

E英語

目計(jì)算機(jī)

命令：Conunand2基干成績(jī)table

從“數(shù)據(jù)環(huán)境設(shè)計(jì)器“，把字段拖到“數(shù)據(jù)報(bào)表設(shè)計(jì)器”中

編輯“數(shù)據(jù)報(bào)表設(shè)計(jì)器”

保存工程。

（3）.使用Show方法預(yù)覽數(shù)據(jù)報(bào)表：報(bào)表名.Show

府工程1-Forml(Code)DI

jCoBBandl▼|Click?〕

PrivateSubCommandl_Click0▲1

DataReport1.Show

EndSub▼!

8.上機(jī)整體調(diào)試運(yùn)行程序，找到不足，完善功能，達(dá)到各方面的要求

9.撰寫課程設(shè)計(jì)報(bào)告

六、課程設(shè)計(jì)報(bào)告的基本格式：

課程設(shè)計(jì)報(bào)告的基本內(nèi)容至少包括封面、