Scribd
Upload
823 views12 pages

Banking System Mini Project

This document describes a banking system mini project created using Visual Basic 6 as the front end and Oracle as the back end database. The project aims to model core banking functions like user login, account deposit, withdrawal, balance checks etc. It provides details of the various forms and code used to implement features for bank customers and administrators. Key elements include login authentication, account transaction processing that ensures minimum balance requirements, and administrator functions to add, delete or view customer records.

Uploaded by

Ravi Karthikeyan
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
823 views12 pages

Banking System Mini Project

This document describes a banking system mini project created using Visual Basic 6 as the front end and Oracle as the back end database. The project aims to model core banking functions like user login, account deposit, withdrawal, balance checks etc. It provides details of the various forms and code used to implement features for bank customers and administrators. Key elements include login authentication, account transaction processing that ensures minimum balance requirements, and administrator functions to add, delete or view customer records.

Uploaded by

Ravi Karthikeyan
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

BANKING SYSTEM MINI PROJECT AIM: To create a software package for Banking system which is modeled on realtime banking

systems using Visual Basic 6 as front end and Oracle as back end provider PROBLEM DEFINITION: 1.The login screen should allow two classes of users ->Bank Customer ->Administrator 2.The customer should be able to deposit, withdraw and check his/her account balance 3.The administrator should be able to add new record, delete an existing record and view database information Description of Login Table: Name Null? Type ----------------------------------------- -------- -------------------------USERNAME PASSWORD Description of Bank Table: Name Null? Type ----------------------------------------- -------- ----------------------ANO NAME BALANCE TYPE NOT NULL NUMBER(10) VARCHAR2(10) NUMBER(7) VARCHAR2(3) VARCHAR2(10) VARCHAR2(10)

VISUAL BASIC CODING: LOGIN FORM: Private Sub Command1_Click() Adodc1.Refresh Dim str1$ Dim str2$ str1 = Adodc1.Recordset.Fields(0) str2 = Adodc1.Recordset.Fields(1) Dim str3$ Dim str4$ Adodc1.Refresh Adodc1.Recordset.MoveNext str3 = Adodc1.Recordset.Fields(0) str4 = Adodc1.Recordset.Fields(1) If Text1.Text = str1 And Text2.Text = str2 Then Form2.Show Unload Me ElseIf Text1.Text = str3 And Text2.Text = str4 Then Form3.Show Unload Me Else MsgBox "Unknown User or Password" End If End Sub Private Sub mnuabout_Click() MsgBox "Computerised Banking system version 1.0.0", vbInformation End Sub Private Sub mnuexit_Click() Unload Me End Sub CUSTOMER HOME FORM: Private Sub Command1_Click() Form4.Show Unload Me End Sub Private Sub Command2_Click() MsgBox "Please Note that the minimum balance is Rs.1000" Form5.Show Unload Me End Sub

Private Sub Command3_Click() Form6.Show Unload Me End Sub Private Sub mnuabout_Click() MsgBox "Computerised Banking system version 1.0.0", vbInformation End Sub Private Sub mnuexit_Click() Unload Me End Sub Private Sub mnuhome_Click() Form1.Show Unload Me End Sub ADMINISTRATOR HOME FORM: Private Sub Command1_Click() Form7.Show Unload Me End Sub Private Sub Command2_Click() Form8.Show Unload Me End Sub Private Sub Command3_Click() DataReport1.Show End Sub Private Sub Command4_Click() DataReport2.Show End Sub Private Sub mnuabout_Click() MsgBox "Computerised Banking system version 1.0.0", vbInformation End Sub Private Sub mnuexit_Click() Unload Me End Sub

