Experiment No.
2
Banking System
Problem Def: -
To design an automated banking system for various bank transactions.
Software Requirement Specification: -
Purpose: -
The design of an automated banking system with a set of constraints will
make the banking transactions easy.
Constraints: -
(a) The minimum balance in the account should be Rs500.
(b) If either the account _no or password doesn’t match, the bank
customer is not allowed to login.
(c) Account_no cannot be repeated.
Scope: -
The system can be implemented as a real time banking application.
Processor Type : Pentium -IV
Speed : 2.4 GHZ
Ram : 128 MB RAM
Hard disk : 20 GB HD
Software Requirement: -
Operating System : Win2000/Win xp
Programming Package : Microsoft Visual Basic 6.0
MS Access /Oracle
Existing System: -
(a) In existing system, manual updation used to take place.
(b) Minimum balance was not a constraint.
Proposed System: -
It is an automated system, in which all transactions are automatically
updated in the database.
Minimum balance has to be maintained, so that it can be used under
crisis.
System Design: -
Use-Case Diagram: -
login
Create account
transaction
Customer
Data Flow Diagram: -
Login
Applicant
Bank customer
Create an account
Transaction
Activity diagram
Account No.
Password
Deposit Withdraw
CURRENT ACC. SAVINGS ACC. CURRENT ACC. SAVINGS ACC.
Amount Amount
Terminate
FORM 1():
Private Sub Command1_Click()
Form2.Show
Unload Me
End Sub
Private Sub Command2_Click()
Form3.Show vbModal
End Sub
Private Sub Command3_Click()
Form4.Show vbModal
End Sub
FORM 2():
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub Command2_Click()
Unload Me
Form1.Show
End Sub
Private Sub Command3_Click()
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text5.Text <> "" Then
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "C:\Documents and Settings\aarthi\Software Engineering\Banking.mdb"
rs.Open "select * from customer", cn, adOpenKeyset, adLockPessimistic
rs.AddNew
rs.Fields(0) = Text1.Text
rs.Fields(1) = Text2.Text
rs.Fields(2) = Text3.Text
rs.Fields(3) = Text4.Text
rs.Fields(4) = Text5.Text
rs.Update
cn.Close
MsgBox "Account Created"
Else
MsgBox "Enter all the Fields"
End If
End Sub
FORM 3():
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click
If Text1.Text <> "" And Text2.Text <> "" Then
If cn.State = adStateOpen Then
cn.Close
End If
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "C:\Documents and Settings\aarthi\Software Engineering\Banking.mdb"
rs.Open "select * from customer where ID=" + Text1.Text, cn, adOpenKeyset, adLockOptimistic
If rs.Fields(0) = Text1.Text And rs.Fields(1) = Text2.Text Then
Me.Hide 'hide the modal form
Form6.Show 'open the customer form
Unload Form1 'close the main form
End If
End If
End Sub
FORM 4():
Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "admin" Then
Unload Me
Form5.Show
End If
End Sub
Private Sub Command2_Click()
Unload Me
Form1.Show
End Sub
FORM 5():
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
If rs.State = adStateOpen Then
rs.Close
End If
rs.Open "delete from customer where ID=" + Text1.Text, cn, adOpenKeyset, adLockOptimistic
Call Form_Load
End Sub
Private Sub Command2_Click()
cn.Close
Unload Me
Form1.Show
End Sub
Private Sub Form_Load()
If cn.State = adStateOpen Then
cn.Close
End If
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "C:\Documents and Settings\aarthi\Software Engineering\Banking.mdb"
cn.CursorLocation = adUseClient
rs.Open "Select * from customer", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
FORM 6():
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ac As Integer
Private Sub Command2_Click() 'deposit button
rs.Fields(4) = Val(Text1.Text) + Val(Text2.Text)
rs.Update
Text1.Text = rs.Fields(4)
End Sub
Private Sub Command3_Click() 'Withdrawl button
If Val(Text1.Text) > Val(Text2.Text) Then
rs.Fields(4) = Val(Text1.Text) - Val(Text2.Text)
rs.Update
Text1.Text = rs.Fields(4)
End If
End Sub
Private Sub Command5_Click() 'logout button
If cn.State = adStateOpen Then
cn.Close
End If
Unload Me
Form1.Show
End Sub
Private Sub Form_Load()
Text3.Text = Form3.Text1.Text
If cn.State = adStateOpen Then
cn.Close
End If
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "C:\Documents and Settings\aarthi\Software Engineering\Banking.mdb"
rs.Open "Select * from customer where ID=" + Text3.Text, cn, adOpenKeyset, adLockOptimistic
Text1.Text = rs.Fields(4)
Unload Form3
End Sub
4.0 SAMPLE FORM
CUSTOMER INFORMATION FORM
TRANSACTION FORM (WITHDRAW)
TRANSACTION FORM (DEPOSIT)
5.0 RESULT
Thus the requirements involved in developing an Automated Banking System was
completed successfully
