VB文件程序详解.doc

Private Type StudType
xuehao As Integer
xingming As String * 20
xingbie As String
chengjiAs Single
End Type
'建立一个结构类型。
Dim Student As StudType
'Student为该结构类型。
Dim Record_No As Integer
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub form_load()
Open "d:\test\wenjian1.txt" For Random As #1 Len = Len(Student)
'打开文件“wenjian1”，用随机方法，“wenjian1”命名为1号（#1）文件。
Label6.Caption = Round(LOF(1) / Len(Student))
'取1号（#1）文件的长度（LOF（1））除以单位长度Len(Student)，获得记录数（共有多少条记录）
Close #1
'关闭文件“wenjian1”。
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'添加记录
Sub Command1_Click()
With Student
'With 语句在一个单一对象或一个用户定义类型上执行一系列的语句，以下语句相当于Student.xuehao……
.xuehao = Val(Text1.Text)
.xingming = Text2.Text
.xingbie = IIf(Option1.Value, "1", "0")
'如果Option1被选中就将1赋给xingbie，如果Option1没被选中就将2赋给xingbie
.chengji= Val(Text3.Text)
End With
Open "d:\test\1.txt" For Random As #1 Len = Len(Student)
'打开文件“wenjian1”，用随机方法，“wenjian1”命名为1号（#1）文件。
Record_No = LOF(1) / Len(Student) + 1
'为即将添加的记录，设置记录号。
LOF(1) / Len(Student) 为原有文件的记录数，再加1是，即将增加的记录的记录号。
Label6.Caption = Record_No
' 将记录号显示在Label6上。
Put #1, Record_No, Student
' 向1号（#1）文件里录入，Record_No 号的Student信息。
Close #1
'关闭文件“wenjian1”。
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'显示记录
Sub Command2_Click()
Open "d:\test\1.txt" For Random As #1 Len = Len(Student)
'打开文件“wenjian1”，用随机方法，“wenjian1”命名为1号（#1）文件。
Record_No = Val(Text4.Text)
'用户输入想看到的记录的记录号（也就是根据记录号查找信息）。
Get #1, Record_No, Student
'从1号（#1）文件里读取Record_No 号的Student信息。
Text1.Text = Student.xuehao
'将 Student.xuehao 显示在文本框1里
Text2.Text = Student.xingming
'将 Student.xingming 显示在文本框2里
If Student.xingbie = "1" Then
Option1.Value = True
Else
Option2.Value = True
End If
'如果xingbie是1，就将Option1显示被选中状态。反之将Option2显示被选中状态。
Text3.Text = Student.chengji
'将 Student.chengji 显示在文本框3里
Record_No = LOF(1) / Len(Student)
'取1号（#1）文件的长度（LOF（1））除以单位长度Len(Student)，获得记录数（共有多少条记录）
Label6.Caption = Record_No
' 将记录号显示在Label6上。
Close #1
'关闭文件“wenjian1”。
End Sub