Private Sub mnuhome_Click() Form1.Show Unload Me End Sub DEPOSIT FORM: Private Sub Command1_Click() If (Text1.Text = "" Or Text2.Text = "") Then MsgBox "Please enter account number and amount" Text1.SetFocus Exit Sub End If Adodc1.Refresh Adodc1.Recordset.MoveFirst While Not (Adodc1.Recordset.EOF = True) If (Adodc1.Recordset.Fields(0) <> Val(Text1.Text)) Then Adodc1.Recordset.MoveNext Else GoTo lab1 End If Wend If (Adodc1.Recordset.EOF = True) Then MsgBox "Account not found" End If lab1: If (Option2.Value = True) Then If (Len(Text3.Text) <> 10 Or IsNumeric(Text3.Text) = False) Then MsgBox "Please enter valid cheque number" Text3.SetFocus Else Adodc1.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) + Val(Text2.Text) Adodc1.Recordset.Update MsgBox "amount deposited" Adodc1.Refresh End If ElseIf (Option1.Value = True) Then Adodc1.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) + Val(Text2.Text) Adodc1.Recordset.Update MsgBox "amount deposited" ElseIf (Option3.Value = True) Then If (Text3.Text = "" Or Len(Text3.Text) <> 10 Or IsNumeric(Text3.Text) = False) Then MsgBox "Please enter valid DD number" Text3.SetFocus Else

Adodc1.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) + Val(Text2.Text) Adodc1.Recordset.Update MsgBox "amount deposited" Adodc1.Refresh End If Else MsgBox "please select payment method" End If End Sub Private Sub mnuabout_Click() MsgBox "Computerised Banking system version 1.0.0", vbInformation End Sub Private Sub mnuclear_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Option1.Value = False Option3.Value = False Option2.Value = False End Sub Private Sub mnuexit_Click() Unload Me End Sub Private Sub mnuhome_Click() Form2.Show Unload Me End Sub WITHDRAWAL FORM: Private Sub Command1_Click() If (Text1.Text = "" Or Text2.Text = "") Then MsgBox "Please enter account number and amount" Text1.SetFocus Exit Sub End If Adodc1.Refresh Adodc1.Recordset.MoveFirst While Not (Adodc1.Recordset.EOF = True) If (Adodc1.Recordset.Fields(0) <> Val(Text1.Text)) Then Adodc1.Recordset.MoveNext Else

GoTo lab1 End If Wend If (Adodc1.Recordset.EOF = True) Then MsgBox "Account not found" End If lab1: If (Option2.Value = True) Then If (Text3.Text = "") Then MsgBox "Please enter destination account number correctly" Exit Sub End If Adodc1.Refresh Adodc1.Recordset.MoveFirst While Not (Adodc1.Recordset.EOF = True) If (Adodc1.Recordset.Fields(0) = Val(Text3.Text)) Then GoTo lab2 Else Adodc1.Recordset.MoveNext End If Wend If (Adodc1.Recordset.EOF = True) Then MsgBox "Destination Account not found" End If ElseIf (Option1.Value = True) Then GoTo lab4 Else MsgBox "choose withdrawal type" Exit Sub End If lab2: Adodc1.Refresh Adodc1.Recordset.MoveFirst While Not (Adodc1.Recordset.EOF = True) If (Adodc1.Recordset.Fields(0) = Val(Text3.Text)) Then GoTo lab21 Else Adodc1.Recordset.MoveNext End If Wend If (Adodc1.Recordset.EOF = True) Then Unload Me Exit Sub End If

lab21: If (Adodc1.Recordset.Fields(0) <> Val(Text3.Text)) Then Unload Me Else Adodc1.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) + Val(Text2.Text) End If If Adodc1.Recordset.Fields(2) < 1000 Then GoTo min Else Adodc1.Recordset.Update Adodc1.Refresh End If Adodc1.Recordset.MoveFirst While Not (Adodc1.Recordset.EOF = True) If (Adodc1.Recordset.Fields(0) <> Val(Text1.Text)) Then Adodc1.Recordset.MoveNext Else GoTo lab42 End If Wend Adodc1.Refresh Exit Sub lab4: Adodc1.Refresh Adodc1.Recordset.MoveFirst While Not (Adodc1.Recordset.EOF = True) If (Adodc1.Recordset.Fields(0) <> Val(Text1.Text)) Then Adodc1.Recordset.MoveNext Else GoTo lab41 End If Wend lab41: If (Adodc1.Recordset.Fields(0) = Val(Text1.Text)) Then Adodc1.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) - Val(Text2.Text) If Adodc1.Recordset.Fields(2) < 1000 Then GoTo min Else Adodc1.Recordset.Update MsgBox "Please collect your cash" Adodc1.Refresh End If End If Exit Sub

