項目15汽車銷售管理系統(tǒng)

1、VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程主編主編 管小清管小清 郭賀彬郭賀彬VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社項目十五：汽車銷售管理系統(tǒng)項目十五：汽車銷售管理系統(tǒng)n項目功能描述：項目功能描述：n本項目設(shè)計并實現(xiàn)了一個汽車銷售管理信息系統(tǒng)，后臺數(shù)據(jù)庫采本項目設(shè)計并實現(xiàn)了一個汽車銷售管理信息系統(tǒng)，后臺數(shù)據(jù)庫采用用SQL Server，前端功能實現(xiàn)采用，前端功能實現(xiàn)采用VB程序設(shè)計，主要功能如下：程序設(shè)計，主要功能如下：n1.系統(tǒng)管理：用來實現(xiàn)對用戶的添加、刪除和修改等操作。系統(tǒng)管理：用來實現(xiàn)對用戶的添加、刪除和修改等操作。n2.銷售管理：用來實現(xiàn)對

2、入庫單、銷售單的添加、刪除和修改等銷售管理：用來實現(xiàn)對入庫單、銷售單的添加、刪除和修改等操作。操作。n3.客戶管理：用來實現(xiàn)對客戶信息的添加、刪除和修改等操作?？蛻艄芾恚河脕韺崿F(xiàn)對客戶信息的添加、刪除和修改等操作。n4車輛金額匯總：根據(jù)需要匯總銷售金額。車輛金額匯總：根據(jù)需要匯總銷售金額。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社項目十五：汽車銷售管理系統(tǒng)項目十五：汽車銷售管理系統(tǒng)n項目主要知識點：項目主要知識點：n非編程代碼訪問數(shù)據(jù)庫非編程代碼訪問數(shù)據(jù)庫nADODC控件控件nDataGrid數(shù)據(jù)綁定控件數(shù)據(jù)綁定控件n項目實施步驟：項目實施步驟：n 1閱讀

3、相關(guān)基礎(chǔ)知識閱讀相關(guān)基礎(chǔ)知識n 2汽車銷售管理系統(tǒng)功能設(shè)計簡述汽車銷售管理系統(tǒng)功能設(shè)計簡述n 3SQL Server 2000數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計n 4汽車銷售管理系統(tǒng)窗體設(shè)計汽車銷售管理系統(tǒng)窗體設(shè)計n 5程序調(diào)試程序調(diào)試VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.1 基礎(chǔ)知識概述基礎(chǔ)知識概述n我們已經(jīng)知道我們已經(jīng)知道ADO通常采用兩種方法實現(xiàn)對數(shù)據(jù)庫的訪問，一種是采用通常采用兩種方法實現(xiàn)對數(shù)據(jù)庫的訪問，一種是采用ADODC控件來實現(xiàn)，另一種采用控件來實現(xiàn)，另一種采用ADO對象編程來實現(xiàn)。本項目采用對象編程來實現(xiàn)。本項目采用ADODC控件來實現(xiàn)?？丶?/p>

4、實現(xiàn)。n15.1.1 ADO控件的主要屬性控件的主要屬性n1ConnectionString屬性屬性nConnectionString屬性為字符串，包含用來建立與數(shù)據(jù)源連接的所有信屬性為字符串，包含用來建立與數(shù)據(jù)源連接的所有信息，每項信息用分號隔開，在息，每項信息用分號隔開，在ConnectionString屬性中有屬性中有4個主要參數(shù)，個主要參數(shù)，即：即：n（1）Provider： 指定數(shù)據(jù)源的名稱。指定數(shù)據(jù)源的名稱。n（2）File Name：指定基于數(shù)據(jù)源的文件名稱。：指定基于數(shù)據(jù)源的文件名稱。 n（3）Remote Provider：指定打開客戶端連接時，使用的數(shù)據(jù)源名稱。：指定打開客

5、戶端連接時，使用的數(shù)據(jù)源名稱。n（4）Remote Server：指定打開客戶端連接時，使用服務(wù)器路徑名稱。：指定打開客戶端連接時，使用服務(wù)器路徑名稱。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.1 基礎(chǔ)知識概述基礎(chǔ)知識概述n2UserName屬性屬性nUserName屬性是屬性是ADODC控件特有的屬性，在控件特有的屬性，在ADO對象模型中沒有，它用來指定用戶的名稱。可以在對象模型中沒有，它用來指定用戶的名稱?？梢栽贏DODC控件的控件的“屬性窗口屬性窗口”中直接輸入，也可以在中直接輸入，也可以在ADODC控件的控件的“屬性頁屬性頁”對話框或?qū)υ捒蚧?/p>

6、“數(shù)據(jù)鏈接屬性數(shù)據(jù)鏈接屬性”對話框中設(shè)置。對話框中設(shè)置。n3RecordSource屬性屬性nRecordSource屬性也是屬性也是ADODC控件特有的屬性，該控件特有的屬性，該屬性通常是由一條屬性通常是由一條SQL語句組成，用于決定從數(shù)據(jù)庫語句組成，用于決定從數(shù)據(jù)庫中檢索信息。中檢索信息。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.1.2 ADODC控件常用方法控件常用方法n1Refresh方法方法n該方法用于刷新與該方法用于刷新與ADODC控件連接的記錄集的數(shù)據(jù)?？丶B接的記錄集的數(shù)據(jù)。n2.UpDateRecord方法方法n通過此方法可以將數(shù)據(jù)

