电脑学习 数据库访问& 应用程序发布.ppt

《电脑学习 数据库访问& 应用程序发布.ppt》由会员分享，可在线阅读，更多相关《电脑学习 数据库访问& 应用程序发布.ppt（81页珍藏版）》请在三一办公上搜索。

1、学习目标,掌握在应用程序中添加标准模块、设置启动对象以及在标准模块中声明工程级变量和公有过程的方法 掌握用传统文件I/O语句和函数来进行文件操作的编程方法掌握用FSO对象模型来进行针对文件操作的编程方法,学习情境三：数据库访问,任务3-1：建立文本文件为数据源的应用程序,目 录,10.1 问题引入 10.2 预备知识 10.3 任务分析 10.4 实现员工工资数据的读取功能 10.5 实现员工工资数据的显示功能 10.6 实现员工工资数据的保存功能 10.7 实现员工工资数据的编辑功能10.8 文件操作应用举例10.9 本章容易出错的地方,10.1 问题引入,在之前编写的“员工工资管理系统”中

2、，所有员工工资的原始数据都是在编程时直接写入代码的；程序运行后，将它们赋值给变量、数组或控件的属性实际上就是存储于计算机的内存中；并按照程序流程进行修改、添加、删除、计算等处理，得到相应的输出结果；一旦该程序终止运行，由于内存本身具有易失性的特点，所有处理的结果都无法保留下来。,10.1 问题引入,这就会带来一个问题程序和数据进行分离？在大多数情况下，编写程序的目的就是需要对大量数据进行处理，更为重要的是，如何将处理的结果需要保留下来？问题关键数据存放的位置？由只能临时存储数据的内存变为可永久保存数据的外存，就是存放在独立于程序之外的文件中。,10.2 预备知识,写数据：把内存中的数据传输到相

3、关联的外部设备（例如磁盘等）并作为文件存放的操作；读数据：把数据文件中的数据传输到内存程序中的操作；,文件：记录在外部介质上的数据的集合,顺序型：适用于读写在连续块中的文本文件；随机型：适用于读写有固定长度记录结构的文本文件或者二进制文件；二进制型：适用于读写任意有结构的文件；,文件访问类型,10.2 预备知识,引用Scripting 类型库 声明相关的对象变量 创建相关的对象变量 进行读、写操作 关闭文件（TextStream对象的Close方法）,File System Object(FSO)对象模型编程,10.2 预备知识,打开或建立文件（Open 语句）进行读、写操作（Line Inp

4、ut#、Write#语句等）关闭文件（Close 语句）,传统文件I/O处理,10.3 任务分析,利用文本文件进行员工工资数据管理的应用程序在程序运行时，将存放于文本文件中的员工工资数据读出，实现浏览显示功能；对这些数据进行修改、删除、添加、插入等编辑操作；将更新后的员工工资数据再写入文件；,任务分析：,10.3 任务分析,界面运行效果如下：,10.3 任务分析,数据输入：Form_Load 数据处理：cmd_Browse_Click cmd_Edit_Click 数据输出：界面输出：Form_Load、cmd_Browse_Click、cmd_Edit_Click 文件输出：cmd_Writ

5、e_Click,声明工程级的通用过程执行对文件中数据的读写操作，可以与窗体界面分离；有助于程序的扩展，可以直接调用这些过程；启动对象Sub Main,创建程序主窗体和事件过程代码框架：,10.3 任务分析,Private Sub Form_Load()从文件中读取数据 显示第1个员工的工资数据 显示员工的总人数和当前员工的顺序号End SubPrivate Sub cmd_Browse_Click(Index As Integer)Select Case IndexCase 0 第一位员工Case 1 前一位员工Case 2 后一位员工Case 3 最后一位员工 End Select 显示第n

