Visual Basic程序设计教程 项目式 陈秀莉 王体英 项目七设计文件操作程序新.ppt

PPT研究院 POWERPOINT ACADEMY * * * * 项目七　设计文件操作程序 项目七　设计文件操作程序 【主要内容】 本项目是介绍Visual Basic程序如何访问文件，主要包括文件分类、Visual Basic操作文件的方法和文件系统控件等内容。 【学习目标】 了解数据文件的分类 掌握利用顺序文件的基本操作 掌握利用随机文件的基本操作 掌握文件系统控件的使用方法 任务1访问顺序文件 一、任务分析 本任务是计算小区用户的电费。编程从顺序文件中读取数据，进行计算，再把计算结果写入顺序文件。 二、相关知识 （一）文件的概念 （二）文件的基本操作 （三）顺序文件的基本操作 （四）常用的文件函数 三、任务实施 1.新建一个工程PROG1.vbp，窗体文件为Frm1. Frm。窗体设计如图7-1所示，2个命令按钮，标题分别为“输入”和“计算”，名称依次为Cmd1和Cmd2。 图7-1 窗体设计界面 2.用Write语句将三个业主的房号、姓名、用电量写顺序文件“ D:\VBJC\al\al7-1\Powerc.dat”,编写命令按钮Cmd1的单击事件代码如图7-2所示。 图7-2 写顺序文件代码 3. 用Input语句按原有的数据类型从Powerc.dat中读出数据，计算总用电量和电费，并在窗体上显示。电费。编写命令按钮Cmd2的单击事件代码，如图7-5所示。 4.运行程序，单击窗体中的计算按钮，则在窗体中可见电费charge的值。 图7-5 读顺序文件代码 总结： 文本文件一旦创立，就可分3步向其中写入或读出数据：第一步，打开文本文件；第二步，写入或读出数据；第三步，关闭文件。 四、随堂练习 计算学生的平均成绩。编程将两个学生的学号、姓名和成绩写入顺序文件，从顺序文件中读取数据，计算平均成绩，把计算结果显示在窗体中。 任务2 访问随机文件 一、任务分析 本任务是计算小区用户的电费。编程从随机文件中读取数据，进行计算，再把计算结果写入随机文件。 二、相关知识 （一）顺序文件和随机文件比较 （二）随机文件的基本操作 三、任务实施 1.新建一个工程Prog2.vbp，窗体文件为Frm1. Frm。窗体设计如图7-6所示，3个命令按钮，标题分别为“写入”、“读出”和“退出”，名称依次为Cmd1 、Cmd2和Cmd3。 图7-6 程序的运行界面 2. 建立一个随机文件，向该文件写入小区业主的房号、姓名、用电量和电费，其中电费根据电量计算。编写程序代码如下： 编写标准模块代码，定义记录类型 Type propertyp No As String * 6 Name As String * 10 Pow As Single Powc As Single End Type 在通用声明区，定义模块级变量 Private pt As propertyp Private lastrec As Integer 在窗体的加载事件中编写代码如下： Private Sub Form_Load() Open D:\VBJC\al\al7-2\Powerc.dat For Random As #1 Len = Len(pt) lastrec = Lof(1) / Len(pt) ‘计算最后一条记录的记录号 End Sub 在文本框Text3的Change事件中编写代码如下： Private Sub Text3_Change() Dim x As Single x = Val(Text3.Text) Text4.Text = Str(0.5653 * x) ‘计算电费并输入文本框 End Sub 在标题为“写入”命令按钮的单击事件编写代码如下： Private Sub Cmd1_Click() pt.No = Text1.Text pt.Name = Text2.Text pt.Pow = Val(Text3.Text) pt.Powc = Val(Text4.Text) lastrec = lastrec + 1 Put #1, lastrec, pt ‘将记录写入文件 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub 4. 从随机文件中读取记录，编写代码将小区业主的房号、姓名、用电量和电费从文件中读出并显示在“立即”窗口，代码如下： Private Sub Cmd2_Click()