VB程序设计教程(第四版)龚沛曾-实验8-7

实验8-7

在教学篇例8.7的基础上增加“修改确定”按钮以及用于定位记录的按钮面板，如图2.8.5所示，并编写时间过程。

解题，代码如下：

先建立标准模块，代码是：

Type studtype
    iNo As Integer
    strName As String * 20
    strSex As String * 1
    sMark As Single
End Type

再在窗体上建立相应的按钮等控件，窗体代码如下：

 

Dim Student As studtype
Dim Record_No As Integer
Sub Form_Load()
    Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
    Label1.Caption = LOF(1) / Len(Student)
    Close #1
    
    If Label1.Caption <> "0" Then Command3_Click '记录不为零，就显示第一条记录
End Sub

Sub Command1_Click() '追加记录
    With Student
        .iNo = Val(Text1.Text)
        .strName = Text2.Text