6、位员工的工资数据 显示员工的总人数和当前员工的顺序号End Sub,框架代码：,10.3 任务分析,Private Sub cmd_Edit_Click(Index As Integer)Select Case IndexCase 0 在所有记录的最后新增一条Case 1 修改当前记录Case 2 在当前记录的位置插入一条记录Case 3 删除当前记录 End Select 显示第n位员工的工资数据 显示员工的总人数和当前员工的顺序号End SubPrivate Sub cmd_Write_Click()向文件中写入数据End Sub,框架代码：,10.4 实现员工工资数据的读取功能,实现把数

7、据从外存（文本文件）读到内存（变量）中的功能在标准模块中声明：与员工工资数据有关的工程级变量和符号常量；在标准模块中创建：从文本文件中读出数据的通用过程 方法一：采用FSO对象模型方法二：采用传统文件I/O语句和函数,编写从文本文件中读出数据的通用过程,10.4 实现员工工资数据的读取功能,步骤一：引用Scripting 类型库 单击“工程”菜单中的“引用”命令；打开“引用”对话框；从“可用的引用”列表框中选择“Microsoft Scripting Runtime”；步骤二：声明相关的对象变量Dim fso As New FileSystemObjectDim ts As TextStrea

8、mNew是一个关键字，它用于创建新对象。,方法一：采用FSO对象模型,10.4 实现员工工资数据的读取功能,步骤三：创建相关的对象Set ts=fso.OpenTextFile(g_strFileName,ForReading)用Set语句创建对象的实例，把对象赋予其变量。其中，第二个参数可为下列三个常数之一 ForReading：以只读模式打开文件。不能对此文件进行写操作。ForWriting：以只写方式打开文件。不能对此文件进行读操作。ForAppending：打开文件并在文件末尾进行写操作。,10.4 实现员工工资数据的读取功能,步骤四：进行读操作 TextStream对象的ReadLi

9、ne方法步骤五：关闭文件 文件操作完毕，就要将文件关闭，这样下一次才能正确的创建文本流对象。TextStream对象的Close方法,10.4 实现员工工资数据的读取功能,五个步骤中后三步都是在ReadFromFile_fso通用过程中实现文件读取：方法一Public Sub ReadFromFile_fso()过程级变量i,j:i表示第几位员工，j表示第几项信息 Dim i As Integer,j As Integer FSO:步骤三文本流的创建（读方式）Set ts=fso.OpenTextFile(g_strFileName,ForReading)i=0 Do循环:变量i 赋初值 Do

10、 While Not ts.AtEndOfStream Do循环:执行一次,读取一位员工数据 i=i+1 Do循环:变量i 每次累加1 For j=1 To gInfoNum For循环:执行一次,读取工资数据中的一项 FSO:步骤四文本流的读操作 g_vntArrWage(i,j)=ts.ReadLine Next Loop FSO:步骤五文本流的关闭 ts.Close g_intRecNum=iEnd Sub,10.4 实现员工工资数据的读取功能,步骤一：打开文件Open 语句：对文件做任何I/O（输入/输出）操作之前都必须先打开文件；在内存中为文件的读写分配一个缓冲区，并决定使用什么样的

11、访问方式；具体的Open语句如下所示：Open g_strFileName For Input As#1 其中，打开方式：Input：从顺序型文件中输入（读）字符；Output：把字符输出（写）到顺序型文件，覆盖写；Append：把字符输出（写）到顺序型文件的尾部，追加写；,方法二：采用传统文件I/O语句和函数进行读文件,10.4 实现员工工资数据的读取功能,步骤二：进行读操作 Line Input#语句：从已打开的顺序文件中读出一行中的所有字符（不包括回车换行符），并将它分配给字符串型变量；Line Input#文件号,变量名其中，文件号应该与之前Open语句中的文件号相对应；步骤三：关闭文

