Visual Basic 6.0实用技术
任务1 数据浏览窗口的设计
〖准备工作〗
〖1〗Adodc控件 选择【工程】的【部件(0)…】选项即可打开“部件”对话框，找到 并选中选中“Microsoft ADO Data Controls 6.0 (OLEDB)”即可 Adodc控件添加到工具箱中。 工具箱中的Adodc控件为： 〖2〗DataGrid控件 选择【工程】的【部件(0)…】选项即可打开“部件”对话框，找到 并选中选中“Microsoft DataGrid Controls 6.0 (OLEDB)”即可将 DataGrid控件添加到工具箱中。 工具箱中的DataGrid控件为：
Visual Basic 6.0实用技术
任务2 数据维护窗口的设计
〖准备知识〗
〖3〗MonthView控件 选择【工程】的【部件(0)…】选项即可打开“部件”对话框，找到并选 中选中“Microsoft Windows Common Controls-2 6.0 (SP3)”即可将 MonthView控件添加到工具箱中。 工具箱中的MonthView控件为： 〖4〗数据表Student的属性、类型和宽度等信息如表所示：
设计步骤 见课本P150
Visual Basic 6.0实用技术
任务4 数据输出到Excel
〖任务要求〗
在本章任务3的数据查询窗口中加入“数据输出到Excel”的功能。 运行结果如图所示：
设计步骤 见课本P158
Visual Basic 6.0实用技术
任务2 数据维护窗口的设计
〖任务要求〗
（8）用户可以将以“学号.jpg”为文件存储在固定的文件夹下，如程序目录下的 “picture”文件夹下，系统会自动读取该图像文件并加入到学生信息维护窗口中 的image控件中。另外，删除学生时自动将该文件删除； （9）录入常用数据时，如“政治面貌”、“民族”和“生源地”等信息，采用组 合框让用户方便选择； （10）录入时间时，采用日历控件进行录入，避免录入格式出错。 实现的数据维护窗口如图所示：
对象名.DriveExists <驱动器名称> 对于可删除介质的驱动器，即使没有介质存在， DriveExists 方法也返回 True。可使用 Drive 对象 的 IsReady 属性确定驱动器是否准备好。
对象名.FileExists <文件路径+文件名> 对象名.FolderExists <文件夹路径> 对象名.GetDrive <驱动器> 对象名.GetFolder <文件夹路径> 对象名.GetFile <文件路径+文件名> 对象名.MoveFile 源文件 目标文件 对象名.MoveFolder 源文件夹 目标文件夹
属性 Xuehao xingming Xingbie Csny Syd Zzmm Mz Bt Zp 学号 姓名 性别 出生年月 生源地 政治面貌 民族 补贴 照片 说明 字符 字符 字符 日期时间型 字符 字符 字符 数值型 字符 类型 宽度 10 8 2 8 10 10 10 7,2 20 备注 NOT NULL，主键 NOT NULL NULL NULL NULL NULL NULL NULL NULL
Visual Basic 6.0实用技术
任务1 数据浏览窗口的设计
〖准备工作〗 〖3〗数据表Student的属性、类型和宽度等信息如表所示：
属性 xuehao xingming xingbie csny syd zzmm Mz Bt 学号 姓名 性别 出生年月 生源地 政治面貌 民族 补贴 说明 字符 字符 字符 日期时间型 字符 字符 字符 数值型 类型 宽度 10 8 2 8 10 10 10 7,2 备注 NOT NULL，主键 NOT NULL NULL NULL NULL NULL NULL NULL
Visual Basic 6.0实用技术
任务2 数据维护窗口的设计
〖准备知识〗
方法2：使用CreateObject方法创建一个FileSystemObject对象，使用格式如下： Set <变量名> = CreateObject(“Scripting. FileSystemObject”) （2）FileSystemObject对象的属性 FileSystemObject的属性只有Drives，这是系统中所有Drive对象的对象集 合，用户可以获取当前计算机系统中所有驱动器的信息。如： Dim fs, d, dc, s Set fs = CreateObject("Scripting.FileSystemObject") Set dc = fs.Drives s = "该计算机中有以下驱动器" & vbCrLf For Each d In dc s = s & d.DriveLetter & " 驱动器 " s = s & vbCrLf Next MsgBox s 运行结果如图所示：
Visual Basic 6.0实用技术
任务2 数据维护窗口的设计统对象（File System Object，FSO）模型提供了一整套对文件系统 进行管理和操作的方法和属性。包括创建、移动、改变或删除文件夹（目录）和 文件，以及获得驱动器的信息和操作驱动器。 〖2〗文件系统对象FileSystemObject对象 FileSystemObject对象是FSO模型中的核心对象，在应用程序中使用FSO 的主要步骤是： ●创建一个FileSystemObject对象。 ●根据应用程序的需要，通过调用FileSystemObject对象中的方法来创建一个新 的对象。 ●通过读取新对象的属性值获取用户所需的信息或利用对象的方法进行所需的操作。 （1）创建FileSystemObject对象 创建FileSystemObject对象有两种方法： 方法1：使用New关键字声明一个变量为FileSystemObject对象类型。使用格 式如下： Dim <变量名> As New FileSystemObject
属性 Code mzname 代码 民族名称 说明 字符 字符 类型 2 20 宽度 备注 NOT NULL，主键 NOT NULL
〖7〗政治面貌表zzmm的属性、类型和宽度等信息如表所示：
属性 Code 代码 说明 字符 类型 2 宽度 备注 NOT NULL，主键
zzmmname
政治面貌名称
字符
DriveExists FileExists FolderExists GetDrive GetFolder GetFile MoveFile MoveFolder
指定驱动器是否存在 指定文件是否存在 指定文件夹是否存在 返回与该驱动器相对应的 Drive对象 返回与该文件夹相对应的 Folder对象 返回与该文件相对应的File对 象 移动文件 移动文件夹
Visual Basic 6.0实用技术
任务2 数据维护窗口的设计
〖准备知识〗
（3）FileSystemObject对象的方法
方法名 CopyFile CopyFolder CreateFolder CreateTextFile DeleteFile DeleteFolder 复制文件 复制文件夹 创建文件夹 创建文本文件 删除文件 删除文件夹 操作类型 语法格式 对象名.CopyFile 源文件 目标文件[,存在的文件是否覆盖] <存在的文件是否覆盖>是 True时文件将被覆盖；如果是 False，不被覆盖；缺省值是 True 对象名.CopyFolder 源文件夹 目标文件夹[,存在的文件夹是否覆盖] 对象名.CreateFolder <文件夹名> 对象名.CreateTextFile <文件名> 对象名.DeleteFile <文件名>[,文件属性为只读是否删除] 对象名.DeleteFolder <文件夹名>[,文件夹属性为只读是否删除] DeleteFolder方法不管指定的文件夹中是否有内容，它都被删除
Visual Basic 6.0实用技术
第四章 数据库应用实例
Visual Basic 6.0实用技术
常见的数据库有Microsoft Access、Microsoft SQL SERVER、Oracle、 Sybase。 以下是数据库中常用的术语： 记录（Record）：记录是存放数据的基本单位，一个记录就是一条完整的信 息； 字段（Field）：每个记录由若干字段组成； 数据表（Table）：记录的集合构成一个数据表； 数据库（Database）：若干数据表构成一个数据库。 常用数据库访问技术： （1）DAO（Data Access Object）数据访问对象：DAO是Microsoft Jet数 据库引擎数据访问对象，是第一个面向对象的接口，有着极为广泛的应用。 （2）ODBC是一种底层数据访问技术，允许Visual Basic通过ODBC连接到其 他数据库。 （3）OLE DB(Object Linking and Embedding Database)是新的低层接 口，Microsoft将用它取代ODBC作为连接数据库的主要低层数据访问技术。 （4）ADO是新近发展的数据库访问技术，ADO提供了在OLE DB中不能直接访 问的函数。
Visual Basic 6.0实用技术
任务1 数据浏览窗口的设计
〖任务要求〗
设计一个数据浏览窗口，功能包括： （1）使用多个文本框显示数据表当前记录信息； （2）使用表格显示数据表多条记录信息； （3）提供【首记录】、【上一记录】、【下一记录】、【最后记录】、【指定记 录】功能按钮，并且具有判断记录越界的功能； （4）表格与文本框具有关联功能； （5）动态显示总记录数和当前记录。 实现的数据浏览窗口如图所示：
设计步骤见课本P132