VB程序设计中的数据文件PPT课件

主页8.4随机文件(1)使用Type…EndType语句定义一个 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 类型，该类型包括多个数据项，并与文件中记录应包括的域一致。随机文件中每一个记录定长，并设置记录号(从1开始)。存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置(2)指定Random类型打开文件，记录定长，打开文件后，就可以存或取任一个记录。(3)分别通过Get和Put语句，并指定记录号进行读一个记录或存一个记录格式：Get#文件号,[记录号],变量Put#文件号,[记录号],变量主页例8.7建立职工工资随机文件建立一个职工工资信息的随机文件，其中包括职工的职工号(从001开始)、姓名及工资三种数据。采用职工号为记录号。设计步骤如下：(1)创建应用程序的用户界面例8.9主页建立职工工资随机文件(2)在标准模块Module1中用Type语句定义一个职工工资记录类型TypeSalary‘定义一个记录类型NameAsString*8‘姓名，定长字符串类型SalaryAsLong‘工资数EndTypePublicsalAssalary'定义sal为记录类型变量不必把职工号作为记录的一个数据项存入文件 (3)利用事件过程Form_Load来进行文件处理主页PrivateSubForm_Load()Open"data2.dat"ForRandomAs#1Len=Len(sal)EndSubPrivateSubCommand1_Click()'"添加"按钮的click事件过程DimrecnoAsIntegerrecno=Val(Text1.Text)'记录号sal.name=Text2.Text‘姓名sal.salary=Val(Text3.Text)‘工资数Put#1,recno,sal'存入记录Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocus'设置焦点EndSubPrivateSubCommand2_Click()'"结束"按钮的click事件过程Close#1UnloadMeEndSub主页例8.10对职工工资信息进行查询(1)创建应用程序的用户界面(2)设置对象属性例8.10主页(3)编写程序代码①在标准模块Module1中定义记录类型和建立一个通用过程TypesalarynameAsString*8‘姓名，定长字符串类型salaryAsLong‘工资数EndTypePublicsalAssalary'定义sal为记录类型变量②利用事件过程Form_Load()来打开文件PrivateSubForm_Load()Open"Data1.dat"ForRandomAs#1Len=Len(sal)EndSub主页③编写“查询”按钮的Click事件过程PrivateSubCommand1_Click()DimrecnoAsIntegerrecno=Val(Text1.Text)Ifrecno>LOF(1)/Len(sal)Then'Lof(1)/Len(sal)求出最大记录号MsgBox"无此记录"ExitSubEndIfGet#1,recno,salText2.Text=sal.nameText3.Text=sal.salaryText1.SetFocus'设置焦点EndSub主页④编写“结束”按钮的Click事件过程PrivateSubCommand4_Click()Close#1UnloadMeEndSub主页添加记录语句Put#，其语句格式：例8-9Put#<文件号>，<随机文件记录总数+1>，<变量名>删除记录通过清除其字段可以删除一个记录，但该记录仍在文件中存在。真正删除记录的方法和步骤为：①创建一个新文件②把有用的所有记录从原文件复制到新文件③关闭原文件并用Kill语句删除它④使用Name语句把新文件以原文件的名字重新命名随机文件中记录的增加与删除例8-10(7)主页文件系统控件文件系统控件的作用是显示出关于驱动器、目录和文件的信息，并从中进行选择以便执行进一步操作。通过使用DriveListBox（驱动器列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 框）、DirListBox(目录列表框）和FileListBox（文件列表框）三种控件的组合，可以创建自定义文件系统对话框。主页文件系统控件驱动器列表框提供一个下拉式驱动器 清单 安全隐患排查清单下载最新工程量清单计量规则下载程序清单下载家私清单下载送货清单下载 ，显示当前系统中所有有效的驱动器。Drive属性（只能通过程序代码设置）示例：驱动器列表框名称.Drive[=驱动器名]主页目录列表框用以显示当前驱动器上的目录结构。在目录列表框中只显示当前驱动器上的目录。要显示其他驱动器上的目录，需使用目录列表框的Path属性改变访问路径。文件系统控件主页目录列表框Path属性（适用于目录列表框和文件列表框）格式为：[窗体.]目录列表框.|文件列表框.Path[=“路径”]文件系统控件驱动器列表框与目录列表框有密切联系。当驱动器列表框中的驱动器名改变后，目录列表框中的目录名应当随之变为该驱动器上的目录，即驱动器列表框与目录列表框产生同步效果。可以通过下述方法实现：PrivateSubDrive_Change()Dir1.Path=Drive1.DriveEndSub主页文件列表框　　用以显示当前目录下的文件。其主要属性如下表：文件系统控件 属性 说明 FileName 设置或返回所选文件的路径和文件名 Multiselect 是否允许用户选择多个文件 Pattern 设置允许显示文件的文件类型，缺省为*.*主页文件列表框事件　　文件列表框最常用的事件是Click事件和DblClick事件。利用DblClick事件，可以执行文件列表框中的某个可执行文件。也就是说，只要双击文件列表框中的某个可执行文件，通过Shell函数运行该文件。例如：PrivateSubFile1_DblClick()x=Shell(File1.FileName,1)EndSub文件系统控件例8-11主页示例6：使用文件系统控件制作简易的文本浏览器设计步骤如下：◇建立应用程序用户界面并设置对象属性，如下图（控件有：一个框架，在其中添加一个驱动器列表框、一个目录列表框、一个文件列表框和一个文本框）◇编写事件代码①驱动器列表框的Change事件代码PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub②目录列表框的Change事件代码PrivateSubDir1_Change()File1.Path=Dir1.PathEndSub文件系统控件示例6主页③文件列表框的Click事件代码PrivateSubFile1_Click()ChDriveDrive1.DriveChDirDir1.PathText1.Text=""OpenFile1.FileNameForInputAs#1b=""DoUntilEOF(1)LineInput#1,nextlineb=b&nextline&Chr(13)&Chr(10)LoopClose#1Text1.Text=bEndSub文件系统控件主页8.6文件基本操作可以在应用程序中很方便地对文件和文件夹进行操作(1)删除文件语句(Kill)(2)拷贝文件语句(FileCopy)(3)文件的改名和移动(Name)主页8.6文件基本操作(4)建立文件夹语句(MrDir)：MkDir［路径］文件夹名示例：MkDir"D:\VB\Temp"6)改变当前文件夹语句(ChDir)：ChDir路径示例：ChDir"D:\VB\Dat" ChDrive语句（可将指定的驱动器设为当前驱动器） 示例：ChDriveDrive1.Drive‘将用户在列表框中选择的驱动器设置为当前驱动器 ChDrive“D”‘将D：设置为当前驱动器(5)删除文件夹语句(RmDir)主页当一个变量只有几种可能的值时，可以定义为枚举类型。即将变量的值一一列举出来，变量的值只限于列举出来的值。格式为：[Public|Private]Enum枚举类型名成员名1[=常数表达式]……EndEnum枚举类型主页说明：常数表达式可以省略，其值是Long型；如果将小数赋值给常数，则取整为最接近的长整数；默认情况下，枚举中的第一个常数被初始化为0，其它数依次增1；可以用小于0的常数代表出错条件。例如：PublicEnumworkdayssaturdaysundaymondaytuesdaywednesdaythursdayFridayinvalid=-1EndEnum枚举类型枚举类型示例主页例8.11文件操作示例在“我的文档”(C:＼MyDocuments)文件夹下创建一个新文件夹“mydir”，然后复制文件“C:＼MyDocuments＼cj2.txt”到新文件夹下，复制生成的文件名称由用户指定PrivateSubForm_Load()ShowPrint"正在进行文件操作"MkDir"c:\mydocuments\mydir"fname=InputBox("请输入新文件名","更改文件名")fname="c:\mydocuments\mydir\"+fname+".txt"FileCopy"c:\mydocuments\cj2.txt",fnamePrint"已完成要求的操作"EndSub例8.11主页文件系统对象(FSO)FSO(FileSystemObject，文件系统对象方法)FSO采用面向对象的编程方法，提供了一整套对文件系统进行管理和操作的属性、方法和事件。可以实现文件夹的创建、更名、移动和删除等操作，能够检测文件夹是否存在，可以创建文本文件，还可以获得驱动器、文件夹及文件的许多信息但不支持二进制文件和随机文件的创建和操作将逐渐淘汰传统的文件访问机制(即用Open等I/O语句及函数来实现对文件进行操作)