12、件打开一个文件（Input、Output 或 Append方式）之后，一旦要为其它类型的操作重新打开它，就必须先用 Close 语句关闭它；Close#文件号,10.5 实现员工工资数据的显示功能,显示第n位员工的工资数据，并显示员工的总人数和当前员工的顺序号Private Sub DispWageInfo()Dim j As Integer For j=1 To gInfoNum txt_WageInfo(j-1)=g_vntArrWage(g_intNum,j)Next lbl_CountAll=共&Str(g_intRecNum)&位员工 lbl_CountNum=第&Str(g_int

13、Num)&位员工End Sub,编写显示员工工资数据以及相关数据的通用过程,程序一开始运行，就要求把员工的工资数据显示在相应的文本框中，并在界面下方的标签中显示出员工的总人数和当前员工的顺序号；这些数据的显示操作在之后还会被频繁用到；,10.5 实现员工工资数据的显示功能,Private Sub Form_Load()Dim i As Integer Call ReadFromFile_fso 文件读取：方法一 g_intNum=1 Call DispWageInfo 显示第1位员工工资数据、员工的总人数和当前员工的顺序号 For i=1 To gInfoNum txt_WageInfo(i-

14、1).Enabled=False Next cmd_Write.Visible=FalseEnd Sub,编写Form_Load事件过程,10.5 实现员工工资数据的显示功能,Private Sub cmd_Browse_Click(Index As Integer)Select Case Index Case 0 第一位员工 g_intNum=1 Case 1 前一位员工 If g_intNum=g_intRecNum Then MsgBox 已是最后一位员工!Else g_intNum=g_intNum+1 End If Case 3 最后一位员工 g_intNum=g_intRecNum

15、 End Select Call DispWageInfo 显示第n位员工工资数据、员工的总人数和当前员工的顺序号End Sub,编写浏览员工工资数据的cmd_Browse_Click事件过程,10.6 实现员工工资数据的保存功能,文件中的员工工资数据能在窗体上显示、浏览，同时，程序还具有编辑功能：增加新员工的工资数据；对某位现有员工的工资数据进行修改或直接删除；编辑的结果只有写到文件中才能真正地保存下来，所以这些功能最终都可以归结为文件的写入操作；覆盖写入追加写入,分析：,10.6 实现员工工资数据的保存功能,将新增员工的工资数据插入到文件中间的某个位置；对现有员工工资数据进行修改、删除；说

16、明：顺序型文件操作模式，只能从上到下逐条顺序进行；要在存储工资数据的二维数组中完成了相应的操作后，才能执行文件的覆盖写入操作；用重新把整个数组写入文件的方式来实现；,编写向文本文件覆盖写入数据的通用过程,10.6 实现员工工资数据的保存功能,Public Sub WriteToFile_fso()Dim i As Integer,j As Integer FSO:步骤三文本流的创建（覆盖写方式）Set ts=fso.OpenTextFile(g_strFileName,ForWriting)For i=1 To g_intRecNum 外层循环:执行一次,写入一位员工的工资数据 For j=1

17、 To gInfoNum 内层循环:执行一次,写入工资数据中的一项信息 ts.WriteLine g_vntArrWage(i,j)FSO:步骤四文本流的写操作 Next Next ts.Close FSO:步骤五文本流的关闭End Sub,文件覆盖写入：方法一,说明：FSO对象模型的处理过程包括五个步骤，其中，第一步“引用”必须要在编写具体代码之前完成的；第二步“声明”是将相关对象的声明放在标准模块中的通用声明部分；,10.6 实现员工工资数据的保存功能,Public Sub WriteToFile_IO()Dim i As Integer,j As Integer 传统文件I/O:步骤一文

18、件打开（覆盖写方式）Open g_strFileName For Output As#1 For i=1 To g_intRecNum 外层循环:执行一次,写入一位员工的工资数据 For j=1 To gInfoNum 内层循环:执行一次,写入工资数据中的一项信息 Print#1,g_vntArrWage(i,j)传统文件I/O:步骤二文件写操作 Next Next Close#1 传统文件I/O:步骤三文件关闭End Sub,文件覆盖写入：方法二,10.6 实现员工工资数据的保存功能,新增员工的工资数据放在文件的最后；文件中原有的数据会全部予以保留的情况；说明：在存储工资数据的二维数组中完成

