Computer Programming Concepts and Visual Basic David I. Schneider

236 Computer Programming Concepts and Visual Basic
‘Set name and balance labels
lblName.Caption = nameOnChk
lblBalance.Caption = FormatCurrency(curBal)
‘Set the date field to the current date
today = FormatDateTime(Now, vbLongDate)
txtDate.Text = Mid(today, 2 + InStr(today, “,”))
Call SetupCheck ‘Always start session with checks
Call InitializeFields
End Sub
Private Sub InitializeFields()
‘Initialize all text entry fields except date
txtToFrom.Text = “” txtAmount.Text = “”
txtMemo.Text = “”
If transType = “Check” Then
‘Make txtNum text box reflect next check number
txtNum.Text = Str(lastCkNum + 1)
Else ‘transType = “Deposit”
‘Make txtNum text box reflect next deposit slip number
txtNum.Text = Str(lastDpNum + 1)
End If
End Sub
Private Sub ReadDataFile()
Dim t As String, s As String, n As String, m As String, d As String
‘Recover name to appear on checks, current balance,
‘number of last check written, and number of last deposit slip processed
Open fileName For Input As #1
Input #1, nameOnChk, curBal, lastCkNum, lastDpNum
Do Until EOF(1)
‘Read to the end of the file to recover the current balance and the
‘last values recorded for ckNum and dpNum.
‘t, s, n, m and d are dummy variables and are not used at this point
Input #1, t, s, curBal, lastCkNum, lastDpNum, n, m, d
Loop
Close #1
End Sub
Private Sub SetupCheck()
‘Prepare form for the entry of a check
transType = “Check”
frmCheckbook.Caption = “Check”
lblToFrom.Caption = “Pay To”
cmdRecord.Caption = “&Record This Check”
cmdMode.Caption = “&Switch to Deposits”
picBox.BackColor = vbCyan ‘color of check is light turquoise blue
txtNum.BackColor = vbCyan
End Sub
Private Sub SetupDeposit()
‘Prepare form for the entry of a deposit
transType = “Deposit”
frmCheckbook.Caption = “Deposit Slip”
lblToFrom.Caption = “Source”