VisualBasic程序设计实用教程教学课件作者周晓宏vb10建立以文本文件为数据源的应用程序.课件(1294KB).ppt

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 Then 向文件中写入数据 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 文件操作应用举例 程序运行时，单击“原始数据由文件读出”，就会读取“扫雷排行榜.txt” 中玩家的数据；单击4个浏览按钮，就可以查看每一个玩家的名字、所用时间； 试题描述（课堂实训1） 运行效果： 功能分析： 采用FSO对象模型或传统文件I/O处理将文件中的数据读到数组，并浏览这些数据； 10.9 本章容易出错的地方 自行创建文本文件时，在输入最后一行数据后，不能再多输入空行，否则会出现“下标越界” ； 1.文本文件结构错误 没有引用，就不能创建对象； 2. 采用FSO对象模型，容易忘记引用Scripting 类型库 ; Dim fso As New FileSystemObject，在声明语句中类名之前加上New，就是在声明对象的同时，也创建了该对象； 3.采用FSO对象模型，在声明FileSystemObject时容易忘记关键字New； 10.9 本章容易出错的地方 Open语句为每个打开的文件分配一个有效的文件号（ 1 到 511 之间），在对文件进行操作时，用文件号代表该文件；对于已经使用的、正处于打开状态的文件的文件号，不能再用于另外的文件； 4. 采用传统文件I/O处理，容易乱用文件号 ; 以某种打开方式打开一个文件，就不能同时再用其他方式去访问该文件，如果确实需要，就必须先关闭该文件，再重新打开； 5.采用两种方法时，都容易忘记关闭文件； 10.10 课堂实训和课后作业 1. 课堂实训 第10章 课堂实训2 2. 课后作业 第10章 课堂实训3、课堂实训4 第10章建立以文本文件为数据源的应用程序 师生共勉 笑声给生活带来甜美，使它像玫瑰园中的花儿一样芬芳。 目录 10.1 问题引入 10.2 预备知识 10.3 问题分析 10.4 实现员工工资数据的读取功能 10.5 实现员工工资数据的显示功能 10.6 实现员工工资数据的保存功能 10.7 实现员工工资数据的编辑功能 10.8 文件操作应用举例 10.10 本章容易出错的地方 10.11 课堂实训和课堂练习 师生共勉 笑声给生活带来甜美，使它像玫瑰园中的花儿一样芬芳。 10.1 问题引入 在之前编写的“员工工资管理系统”中，所有员工工资的原始数据都是在编程时直接写入代码的； 程序运行后，将它们赋值给变量、数组或控件的属性——实际上就是存储于计算机的内存中； 并按照程序流程进行修改、添加、删除、计算等处理，得到相应的输出结果； 一旦该程序终止运行，由于内存本身具有易失性的特点，所有处理的结果都无法保留下来。 10.1 问题引入 这就会带来一个问题——程序和数据进行分离？ 在大多数情况下，编写程序的目的就是需要对大量数据进行处理，更为重要的是，如何将处理的结果需要保留下来？ 问题关键——数据存放的位置？ 由只能临时存储数据的内存变为可永久保存数据的外存，就是存放在独立于程序之外的文件中。 10.2 预备知识 写数据：把内存中的数据传输到相关联的外部设备（例如磁盘等）并作为文件存放的操作； 读数据：把数据文件中的数据传输到内存程序中的操作； 文件：记录在外部介质上的数据的集合 顺序型：适用于读写在连续块中的