VB數(shù)據(jù)庫應(yīng)用實(shí)例教程

會計(jì)學(xué)1VB數(shù)據(jù)庫應(yīng)用實(shí)例教程常見的數(shù)據(jù)庫有MicrosoftAccess、MicrosoftSQLSERVER、Oracle、Sybase。以下是數(shù)據(jù)庫中常用的術(shù)語：記錄（Record）：記錄是存放數(shù)據(jù)的基本單位，一個記錄就是一條完整的信息；字段（Field）：每個記錄由若干字段組成；數(shù)據(jù)表（Table）：記錄的集合構(gòu)成一個數(shù)據(jù)表；數(shù)據(jù)庫（Database）：若干數(shù)據(jù)表構(gòu)成一個數(shù)據(jù)庫。常用數(shù)據(jù)庫訪問技術(shù)：（1）DAO（DataAccessObject）數(shù)據(jù)訪問對象：DAO是MicrosoftJet數(shù)據(jù)庫引擎數(shù)據(jù)訪問對象，是第一個面向?qū)ο蟮慕涌?，有著極為廣泛的應(yīng)用。（2）ODBC是一種底層數(shù)據(jù)訪問技術(shù)，允許VisualBasic通過ODBC連接到其他數(shù)據(jù)庫。（3）OLEDB(ObjectLinkingandEmbeddingDatabase)是新的低層接口，Microsoft將用它取代ODBC作為連接數(shù)據(jù)庫的主要低層數(shù)據(jù)訪問技術(shù)。（4）ADO是新近發(fā)展的數(shù)據(jù)庫訪問技術(shù)，ADO提供了在OLEDB中不能直接訪問的函數(shù)。第1頁/共14頁任務(wù)1數(shù)據(jù)瀏覽窗口的設(shè)計(jì)

〖任務(wù)要求〗

設(shè)計(jì)一個數(shù)據(jù)瀏覽窗口，功能包括：（1）使用多個文本框顯示數(shù)據(jù)表當(dāng)前記錄信息；（2）使用表格顯示數(shù)據(jù)表多條記錄信息；（3）提供【首記錄】、【上一記錄】、【下一記錄】、【最后記錄】、【指定記錄】功能按鈕，并且具有判斷記錄越界的功能；（4）表格與文本框具有關(guān)聯(lián)功能；（5）動態(tài)顯示總記錄數(shù)和當(dāng)前記錄。實(shí)現(xiàn)的數(shù)據(jù)瀏覽窗口如圖所示：第2頁/共14頁任務(wù)1數(shù)據(jù)瀏覽窗口的設(shè)計(jì)

〖準(zhǔn)備工作〗〖1〗Adodc控件選擇【工程】的【部件(0)…】選項(xiàng)即可打開“部件”對話框，找到并選中選中“MicrosoftADODataControls6.0(OLEDB)”即可Adodc控件添加到工具箱中。工具箱中的Adodc控件為：

〖2〗DataGrid控件選擇【工程】的【部件(0)…】選項(xiàng)即可打開“部件”對話框，找到并選中選中“MicrosoftDataGridControls6.0(OLEDB)”即可將DataGrid控件添加到工具箱中。工具箱中的DataGrid控件為：第3頁/共14頁任務(wù)1數(shù)據(jù)瀏覽窗口的設(shè)計(jì)

〖準(zhǔn)備工作〗

〖3〗數(shù)據(jù)表Student的屬性、類型和寬度等信息如表所示：設(shè)計(jì)步驟見課本P132屬性說明類型寬度備注xuehao學(xué)號字符10NOTNULL，主鍵xingming姓名字符8NOTNULLxingbie性別字符2NULLcsny出生年月日期時間型8NULLsyd生源地字符10NULLzzmm政治面貌字符10NULLMz民族字符10NULLBt補(bǔ)貼數(shù)值型7,2NULL第4頁/共14頁任務(wù)2數(shù)據(jù)維護(hù)窗口的設(shè)計(jì)

〖任務(wù)要求〗