7、綁定控件上的當(dāng)前內(nèi)容寫入到數(shù)據(jù)庫中。通過此方法可以將數(shù)據(jù)綁定控件上的當(dāng)前內(nèi)容寫入到數(shù)據(jù)庫中。n3Close方法方法 nClose方法主要用于關(guān)閉打開的對象及相關(guān)的對象。方法主要用于關(guān)閉打開的對象及相關(guān)的對象。n其它關(guān)于如何調(diào)用其它關(guān)于如何調(diào)用ADCDC控件及其專門與控件及其專門與ADODC控件綁定的控件綁定的ActiveX控件可參考項目十四控件可參考項目十四“ADO數(shù)據(jù)庫訪問技術(shù)數(shù)據(jù)庫訪問技術(shù)”。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.2 汽車管理系統(tǒng)功能設(shè)計汽車管理系統(tǒng)功能設(shè)計 n15.2.1 系統(tǒng)目標(biāo)系統(tǒng)目標(biāo)n通過使用汽車銷售管理系統(tǒng)，可以方便

8、地對汽車入庫通過使用汽車銷售管理系統(tǒng)，可以方便地對汽車入庫及銷售進行管理，隨時可查詢汽車庫存信息資料、購及銷售進行管理，隨時可查詢汽車庫存信息資料、購車人信息資料并進行修改刪除，還可對車輛情況進行車人信息資料并進行修改刪除，還可對車輛情況進行匯總。匯總。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.2.1 系統(tǒng)功能系統(tǒng)功能n1系統(tǒng)管理系統(tǒng)管理n對用戶信息進行添加、修改、刪除。對用戶信息進行添加、修改、刪除。n2汽車銷售管理汽車銷售管理n對入庫車輛、銷售車輛、庫存車輛進行查看、添加、修改、刪除。對入庫車輛、銷售車輛、庫存車輛進行查看、添加、修改、刪除。n3

9、客戶信息管理客戶信息管理n對購車人的信息進行查看、添加、修改、刪除。對購車人的信息進行查看、添加、修改、刪除。n4車輛金額匯總車輛金額匯總n隨時可根據(jù)需要按銷售單號、車輛名稱及時間統(tǒng)計汽車銷售數(shù)量、隨時可根據(jù)需要按銷售單號、車輛名稱及時間統(tǒng)計汽車銷售數(shù)量、金額進行匯總。金額進行匯總。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.2.3 系統(tǒng)結(jié)構(gòu)圖系統(tǒng)結(jié)構(gòu)圖n汽車銷售管理系統(tǒng)如圖汽車銷售管理系統(tǒng)如圖15-1所示所示: 圖 15-1 汽車銷售管理系統(tǒng) VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.3 SQL Serve

10、r2000數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計n15.3.1 建立數(shù)建立數(shù)據(jù)庫據(jù)庫n 啟動啟動SQL Server 2000中中企業(yè)管理器，企業(yè)管理器，建立數(shù)據(jù)庫建立數(shù)據(jù)庫CarSale如圖如圖15-2所示：所示：圖 15-2 汽車銷售管理系統(tǒng)數(shù)據(jù)庫與數(shù)據(jù)表VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.3.2 設(shè)計數(shù)據(jù)表設(shè)計數(shù)據(jù)表n1用戶信息表如圖用戶信息表如圖15-3所示：所示：圖 15-3 用戶信息表VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.3.2 設(shè)計數(shù)據(jù)表設(shè)計數(shù)據(jù)表n 2入庫單表如圖入庫單表如圖15-4所示所示:圖 1

11、5-4 入庫單表VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.3.2 設(shè)計數(shù)據(jù)表設(shè)計數(shù)據(jù)表n3銷售單表如圖銷售單表如圖15-5所示：所示：圖 15-5 銷售單表VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.3.2 設(shè)計數(shù)據(jù)表設(shè)計數(shù)據(jù)表n4庫存信息表如圖庫存信息表如圖15-6所示：所示：圖 15-6 庫存信息表VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.3.2 設(shè)計數(shù)據(jù)表設(shè)計數(shù)據(jù)表n5客戶信息表如圖客戶信息表如圖15-7所示：所示：圖15-7 客戶信息表VBVB程序設(shè)計項目化

12、教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n1設(shè)計概述設(shè)計概述n在主窗體界面中單擊菜單或工具欄上的功能按鈕在主窗體界面中單擊菜單或工具欄上的功能按鈕,可以調(diào)用相應(yīng)的子窗體可以調(diào)用相應(yīng)的子窗體,進行相應(yīng)的操作。在進行相應(yīng)的操作。在狀態(tài)欄中顯示當(dāng)前的日期、時間以及公司的網(wǎng)址。對界面背景進行添加圖片和陰影字的設(shè)計。狀態(tài)欄中顯示當(dāng)前的日期、時間以及公司的網(wǎng)址。對界面背景進行添加圖片和陰影字的設(shè)計。n2.主窗體設(shè)計主窗體設(shè)計n（1）新建工程）新建工程n新建一個新建一個“標(biāo)準(zhǔn)標(biāo)準(zhǔn)EXE”工程并將工程命名為工程并將工程命名為“汽車

