Visual Basic

Module modulePersonRec
    Structure personRecord
        <VBFixedString(7)> Public RecordNum As String
        <VBFixedString(9)> Public SS As String
        <VBFixedString(40)> Public name As String
        <VBFixedString(10)> Public Tele As String
        <VBFixedString(2)> Public lineBreak As String
    End Structure

    Public datafile As String
    Public person As personRecord
    Public position As Long
    Public lastrec As Long
    Public RecLength As Long
    Public LastRecord As Integer
    Public filelength As Long
    Public indexSS(100) As String
    Public indexKey(100) As Long

End Module

Private Sub btnGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGet.Click
    '*****************************************************88
    'THIS SUBROUTINE WILL ALLOW THE USER TO FIND A RECORD
    'BASED ON THE RECORD NUMBER THE USER ENTERS INTO
    'A REQUIRED FIELD. IF THE RECORD IS FOUND THEN
    'THE CORRESPONDING DATA WILL BE DISPLAYED
    '****************************************************
    FileGet(1, person, Val(txtRecNum.Text))

    If person.RecordNum <> Val(txtRecNum.Text) Then
        MessageBox.Show("Record Does not exist", "RandomFile", _
                        MessageBoxButtons.OK, MessageBoxIcon.Error)

    Else

        FileGet(1, person, Val(txtRecNum.Text))
        txtSSN.Text = person.SS
        txtName.Text = person.name
        txtTele.Text = person.Tele
    End If


End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
    '**********************************************
    'THIS SUBROUTINE WILL UPDATE ANY CHANGES
    'THE USER ENTERS TO A SPECIFIC RECORD
    'HE/SHE FINDS AFTER SEARCHING BY REC NUM
    '**********************************************

    'Update the information of an person.
    '  person.RecordNum = Val(txtRecNum.Text)
    person.name = txtName.Text
    person.SS = txtSSN.Text
    person.Tele = txtTele.Text
    FilePut(1, person, )

End Sub