FORM 1 CODE :
Private Sub cmdaccept_Click()
If txtaccno.Text = "admin" And txtpinno.Text = "1234" Then
Unload Me
Form4.Show
Exit Sub
End If
If txtaccno.Text = "" Or txtpinno.Text = "" Then
MsgBox "sorry kindly enter the details to continue", vbCritical
Exit Sub
End If
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If txtaccno.Text = Adodc1.Recordset.Fields(0) And txtpinno.Text = Adodc1.Recordset.Fields(1) Then
accountno = txtaccno.Text
MDIForm1.Show
MDIForm1.Caption = "Account NO: " & accountno
Unload Me
Exit Sub
End If
Adodc1.Recordset.MoveNext
Wend
MsgBox "sorry!!! you have provided incorrect data", vbCritical, "Joe atm"
txtaccno.Text = ""
txtpinno.Text = ""
End Sub
Private Sub cmdcancel_Click()
End
End Sub
Private Sub Form_Load()
Me.Caption = "SUBSCRIBE bank"
txtaccno.Text = ""
txtpinno.Text = ""
End Sub
FORM 2 CODE :
Dim newamount As Double
Private Sub cmdaccept_Click()
If txtamt.Text = "" Or Val(txtamt.Text) < 100 Then
MsgBox "invalidd amount", vbCritical, "SUBSCRIBE ATM"
txtamt.Text = ""
Exit Sub
End If
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields(0) = accountno Then
If Val(txtamt.Text) <= Val(Adodc1.Recordset.Fields(3)) Then
newamount = Val(Adodc1.Recordset.Fields(3)) - Val(txtamt.Text)
Adodc1.Recordset.Fields(3) = newamount
Adodc1.Recordset.Update
Adodc2.Refresh
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields(0) = accountno
Adodc2.Recordset.Fields(1) = txtamt.Text
Adodc2.Recordset.Fields(2) = Format(Date, "dd-mm=yyy")
Adodc2.Recordset.Update
MsgBox "collect your cash", vbInformation, "SUSBSCRIBE ATM"
txtamt.Text = ""
Exit Sub
Else
MsgBox "sorry insuffiencient funds", vbQuestion
txtamt.Text = ""
Exit Sub
End If
Else
Adodc1.Recordset.MoveNext
End If
Wend
txtamt.Text = ""
End Sub
Private Sub Form_Load()
Me.Caption = "ACC NO:" & accountno
txtamt.Text = ""
txtamt.MaxLength = 5
End Sub
FORM 3 CODE :
Private Sub Form_Load()
Me.Caption = "ACCOUNT NO " & accountno
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If accountno = Adodc1.Recordset.Fields(0) Then
Label3.Caption = Adodc1.Recordset.Fields(3)
Exit Sub
End If
Adodc1.Recordset.MoveNext
Wend
End Sub
FORM 4 CODE:
Private Sub cmdadd_Click()
'create a sub funtion
Call clear_fields
'database
Adodc1.Refresh
Adodc1.Recordset.MoveLast
txtaccno.Text = Adodc1.Recordset(0) + 1
End Sub
Private Sub cmdcancel_Click()
'sub function
Call clear_fields
End Sub
Private Sub cmdhome_Click()
Unload Me
Form1.Show
End Sub
Private Sub cmdsave_Click()
If txtaccno.Text = "" Or txtpinno.Text = "" Or txtname.Text = "" Or txtamt.Text = "" Then
MsgBox "all fields are manadatory ", vbCritical, "SUBSCRIBE ATM"
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = txtaccno.Text
Adodc1.Recordset.Fields(1) = txtpinno.Text
Adodc1.Recordset.Fields(2) = txtname.Text
Adodc1.Recordset.Fields(3) = txtamt.Text
Adodc1.Recordset.Update
MsgBox " account created succesfully", vbInformation, "SUBSCRIBE BANK"
'sub function
Call clear_fields
End Sub
Private Sub Form_Load()
Call clear_fields
txtamt.MaxLength = 6
End Sub
Public Sub clear_fields()
txtaccno.Text = ""
txtpinno.Text = ""
txtname.Text = ""
txtamt.Text = ""
End Sub
FORM 5 CODE:
Private Sub Form_Load()
Me.Caption = "Account NO:" & accountno
Adodc1.RecordSource = "select * from transaction where accno=" & accountno
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub
MDI FORM CODE:
Private Sub balance_Click()
Form3.Show
End Sub
Private Sub mini_Click()
Form5.Show
End Sub
Private Sub w_Click()
Form2.Show
End Sub
MODULE CODE :
Public accountno As Double
Database
Views: 129