数据文件操作演示文件修改版.pptVIP

“读取记录”的Click事件过程代码： Dim pa_read As Patient Static recorder As Integer If EOF(1) Then MsgBox(读取完毕！) Exit Sub End If recorder = recorder + 1 FileGet(1, pa_read, recorder) TextBox1.Text = pa_read.Code TextBox2.Text = pa_read.Name TextBox3.Text = pa_read.p_Date TextBox4.Text = pa_read.Spend If pa_read.Sex = True Then RadioButton1.Checked = True Else RadioButton2.Checked = True End If 定义静态变量存放记录号 如果读取完毕，则给出提示并退出 记录号每次加1 读取对应记录号的记录 【例9】在例8的基础上增加一个“插入记录”的按钮，打开文件后，单击 “插入记录”按钮则在编号是“003”的记录前插入一条新记录。 “插入记录”的Click事件过程代码： Dim pa_insert As Patient Dim insert, last As Integer Dim i As Integer i = 1 Do While Not EOF(1) FileGet(1, pa_insert, i) If pa_insert.Code = 003 Then insert = i End If i = i + 1 Loop last = i - 1 得到“003”记录的记录号 得到最后一条记录的记录号 “插入记录”的Click事件过程代码(续)： For i = last To insert Step -1 FileGet(1, pa_insert, i) FilePut(1, pa_insert, i + 1) Next pa_insert.Code = TextBox1.Text pa_insert.Name = TextBox2.Text pa_insert.p_Date = TextBox3.Text pa_insert.Spend = TextBox4.Text pa_insert.Sex = RadioButton1.Checked FilePut(1, pa_insert, insert) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = RadioButton1.Checked = True 将“003”记录以后的记录下移一个 将新记录写入到原来“003”的记录位置 练习和作业 练习1：请试着完成随机文件记录的删除操作（参看教材P213的例7.11） 练习2：教材p216的通讯录管理程序 作业：实训3 第7章 数据文件操作 重要知识点： 数据流和数据文件概念 顺序文件 随机文件 学习内容 数据流和数据文件概念 顺序文件 随机文件 二进制文件（自学） 数据文件 是数据的集合，一般保存在磁盘等外部存储器中，简称文件。 开发应用程序中，少量变化不大的数据存放在变量、数组等结构中；数据量大的要以文件形式保存。 数据文件孤立地看就是二进制比特流，其结构保存在应用程序中。 在VB.NET中有顺序文件、随机文件和二进制文件三种类型。 数据流 如果抽去数据文件的逻辑含义，可以将文件看成由若干字节组成的序列，这个字节序列被称为数据流，简称流。 向文件中写入数据称为输入流。 从文件中读取数据称为输出流。 常用文件操作函数 MkDir( ) 功能和格式：创建文件夹。 MkDir(路径) 例如：MkDir(“C:\NewFold) RmDir( ) 功能和格式：删除文件夹。RmDir(路径) 例如：RmDir(C:\NewFold) Dir( ) 功能和格式：显示文件目录。Dir(路径,属性) 例如：Dir(C:\AUTOEXEC.BAT) 常用文件操作函数 ChDrive( ) 功能和格式：更改当前磁盘驱动器。ChDrive(驱动器名) 例如：ChDrive(“D:) ChDir( ) 功能和格式：更改当前文件夹。ChDir(新路径) 例如：ChDir(C:\NewFold) CurDir( ) 功能和格式：返回当前路径。CurDir(驱动器名) 例如：CurDir(C:) 常用文件操作函数 FileCopy( ) 功能：复制文件。 格式：FileCopy(源路径与源文件名，目的路径与目的文件名) 例如：FileCopy(D:\工作小结.do