软件设计基础--vb程序设计.pptVIP

软件设计基础 河北联合大学 实 例 5.1 文 件 第6章 文件 本章学习目标： 掌握传统文件I/O语句和函数进行文件操作的编程方法 掌握用FSO对象模型来进行针对文件操作的编程方法 掌握在应用程序中添加标准模块、设置启动对象以及在标准模块中声明工程级变量和公有过程的方法 第6章 文件 本章重点 掌握用I/O语句和FSO对象模型进行文件操作的编程方法 本章难点 编写实现文本文件读写操作的程序 学习内容 文件—基本概念 文件—基本概念 文 件 文 件 文 件 顺序文件的I/O操作方法 顺序文件的I/O操作方法 顺序文件的I/O操作方法 顺序文件的I/O操作方法 顺序文件的I/O操作方法 顺序文件的I/O操作方法 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 在实例6.1中使用文件 学习内容 文 件 文 件 文 件 文 件 文 件 文 件 文 件 文 件 文 件 文 件 文 件 文 件 实战训练 实现笔记本信息的编辑功能 1.编写编辑按钮的事件过程 （1）任务分析 ①声明两个模块级变量 allowdele:表示编辑数据的方式。对于“删除”操作，其值为True，而对其他三个操作，其值为False。 sffgwrite:表示数据写入的方式。对于“删除”、“修改”、“插入”操作，是覆盖写入，其值为True；对于“新增”操作，是追加写入，其值为False。 ②单击任意一个编辑按钮后，浏览框架和编辑框架变为不可见，而“保存数据”按钮由程序一开始运行时的不可见变为可见。 实现笔记本信息的编辑功能 1.编写编辑按钮的事件过程 （2）事件过程 Private Sub Cmddo_Click(Index As Integer) Dim i As Integer, j As Integer allowdele = False 初始化不允许删除 sffgwrite = True 初始化为写方式为覆盖写，不是追加写 Framebrow.Visible = False 浏览和编辑按钮不可见 Frameedit.Visible = False CmdSave.Visible = True 保存按钮可见 Select Case Index Case 0: 添加一条新纪录 Case 1: 删除当前纪录 Case 2: 修改当前纪录 Case 3: 在当前纪录的位置插入一条记录 End Select Call dispbjbinfo End Sub 实现笔记本信息的编辑功能 1.编写编辑按钮的事件过程 （2）事件过程 Case 0: 添加一条新纪录 sffgwrite = False For i = 1 To 4 txtbjb(i - 1).Enabled = True txtbjb(i - 1).Text = Next i bjbRecordNum = bjbRecordNum + 1 改变总记录数和当前记录号 bjbCurrentNum = bjbRecordNum Case 1 Case 2 Case 3 的代码可自行编写，在此略。 实现笔记本信息的编辑功能 2.编写保存数据按钮的事件过程 （1）任务分析 单击保存数据按钮后，对于非删除操作，就会将用户在文本框中键入的相关数据存储到组中；接着按照数据写入方式（追加、覆盖）的不同分别调用不同的通用过程将数据写入文件，这就完整地实现了数据的编辑功能；最后将一些控件的属性恢复到原始状态，包括两个框架的重新出现，文本框不能接受输入，以及保存数据按钮不再可见，等等。 实现笔记本信息的编辑功能 2.编写保存数据按钮的事件过程 （2）过程代码 Private Sub CmdSave_Click() 向文件中写入数据 Dim i As Integer If allowdele = False Then 将文本框中数据写入到数组 bh