13、銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”。n（2）添加主窗體）添加主窗體n選擇選擇“工程工程”“添加窗體添加窗體”，在項目中添加了主窗體。該窗體的一，在項目中添加了主窗體。該窗體的一n些屬性如表些屬性如表15-1所示：所示：屬屬 性性值值Caption汽車銷售管理系統(tǒng)NameFormMainWindowstateMaxsize 注：Windowstate的值為Maxsize，即程序啟動之后自動最大化。表 15-1 窗體屬性表VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n（3）菜單設(shè)計）菜單設(shè)計n選擇選擇“工

14、具工具”“菜單編輯器菜單編輯器”編輯菜單，各菜單項如表編輯菜單，各菜單項如表15-2所示：所示： 菜單標(biāo)題菜單標(biāo)題說明說明快捷方式快捷方式系統(tǒng)用戶管理系統(tǒng)用戶管理主菜單項主菜單項1 1自行設(shè)置自行設(shè)置添加用戶子菜單項11同上查看/修改密碼子菜單項12同上汽車銷售管理汽車銷售管理主菜單項主菜單項2 2同上添加入庫單子菜單項21同上修改/刪除入庫單子菜單項22同上編輯銷售單子菜單項23同上查詢庫存信息編輯庫存信息子菜單項24同上客戶信息管理客戶信息管理主菜單項主菜單項3 3同上查看客戶信息子菜單項31同上添加客戶信息子菜單項32同上修改/刪除客戶信息子菜單項33同上車輛金額匯總車輛金額匯總主菜單項

15、主菜單項4 4同上車輛金額匯總子菜單項51同上退出退出主菜單項主菜單項5 5同上退出系統(tǒng)子菜單項61同上VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n4）工具欄設(shè)計）工具欄設(shè)計n添加部件添加部件n選擇選擇“工程工程“部件部件”，在彈出的列表中選中，在彈出的列表中選中“Microsoft nWindows Common Control6.0(sp3)”選項，然后單擊確定按鈕選項，然后單擊確定按鈕, 將工具將工具欄等控件添加到工具箱中，如圖欄等控件添加到工具箱中，如圖15-8所示：所示：Toobar控

16、件控件 仿宋體控件StatusBar控件ImageList控件圖 15-8 ImageList,Toolbar,StartBar控件VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n設(shè)置設(shè)置ImageList控件控件n將將ImageList控件放置窗體，右鍵單擊此控件，在彈出的菜單中選擇控件放置窗體，右鍵單擊此控件，在彈出的菜單中選擇“屬屬性性”，在，在“屬性頁屬性頁”對話框中單擊對話框中單擊“通用通用”選項卡，并設(shè)置如圖選項卡，并設(shè)置如圖15-9所所示的選項示的選項選擇“通用”選項卡中的“3232”

17、選項圖 15-9 ImageList通用屬性設(shè)置VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n在在“屬性頁屬性頁”對話框中單擊對話框中單擊“圖像圖像”選項卡，并設(shè)置選項卡，并設(shè)置如圖如圖15-10所示的選項（注意：一定要添寫關(guān)鍵字）所示的選項（注意：一定要添寫關(guān)鍵字）單擊“插入圖片”插入所需圖片圖 15-10 ImageList圖像屬性設(shè)置VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n設(shè)置設(shè)置Tool

18、Bar控件屬性控件屬性n將將ToolBar控件放置窗體，控件放置窗體，右鍵單擊此控件，在彈右鍵單擊此控件，在彈出的菜單中選擇出的菜單中選擇“屬屬性性”，在，在“屬性頁屬性頁”對對話框中單擊話框中單擊“通用通用”選選項卡項卡,“圖像列表圖像列表”選擇選擇ImageList1,如圖如圖15-11所示：所示：圖 15-11 ToolBar通用屬性設(shè)置VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n在在“屬性頁屬性頁”對話對話框中單擊框中單擊“按鈕按鈕”選項卡選項卡,單擊單擊“插入插入按鈕按鈕”，將，將“關(guān)

19、鍵關(guān)鍵字字”與與“圖像圖像”一一一對應(yīng)，如圖一對應(yīng)，如圖15-12所示：所示： 圖 15-12 ToolBar按鈕屬性的設(shè)置VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n（5）狀態(tài)欄設(shè)置）狀態(tài)欄設(shè)置 n設(shè)置狀態(tài)欄屬性設(shè)置狀態(tài)欄屬性n將將StatusBar控件放置窗體，右鍵單擊此控件，在彈出的菜單中控件放置窗體，右鍵單擊此控件，在彈出的菜單中選擇選擇“屬性屬性”，在，在“屬性頁屬性頁”對話框中單擊對話框中單擊“窗格窗格”選項卡選項卡,單擊單擊“插入窗格插入窗格”按鈕，插入四個窗格，在窗格按鈕，插入四

20、個窗格，在窗格1中輸入文本中輸入文本“汽車汽車銷售管理系統(tǒng)主窗體銷售管理系統(tǒng)主窗體”，在窗格，在窗格2中輸入文本中輸入文本http:/，在窗格，在窗格3中樣式選中樣式選“6-sbrData”， 在窗格在窗格4中樣式選中樣式選“5-sbrTime”。n（6）主窗體背景設(shè)計）主窗體背景設(shè)計nPicture屬性：值為圖片所在的路徑屬性：值為圖片所在的路徑nStartUpPostion屬性：值為屬性：值為“1-所有者中心所有者中心”n陰影字陰影字“汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”的設(shè)置可參考項目三的設(shè)置可參考項目三VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.

