Insert Card & Enter Pin No.: Use Case Diagram
Insert Card & Enter Pin No.: Use Case Diagram
Insert Card & Enter Pin No.: Use Case Diagram
B CHECK BALANCE/WITHDRAWAL
ENTER AMOUNT
PRINT RECEIPT
END TRANSACTION
SEQUENCE DIAGRAM
User System
2.VERIFY PIN NO
5. ENTER AMOUNT
6.COMPUTE BALANCE
R 7. PRINT RECEIPT
8. END TRANSACTION
CLASS DIAGRAM
USER SYSTEM
* 1 11
PINNO PINNO
ACCTYPE BALANCE
AMOUNT
VERIFY()
SELECTOPERATION()
RESULT()
ENTERAMOUNT()
COMPONENT DIAGRAM
USER SYSTEM
COLLABORATION DIAGRAM
1.ENTER PIN NO
5. ENTER AMOUNT
8. END TRANSACTION
PARTICIPANT SYSTEM
2.VERIFY PIN NO
6. COMPUTE BALANCE
R 7. PRINT RECEIPT
ATM SYSTEM
Ex. No. 8 Name: R Shiva
System.cls
Option Explicit
'##ModelId=422B175F0167
Private pinno As Variant
'##ModelId=422B176602DE
Private balance As Variant
'##ModelId=422B177A03A9
Public Sub verify()
Form1.Adodc1.Recordset.MoveFirst
q: If Not Form1.Adodc1.Recordset.EOF Then
If Form1.Adodc1.Recordset.Fields("pinno").Value = Form1.Text1.Text
And Form1.Adodc1.Recordset.Fields("cardno").Value = Form1.Text2.Text
Then
Form3.Show
Else
Form1.Adodc1.Recordset.MoveNext
GoTo q
End If
Else
MsgBox ("sorry wrong card number or pin number")
Unload Form1
End If
End Sub
'##ModelId=422B17960186
Public Sub result()
Form4.Adodc1.Recordset.MoveFirst
a: If Not Form4.Adodc1.Recordset.EOF Then
If Form4.Adodc1.Recordset.Fields("pinno").Value = Form1.Text1.Text
Then
Form4.Label1.Caption = "Card No:" +
Str(Form4.Adodc1.Recordset.Fields("cardno").Value)
Form4.Label2.Caption = "Name:" +
Form4.Adodc1.Recordset.Fields("name").Value
Form4.Label3.Caption = "Account no: " +
Str(Form4.Adodc1.Recordset.Fields("Account no").Value)
Form4.Label4.Caption = "Account type:" +
Form4.Adodc1.Recordset.Fields("accounttype").Value
Form4.Label5.Caption = "Balance: " +
Str(Form4.Adodc1.Recordset.Fields("balance").Value)
Else
Form4.Adodc1.Recordset.MoveNext
GoTo a
End If
End If
End Sub
User.cls
Option Explicit
'##ModelId=422B16DA004E
Private pinno As Variant
'##ModelId=422B16DE000F
Private acctype As Variant
'##ModelId=422B16E702DE
Private amount As Variant
'##ModelId=422B173001B5
Public Sub selectoperation()
If Form3.Option1 = True Then
Form4.Show
Else
If Form3.Option2 = True Then
Form5.Show
End If
End If
End Sub
'##ModelId=423594ED0280
Public Sub enteramount()
Form5.Adodc1.Recordset.MoveFirst
a: If Not Form5.Adodc1.Recordset.EOF Then
If Form5.Adodc1.Recordset.Fields("pinno").Value = Form1.Text1.Text
Then
Form5.Adodc1.Recordset.Fields("balance").Value =
Form5.Adodc1.Recordset.Fields("balance").Value -
Val(Form5.Text1.Text)
Form5.Adodc1.Recordset.Update
Unload Form5
Form4.Show
Else
Form5.Adodc1.Recordset.MoveNext
GoTo a
End If
End If
End Sub
Form1.frm
Form2.frm
Form4.frm
Form5.frm