Computer Programming Concepts and Visual Basic David I. Schneider

220 Computer Programming Concepts and Visual Basic
‘Add a person’s name and year of birth to file
If (txtName.Text “”) And (txtYOB.Text “”) Then
Open “YOB.TXT” For Append As #1
Write #1, txtName.Text, Val(txtYOB.Text)
Close #1
txtName.Text = “”
txtYOB.Text = “”
txtName.SetFocus
Else
message = “You must enter a name and year of birth.”
MsgBox message, , “Information Incomplete”
End If
End Sub
Private Sub cmdLookUp_Click()
Dim message As String
‘Determine a person’s year of birth
If txtName.Text “” Then
If Dir(“YOB.TXT”) “” Then
Call DisplayYearOfBirth
Else
message = “Either no file has yet been created or ”
message = message & “the file is not where expected.”
MsgBox message, , “File Not Found”
End If
Else
MsgBox “You must enter a name.”, , “Information Incomplete”
End If
txtName.SetFocus
End Sub
Private Sub cmdDelete_Click()
Dim message As String
‘Remove a person from the file
If txtName.Text “” Then
If Dir(“YOB.TXT”) “” Then
Call DeletePerson
Else
message = “Either no file has yet been created or ”
message = message & “the file is not where expected.”
MsgBox message, , “File Not Found.”
End If
Else
MsgBox “You must enter a name.”, , “Information Incomplete”
End If
txtName.SetFocus
End Sub
Private Sub DeletePerson()
Dim nom As String, yob As Integer, foundFlag As Boolean
foundFlag = False Open “YOB.TXT” For Input As #1
Open “TEMP” For Output As #2
Do While Not EOF(1)
Input #1, nom, yob
If nom txtName.Text Then