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是新近发展的数据库访问技术，ADO提供了在OLEDB中不能直接访问的函数。第1页/共14页任务1数据浏览窗口的设计

〖任务要求〗

设计一个数据浏览窗口，功能包括：（1）使用多个文本框显示数据表当前记录信息；（2）使用表格显示数据表多条记录信息；（3）提供【首记录】、【上一记录】、【下一记录】、【最后记录】、【指定记录】功能按钮，并且具有判断记录越界的功能；（4）表格与文本框具有关联功能；（5）动态显示总记录数和当前记录。实现的数据浏览窗口如图所示：第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）各按钮之间、表格与文本框之间具有关联功能；（5）动态显示总记录数和当前记录；（6）具有【添加记录】和【修改记录】功能按钮，操作时具有完整性约束功能，如学号和姓名不能为空，学号为8位等；另外，操作时用户可以通过点击【确定】按钮确定相应的改动，点击【取消】按钮取消所做的修改；（7）具有【删除记录】功能按钮，提示用户是否删除选定记录；确定后删除选定的记录；第5页/共14页任务2数据维护窗口的设计

〖任务要求〗

（8）用户可以将以“学号.jpg”为文件存储在固定的文件夹下，如程序目录下的“picture”文件夹下，系统会自动读取该图像文件并加入到学生信息维护窗口中的image控件中。另外，删除学生时自动将该文件删除；（9）录入常用数据时，如“政治面貌”、“民族”和“生源地”等信息，采用组合框让用户方便选择；（10）录入时间时，采用日历控件进行录入，避免录入格式出错。实现的数据维护窗口如图所示：第6页/共14页任务2数据维护窗口的设计

〖准备知识〗〖1〗FSO对象模型文件系统对象（FileSystemObject，FSO）模型提供了一整套对文件系统进行管理和操作的方法和属性。包括创建、移动、改变或删除文件夹（目录）和文件，以及获得驱动器的信息和操作驱动器。

〖2〗文件系统对象FileSystemObject对象

FileSystemObject对象是FSO模型中的核心对象，在应用程序中使用FSO的主要步骤是：●创建一个FileSystemObject对象。●根据应用程序的需要，通过调用FileSystemObject对象中的方法来创建一个新的对象。●通过读取新对象的属性值获取用户所需的信息或利用对象的方法进行所需的操作。（1）创建FileSystemObject对象创建FileSystemObject对象有两种方法：方法1：使用New关键字声明一个变量为FileSystemObject对象类型。使用格式如下：

Dim<变量名>AsNewFileSystemObject第7页/共14页任务2数据维护窗口的设计

〖准备知识〗

方法2：使用CreateObject方法创建一个FileSystemObject对象，使用格式如下：

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

（2）FileSystemObject对象的属性

FileSystemObject的属性只有Drives，这是系统中所有Drive对象的对象集合，用户可以获取当前计算机系统中所有驱动器的信息。如：

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创建文件夹对象名.CreateFolder<文件夹名>CreateTextFile创建文本文件对象名.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）提供等于“=”、大于“>”、大于等于“>=”、小于“<”、小于等于“<=”、不等于“<>”、字符