VB數據庫應用實例教程

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

〖任務要求〗

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

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

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

〖準備工作〗

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

〖任務要求〗

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

〖任務要求〗

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

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

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

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

Dim<變量名>AsNewFileSystemObject第7頁/共14頁任務2數據維護窗口的設計

〖準備知識〗

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

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

（2）FileSystemObject對象的屬性

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

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

運行結果如圖所示：第8頁/共14頁任務2數據維護窗口的設計

〖準備知識〗

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

〖準備知識〗

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

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

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

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

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

〖任務要求〗

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