21、4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n主窗體界面如圖主窗體界面如圖15-13所示：所示：圖 15-13 汽車銷售管理系統(tǒng)主窗體界面VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4 “汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)”窗體設(shè)計窗體設(shè)計n3主窗體主要代碼主窗體主要代碼nPrivate Sub carin_Click() 調(diào)用子窗體調(diào)用子窗體nfrm_edit_Carin.ShownEnd SubnPrivate Sub carsale_Click() 調(diào)用子窗體調(diào)用子窗體nFrm_edit_CarSale.ShownEnd SubnPri

22、vate Sub Menu_addCar_Click() 調(diào)用子窗體調(diào)用子窗體n Frm_addCar.ShownEnd SubnPrivate Sub Menu_addCus_Click() 調(diào)用子窗體調(diào)用子窗體n Frm_addCus.ShownEnd SubnPrivate Sub Menu_addUser_Click() 調(diào)用子窗體調(diào)用子窗體n Frm_addUser.ShownEnd SubVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n1子窗體設(shè)計子窗體設(shè)計n（1）設(shè)計說明）設(shè)計說明n 汽車銷售管理系統(tǒng)的子窗汽

23、車銷售管理系統(tǒng)的子窗體類型主要有體類型主要有“系統(tǒng)登錄系統(tǒng)登錄”、“數(shù)據(jù)編輯錄入數(shù)據(jù)編輯錄入”、“查查詢詢”、“數(shù)據(jù)統(tǒng)計數(shù)據(jù)統(tǒng)計”等。在等。在汽車管理系統(tǒng)中，要創(chuàng)建的汽車管理系統(tǒng)中，要創(chuàng)建的所有子窗體如下表所有子窗體如下表15-3所示：所示：子窗體標(biāo)題子窗體標(biāo)題子子 窗窗 體體 名名添加用戶 Frm_addUser修改 /刪除用戶Frm_edit_User添加入庫單Frm_addCarin修改/刪除入庫單Frm_edit_addCarin編輯銷售單Frm_edit_Carsale編輯庫存信息Frm_edit_warehouse查詢庫存信息Frm_queCar查看客戶信息Frm_queCus添加

24、客戶信息Frm_addCus修改/刪除客戶信息Frm_edit_addCus查詢銷售金額Frm_queSum銷售信息圖表Frm_datareport系統(tǒng)登錄Frm_loginVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n（2）子窗體代碼）子窗體代碼n 所有子窗體我們使用所有子窗體我們使用ADODC控件與數(shù)據(jù)綁定控件結(jié)合，實控件與數(shù)據(jù)綁定控件結(jié)合，實現(xiàn)我們所需要的功能，基本上不需要編程代碼或僅需要少許編程現(xiàn)我們所需要的功能，基本上不需要編程代碼或僅需要少許編程代碼。代碼。n2數(shù)據(jù)編輯錄入子窗體數(shù)據(jù)編輯錄入子窗體n 數(shù)據(jù)編輯

25、錄入窗體是指在窗體中顯示一些常用的數(shù)據(jù)錄入控件，數(shù)據(jù)編輯錄入窗體是指在窗體中顯示一些常用的數(shù)據(jù)錄入控件，如文本框如文本框TextBox、組合框、組合框ComboBox等，及相應(yīng)命令控件等，及相應(yīng)命令控件CommandButton， n對數(shù)據(jù)進行添加、修改、刪除、取消等。除此之外數(shù)據(jù)編輯錄入對數(shù)據(jù)進行添加、修改、刪除、取消等。除此之外數(shù)據(jù)編輯錄入窗體，還應(yīng)具有控制焦點在控件中的訪問順序，例如，當(dāng)用戶填窗體，還應(yīng)具有控制焦點在控件中的訪問順序，例如，當(dāng)用戶填寫完一項內(nèi)容后，自動將焦點轉(zhuǎn)到下一項內(nèi)容。我們介紹兩種創(chuàng)寫完一項內(nèi)容后，自動將焦點轉(zhuǎn)到下一項內(nèi)容。我們介紹兩種創(chuàng)建數(shù)據(jù)編輯錄入子窗體的方法。建

26、數(shù)據(jù)編輯錄入子窗體的方法。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n（1）創(chuàng)建數(shù)據(jù)編輯錄入）創(chuàng)建數(shù)據(jù)編輯錄入子窗體方法一子窗體方法一n我們以我們以“修改修改/刪除入庫刪除入庫單單”子窗體為例，這種方子窗體為例，這種方法運用前面我們學(xué)習(xí)的文法運用前面我們學(xué)習(xí)的文本框、組合框及命令按鈕，本框、組合框及命令按鈕，把它們一一放到窗體上，把它們一一放到窗體上，設(shè)置屬性，編輯代碼。設(shè)置屬性，編輯代碼。n“修改修改/刪除入庫單刪除入庫單”子窗體如圖子窗體如圖15-14所示：所示：圖 15-14 修改/刪除入庫單VBVB程序設(shè)計項目

