08-数据文件2报告.ppt

8.4 随机文件 (1) 使用Type…End Type语句定义一个记录类型，该类型包括多个数据项，并与文件中记录应包括的域一致。 随机文件中每一个记录定长，并设置记录号(从1开始)。 存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置 (2) 指定Random类型打开文件，记录定长，打开文件后，就可以存或取任一个记录。 (3)分别通过Get和Put语句，并指定记录号进行读一个记录或存一个记录 例8.7 建立职工工资随机文件 建立一个职工工资信息的随机文件，其中包括职工的职工号(从001开始)、姓名及工资三种数据。采用职工号为记录号。设计步骤如下： (1)创建应用程序的用户界面 建立职工工资随机文件 (2) 在标准模块Module1中用Type语句定义一个职工工资记录类型 Type Salary ‘定义一个记录类型 Name As String*8 ‘姓名，定长字符串类型 Salary As Long ‘工资数 End Type Public sal As salary 定义sal为记录类型变量 不必把职工号作为记录的一个数据项存入文件 (3)利用事件过程Form_Load来进行文件处理 Private Sub Form_Load() Open data2.dat For Random As #1 Len = Len(sal) End Sub Private Sub Command1_Click() 添加按钮的click事件过程 Dim recno As Integer recno = Val(Text1.Text) 记录号 sal.name = Text2.Text ‘姓名 sal.salary = Val(Text3.Text) ‘工资数 Put #1, recno, sal 存入记录 Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus 设置焦点 End Sub Private Sub Command2_Click() 结束按钮的click事件过程 Close #1 Unload Me End Sub 例8.10 对职工工资信息进行查询 (1)创建应用程序的用户界面 (2)设置对象属性 (3)编写程序代码 ① 在标准模块Module1中定义记录类型和建立一个通用过程 Type salary name As String * 8 ‘姓名，定长字符串类型 salary As Long ‘工资数 End Type Public sal As salary 定义sal为记录类型变量 ② 利用事件过程Form_Load()来打开文件 Private Sub Form_Load() Open Data1.dat For Random As #1 Len = Len(sal) End Sub ③ 编写“查询”按钮的Click事件过程 Private Sub Command1_Click()