min: MsgBox "Minimum balance reached - Re enter amount" Text2.Text = "" Text2.SetFocus Exit Sub lab42: If (Adodc1.Recordset.Fields(0) = Val(Text1.Text)) Then Adodc1.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) - Val(Text2.Text) If Adodc1.Recordset.Fields(2) < 1000 Then GoTo min Else Adodc1.Recordset.Update MsgBox "amount transferred" Adodc1.Refresh End If End If Exit Sub l: Text1.Text = "" Text2.Text = "" Text3.Text = "" Exit Sub End Sub Private Sub mnuabout_Click() MsgBox "Computerised Banking system version 1.0.0", vbInformation End Sub Private Sub mnuclear_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Option1.Value = False Option2.Value = False End Sub Private Sub mnuexit_Click() Unload Me End Sub Private Sub mnuhome_Click() Form2.Show Unload Me End Sub

VIEW BALANCE FORM Private Sub Command1_Click() Adodc1.Refresh While Not (Adodc1.Recordset.EOF = True) If (Adodc1.Recordset.Fields(0) <> Val(Text1.Text)) Then Adodc1.Recordset.MoveNext Else GoTo disp End If Wend If (Adodc1.Recordset.EOF = True) Then MsgBox "account not found" Text1.SetFocus Exit Sub End If disp: Dim s1% s1 = Adodc1.Recordset.Fields(2) MsgBox "your balance is " & s1 Exit Sub End Sub Private Sub mnuabout_Click() MsgBox "Computerised Banking system version 1.0.0", vbInformation End Sub Private Sub mnuclear_Click() Text1.Text = "" End Sub Private Sub mnuexit_Click() Unload Me End Sub Private Sub mnuhome_Click() Form2.Show Unload Me End Sub ADD RECORD FORM: Private Sub Command1_Click() If (Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "") Then

MsgBox "Enter all details correctly" Else If (Option1.Value = False And Option2.Value = False) Then MsgBox "select account type" Exit Sub Else GoTo lab1 End If Exit Sub lab1: Adodc1.Refresh Adodc1.Recordset.MoveFirst While Not Adodc1.Recordset.EOF = True If Adodc1.Recordset.Fields(0) = Val(Text1.Text) Then MsgBox "record already exists" Adodc1.Refresh Exit Sub Else Adodc1.Recordset.MoveNext End If Wend Adodc1.Recordset.MoveLast Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Val(Text1.Text) Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = Val(Text4.Text) If Option1.Value = True Then Adodc1.Recordset.Fields(3) = "sb" Else Adodc1.Recordset.Fields(3) = "ca" End If Adodc1.Recordset.Update MsgBox "new record inserted" Adodc1.Refresh End If End Sub Private Sub Command2_Click() Adodc1.Refresh Text1.Text = "" Text2.Text = "" Option1.Value = False Option2.Value = False Text4.Text = "" End Sub

Private Sub mnuabout_Click() MsgBox "Computerised Banking system version 1.0.0", vbInformation End Sub Private Sub mnuclear_Click() Text1.Text = "" Text2.Text = "" Text4.Text = "" Option1.Value = False Option2.Value = False End Sub Private Sub mnuexit_Click() Unload Me End Sub Private Sub mnuhome_Click() Form3.Show Unload Me End Sub DELETE RECORD FORM: Private Sub Command1_Click() Adodc1.Refresh Adodc1.Recordset.MoveFirst While Not Adodc1.Recordset.EOF = True If Adodc1.Recordset.Fields(0) = Val(Text1.Text) Then GoTo lab1 Else Adodc1.Recordset.MoveNext End If Wend MsgBox "account not found" Adodc1.Refresh Exit Sub lab1: Adodc1.Recordset.Delete Adodc1.Recordset.Update Adodc1.Refresh MsgBox "record deleted" Adodc1.Refresh Exit Sub End Sub

Private Sub mnuabout_Click() MsgBox "Computerised Banking system version 1.0.0", vbInformation End Sub Private Sub mnuclear_Click() Text1.Text = "" End Sub Private Sub mnuexit_Click() Unload Me End Sub Private Sub mnuhome_Click() Form3.Show Unload Me End Sub

You might also like