27、化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n入庫單子窗體控件列表入庫單子窗體控件列表n添加添加DTPicker日歷控件。日歷控件。n 選擇選擇“工程工程”“部件部件”中中Microsoft Windows Common nControns-2 6.0(SP6)，在工具箱中將，在工具箱中將 添加到窗體添加到窗體中。中。 VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體控控 件件 類類 別別控件控件NameName控件控件captioncaptionLabelLabel1入

28、庫單號Label2日期Label3車輛名稱Label4單價Label5倉庫（網(wǎng)點）Label6經(jīng)手人Label7備注TextBoxTxtnum(空)txtname(空)txtprice(空)txtwarehouse(空)txthandler(空)txtinfo(空)VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體DTPickerDTPicker1當(dāng)前日期CommandButtoncmd_first第一條記錄cmd_pre前一條記錄cmd_next后一條記錄cmd_last最后一條記錄Cmd_modi修改記錄Cmd_del刪除

29、記錄Cmd_quit退出FrameFrame1入庫單Frame2查看入庫信息Frame3修改入庫信息ADODCADODC1ADODC1VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n連接數(shù)據(jù)庫連接數(shù)據(jù)庫n 選擇設(shè)置選擇設(shè)置ADODC控件的控件的ConnectionString屬性屬性(參考參考項目十四項目十四)n用文件框綁定數(shù)據(jù)用文件框綁定數(shù)據(jù)屬性DataSourceAdodc1DataField入庫單號（相應(yīng)字段）圖 15-15 文本框數(shù)據(jù)綁定VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版

30、社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n數(shù)據(jù)輸出數(shù)據(jù)輸出n數(shù)據(jù)輸出如圖數(shù)據(jù)輸出如圖15-16所示：所示：圖 15-16 修改/刪除入庫單數(shù)據(jù)輸出VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n銷售單、庫存信息及客戶信息等窗體設(shè)計與入庫單相同，可自銷售單、庫存信息及客戶信息等窗體設(shè)計與入庫單相同，可自行設(shè)計行設(shè)計n“修改修改/刪除入庫單刪除入庫單”主要代碼主要代碼n控制焦點在控件中的訪問順序代碼：控制焦點在控件中的訪問順序代碼：n要實現(xiàn)該功能，可以使用要實現(xiàn)該功能，可以使用KeyDown事件和事件和SetFocus方法，如

31、當(dāng)方法，如當(dāng)我們修改完我們修改完“入庫單號入庫單號”以后，讓焦點自動移到以后，讓焦點自動移到“日期日期”，代碼，代碼如下：如下：nPrivate Sub txtnum_KeyDown(KeyCode As Integer, Shift As Integer)nIf KeyCode = vbKeyReturn Then DTPicker1.SetFocusnEnd SubVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n當(dāng)我們點擊當(dāng)我們點擊“修改修改”命令按鈕時，讓焦點自動移到命令按鈕時，讓焦點自動移到“入庫單號入庫單號”，代

32、碼如下：，代碼如下：nPrivate Sub Cmd_modi_KeyDown(KeyCode As Integer, Shift As Integer)nIf KeyCode = vbKeyReturn Then txtnum.SetFocusnEnd Subn“前一條前一條”命令按鈕代碼：命令按鈕代碼：nPrivate Sub Cmd_pre_Click()nCmd_next.Enabled = FalsenCmd_pre.Enabled = TruenIf Adodc1.Recordset.BOF = False Thenn Adodc1.Recordset.MovePreviousn

33、Elsen Cmd_pre.Enabled = Falsen Cmd_next.Enabled = Truen End IfnEnd SubVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n“后一條后一條”命令按鈕代碼：命令按鈕代碼：nPrivate Sub Cmd_next_Click()nIf Cmd_pre.Enabled = False Thenn Cmd_next.Enabled = Truen End Ifn If Adodc1.Recordset.EOF = False Thenn Adodc1.Records

34、et.MoveNextnElsen Cmd_next.Enabled = Falsen Cmd_pre.Enabled = TruenEnd IfnEnd SubVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n“修改信息修改信息”命令按鈕代碼：命令按鈕代碼：nPrivate Sub Cmd_modi_Click()ncurId = Adodc1.Recordset.Fields.CountnAdodc1.Recordset.Fields(0).Value = Trim(txtnum.Text)nAdodc1.Records

35、et.Fields(1).Value = DTPicker1.ValuenAdodc1.Recordset.Fields(2).Value = Trim(txtname.Text)nAdodc1.Recordset.Fields(3).Value = Val(Trim(txtprice.Text)nAdodc1.Recordset.Fields(4).Value= Val(Trim(txtwarehouse.Text)nAdodc1.Recordset.Fields(5).Value = Trim(txthandler.Text)nAdodc1.Recordset.Fields(6).Valu

36、e = Trim(txtInfo.Text)nAdodc1.Recordset.Updaten MsgBox (入庫單已修改入庫單已修改)VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體nAdodc1.RecordSource = SELECT * FROM 入庫單入庫單n Adodc1.Refreshn Do While Adodc1.Recordset.Fields.Count curIdn Adodc1.Recordset.Move (1)n LoopnEnd Subn“刪除信息刪除信息”命令按鈕代碼：命令按鈕代碼：n

37、Private Sub Cmd_del_Click()n Adodc1.Recordset.Deleten Adodc1.Recordset.Updaten MsgBox (入庫單已刪除入庫單已刪除)n Adodc1.RecordSource = SELECT * FROM 入庫單入庫單n Adodc1.RefreshnEnd SubVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n（2）創(chuàng)建數(shù)據(jù)編輯錄入子窗體方法二）創(chuàng)建數(shù)據(jù)編輯錄入子窗體方法二n 使用數(shù)據(jù)窗體向?qū)гO(shè)計數(shù)據(jù)編輯錄入窗體。使用數(shù)據(jù)窗體向?qū)гO(shè)計數(shù)據(jù)編輯錄入窗體。

