Visual Basic.NET How to Program (PDF)

818 Files and Streams Chapter 17
59 Hide()
60 ClearTextBoxes()
61 showPreviousWindow()
62 End Sub ' cmdSave_Click
63
64 ' insert record in file at position specified by accountNumber
65 Private Sub InsertRecord(ByVal record As CRandomAccessRecord)
66
67 ' store TextBox values in String array
68 Dim textBoxValues As String() = GetTextBoxValues()
69
70 ' store TextBox account field
71 Dim accountNumber As Integer = _
72 Convert.ToInt32(textBoxValues(TextBoxIndices.ACCOUNT))
73
74 ' notify user and return if record account is not empty
75 If record.Account 0 Then
76 MessageBox.Show( _
77 "Record Already Exists or Invalid Number", "Error", _
78 MessageBoxButtons.OK, MessageBoxIcon.Error)
79
80 Return
81 End If
82
83 ' store values in record
84 record.Account = accountNumber
85 record.FirstName = textBoxValues(TextBoxIndices.FIRST)
86 record.LastName = textBoxValues(TextBoxIndices.LAST)
87 record.Balance = Convert.ToDouble( _
88 textBoxValues(TextBoxIndices.BALANCE))
89
90 ' add record to file
91 Try
92
93 If (transactionProxy.AddRecord( _
94 record, accountNumber) = False ) Then
95
96 Return ' if error
97 End If
98
99 ' notify user if error occurs in parameter mismatch
100 Catch formattingException As FormatException
101 MessageBox.Show("Invalid Balance", "Error", _
102 MessageBoxButtons.OK, MessageBoxIcon.Error)
103
104 End Try
105
106 MessageBox.Show("Record Created", "Success", _
107 MessageBoxButtons.OK, MessageBoxIcon.Information)
108 End Sub ' InsertRecord
109
110 End Class ' FrmNewDialog
Fig. 17.21 FrmNewDialog class enables users to create records in transactionprocessor
case study (part 3 of 4).