設(shè)計(jì)一個數(shù)據(jù)維護(hù)窗口，功能包括：（1）使用多個文本框顯示數(shù)據(jù)表當(dāng)前記錄信息；（2）使用表格顯示數(shù)據(jù)表多條記錄信息；（3）提供【首記錄】、【上一記錄】、【下一記錄】、【最后記錄】功能按鈕，并且具有判斷記錄越界的功能；（4）各按鈕之間、表格與文本框之間具有關(guān)聯(lián)功能；（5）動態(tài)顯示總記錄數(shù)和當(dāng)前記錄；（6）具有【添加記錄】和【修改記錄】功能按鈕，操作時具有完整性約束功能，如學(xué)號和姓名不能為空，學(xué)號為8位等；另外，操作時用戶可以通過點(diǎn)擊【確定】按鈕確定相應(yīng)的改動，點(diǎn)擊【取消】按鈕取消所做的修改；（7）具有【刪除記錄】功能按鈕，提示用戶是否刪除選定記錄；確定后刪除選定的記錄；第5頁/共14頁任務(wù)2數(shù)據(jù)維護(hù)窗口的設(shè)計(jì)

〖任務(wù)要求〗

（8）用戶可以將以“學(xué)號.jpg”為文件存儲在固定的文件夾下，如程序目錄下的“picture”文件夾下，系統(tǒng)會自動讀取該圖像文件并加入到學(xué)生信息維護(hù)窗口中的image控件中。另外，刪除學(xué)生時自動將該文件刪除；（9）錄入常用數(shù)據(jù)時，如“政治面貌”、“民族”和“生源地”等信息，采用組合框讓用戶方便選擇；（10）錄入時間時，采用日歷控件進(jìn)行錄入，避免錄入格式出錯。實(shí)現(xiàn)的數(shù)據(jù)維護(hù)窗口如圖所示：第6頁/共14頁任務(wù)2數(shù)據(jù)維護(hù)窗口的設(shè)計(jì)

〖準(zhǔn)備知識〗〖1〗FSO對象模型文件系統(tǒng)對象（FileSystemObject，F(xiàn)SO）模型提供了一整套對文件系統(tǒng)進(jìn)行管理和操作的方法和屬性。包括創(chuàng)建、移動、改變或刪除文件夾（目錄）和文件，以及獲得驅(qū)動器的信息和操作驅(qū)動器。

〖2〗文件系統(tǒng)對象FileSystemObject對象

FileSystemObject對象是FSO模型中的核心對象，在應(yīng)用程序中使用FSO的主要步驟是：●創(chuàng)建一個FileSystemObject對象?！窀鶕?jù)應(yīng)用程序的需要，通過調(diào)用FileSystemObject對象中的方法來創(chuàng)建一個新的對象。●通過讀取新對象的屬性值獲取用戶所需的信息或利用對象的方法進(jìn)行所需的操作。（1）創(chuàng)建FileSystemObject對象創(chuàng)建FileSystemObject對象有兩種方法：方法1：使用New關(guān)鍵字聲明一個變量為FileSystemObject對象類型。使用格式如下：

Dim<變量名>AsNewFileSystemObject第7頁/共14頁任務(wù)2數(shù)據(jù)維護(hù)窗口的設(shè)計(jì)

〖準(zhǔn)備知識〗

方法2：使用CreateObject方法創(chuàng)建一個FileSystemObject對象，使用格式如下：

Set<變量名>=CreateObject(“Scripting.FileSystemObject”)

（2）FileSystemObject對象的屬性

FileSystemObject的屬性只有Drives，這是系統(tǒng)中所有Drive對象的對象集合，用戶可以獲取當(dāng)前計(jì)算機(jī)系統(tǒng)中所有驅(qū)動器的信息。如：

Dimfs,d,dc,sSetfs=CreateObject("Scripting.FileSystemObject")Setdc=fs.Drivess="該計(jì)算機(jī)中有以下驅(qū)動器"&vbCrLfForEachdIndcs=s&d.DriveLetter&"驅(qū)動器"s=s&vbCrLfNextMsgBoxs

運(yùn)行結(jié)果如圖所示：第8頁/共14頁任務(wù)2數(shù)據(jù)維護(hù)窗口的設(shè)計(jì)