38、n啟動數(shù)據(jù)窗體向?qū)訑?shù)據(jù)窗體向?qū)在在Visual Basic 6.0中提供了一個功能強大的數(shù)據(jù)窗體中提供了一個功能強大的數(shù)據(jù)窗體向?qū)Вㄟ^幾個交互過程，便能夠建立一個訪問數(shù)據(jù)的向?qū)?，通過幾個交互過程，便能夠建立一個訪問數(shù)據(jù)的窗口。窗口?！皵?shù)據(jù)窗體向?qū)?shù)據(jù)窗體向?qū)А睂儆谕饨映绦颍x擇屬于外接程序，選擇“外接程外接程序序”“外接程序管理器外接程序管理器”，彈出如圖，彈出如圖15-17所示的對話所示的對話框，將框，將“VB6.0數(shù)據(jù)窗體向?qū)?shù)據(jù)窗體向?qū)А毖b入到裝入到“外接程序外接程序”的的子菜單中，如圖子菜單中，如圖15-18所示：所示：VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出

39、版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體圖 15-17 “外接程序管理器”對話框圖 15-18 添加后的外接程序VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n選擇數(shù)據(jù)庫類型選擇數(shù)據(jù)庫類型n在選擇配置文件時，可選擇在選擇配置文件時，可選擇“無無”，在數(shù)據(jù)庫類型中，選擇，在數(shù)據(jù)庫類型中，選擇Remote(ODBC)如圖如圖15-19，單擊，單擊“下一步下一步” 圖 15-19 選擇數(shù)據(jù)庫類型VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗

40、體n輸入連接信息輸入連接信息n輸入連接信息，輸入連接信息，如圖如圖15-20所示：所示： 圖 15-20 輸入連接信息VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n輸入窗體信息輸入窗體信息n輸入窗體信息，輸入窗體信息，如圖如圖15-21所示：所示：圖 15-21 窗體信息輸入VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n選擇記錄源選擇記錄源n選擇記錄源，選擇記錄源，如圖如圖15-22所所示：示： 圖 15-22 選擇數(shù)據(jù)窗體的記錄源VBVB程序設(shè)計

41、項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n選擇所需要的控件選擇所需要的控件n根據(jù)需要選擇控件，根據(jù)需要選擇控件，如圖如圖15-23所示，點所示，點擊擊“完成完成”，生成如，生成如圖圖15-24所示所示“編輯編輯銷售單銷售單”窗體。窗體。圖 15-23 選擇需要的控件VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體圖 15-24 用數(shù)據(jù)窗體向?qū)гO(shè)計“編輯銷售單”窗體VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子

42、窗體創(chuàng)建各子窗體n完善完善“編輯銷售單編輯銷售單”窗體窗體 n我們可以根據(jù)需要，在已生成的我們可以根據(jù)需要，在已生成的“編輯銷售單編輯銷售單”窗體窗體中再添加所需要的控件。我們添加一個中再添加所需要的控件。我們添加一個DataGrid控件，控件，并將其并將其DataSource屬性設(shè)置為屬性設(shè)置為datPrimaryRS（數(shù)據(jù)（數(shù)據(jù)窗體向?qū)гO(shè)計窗體時，窗體向?qū)гO(shè)計窗體時，ADODC控件的默認(rèn)名稱為控件的默認(rèn)名稱為datPrimaryRS，可更改為其它名稱）。這樣我們無需，可更改為其它名稱）。這樣我們無需編寫代碼，就可完成對數(shù)據(jù)添加、修改、刪除、更新編寫代碼，就可完成對數(shù)據(jù)添加、修改、刪除、更新

43、等操作。如圖等操作。如圖15-25所示：所示： VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體圖 15-25 添加控件后的“編輯銷售單”窗體VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n兩種方法的比較兩種方法的比較n方法一，制作雖然復(fù)雜，但可以提高我們對知識的更深理解和掌方法一，制作雖然復(fù)雜，但可以提高我們對知識的更深理解和掌握。方法二簡單方便，充分利用握。方法二簡單方便，充分利用VB6.0的強大功能，易于學(xué)習(xí)掌的強大功能，易于學(xué)習(xí)掌握。握。n3查詢

