A.Private Sub Command1_Click( ) Dim MyRecord As Record,Position Open"d:/F1.dat"For Random As#1 Len=Len(My RecorD)Position=4 Get#1,Position,Myrecord Close #1 End Sub
B.Private Sub Command1_Click( ) Dim MyRecord As Record,Position Open"d:/F1.dat"For Random As #1 Len=Len(MyRecorD)Position=4 Put #1,Position,MyRecord Close#1 End Sub
C.Private Sub Command1_Click( ) Dim MyRecord As Record,Position Open"d:/F1.dar"For OutPut As #1 Len=Len(My RecorD0Position=4 Get #1,Position,MyRecord Close#1 End Sub
D.Private Sub Command1_Click( ) Dim MyRecord As record,Position Open"d:/F1.dat"For lnput As #1 Len=Len(MyRecorD)Position=4 Get #1,Position,MyRecord Close#1 End Sub