Visual Basic

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim Employee As Company, Count As Integer
        Filenum = FreeFile()
        FileOpen(Filenum, "Filename.dat", OpenMode.Random, , , Len(Employee))
        Filenum = frmedit.lblrecord.Text
        Count = 1

        frmedit.lblrecord.Text = Count
        If EOF(Filenum) = False Then
            FileGet(Filenum, Employee, Count)


            txtcompanyname.Text = Employee.Name
            txtstreet.Text = Employee.Street
            txtsuburb.Text = Employee.Suburb
            txttelephpone.Text = Val(Employee.Telephone)
            txtfax.Text = Val(Employee.Fax)
            txtemail.Text = Employee.Email

            Count = Count + 1
        Else
            MsgBox("End Of File", MsgBoxStyle.Critical, "Error")
        End If
        FileClose(Filenum)
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Employee As Company, Count As Integer
        Filenum = FreeFile()
        FileOpen(Filenum, "Filename.dat", OpenMode.Random, , , Len(Employee))
        Count = 1
        If Count <> 0 Then
            FileGet(Filenum, Employee, Count)


            frmedit.txtcompanyname.Text = Trim(Employee.Name)
            frmedit.txtstreet.Text = Trim(Employee.Street)
            frmedit.txtsuburb.Text = Trim(Employee.Suburb)
            frmedit.txttelephpone.Text = Trim(Val(Employee.Telephone))
            frmedit.txtfax.Text = Trim(Val(Employee.Fax))
            frmedit.txtemail.Text = Trim(Employee.Email)
            frmedit.txtncr.Text = Trim(Val(Employee.NCR))

            Count = Count - 1
        Else
            MsgBox("Beginning Of File", MsgBoxStyle.Critical, "Error")
        End If
        FileClose(Filenum)
    End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim Employee As Company, FileNum1, FileNum2 As Integer
        FileNum1 = FreeFile()
        FileOpen(FileNum1, "Filename.dat", OpenMode.Random, OpenAccess.Read, , Len(Employee))
        FileNum2 = FreeFile()

        FileOpen(FileNum2, "Genx.dat", OpenMode.Random, OpenAccess.Write, , Len(Employee))

        Do While Not EOF(FileNum1)
            If (Loc(FileNum1) <> Position - 1) Then
                FileGet(FileNum1, Employee, )
                FilePut(FileNum2, Employee, )
            Else
                FileGet(FileNum1, Employee, )
            End If
        Loop

        FileClose(FileNum1)
        FileClose(FileNum2)

        Kill("Filename.dat")

        Rename("Genx.dat", "Filename.dat")
    End Sub