44、窗體設(shè)計查詢窗體設(shè)計n“查詢查詢”是應(yīng)用軟件中必不可少的部分，幾乎任何一個應(yīng)用軟件是應(yīng)用軟件中必不可少的部分，幾乎任何一個應(yīng)用軟件的設(shè)計都離不開查詢，并且占軟件設(shè)計中相當(dāng)大比重，離開了查的設(shè)計都離不開查詢，并且占軟件設(shè)計中相當(dāng)大比重，離開了查詢，軟件應(yīng)用也就失去了實際意義。我們以詢，軟件應(yīng)用也就失去了實際意義。我們以“查詢庫存汽車查詢庫存汽車”窗窗體為例。體為例。n（1）“查詢汽車庫存查詢汽車庫存”窗體設(shè)計窗體設(shè)計n “查詢汽車庫存查詢汽車庫存”窗體控件列表窗體控件列表VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體控控 件

45、件 類類 別別控件控件NameName控件控件captioncaptionOptionButtonOption1按產(chǎn)品批號查詢Option2按車輛名稱查詢Option3按供應(yīng)商名稱查詢ComboBoxCombo1入庫單號Combo2車輛名稱Combo3供應(yīng)商名稱CommandButtonCmd_que查詢Command1退出Cmd_del刪除記錄Cmd_quit退出FrameFrame1請選擇查詢方式Frame2查詢結(jié)果顯示ADODCADODC1ADODC1DataGridDataGrid1DataGrid1VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.

46、4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n連接數(shù)據(jù)庫連接數(shù)據(jù)庫n 設(shè)置設(shè)置ADODC控件的控件的ConnectionString屬性屬性(參考項參考項目十四目十四)n用用DataGrid控件綁定數(shù)據(jù)控件綁定數(shù)據(jù)n設(shè)置設(shè)置DataGrid控件的控件的DataSource屬性為屬性為ADODC1。n設(shè)置設(shè)置DataGrid控件的列值控件的列值n鼠標(biāo)右鍵單擊鼠標(biāo)右鍵單擊DataGrid控件，在彈出的菜單中選擇控件，在彈出的菜單中選擇“檢索字段檢索字段”菜單項，將數(shù)據(jù)源中的各字段添加到菜單項，將數(shù)據(jù)源中的各字段添加到DataGrid控件的列中?？丶牧兄?。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水

47、電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n查詢結(jié)果顯示查詢結(jié)果顯示n 查詢結(jié)果如圖查詢結(jié)果如圖15-25所示：所示：圖 15-25 查詢庫存汽車結(jié)果VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n（3）查詢庫存汽車窗體的主要代碼：）查詢庫存汽車窗體的主要代碼：n 查詢按鈕代碼查詢按鈕代碼n Private Sub Cmd_que_Click()n If Option1 = True Then 選中按入庫單號查詢按鈕選中按入庫單號查詢按鈕n If Combo1.Text Thenn Adodc1.Re

