IMPLEMENT ONLINE BANKING SYSTEM | SOFTWARE COMPONENT LAB WITH RATIONAL ROSE APLLCIATION |

OBJECTIVES:
To analyze the problem gather the requirements and implement online Banking System and to model the data using UML diagram.
Phase 1: Problem analysis:
The customer inserts the account number in to software. If the pin no is valid the account is opened else rejected. The customer should select to account and type the registered amount be wished withdraw or withdraw. The program checks the amount is available in His account and issues the cash and should update the amount and the transaction in the account.
Phase 2:
Functional Requirement analysis:
Customer: External entity to the system and entities initiates the withdraw process from the bus.
Clerk : This is the system on its responsible to response for each events caused by the user.
Cashier : The hold updates and manipulates both user details and all details.
Phase 3:
The various data modeling techniques which are implemented in the ATM system are
Use case diagram
Class diagram
Collaboration diagram
Sequence diagram
State chart diagram
Activity diagram
Component diagram
Phase 4:
The software is now designed in rational rose and skeleton code is generated in VB
Phase 5:
Implementation:
ATM use case diagram

ATM class diagram

ATM sequence diagram

 

ATM state chart diagram

ATM component diagram

PROGRAM:
ENTRY.FRM
Dim db As Database
Dim rs As Recordset
Private Sub Command1_Click()
If Option1.Value = True Then
Form1.Show
rs.MoveLast
Form1.Labe7.Caption = rs("accno") + 1
End If
If Option2.Value = True Then
ano = CInt(InputBox("enter ur account number", "account detail", 101))
rs.MoveFirst
While (rs.EOF = False)
If (rs("accno") = accno) Then
Form3.Show
Form3.Label2.Caption = ano
Form3.Label4.Caption = rs("name")
a = 1
End If
rs.MoveNext
Wend
If (a <> 1) Then
MsgBox ("invalid account no")
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("D:\Program Files\Microsoft Visual Studio\VB98\bank1.mdb")
Set rs = db.OpenRecordset("select *from bankk;")
End Sub
NEW ACCOUNT.FRM
Dim a, s, q As Integer
Dim db As Database
Dim rs, rs1 As DAO.Recordset
Private Sub Command1_Click()
rs.MoveFirst
While rs.EOF = False
If (rs("accno") = Val(Label2.Caption)) Then
rs.Edit
rs1.AddNew
s = rs("balance")
If (Combo1.Text = "deposit") Then
Text2.Text = Val(Text1.Text) + s
ElseIf (Combo1.Text = "deposit") Then
q = s - Val(Text1.Text)
If (q >= 500) Then
Text2.Text = q
Else
MsgBox "balance is not sufficent"
GoTo 11
End If
End If
rs("balance") = Val(Text2.Text)
rs1("accno") = Trim(Label2.Caption)
rs1("name") = Trim(Label4.Caption)
rs1("type") = Trim(Combo1.Text)
rs1("amount") = Val(Text1.Text)
rs1("balance") = Val(Text2.Text)
rs1("date") = Text3.Text
rs1.Update
rs.Update
MsgBox "amount transacted"
GoTo 11
End If
rs.MoveNext
Wend
11:
rs.Close
rs1.Close
Text1.Text = ""
Text2.Text = ""
Label2.Caption = ""
Label4.Caption = ""
Combo1.Text = "type"
Form3.Hide
Form3.Show
End Sub
Private Sub Command2_Click()
MsgBox "no transaction made"
Form3.Hide
Form1.Show
End Sub
Private Sub Command3_Click()
DataReport1.Show
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("D:\Program Files\Microsoft Visual Studio\VB98\bank1.mdb")
Set rs = db.OpenRecordset("select * from bankk")
Set rs1 = db.OpenRecordset("select * from bankk")
Text3.Text = Format(Date, "dd/mm/yyyy")
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then
MsgBox "enter an integer"
End If
End Sub