19、了相应的操作后，只把最后一位员工的工资数据记录追加写入文件；本次写入的数据就会添加到文件的末尾；,编写在文本文件末尾追加写入数据的通用过程,10.6 实现员工工资数据的保存功能,Public Sub AppendToFile_fso()Dim i As Integer,j As Integer FSO:步骤三文本流的创建（追加写方式）Set ts=fso.OpenTextFile(g_strFileName,ForAppending)For j=1 To gInfoNum For循环:执行一次,写入工资数据中一项信息 ts.WriteLine g_vntArrWage(g_intRecNum,

20、j)FSO:步骤四文本流的写操作 Next ts.Close FSO:步骤五文本流的关闭End Sub,文件追加写入：方法一,10.6 实现员工工资数据的保存功能,Public Sub AppendToFile_IO()Dim j As Integer 传统文件I/O:步骤一文件打开（追加写方式）Open g_strFileName For Append As#1 For j=1 To gInfoNum For循环:执行一次,写入工资数据中的一项信息 传统文件I/O:步骤二文件的写操作 Print#1,g_vntArrWage(g_intRecNum,j)Next Close#1 传统文件I/

21、O:步骤三文件关闭End Sub,文件追加写入：方法二,10.7 实现员工工资数据的编辑功能,声明两个模块级变量m_blnDele、m_blnWrite 数据类型都是布尔（逻辑）型区别编辑操作类型：新增、插入、修改、删除m_blnDele：表示编辑数据的方式m_blnWrite：表示数据写入的方式,m_blnWrite=True 初始化为覆盖写入方式 m_blnDele=False 初始化为非删除操作 fra_Browse.Visible=False 浏览/编辑框架不可见 fra_Edit.Visible=False cmd_Write.Visible=True 保存数据按钮可用,编写编辑按钮

22、的cmd_Edit_Click事件过程,10.7 实现员工工资数据的编辑功能,新增一条工资记录的代码段 修改一条工资记录的代码段 修改一条工资记录的代码段删除一条工资记录的代码段,数组操作,10.7 实现员工工资数据的编辑功能,Private Sub cmd_Write_Click()Dim i As Integer If m_blnDele=False Then For i=1 To gInfoNum将文本框中的内容（当前员工工资数据）存入数组 g_vntArrWage(g_intNum,i)=txt_WageInfo(i-1)Next End If If m_blnWrite=True T

23、hen 向文件中写入数据 Call WriteToFile_fso 文件覆盖写入：方法一 Else Call AppendToFile_fso 文件追加写入：方法一 End If fra_Browse.Visible=True 浏览/编辑框架可见 fra_Edit.Visible=True For i=1 To gInfoNum 文本框中的内容不接受输入 txt_WageInfo(i-1).Enabled=False Next cmd_Write.Visible=False 保存数据按钮不可用End Sub,编写保存数据按钮的cmd_Write_Click事件过程,10.8 文件操作应用举例,

24、程序运行时，单击“原始数据由文件读出”，就会读取“扫雷排行榜.txt”中玩家的数据；单击4个浏览按钮，就可以查看每一个玩家的名字、所用时间；,任务描述（课堂实训1）,运行效果：,任务分析：,采用FSO对象模型或传统文件I/O处理将文件中的数据读到数组，并浏览这些数据；,10.9 本章容易出错的地方,自行创建文本文件时，在输入最后一行数据后，不能再多输入空行，否则会出现“下标越界”；,1.文本文件结构错误,没有引用，就不能创建对象；,2.采用FSO对象模型，容易忘记引用Scripting 类型库;,Dim fso As New FileSystemObject，在声明语句中类名之前加上New，就

