technology, visualbasic6, project,

ATM MACHINE MINI PROJECT

Jai Jai Follow Jul 11, 2019 · 2 mins read
ATM MACHINE MINI PROJECT
Share this

HERE IS THE CODE FOR ATM MACHINE PROJECT

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
Join Newsletter
Get the latest news right in your inbox. We never spam!
Jai
Written by Jai Follow
Blogger, love to explore new ideas and to code