Visual Basic序设计实用教程vb10.ppt

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