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

1、1.(1)使用typeendtype语句定义包含多个数据项的查询密码类型，这些数据项与要包括在文件中的记录查询密码中的结构域相匹配。 随机文件的各记录查询密码为固定长度，设定记录查询密码编号(从1开始)。 网站数据库记录查询密码时，只需说明所需的记录查询密码的编号，系统即可计算记录查询密码的位置(2)按指定的Random类型打开文件，使记录查询密码固定长度，打开文件后，可网站数据库或访问任一个记录查询密码。 (3)在get和Put语句中，指定记录编号读取记录查询密码或保存记录查询密码，生成8.4随机文件，形式： Get #文件编号、查询密码编号、变量Put #文件编号、记录查询密码编号、变量，

2、2，例8.7员工薪资随机文件，作为员工薪资随机文件以职工编号作为记录编号。 设计步骤如下： (1)创建应用程序用户界面，示例8.9， 3、创建员工薪资随机文件；(2)在标准模块模块1中，使用Type语句定义员工薪资查询密码类型Type Salary，以及查询密码类型Name As String* 定义8的名称，固定长度字符串型Salary As Long工资薪金数End Type Public sal As salary定义sal记录查询密码型变量无需将员工编号作为记录查询密码的一个数据项保存在文件中(3)利用上通告进程Form_Load进行文件处理， 4私人辅助加载()开放数据2 .数据格式

3、1 len=len (销售)终端辅助加载命令1 _ click () 添加按钮的click上通告定过程dimrecanosintegerrecno=val (text1. text )报告编号=Text2.Text名称sal.salary=Val(Text3.Text )工资单编号Put #1。 恢复销售是click上通告定过程，用于设置聚焦于text1. text=text2. text=text3. text=text1. setfocus的结束子私有命令click ()的结束按钮1卸载最终子集， 存储5 (1)创建应用程序用户界面(2)设置对象属性，查询示例8.10员工工

4、资信息，示例8.10、6 )、(3)创建plum计程仪查询密码，在标准模块模块1中定义查询密码类型， 建立8个常用程序类型的salary name as string *，并使用固定长度字串类型的salary As Long工资薪金数End Type Public sal As salary定义sal recording类型变数的上通告定程序Form_Load ()， 打开文件私有子载入()打开数据1.datforrandom #1len=len (销售)结束子， 7描述“查询”按钮的Click上通告定过程private sub command1_ click () dimrecnoassai

5、ntegerrecno=val (text1. text ) ifrecinolof (1)/len (sal ) t 描述求最大记录查询密码编号MsgBox没有此记录查询密码Exit Sub End If Get #1，recno，saltext2. text= text3. text=sal.salary text1. setfocus定径套焦点enn 8描述了“结束”按钮的Click上通告过程private sub command4_ click () close #1unloadmeendsub，9是查询密码语句Put#、其语句形式：例如8-9 Put #、通过清除用于

6、删除记录查询密码的字段来完成的实际删除记录查询密码的方法和步骤如下：创建新文件，将所有有用的记录查询密码从原始文件复制到新文件，关闭原始文件，在Kill语句中使用删除Name语句将新文件重命名为原始文件，然后记录在随机文件中的记录查询密码10、文件系统命令特罗尔、文件系统命令特罗尔的作用是显示关于驱动器、目录查询、文件的信息，从中选择，进一步执行操作。 可通过将三个con特罗尔(驱动器列表框、dir列表框和文件列表框)结合使用来创建客制化的文件系统对话框计程仪。 在11、文件系统特罗尔和驱动器列表框中，将出现一个下拉列表，其中列出了当前系统中所有可用的驱动器。 drive property (

7、仅适用于product查询密码)示例：驱动器列表框名. Drive=驱动器名，12，目录查询列表框显示当前驱动器的目录查询结构。 只有当前驱动器上的目录查询才会出现在目录查询列表框中。要查看其他驱动器上的目录查询，请使用目录查询列表框中的path property更改网站数据库路径。 文件系统特罗尔，13，目录查询列表框Path属性(适用于目录查询列表框和文件列表框)形式为表单.目录查询列表框. |文件列表框. Path=“路径”，文件系统命令特罗尔，驱动器列表框为目录查询列表框如果更改驱动器列表框中的驱动器号，则目录查询列表框中的目录查询名应该是驱动器上的目录查询。 也就是说，驱动器列表框和

8、目录查询列表框是同步的。 privatesubdrive _ change () dir1. path=drive1. drive end sub，14，可以通过在文件列表框中查看当前目录查询下的文件来实现。 主要的配置文件是：文件系统特罗尔，15，文件列表框上通告文件列表框中最常见的上通告是Click上通告和DblClick上通告。 可以使用DblClick上通告执行文件列表框中的可执行文件。 也就是说，如果在文件列表框中双喀呖声可执行文件，则使用shell函数执行。 例如，使用私有subfile1_ dblclick () x=shell (file1. filename，1 )结束子、文

9、件系统定控制器特罗尔，例如8-11、16、例6 :文件系统定控制器特罗尔制作简单的文本浏览器设计过程请参照下图，添加驱动器列表框、目录查询列表框、文件列表框、字符框，选择上通告查询密码驱动器列表框的Change上通告查询密码Private Sub Drive1_Change () 描述dir1. path=drive1. drive end子目录查询列表框中的更改上通告查询密码private subdir1_ change ()文件1.path=dir1. path end子，文件系统特罗尔，示例6， 17文件列表框中的Click上通告定查询密码private subfile1_ click

10、() chdrivedrive1. drivechdirdir1. path text1. text=openfile1. filenameforinputas #1b Line Input #1，nexttlineb=bnexttlinechr (13 ) chr (10 ) loop close # 1文本1.text=文件系统定特罗尔定， 18可在应用程序内轻松操作文件和文件夹(1)文件语句的删除(Kill) (2)文件语句的复制(FileCopy) (3)文件的重命名和移动(Name )、8.6文件的基本操作、19 (4)文件夹语句(MrDir : MkDir路径文件夹名称示例： Mk

11、Dir D:VBTemp 6)更改当前文件夹语句(chdir ):chdir路径示例： ChDir D:VBDat ChDrive语句(允许将指定的驱动器设置为当前驱动器) 例如： ChDrive Drive1.Drive将用户在列表框中选择的驱动器设定为当前驱动器ChDrive “D”，d :设定为当前驱动器，删除8.6文件的基本操作，(5)文件夹语句(RmDir )，20，变量有几个可能的值也就是说，逐一列举变量的值时，变量的值被限定为列举出的值。 格式为： Public|Private Enum枚举类型名成员名称1=常量表达式End Enum，枚举类型，21，说明：如果将常量表达式可省略

12、，且其值为Long类型的小数代入常量，则在四舍五入为最接近的整数的差动奥尔特中，枚举中的第一个常量初始化为零，而其他常量各为一例如，publicementworkdaysaturdaysanddaytuesdaywenesdaythusdayfridainvalid=-1 end enum，枚举类型，枚举类型的例子，22“我的文档”(c:我的文档) 在文件夹下创建新文件夹 mydir ，并在新文件夹下复制 c : my document CJ2. txt 文件。副本生成的文件名是用户指定的Private Sub Form_Load () Show Print正在进行文件操作的mkdirc:mydirfname=inputbox (请输入新文件名更改文件名) fname=c 3360 mydocumentsmydirfname.txtfilecopyc 3360 my do