25、是在声明对象的同时，也创建了该对象；,3.采用FSO对象模型，在声明FileSystemObject时容易忘记关键字New；,10.9 本章容易出错的地方,Open语句为每个打开的文件分配一个有效的文件号（1 到 511 之间），在对文件进行操作时，用文件号代表该文件；对于已经使用的、正处于打开状态的文件的文件号，不能再用于另外的文件；,4.采用传统文件I/O处理，容易乱用文件号;,以某种打开方式打开一个文件，就不能同时再用其他方式去访问该文件，如果确实需要，就必须先关闭该文件，再重新打开；,5.采用两种方法时，都容易忘记关闭文件；,学习目标,了解数据库的一些基本概念掌握创建Access数据库

26、的方法掌握使用ADO数据控件连接数据库和数据表的方法掌握数据识别控件绑定到ADO数据控件的方法掌握ADO控件的Recordset对象常用方法和常用属性,编程实现数据记录的浏览、添加、修改、删除、查找等功能。理解ADO对象模型的概念，掌握使用ADO对象模型编程的方法和步骤,学习情境三：数据库访问,任务3-2：建立数据库文件为数据源的应用程序,目 录,11.1 任务描述与运行效果11.2 认识Access数据库11.3 创建Access数据库11.4 连接数据库和数据表11.5 将数据识别控件绑定到ADO控件11.6 编写移动记录指针的代码11.7 编写添加记录和确认代码11.8 编写删除记录的代

27、码 11.9 显示记录总数和当前记录序号11.10 编写查询记录的代码11.11 利用ADO对象模型编程,11.1 任务描述与运行效果,任务描述,本章要建立以数据库为数据源的“员工工资管理系统”，能实现浏览显示、增加、删除、显示记录数和当前记录号、按姓名查询等功能。,运行效果,11.2 认识Access数据库(1),一、数据与程序一体,不能修改、添加和删除，保存的数量很有限,二、数据与程序分离：数据文件和程序文件,文本文件数据显示、添加、修改、删除都很麻烦管理方式功能弱、效率低，保存的数量小，安全性差数据库它是在一定的数据库管理系统中建构的具有一定结构的相互关联的数据的集合数据管理系统是对数据

28、实施有效集中管理的专门软件。,11.2 认识Access数据库(2),员工信息数据表,行,列,Access是微软Office软件包中的数据库管理软件,可用来创建和管理数据库。,table,Data Base,字段（列）,记录（行）,表(对象),数据库（.mdb文件）,record,field,11.3 创建Access数据库(1),在建库之前要确定库名、表名、表结构（字段名、类型、大小）,表结构:,库名：wages.mdb,表名：info,11.3 创建Access数据库(2),用Access数据库管理软件创建用Visual Basic集成开发环境中的“可视化数据管理器”创建,创建方法,选择“

29、外接程序”“可视化数据管理器”菜单，打开可视化数据管理器窗口 在“Visdata”窗口中选择“文件”“新建”“Microsoft Access”“Version 7.0 MDB”输入要建的数据库文件的名称（wages.mdb)，并指定保存的路径 鼠标右键单击“数据库窗口”的空白处，在弹出的快捷菜单中选择“新建表”在“表名称”框中输入数据表的名称（info）单击“添加字段”按钮，根据设计的表结构依次输入每一字段的名称、类型、大小后，单击“生成表”按钮 鼠标右键单击已创建好的数据表（info），在弹出的快捷菜单中选择“打开”，进入编辑记录窗口向数据表中添加、修改、删除记录,步骤,11.4 连接数据

30、库和数据表(1),要在程序中使用数据库中的数据，就要在程序中连接数据库，以数据库作为程序的数据源利用ADO控件连接数据库是一种简单直接的方法,添加ADO 控件,工程部件Microsoft ADO Data Control,11.4 连接数据库和数据表(2),在窗体上的Adodc1控件上面单击鼠标右键，选取快捷菜单“ADODC属性”命令，弹出“属性页”对话框在“属性页”对话框的“通用”选项卡中选取“使用连接字符串”选项，然后单击“生成”按钮，则弹出“数据链接属性”对话框在“提供程序”选项卡中选择“Microsoft Jet 4.0 OLE DB Provider”,2.为ADO 控件选择数据源驱