〖準(zhǔn)備知識〗

（3）FileSystemObject對象的方法方法名操作類型語法格式CopyFile復(fù)制文件對象名.CopyFile源文件目標(biāo)文件[,存在的文件是否覆蓋]<存在的文件是否覆蓋>是True時文件將被覆蓋；如果是False，不被覆蓋；缺省值是TrueCopyFolder復(fù)制文件夾對象名.CopyFolder源文件夾目標(biāo)文件夾[,存在的文件夾是否覆蓋]CreateFolder創(chuàng)建文件夾對象名.CreateFolder<文件夾名>CreateTextFile創(chuàng)建文本文件對象名.CreateTextFile<文件名>DeleteFile刪除文件對象名.DeleteFile<文件名>[,文件屬性為只讀是否刪除]DeleteFolder刪除文件夾對象名.DeleteFolder<文件夾名>[,文件夾屬性為只讀是否刪除]DeleteFolder方法不管指定的文件夾中是否有內(nèi)容，它都被刪除DriveExists指定驅(qū)動器是否存在對象名.DriveExists<驅(qū)動器名稱>對于可刪除介質(zhì)的驅(qū)動器，即使沒有介質(zhì)存在，DriveExists方法也返回True?？墒褂肈rive對象的IsReady屬性確定驅(qū)動器是否準(zhǔn)備好。FileExists指定文件是否存在對象名.FileExists<文件路徑+文件名>FolderExists指定文件夾是否存在對象名.FolderExists<文件夾路徑>GetDrive返回與該驅(qū)動器相對應(yīng)的Drive對象對象名.GetDrive<驅(qū)動器>GetFolder返回與該文件夾相對應(yīng)的Folder對象對象名.GetFolder<文件夾路徑>GetFile返回與該文件相對應(yīng)的File對象對象名.GetFile<文件路徑+文件名>MoveFile移動文件對象名.MoveFile源文件目標(biāo)文件MoveFolder移動文件夾對象名.MoveFolder源文件夾目標(biāo)文件夾第9頁/共14頁任務(wù)2數(shù)據(jù)維護(hù)窗口的設(shè)計(jì)

〖準(zhǔn)備知識〗

〖3〗MonthView控件選擇【工程】的【部件(0)…】選項(xiàng)即可打開“部件”對話框，找到并選中選中“MicrosoftWindowsCommonControls-26.0(SP3)”即可將MonthView控件添加到工具箱中。工具箱中的MonthView控件為：

〖4〗數(shù)據(jù)表Student的屬性、類型和寬度等信息如表所示：屬性說明類型寬度備注Xuehao學(xué)號字符10NOTNULL，主鍵xingming姓名字符8NOTNULLXingbie性別字符2NULLCsny出生年月日期時間型8NULLSyd生源地字符10NULLZzmm政治面貌字符10NULLMz民族字符10NULLBt補(bǔ)貼數(shù)值型7,2NULLZp照片字符20NULL第10頁/共14頁任務(wù)2數(shù)據(jù)維護(hù)窗口的設(shè)計(jì)

〖準(zhǔn)備知識〗〖5〗生源地表syd的屬性、類型和寬度等信息如表所示：

屬性說明類型寬度備注Code代碼字符6NOTNULL，主鍵sydname生源地名稱字符20NOTNULL〖6〗民族表mz的屬性、類型和寬度等信息如表所示：

屬性說明類型寬度備注Code代碼字符2NOTNULL，主鍵mzname民族名稱字符20NOTNULL〖7〗政治面貌表zzmm的屬性、類型和寬度等信息如表所示：屬性說明類型寬度備注Code代碼字符2NOTNULL，主鍵zzmmname政治面貌名稱字符20NOTNULL設(shè)計(jì)步驟見課本P140第11頁/共14頁任務(wù)3數(shù)據(jù)查詢窗口的設(shè)計(jì)

〖任務(wù)要求〗

設(shè)計(jì)一個數(shù)據(jù)查詢窗口，功能包括：（1）可選擇查詢字段；（2）提供等于“=”、大于“>”、大于等于“>=”、小于“<”、小于等于“<=”、不等于“<>”、字符