VB程序设计中的数据文件.pptVIP

(1) 使用Type…End Type语句定义一个记录类型，该类型包括多个数据项，并与文件中记录应包括的域一致。 随机文件中每一个记录定长，并设置记录号(从1开始)。 存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置 (2) 指定Random类型打开文件，记录定长，打开文件后，就可以存或取任一个记录。 (3)分别通过Get和Put语句，并指定记录号进行读一个记录或存一个记录;例8.7 建立职工工资随机文件;建立职工工资随机文件; 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; (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() Dim recno As Integer recno = Val(Text1.Text) If recno LOF(1) / Len(sal) Then Lof(1)/Len(sal)求出最大记录号 MsgBox 无此记录 Exit Sub End If Get #1, recno, sal Text2.Text = sal.name Text3.Text = sal.salary Text1.SetFocus 设置焦点 End Sub; ④ 编写“结束”按钮的Click事件过程 Private Sub Command4_Click() Close #1 Unload Me End Sub; ?添加记录语句Put#，其语句格式：例8-9 Put # 文件号，随机文件记录总数+1，变量名