31、动程序,11.4 连接数据库和数据表(3),在“连接”选项卡中，选择或输入数据库名称（wages.mdb，建议用相对路径）测试连接成功，单击“确定”返回到ADODC控件的“属性页”选取“记录源”选项卡，选择“命令类型”（2-adCmdTable），选择“表或存储过程名称”（info）,3.将ADO 控件连接数据库和数据表,11.5 将数据识别控件绑定到ADO控件,绑定,是将控件与一个数据源相链接,不用编写代码就能让数据源中的数据显示在窗体的控件中。当数据源中的记录指针或数据发生变化时，窗体控件中的数据也能自动变化。当修改了控件中的数据，数据源中的数据也会被修改。能和数据源绑定的控件称为数据识别

32、控件：文本框、标签、列表框、组合框等。,作用：,设置数据识别控件的DataSource属性为可用的数据源(例ADO控件）,设置数据识别控件的Datafield属性为相应的字段名,11.6 编写移动记录指针的代码,第一条：adodc1.recordset.movefirst上一条：adodc1.recordset.movepreviousIf adodc1.recordset.bof then adodc1.recordset.movefirst下一条：adodc1.recordset.movenextIf adodc1.recordset.eof then adodc1.recordset.m

33、ovelast最后一条：adodc1.recordset.movelast,ADO控件有一个重要成员Recordset对象（记录集对象），该对象表示记录的集合。利用Recordset自己的属性和方法，可对数据库表中的记录进行访问和操作。,11.7 编写添加记录和确认代码,添加Adodc1.recordset.AddNew添加一条新的空记录 确认 a=MsgBox(确实要添加记录吗？,vbYesNo)If a=vbYes Then adodc1.recordset.Update更新 Else adodc1.recordset.CancelUpdate 放弃更新End If,11.8 编写删除记录

34、的代码,s=MsgBox(确实要删除该记录吗？,vbYesNo)If s=vbYes Thenadodc1.recordset.Deleteadodc1.recordset.MoveNextIf adodc1.recordset.EOF Then.MoveLastEnd If,11.9 显示记录总数和当前记录序号,Private Sub Text1_Change()Label7(1).Caption=Adodc1.Recordset.RecordCount Label7(4).Caption=Adodc1.Recordset.AbsolutePositionEnd Sub,11.10 编写查询

35、记录的代码（1）,参数意义:Criteria：查找条件字符串，必选，格式为：“字段名称 比较操作符 要查找的值 字段名称：必须是数据表中已存在的字段名称 比较操作符：=、=、=、like等 要查找的值：主要分成数值型、日期时间（定界符#）和字符串型（定界符）SkipRows：取值为一整数n，和Start参数一起决定了查找的起始位置，表示以Start位置为基准再跳过n条记录开始查找，缺省值为0searchDirection：指定查找的方向，可选值为adSearchForward（或1）表示向下检索，adSearchBackward（或-1）表示向上检索，缺省值为1Start：指定开始查找的基准位

36、置，可选值为0表示以当前记录为基准，1表示以第一条记录为基准，缺省值为0,Adodc1.Record.Find criteria,SkipRows,searchDirection,start,11.10 编写查询记录的代码（2）,1.查找常量 Adodc1.Recordset.Find 姓名=张三 Adodc1.Recordset.Find 标准工资2000 Adodc1.Recordset.Find 出生日期=#2000/1/1#2.查找变量 x=InputBox(请输入要查询的值,查询输入)Adodc1.Recordset.Find 姓名=&x&Adodc1.Recordset.Find

37、标准工资&x Adodc1.Recordset.Find 出生日期=#&x.模糊查询 Adodc1.Recordset.Find 姓名 like*红*Adodc1.Recordset.Find 姓名 like*&x&*,举例,11.10 编写查询记录的代码（3）,11.11 利用ADO对象模型编程(1),对象模型定义了程序中所使用的对象之间的关系即对象的分层结构，它能够以一种使编程变得更容易的方式来组织对象。对象模型表达了包含关系，可以认为某些对象是包含其它对象的对象，或者是由其它对象所组成的对象。,11.11 利用ADO对象模型编程(2),Connection对象代表了与数据源的连接；

38、Recordset对象表示的是来自表或做为命令执行结果的记录集；Command对象代表对数据源执行的命令；,ADO对象模型,11.11 利用ADO对象模型编程(3),引用ADO的类型库声明对象变量创建对象的一个实例调用该对象的成员，使用该对象及其成员的属性和方法处理对象 关闭对象，释放对象所占据的空间,总体步骤,11.11 利用ADO对象模型编程(4),选择“工程”菜单中的“引用”菜单项，打开“引用”对话框，在“可用的引用”列表框中选中ADO类型库“Microsoft ActiveX Data Objects 2.8 Library”后“确定”。,引用ADO类型库,在代码窗口的通用声明段输入以

39、下声明对象变量的语句：Dim cn As ADODB.ConnectionDim rs As ADODB.Recordset,11.11 利用ADO对象模型编程(5),在Form_Load事件过程中创建这两个对象的实例：Private Sub Form_Load()Set cn=New ADODB.Connection Set rs=New ADODB.RecordsetEnd Sub,声明对象变量,创建对象的实例,11.11 利用ADO对象模型编程(6),调用Recordset对象的Open方法连接数据库中的表rs.Open info,cn,adOpenKeyset,adLockOptimi

40、stic,用创建的Connection对象实现与数据库的连接cn.Provider=Microsoft.jet.oledb.4.0 cn.Open App.Path&“wages.mdb”,数据源（表名）,Connection对象,锁定类型adLockReadOnlyAdLockPessimisticAdLockOptimisticAdLockBatchOptimistic,游标类型adOpenForwardOnlyadOpenKeysetadOpenDynamicadOpenStatic,连接数据库,打开数据表,11.11 利用ADO对象模型编程(7),Dim i As IntegerFor

41、 i=0 To 4 Set txt_Wageinfo(i).DataSource=rs txt_Wageinfo(i).DataField=rs(i).NameNext i,把文本框绑定到记录集,11.11 利用ADO对象模型编程(8),和使用ADO数据控件的方法非常类似:rs.MoveFirst 第一条rs.MovePrevious 上一条If rs.BOF Then rs.MoveFirstrs.MoveNext下一条If rs.EOF Then rs.MoveLastrs.MoveLast最后一条,利用Recordset对象实现信息浏览,学习目标,1.掌握“打包和展开向导”的使用步骤2.

42、掌握打包并创建安装程序的步骤和方法3.掌握展开安装程序的步骤和方法,学习情境四：应用程序发布,任务4-1：“打包和展开向导”应用,目 录,12.1 使用“打包展开向导”12.2 打包并创建安装程序 12.3 展开安装程序,12.1 使用“打包展开向导”,使用”打包和展开向导“发布应用程序分为以下两个步骤。1.打包：将应用程序所需的程序文件和系统文件进行打包和压缩，并创建相应的安装程序。2.展开：将打包后的文件复制到软盘、光盘、网络驱动器和发布WWW服务器上，以便其他用户可以进行安装和使用。启动”打包和展开向导“菜单项有两种方法。1.在”开始“菜单下，通过”程序“”Microsoft Visua

43、l Basic 6.0 中文版“下的”Microsoft Visual Basic 6.0 中文版工具“菜单来打开”打包和展开向导“，然后通过浏览按钮选择一个要进行打包和配置的工程。2.在 Visual Basic 6.0 的开发环境中，通过”外接程序管理器“菜单项启动”打包和展开向导“，这样该向导将对当前工程进行打包和展开，不必再去选中工程。使用这个方法之前，首先要将”打包和展开向导“作为外接程序添加到 Visual Basic 6.0 开发环境的菜单中。,12.2 打包并创建安装程序,1.打开“员工工资管理系统”工程文件，在Visual Basic 6.0集成环境中选择“外接程序”菜单中的

44、“打包和展开向导”命令，显示界面如下图所示。,12.2 打包并创建安装程序,向导程序的主界面中共有三个按钮，分别用来进行打包、展开和管理脚本，在“激活工程”的文本框中显示了当前的工程。使用鼠标单击“打包”按钮。进入下一个页面，如下图所示：,12.2 打包并创建安装程序,2.选择要打包的类型，普通的工程选择“标准安装包”就可以了，控件之类的看使用的地点，如果是在网页中使用，请选择“Internet软件包”，然后点击“下一步”按钮。如下图所示：,12.2 打包并创建安装程序,3.选择包文件存放的位置，如下图所示：,12.2 打包并创建安装程序,4.向导自动找出了工程中应用的控件、等文件，你需要自己

45、到工程中检查一下，看看所包含的文件是否全，第三方控件所带的文件一定要带上，然后点击下一步，如下图所示：,12.2 打包并创建安装程序,5.选择打包的文件类型，根据需要，如果你发布是用光盘，则选择单个的压缩文件，如果发布是用软盘之类的，则选择多个压缩文件。然后单击“下一步”。如下图所示：,12.2 打包并创建安装程序,6.确定安装程序的标题，就是在安装背景上显示的文字。然后单击“下一步”，如下图所示：,12.2 打包并创建安装程序,7.在这里你可以设置在“开始菜单”中显示哪些项目，比如你可以加卸载程序项，可以选择“新建项”按钮，然后在“目标”栏中输入$(WinPath)st6unst.exe-n

46、$(AppPath)ST6UNST.LOG，包括双引号。在“开始”项目中选择“$(WinPath)”，不包括双引号。然后点击确定，如下图所示：,12.2 打包并创建安装程序,8.在此你可以更改文件夹的安装位置，然后点击“下一步”，如下图所示：,12.2 打包并创建安装程序,SETUP.LST安装信息文件.CAB文件包是数据文件，安装的文件全部在包里Setup.exe是安装的主文件,9.在此你可以将文件设置为共享（即文件可以被多个程序使用），到此为止安装制作完成。安装完之后会生成三个文件和一个文件夹，如下图所示：,12.2 打包并创建安装程序,Support是压缩包中所包含的所有文件。如下图所示

47、：,12.3 展开安装程序,1.在“打包和展开向导”的主界面中单击“展开”按钮，屏幕上将提示选择要展开的文件包，也就是刚才存储的文件包脚本。如下图所示。,12.3 展开安装程序,2.单击“下一步”，屏幕上显示“展开方法”对话框，如下图所示，选择展开方式。,12.3 展开安装程序,3.单击“下一步”，屏幕上显示“文件夹”对话框，如下图所示，要求选择一个展开的文件夹。选择路径后，单击“新建文件夹”按钮，会在指定的路径下新建一个文件夹。,12.3 展开安装程序,4.单击“下一步”，屏幕上显示“完成”对话框，并提示将刚才所作的设置保存在展开脚本中，如下图所示。,12.3 展开安装程序,5.单击“完成”按钮，“打包和展开向导”就开始展开文件，在展开的文件夹内有如下图所示的三个文件“setup”、“SETUP.LST”、“员工工资管理系统.CAB”，将这些文件复制到光盘上，就可以在其他计算机上安装并使用“员工工资管理系统”应用程序了。,12.3 展开安装程序,6.在用户的计算机上双击“setup”文件图标，就可以自动进行安装。下图所示是安装过程中的其中一个界面，可以看到安装的标题正是“员工工资管理系统”。,