48、cordSource = select * from 庫存信息庫存信息 where _n入庫單號入庫單號 = + Trim(Val(Combo1.Text) + n Adodc1.Refreshn End Ifn End Ifn If Option2 = True Then 選中按車輛名稱查詢按鈕選中按車輛名稱查詢按鈕n If Combo2.Text Thenn Adodc1.RecordSource = select * from 庫存信息庫存信息 where_ n車輛名稱車輛名稱 = + Trim(Combo2.Text) + n Adodc1.Refreshn End Ifn End I

49、fVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n If Option3 = True Then 選中按供應(yīng)商名稱查詢按鈕選中按供應(yīng)商名稱查詢按鈕n If Combo3.Text Thenn Adodc1.RecordSource = select * from 庫存信息庫存信息 where_ n供應(yīng)商名稱供應(yīng)商名稱 = + Trim(Combo3.Text) + n Adodc1.Refreshn End Ifn End IfnEnd SubVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社

50、15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n窗體加載代碼窗體加載代碼nPrivate Sub Form_Load()nMe.Left = (Screen.Width - Me.Width) / 2 窗體居中窗體居中nMe.Top = (Screen.Height - Me.Height) / 2nIf Adodc1.Recordset.EOF = False Thenn With Adodc1.Recordsetn Do While Not .EOFn Combo1.AddItem .Fields(0) 添加入庫單號添加入庫單號n Combo2.AddItem .Fields(1) 添加車輛名稱添

51、加車輛名稱n Combo3.AddItem .Fields(3) 添加供應(yīng)商名稱添加供應(yīng)商名稱n .MoveNextn LoopnEnd WithnEnd IfnEnd SubVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n4數(shù)據(jù)統(tǒng)計窗體設(shè)計數(shù)據(jù)統(tǒng)計窗體設(shè)計n對數(shù)據(jù)進行匯總統(tǒng)計，是對數(shù)據(jù)進行匯總統(tǒng)計，是銷售管理系統(tǒng)重要的環(huán)節(jié)，銷售管理系統(tǒng)重要的環(huán)節(jié)，我們以我們以“汽車金額匯總汽車金額匯總”窗體為例，通過查詢匯總窗體為例，通過查詢匯總銷售金額。銷售金額。n汽車金額匯總窗體設(shè)計汽車金額匯總窗體設(shè)計n汽車金額匯總窗體設(shè)計與汽車金

52、額匯總窗體設(shè)計與查詢庫存汽車窗體設(shè)計相查詢庫存汽車窗體設(shè)計相同，參考一下，不再介紹。同，參考一下，不再介紹。設(shè)計好汽車金額匯總窗體設(shè)計好汽車金額匯總窗體如圖如圖15-26所示：所示：圖 15-26 汽車金額匯總窗體VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n汽車金額匯總窗體代碼汽車金額匯總窗體代碼 n 匯總按鈕代碼匯總按鈕代碼n Sub Cmd_que_Click()n DataGrid1.Visible = Truen If Option1 = True Thenn If Combo1.Text Thenn Adod

53、c1.RecordSource = select * from 銷售單銷售單 where_ n銷售單號銷售單號 = + Trim(Combo1.Text) + n Adodc1.Refreshn 創(chuàng)建匯總數(shù)據(jù)源創(chuàng)建匯總數(shù)據(jù)源n Adodc2.RecordSource = select count(*) as 銷售數(shù)量銷售數(shù)量,_nsum(銷售單價銷售單價) as 銷售金額銷售金額 from 銷售單銷售單 where _n銷售單號銷售單號 = + Trim(Val(Combo1.Text) + n Adodc2.Refreshn End Ifn n Label2.Caption = Adodc2

54、.Recordset.Fields(0) 顯示匯總結(jié)果顯示匯總結(jié)果n Label4.Caption = Adodc2.Recordset.Fields(1) 顯示匯總結(jié)果顯示匯總結(jié)果n End IfVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n If Option2 = True Thenn If Combo2.Text Thenn Adodc1.RecordSource = select * from 銷售單銷售單 where_n 車輛名稱車輛名稱 = + Trim(Combo2.Text) + n Adodc1.Re

55、freshn Adodc2.RecordSource = select count(*) as_ n銷售數(shù)量銷售數(shù)量,sum(銷售單價銷售單價) as 銷售金額銷售金額 from 銷售單銷售單_n where 車輛名稱車輛名稱 = + Trim(Combo2.Text) + n Adodc2.Refreshn End Ifn Label2.Caption = Adodc2.Recordset.Fields(0)n Label4.Caption = Adodc2.Recordset.Fields(1)n End IfVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社

56、15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n If Option3 = True Thenn If Combo3.Text Thenn Adodc1.RecordSource = select * from 銷售單銷售單_ nwhere 日期日期 between & CDate(Combo3.Text)_n & and & CDate(Combo4.Text) & n Adodc1.Refreshn Adodc2.RecordSource = select count(*) as_ n銷售數(shù)量銷售數(shù)量,sum(銷售單價銷售單價) as 銷售金額銷售金額 from 銷售單銷售單_n where 日期

57、日期 between & Combo3.Text & and_n & Combo4.Text & n Adodc2.Refreshn End Ifn Label2.Caption = Adodc2.Recordset.Fields(0)n Label4.Caption = Adodc2.Recordset.Fields(1)n End Ifn End SubVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n窗體加載代碼窗體加載代碼nPrivate Sub Form_Load()nMe.Left = (Screen.Width

58、 - Me.Width) / 2 窗體居中窗體居中nMe.Top = (Screen.Height - Me.Height) / 2nDataGrid1.Visible = FalsenIf Adodc1.Recordset.EOF = False Thenn With Adodc1.Recordsetn Do While Not .EOFn Combo1.AddItem .Fields(0) 添加入庫單號添加入庫單號n Combo2.AddItem .Fields(2) 添加車輛名稱添加車輛名稱n Combo3.AddItem .Fields(1) 添加日期添加日期n Combo4.AddI

59、tem .Fields(1)n .MoveNextn LoopnEnd WithnEnd IfnEnd Sub VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n客戶信息查詢窗體設(shè)計與庫存汽車查詢窗體設(shè)計相同，不再介紹?？蛻粜畔⒉樵兇绑w設(shè)計與庫存汽車查詢窗體設(shè)計相同，不再介紹。n5數(shù)據(jù)圖表窗體設(shè)計數(shù)據(jù)圖表窗體設(shè)計nVB6.0中的中的MSChart控件是一個功能強大的高級圖表工具，擁有控件是一個功能強大的高級圖表工具，擁有豐富的圖表繪制功能，可顯示二維和三維的棒圖、區(qū)域圖、線形豐富的圖表繪制功能，可顯示二維和三維的棒圖、區(qū)域圖

60、、線形圖、餅圖等多種常用圖表。本小節(jié)內(nèi)容可選做。圖、餅圖等多種常用圖表。本小節(jié)內(nèi)容可選做。n我們使用我們使用“銷售單銷售單”數(shù)據(jù)和數(shù)據(jù)和“數(shù)據(jù)窗體向?qū)?shù)據(jù)窗體向?qū)А敝谱鲾?shù)據(jù)圖表窗體，制作數(shù)據(jù)圖表窗體，具體步驟如下：具體步驟如下：n（1）啟動）啟動“數(shù)據(jù)窗體向?qū)?shù)據(jù)窗體向?qū)А盫BVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社15.4.2 創(chuàng)建各子窗體創(chuàng)建各子窗體n啟動啟動“數(shù)據(jù)窗體向數(shù)據(jù)窗體向?qū)?dǎo)”后，在后，在“選擇選擇要求的窗體類型和要求的窗體類型和數(shù)據(jù)綁定類型用于數(shù)據(jù)綁定類型用于訪問數(shù)據(jù)庫訪問數(shù)據(jù)庫”中，中，我們選擇我們選擇MS Chart和和ADO代碼。如圖代