0% found this document useful (0 votes)
30 views101 pages

My BCA Project - Myyyyyy (1) SS

Uploaded by

khiladirebel002
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
30 views101 pages

My BCA Project - Myyyyyy (1) SS

Uploaded by

khiladirebel002
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 101

A PROJECT REPORT ON

“ A I G MA AGEME T SYSTEM”
SUBMITTED IN THE PARTIAL FULFILLMENT OF THE
REQUIREMENT FOR THE AWARD OF

BACHELOR OF COMPUTER APPLICATION

MAULANA MAZHARUL HAQUE ARABIC & PERSIAN


UNIVESITY, PATNA

UNDER GUIDANCE OF Submitted by


Mr. Abdul Basit Ansari ALVEERA
MD
MD SONUALIA
SONU
Asst. Lecturer Dept of BCA
MD SONU
MD SONU
Roll no221680200006
- 221680200006
221680200006
AIC, Bihar Sharif Nalanda Session- 2021-2024
Session-BCA
Course- 2021-2024
Course- BCA
ALLAMA IQBAL COLLEGE
BIHAR SHARIF ( NALANDA )
Department of BCA

CERTIFICATE

Certified that the project work entitled "Banking Management System" is a bonafide work
MD
MDSONU
carried out by ALVEERASONU ,ALIA
, , bearing University Roll No: 221680200006,
222330200003 , in partial
fulfillment for the award of Bachelor of Computer Application of the Maulana Mazharul Haque
Arabic & Parsian University, Patna, in the Year 2024. It is satisfied that all the
corrections/suggestions indicated for internal assessment have been incorporated in the report
deposited. The project Report has been uprooted as it satisfied the accademic requirement in
respect of project work prescribed for the Bachelor of Computer Application degree award.

Guide Director
Abdul Basit Ansari Dr. jawaid Akhtar
Ass. Lecturer Dept of BCA Head. Dept of Maths
AIC, Bihar Sharif Nalanda AIC,BiharSharif Nalanda

P a g e 2 | 168
PROFILE OF THE UNIVERSITY

Maulana Mazharul Haque Arabic & Persian University (MMHAPU, Patna) is one of the largest
university in Bihar which endeavor to work towards the empowerment to the students especially
those belong to geographically, socially, economically disadvantaged groups by increasing their
access and inclusion in the main stream education system. Beside this university also ensures to
make students aware of the value system of the world in which we live and help them to use
their potential to the fullest of extends to grow as a properly integrated personality in the form of
responsible and projective citizen of the country.

P a g e 3 | 168
OBJECTIVE OF THE COURSE

The objective of the course is to development and equips the students with essential knowledge
and skill in order to develop expertise in the key areas of computing service and Information
technology. Students will be familiarized with the concept of computer science and its various
applications.

P a g e 4 | 168
KNOWLEDGE RESOURCE CENTER NETWORK
( KRCN )

Knowledge Resource Center (KRC) network is an innovation in higher education system. In


order to increase the outreach of the instruction of higher and professional education; KRC's
have been established on the principle of sharing.

P a g e 5 | 168
GUIDE’S PROFILE

NAME : ANDUL BASIT ANSARI

FATHER’S NAME : MD AJMAL ANSARI

DATE OF BIRTH : 11-01-1999

ADDRESS : NEW MIRDAD


Bihar Sharif Nalanda,
Bihar- 803101, India
CONTACT NO. : +91 7488435082

EMAIL_ID : abdulbasit.aic@gmail.com

QUALIFICATION : MCA, (from LNMI PATNA)

P a g e 6 | 168
GUIDE’S CERTIFICATE

This to certify that this project report titled " Banking Management System" has prepared
MD SONU ALIA
and completed by ALVEERA , , University Roll No :- 221680200006,
222330200003
221680200006, of Bachelor of
Computer Application of Maulana Mazharul Haque Arabic & Persian University, Patna, a
Student from Allama Iqbal College (KRC-233),
168 of the session 2021- 24 under my supervision
and guidance.

It is re-commented that this report may be accepted for evaluation of the examination.

Project Guide,

Abdul Basit Ansari


Ass. Lecturer Dept of BCA
Allama Iqbal College Bihar Sharif, Nalanda.

P a g e 7 | 168
ALLAMA IQBAL COLLEGE
BIHAR SHARIF

Declaration Certificate
I hereby declare that the project entitled "BANKING MANANEMENT SYSTEM"
Submitted to the MAULANA MAZHARUL HAQUE ARABIC & PERSIAN UNIVERSITY;
PATNA for the partial fulfillment of the requirement of the award of degree of BCA is a record
of the original work done by me under the supervision & Guidance of ABDUL BASIT
ANSARI.

Name of candidate MD
ALVEERA
SONU ALIA University Roll 221680200006
222330200003
221680200006

Sig of Candidate

P a g e 8 | 168
SELF DECLARATION

MD SONU
I , ALVEERA ALIA , a student of "Bachelor of Computer Application". I am doing this course
from Allama Iqbal College, a recognized study center of "Maulana Mazharul Haque Arabic &
Persian University". I declare that I did not submit this project Report to any award. It makes
only for partial fulfillment of "Bachelor of Computer Application". I tried my level best in
making this project according to my knowledge

MD SONU ALIA
ALVEERA
221680200006
221680200006
University Roll-222330200003

P a g e 9 | 168
ACKNOWLEDGEMENT

I would like to express my gratitude to my advisor


Mr. Abdul Basit Ansari for his guidance, support and his continuous
enthusiasm and encouragement throughout the project. I am also very
grateful and extend my sincere thanks to the Director and staff members of
the department of BCA at MAULANA MAZHARUL HAQUE ARABIC &
PERSIAN UNIVESITY, PATNA for their cooperation by sharing the load
that I was learning to make me have time to work on this project and
throughout my study.
Finally, many thanks to friends, who have helped and given the
suggestion, supports and corrections throughout the project.

P a g e 10 |
168
LIST OF CODE SNIPPETS

Code snippet 1. Database Connection................................................................. 18

Code snippet 2. User login ................................................................................. 25

Code snippet 3. QR authentication ..................................................................... 25

Code snippet 4. Password encryption ................................................................. 26

Code snippet 5. HTTPS setting .......................................................................... 27

Code snippet 6. Create a new user ...................................................................... 28

Code snippet 7. Edit user information ................................................................ 29

Code snippet 8. Delete user account ................................................................... 29

Code snippet 9. Transfer funds ........................................................................... 32

Code snippet 10. Administrator deposit .............................................................. 33

Code snippet 11. Withdrawal function ............................................................... 34

Code snippet 12. Transaction detail page............................................................ 35

Code snippet 13. Search function ....................................................................... 36

Code snippet 14. Message function .................................................................... 38

Code snippet 15. Message detail page ................................................................ 39

Code snippet 16. Applying for a new account .................................................... 40

Code snippet 17. Block account ......................................................................... 40


LIST OF ABBREVIATIONS

ASP Active Server Pages

SQL Structured Query Language

ERD Entity-relationship Diagram

ER Entity Relationship

URL Uniform Resource Locater

API Application Programming Interface

B/S Browser/Server

VS Visual Studio

HTML Hyper Text Markup Language

PDC Microsoft Professional Developers Forum

TCP Transmission Control Protocol

API Application Programming Interface

GUI Graphical User Interfaces

QR Quick Response

RDBMS Relational Database Management System

XML Extensible Mark-up Language

CLI Common Language Infrastructure

SHA Secure Hash Algorithm

HTTPS Hyper Text Transfer Protocol over Secure Socket Layer

CSS Cascading Style Sheets


HTTP Hyper Text Transfer Protocol

SSL Secure Socket Layer

TSL Transport Layer Security

IP Internet Protocol
Bank Management System

TABLE OF CONTENTS PAGE NO

 Introduction and objective 2-3


 Feasibility study 4-5
 System requirement specification 6
 SDLC 7
 Introduction to front end application 8-10
 Introduction to back end application 11-12
 DFD 13-15
 E-R DIAGRAM 16-18
 Data structures and database specification 19-24
 Design 25-29
 Coding 30-82
 Testing 83-87
 Scope of the Project 88
 Bibliography and References 89

1
Bank Management System

INTRODUCTION
During the past several decades personnel function has been transformed from a
relatively obscure record keeping staff to central and top level management function.
There are many factors that have influenced this transformation like technological
advances, professionalism, and general recognition of human beings as most
important resources.
A computer based management system is designed to handle all the primary
information required to calculate monthly statements of customer account which
include monthly statement of any month. Separate database is maintained to handle
all the details required for the correct statement calculation and generation.
This project intends to introduce more user friendliness in the various activities such
as record updation, maintenance, and searching. The searching of record has been
made quite simple as all the details of the customer can be obtained by simply keying
in the identification or account number of that customer. Similarly, record
maintenance and updation can also be accomplished by using the account number
with all the details being automatically generated. These details are also being
promptly automatically updated in the master file thus keeping the record absolutely
up-to-date.
The entire information has maintained in the database or Files and whoever wants to
retrieve can’t retrieve, only authorization user can retrieve the necessary information
which can be easily be accessible from the file.

2
Bank Management System

OBJECTIVE OF THE PROJECT


A computer based management system is designed to handle all the primary information
required to calculate monthly statements of customer account which include monthly
statement of any month. Separate database is maintained to handle all the details required
for the correct statement calculation and generation.
This project intends to introduce more user friendliness in the various activities such as
record updation, maintenance, and searching. The searching of record has been made
quite simple as all the details of the customer can be obtained by simply keying in the
identification or account number of that customer. Similarly, record maintenance and
updation can also be accomplished by using the account number with all the details being
automatically generated. These details are also being promptly automatically updated in
the master file thus keeping the record absolutely up-to-date.
The main objective of our project is providing the different typed of customers facility,
the main objective of this system is to find out the actual customer service. Etc.
 It should fulfill almost all the process requirements of any Bank.
 It should increase the productivity of bank by utilizing the working hours more
and more, with minimum manpower.
This project includes the entire upgraded feature required for the computerization
banking system. This system is very easy to use, so that any user can use without getting
pre-knowledge about this. Its very much user friendly and meet almost all daily working
process requirements. This system is completely GUI based and can be use by mouse and
as well as keyboard. This system is melded in such a way that has got all features to
upgrade without making much change in existing components.

3
Bank Management System

FEASIBILITY ANALYSIS:-
Depending on the results of the initial investigation, the survey is expanded to a
more detailed feasibility study. A feasibility study is a test of a system proposal.
According to its workability, impact on the organization, ability to meet user’s
needs and effective use of the resources its main task done during the feasibility
study are:-

1. Evaluation of existing system and procedures. Our group went to various


Banking Professionals to gather information about the software system. They
are using and evaluating those system and the procedures invoked in it during
the period of feasibility study.

2. Analysis of alternative candidate systems after studying the various systems


we derived various alternatives through which we develop our project and
evaluated the alternative. The most appropriate is selected.

FEASIBILITY STUDY
The only tangible benefit provided by the proposed system is that the paper work is
reduced to the minimum and hence the reduction in cost incurred on Stationary and its
storage. The system provides many benefits that can’t be measured in terms of Money for
e.g. user’s friendliness, more user response being more efficient.

 TECHNICAL FEASIBILITY:-
The proposed system is technically feasible as it can be developed easily with the
help of available technology. The proposed system requires MS – VISUAL
Studio 2005 using VB.Net as a Interface for Programming & back-end as MS-
SQL Server 2000 for storing/maintaining database. The database can be easily
interconnected using MS-SQL Server 2000.

 OPERATIONAL FEASIBILITY:-

4
Bank Management System

Automation makes our life easy. The proposed system is highly user friendly and
is much easily able to interact with the system. Therefore the users will readily
accept the system as data entry and making queries can be easily done.

5
Bank Management System

SYSYTEM REQUIREMENTS
Hardware specifications
Hardware is a set of physical components, which performs the functions of applying
appropriate, predefined instructions. In other words, one can say that electronic and
mechanical parts of computer constitute hardware.
This package is designed on a powerful programming language Visual Basic. It is a
powerful Graphical User Interface. The backend is ACCESS, which is used to maintain
database. It can run on almost all the popular microcomputers. The following are the
minimum hardware specifications to run this package: -
Personal Computer: -
It minimum contains P-III
Processor with 128 MB RAM

Software Requirements:
The software is a set of procedures of coded infor mat ion or a program which
when fed into the computer hardware, enables the computer to perform t he
various tasks. Software is like a current inside the wire, which cannot be
seen but its effect can be felt.
1. Operating System:- Windows NT / 2000 / XP
2. Application Software:- Application software uses front end visual basic and database
access etc.
Editor:- Visual basic.

6
Bank Management System

SOFTWARE DEVELOPMENT LIFE CYCLE

A system development life cycle is a logical process by which system analysts, software
engineers, programmers, and end users build information systems and computer
applications to solve business problems and needs.
The major phases involved in the MIS development process are referred to as system
development life cycle. Each phase of the development process must have well defined
objectives ,and at the end of each phase ,progress towards meeting the objectives must be
evaluated.
The development process should not continue until the objectives of all prior phases have
been met.
System development life cycle is a phased approach to analysis and design to ensure that
systems are best developed.
The system development life cycle can be divided into seven phases as shown in fig

7
Bank Management System

INTRODUCTION TO FRONT END TOOL

 Visual programming aims at providing the user with an interface that is intuitive and
easy to use. In developing such an interface, the programmer employs user-friendly
features such as windows, menus, buttons and list boxes.

 Its Environment provides all features that are required to develop a graphical user
interface as ready -to- use components. The programmer does not have to write code
to create and display commonly required user-friendly features each time around.

 When the programmer needs a specific user interface feature such as button, he
selects the appropriate ready-to-use component provided by the visual programming
environment. These components can be moved, resized and renamed as required.

 For Example:-
If the programmer needs to have a button then the visual programming environment
provides him with one. All that, the programmer does this selec t the button and
place it on screen at the required position.

 Typically the mouse is used to select and place the necessary components. Thus, the
visual programming environment is also called a point and click environment.

 A visual programming environment automates the process of creating a user


interface. The interface provided by the visual programming environment to the
programmer designs the user interface visually instead of writing code.

8
Bank Management System

 In addition it also provides a means of associating code with each component. In each
case of calculator, for each button, we can specific that the code is to execute when
we click on it.
NEED FOR VISUAL PROGRAMMING:-
 There are several programming tools that allow us to build such visually appealing
and intuitive interface. These tools allow us to design interface that employ user
friendly features such as menus, buttons, windows etc.

 However, the disadvantage of such tools is that the interface is designed using code.
The programmer has to code the user interface features specifying the size, position
etc. this makes designing the user interface a major task in itself.

ADVANTAGES OF VISUAL PROGRAMMING:-

 Visual development of graphical user interface which are easy to use and easy to
learn.
 A programmer need not write code to display the required component.

 For Example:-
The visual programming environment displays a list of available components. The
programmer picks up the required component from this list to display it.
 The component can be moved, resized and even deleted, if so required.
 There is no restriction on the number of controls that can be placed on a form.
 The interface components provided by the visual programming environment have
some code built into them.
For example:-
A button’ knows’ when it has been clicked upon. In the case of conventional
programming tools, the programmer has to write code to determine the component that
has been clicked and then execute the appropriate code.

9
Bank Management System

 Visual Basic is one of the most popular programming tools available today. And it’s
also secret that there have been massive changes in it as it became Visual Basic.Net.

 The reason of that change is Visual Basic itself, which has now become Visual
Basic.Net. The difference between Visual Basic.Net and the previous version. Visual
Basic 6.0 is revolutionary and far reaching. Visual Basic.Net has been more than four
years in the marking and it represents entirely new directions for Visual Basic.
Besides the biggest change integrated support for web development the very syntax,
of techniques that you’ve probably learned carefully are now completely different
such as data handling and many controls; project types and other aspects of Visual
Basic 6.0 are no longer available at all.

 Visual Basic has a long and so far glorious history. When it first appeared, it created a
revolution in windows programming. Visual Basic introduced unheard of ease to
windows programming just builds the program you want right before your eyes, and
then run it. In so doing it changed programming form a chore to something very like
fun.

10
Bank Management System

INTRODUCTION TO BACK END TOOL

Introduction to SQL: -
SQL is a standard computer language for accessing and manipulating databases.

 SQL stands for Structured Query Language.


 SQL allows you to access a database.
 SQL is an ANSI standard computer language.
 SQL can execute queries against a database.
 SQL can retrieve data from a database.
 SQL can insert new records in a database.
 SQL can delete records from a database.
 SQL can update records in a database.
 SQL is easy to learn.

 SQL is an ANSI (American National Standards Institute) standard computer language


for accessing and manipulating database systems. SQL statements are used to retrieve
and update data in a database. SQL works with database programs like MS Access,
DB2, Informix, MS SQL Server, Oracle, Sybase, etc.

 Unfortunately, there are many different versions of the SQL language, but to be in
compliance with the ANSI standard; they must support the same major keywords in a
similar manner (such as SELECT, UPDATE, DELETE, INSERT, WHERE, and
others).

11
Bank Management System

 SQL Database Tables: -

A database most often contains one or more tables. Each table is identified by a name
(e.g. "Customers" or "Orders"). Tables contain records (rows) with data.

Below is an example of a table called "Persons": -

Last Name First Name Address City


Hansen Ola Timoteivn 10 Sandnes
Svendson Tove Borgvn 23 Sandnes
Pettersen Kari Storgt 20 Stavanger

 The table above contains three records (one for each person) and four columns (Last
Name, First Name, Address, and City).

 SQL Queries: -

With SQL, we can query a database and have a result set returned.

 A query like this: -

SELECT Last Name FROM Persons

 Gives a result set like this: -

Last Name
Hansen
Svendson
Petersen
SQL Data Manipulation Language (DML)

12
Bank Management System

 SQL (Structured Query Language) is syntax for executing queries. But the SQL
language also includes syntax to update, insert, and delete records.
 These query and update commands together form the Data Manipulation Language
(DML) part of SQL: -

 SELECT - extracts data from a database table

 UPDATE - updates data in a database table

 DELETE - deletes data from a database table

 INSERT INTO - inserts new data into a database table

SQL Data Definition Language (DDL)

 The Data Definition Language (DDL) part of SQL permits database tables to be
created or deleted. We can also define indexes (keys), specify links between tables,
and impose constraints between database tables.

 The most important DDL statements in SQL are: -

 CREATE TABLE - creates a new database table


 ALTER TABLE - alters (changes) a database table
 DROP TABLE - deletes a database table
 CREATE INDEX - creates an index (search key)
 DROP INDEX - deletes an index MS SQL SERVER 2000

13
Bank Management System

DATA FLOW DIAGRAM

 DATA FLOW DIAGRAM: -The data flow diagram is also known as “bubble
chart” has the purpose of clarifying system requirements and identifying major
transformations that will become programs in system design so it is the starting
point of specification down to the lowest level of detail. A DFDs consists of a
series if bubbles joined by lines. The bubbles represent data transformation and
the lines represent the data flow in the system.

 DFD SYMBOLS:

 A system defined a source or destination of data.


 An arrow identifies data flow, data in motion.
 A circle represents the process that transforms incoming data flow to outgoing
data flow.
 An open rectangular is data store-data at rest or a temporary repository of
data.

14
Bank Management System

SYSTEM DATA FLOW DIAGRAM

TRANSACTIONS ACCOUNT
BANKING
HOLDERS

DATABASE

15
Bank Management System

E-R DIAGRAM

16
Bank Management System

ER-modeling is a data modeling technique used in software engineering to produce a


conceptual data model of a information system. Diagrams created using this ER-
modeling technique are called Entity-Relationship Diagrams, or ER diagrams or ERDs.
So you can say that Entity Relationship Diagrams illustrate the logical structure of
databases.

Dr. Peter Chen is the originator of the Entity-Relationship Model. His original paper
about ER-modeling is one of the most cited papers in the computer software field.
Currently the ER model serves as the foundation of many system analysis and design
methodologies, computer-aided software engineering (CASE) tools, and repository
systems.

The original notation for ER-Diagrams uses rectangles to represent entities, and
diamonds to represent relationships.

There are three basic elements in ER-Diagrams:

 Entities are the "things" for which we want to store information. An entity is a
person, place, thing or event.
 Attributes are the data we want to collect for an entity.
 Relationships describe the relations between the entities.

ERDs show entities in a database and relationships between tables within that database. It
is essential to have ER-Diagrams if you want to create a good database design. The
diagrams help focus on how the database actually works.

Entity (Instance)
An instance of a physical object in the real world.
Entity Class
: Group of objects of the same type.

17
Bank Management System

E.g. Entity Class “Student”, Entities “John”, “Trish” etc


Attributes

Properties of Entities that describe their characteristics.


Types:
Simple
: Attribute that is not divisible, e.g. age.
Composite
: Attribute composed of several simple attributes,
e.g. address (house number, street, district)

Multiple
: Attribute with a set of possible values for the same
entity, e.g. Phone (home, mobile etc.) or email
Key
: Uniquely Ids the Entity e.g. PPSN, Chassis No.
Each simple attribute associated with a VS that may be assigned to that attribute for each
individual entity,
e.g. age = integer

18
Bank Management System

DATA STRUCTURES AND DATABASE SPECIFICATIONS

“ACCOUNT_INFO” Table: -

Field Name Type Constraints


Account_No Int Primary Key
Branch_No Varchar(7) References Branch_Info(Branch_No)
Branch_Name VARCHAR(50) Not Null
Account_H_Type Varchar(15) Not Null
No_Account_H Varchar(5) Not Null
Saluation_F Varchar(5) Not Null
Name_P_O_F Varchar(50) Not Null

Fa_Name_F Varchar(50) Not Null

Gender_F Varchar(6) Not Null

DOB_F DateTime Not Null

Age_F Varchar(3) Check(Age_F>=0 and Age_F<100)

Occupation_F Varchar(15) Not Null

Photo_F Image Not Null

Sign_F Image Not Null

Address_F Varchar(100) Not Null

Ph_No_F Varchar(11) Not Null

Mob_No_F Varchar(14) Not Null

19
Bank Management System

Saluation_S Varchar(5)

Name_P_O_S Varchar(50)

Fa_Name_S Varchar(50)

Gender_S Varchar(6)

DOB_S DateTime

Age_S Varchar(3) Check(Age_S>=0 and Age_S<100)

Occupation_S Varchar(15)

Photo_S Image

Sign_S Image

Address_S Varchar(100)

Ph_No_S Varchar(11)

Mob_No_S Varchar(14)

Saluation_T Varchar(5)

Name_P_O_T Varchar(50)

Fa_Name_T Varchar(50)

Gender_T Varchar(6)

DOB_T DateTime

Age_T Varchar(3) Check(Age_T>=0 and Age_T<100)

Occupation_T Varchar(15)

Photo_T Image

Sign_T Image

Address_T Varchar(100)

Ph_No_T Varchar(11)

Mob_No_T Varchar(14)

20
Bank Management System

Account_Type Varchar(25) Not Null

Witness_Name Varchar(50) Not Null

Witness_Sign Image Not Null

Nominee_Rel Varchar(10) Not Null

Nominee_Name Varchar(50) Not Null

Nominee_Sign Image Not Null

Opening_Bal Varchar(10)

T_Date DateTime Not Null

“Branch_Info” Table: -

Field Name Type Constraints

Branch_No Varchar(7) Primary Key


Branch_Name Varchar(50)

“Deposit_Info” Table: -

Field Name Type Constraints

Account_No Int References


Account_Info(Account_No)
Branch_No Varchar(7)
Depositor_Name Varchar(150)
Account_H_Type Varchar(15)
Deposit_Amt Varchar(10)

21
Bank Management System

Deposit_Date DateTime

“Fixed_Info” Table: -

Field Name Data type Constraints


Account_No Int References Account_Info(Account_No)
Branch_No Varchar(7)
Depositor_Name Varchar(50)
Account_H_Type Varchar(15)
Time_Span Varchar(5) References
Rate_Of_Interest_Info(Time_Span)
ROI Varchar(5)
Start_Date DateTime
Mature_Date Varchar(15)
Deposit_Amt Varchar(10)
Mature_Amt Varchar(10)

“Login_Info” Table: -

Field Name Data type Description

UserName Varchar(20) Primary Key


UserPassWord Varchar(15)

Field Name Data type Description

22
Bank Management System

Time_Span Varchar(5) Primary Key


ROI Varchar(5)

“Withdrawl_Info” Table: -

Field Name Type Constraints

Account_No Int References


Account_Info(Account_No)
Branch_No Varchar(7)
Withdrawee_Name Varchar(150)
Account_H_Type Varchar(15)
Withdrawl_Amt Varchar(10)

Withdrawl_Date DateTime

“Loan_Info” Table: -

Field Name Type Constraints

Account_No Int References


Account_Info(Account_No)
Branch_No Varchar(7)
Acc_Holder_Name Varchar(50)
Account_Type Varchar(15)

Account_Sub_Type Varchar(15)

Time_Span Varchar(5) References


Rate_Of_Interest_Info(Time_Span)
ROI Varchar(5)

23
Bank Management System

Issue_Date DateTime
Due_Date Varchar(15)
Loan_Sanctioned Varchar(10)
No_Installments Varchar(5)
EMI Varchar(10)
Total_Loan_Ret Varchar(10)

24
Bank Management System

DESIGN

 SPLASH FORM

 LOGIN FORM

25
Bank Management System

 MDI FORM

26
Bank Management System

 ACCOUNT OPENING FORM

 DEPOSIT FORM

WITHDRAWL FORM

27
Bank Management System

28
Bank Management System

 LOAN FORM

R
E

29
Bank Management System

CODING

 SPLASH FORM

Public Class SPLASH


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value = ProgressBar1.Maximum Then
LOGIN.Show()
Me.Hide()
Timer1.Stop()
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub
Private Sub FlashLabel()
Label1.ForeColor = Color.RoyalBlue
Timer3.Start()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer2.Tick
Call FlashLabel()
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer3.Tick
Label1.ForeColor = SystemColors.Control
Timer3.Stop()
End Sub

30
Bank Management System

End Class

 LOGIN FORM CODING

Imports System.Data.SqlClient

Public Class LOGIN


Private Sub LOGIN_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Button1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim A As Integer
A = MsgBox("Do you want to exit", MsgBoxStyle.OkCancel, "Exit")
If A = vbOK Then
Application.Exit()
End If
If A = vbCancel Then
Exit Sub
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim CON As New SqlConnection
Dim CMD As New SqlCommand
Dim DR As SqlDataReader

31
Bank Management System

CON.ConnectionString = "Server =ANGELDEVIL;Initial


Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Login_Info"

DR = CMD.ExecuteReader

While DR.Read
If DR.HasRows Then
If TextBox1.Text = DR(0) And TextBox2.Text = DR(1) Then
Me.Hide()
Dim A As Integer
A = MsgBox("Login Successfully", MsgBoxStyle.OkOnly)
If A = vbOK Then
MAIN.Show()
End If
Return
End If
End If
End While

MsgBox("Invalid User Name or Password", MsgBoxStyle.Exclamation)

TextBox1.Text = ""
TextBox2.Text = ""
Button1.Enabled = False
TextBox1.Select()
CMD.Dispose()
CON.Close()

32
Bank Management System

End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Me.Hide()
CHANGE_PASSWORD_FORM.Show()
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = "" Then
Button1.Enabled = False
ElseIf TextBox2.Text = "" Then
Button1.Enabled = False
Else
Button1.Enabled = True
End If
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles TextBox2.TextChanged
If TextBox1.Text = "" Then
Button1.Enabled = False
ElseIf TextBox2.Text = "" Then
Button1.Enabled = False
Else
Button1.Enabled = True
End If
End Sub
End Class

33
Bank Management System

 MDI FORM CODING

Imports System.Windows.Forms

Public Class MAIN


Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ExitToolStripMenuItem1.Click
Dim A As Integer
A = MsgBox("Do You Want To Close", vbOKCancel)
If A = vbOK Then
Application.Exit()
Else
Return
End If
End Sub

Private Sub DepositToolStripMenuItem1_Click(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles DepositToolStripMenuItem1.Click
NOMINAL_ACCOUNTS.MdiParent = Me
NOMINAL_ACCOUNTS.Show()
End Sub
Private Sub DepositToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles DepositToolStripMenuItem.Click
DEPOSIT_FORM.MdiParent = Me
DEPOSIT_FORM.Show()
End Sub
Private Sub WithdrawlToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles WithdrawlToolStripMenuItem.Click
WITHDRAWL.MdiParent = Me
WITHDRAWL.Show()

34
Bank Management System

End Sub
Private Sub HelpMenu_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles HelpMenu.Click
ABOUT_US_FORM.MdiParent = Me
ABOUT_US_FORM.Show()
End Sub
Private Sub FixedDepositToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles FixedDepositToolStripMenuItem.Click
FIXED_DEPOSIT.MdiParent = Me
FIXED_DEPOSIT.Show()
End Sub
Private Sub AccountsToolStripMenuItem1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles AccountsToolStripMenuItem1.Click
ACCOUNTS_REPORT_FORM.MdiParent = Me
ACCOUNTS_REPORT_FORM.Show()
End Sub
Private Sub SavingsToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles SavingsToolStripMenuItem.Click
DEPOSIT_REPORT.MdiParent = Me
DEPOSIT_REPORT.Show()
End Sub
Private Sub CurrentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles CurrentToolStripMenuItem.Click
FIXED_REPORT.MdiParent = Me
FIXED_REPORT.Show()
End Sub
Private Sub RecurringToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RecurringToolStripMenuItem.Click
RECURRING_REPORT.MdiParent = Me
RECURRING_REPORT.Show()
End Sub

35
Bank Management System

Private Sub WithdrawlToolStripMenuItem1_Click(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles WithdrawlToolStripMenuItem1.Click
WITHDRAWL_REPORT.MdiParent = Me
WITHDRAWL_REPORT.Show()
End Sub
Private Sub LoanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles LoanToolStripMenuItem.Click
LOAN.MdiParent = Me
LOAN.Show()
End Sub
Private Sub RecurringDepositToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
RecurringDepositToolStripMenuItem.Click
RECURRING_DEPOSIT.MdiParent = Me
RECURRING_DEPOSIT.Show()
End Sub
End Class

36
Bank Management System

 ACCOUNT OPENING FORM

Imports System.Data.SqlClient
Imports System.IO

Public Class NOMINAL_ACCOUNTS

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button2.Click
Me.Close()
End Sub

Private Sub NOMINAL_ACCOUNTS_Load(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles MyBase.Load

' Button1.Enabled = False

TextBox1.ReadOnly = True
TextBox1.Enabled = False
TextBox2.ReadOnly = True
TextBox2.Enabled = False

Dim CON As New SqlConnection


Dim CMD As New SqlCommand
Dim DR As SqlDataReader

CON.ConnectionString = "Server =ANGELDEVIL;Initial


Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON

37
Bank Management System

CMD.CommandText = "Select * From Account_Info"


DR = CMD.ExecuteReader

While DR.Read
TextBox1.Text = DR(0)
End While

DR.Close()

CMD.Dispose()
CON.Close()

TextBox1.Text = Val(TextBox1.Text) + 1

TextBox9.ReadOnly = True
TextBox9.Enabled = False
TextBox10.ReadOnly = True
TextBox10.Enabled = False
TextBox11.ReadOnly = True
TextBox11.Enabled = False
TextBox23.ReadOnly = True
TextBox23.Enabled = False

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Branch_Info"
DR = CMD.ExecuteReader

While DR.Read
ComboBox1.Items.Add(DR(0))
End While

38
Bank Management System

DR.Close()
CMD.Dispose()
CON.Close()

End Sub

Dim STRImage As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button1.Click

IF TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or


TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text =
"" Or TextBox8.Text = "" Or TextBox9.Text = "" Or TextBox10.Text = "" Or
TextBox11.Text = "" Or TextBox12.Text = "" Or TextBox13.Text = "" Or
TextBox14.Text = "" Or TextBox15.Text = "" Or TextBox16.Text = "" Or
TextBox17.Text = "" Or TextBox18.Text = "" Or TextBox19.Text = "" Or
TextBox20.Text = "" Or TextBox21.Text = "" Or TextBox22.Text = "" Or
TextBox23.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or
ComboBox3.Text = "" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or
ComboBox6.Text = "" Or ComboBox7.Text = "" Or ComboBox8.Text = "" Or
ComboBox9.Text = "" Or ComboBox10.Text = "" Or ComboBox11.Text = "" Or
ComboBox12.Text = "" Or RadioButton1.Checked = False Or RadioButton2.Checked =
False Or RadioButton3.Checked = False Or RadioButton4.Checked = False Or
RadioButton5.Checked = False Or RadioButton6.Checked = False Or
DateTimePicker1.Text = "" Or DateTimePicker2.Text = "" Or DateTimePicker3.Text =
"" Or DateTimePicker4.Text = "" Then

MessageBox.Show("Plz fill the form")

39
Bank Management System

Exit Sub

End If

Dim CON As New SqlConnection


Dim CMD As New SqlCommand

CON.ConnectionString = "Server =ANGELDEVIL;Initial


Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandType = CommandType.StoredProcedure
CMD.CommandText = "InsertAccount_Info"

'Try

CMD.Parameters.Add("@Account_No", SqlDbType.Int).Value = TextBox1.Text


CMD.Parameters.Add("@Branch_No", SqlDbType.VarChar).Value =
ComboBox1.Text
CMD.Parameters.Add("@Branch_Name", SqlDbType.VarChar).Value =
TextBox2.Text
If RadioButton1.Checked = True Then
CMD.Parameters.Add("@Account_H_Type", SqlDbType.VarChar).Value =
RadioButton1.Text
ElseIf RadioButton2.Checked = True Then
CMD.Parameters.Add("@Account_H_Type", SqlDbType.VarChar).Value =
RadioButton2.Text
ElseIf RadioButton3.Checked = True Then

40
Bank Management System

CMD.Parameters.Add("@Account_H_Type", SqlDbType.VarChar).Value =
RadioButton3.Text
End If
If RadioButton4.Checked = True Then
CMD.Parameters.Add("@No_Account_H", SqlDbType.VarChar).Value =
RadioButton4.Text
ElseIf RadioButton5.Checked = True Then
CMD.Parameters.Add("@No_Account_H", SqlDbType.VarChar).Value =
RadioButton5.Text
ElseIf RadioButton6.Checked = True Then
CMD.Parameters.Add("@No_Account_H", SqlDbType.VarChar).Value =
RadioButton6.Text
End If
CMD.Parameters.Add("@Saluation_F", SqlDbType.VarChar).Value =
ComboBox2.Text
CMD.Parameters.Add("@Name_P_O_F", SqlDbType.VarChar).Value =
TextBox3.Text
CMD.Parameters.Add("@Fa_Name_F", SqlDbType.VarChar).Value =
TextBox6.Text
CMD.Parameters.Add("@Gender_F", SqlDbType.VarChar).Value =
ComboBox5.Text
CMD.Parameters.Add("@DOB_F", SqlDbType.DateTime).Value =
DateTimePicker1.Text
CMD.Parameters.Add("@Age_F", SqlDbType.VarChar).Value = TextBox9.Text
CMD.Parameters.Add("@Occupation_F", SqlDbType.VarChar).Value =
ComboBox8.Text

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

41
Bank Management System

'Try
Dim FS As New FileStream(STRImage, FileMode.Open, FileAccess.Read)
Dim BYTEARRAY(FS.Length) As Byte
FS.Read(BYTEARRAY, 0, FS.Length)
FS.Close()
CMD.Parameters.AddWithValue("@Photo_F", BYTEARRAY)

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
Dim FS1 As New FileStream(STRImage, FileMode.Open, FileAccess.Read)
Dim BYTEARRAY1(FS1.Length) As Byte
FS1.Read(BYTEARRAY1, 0, FS1.Length)
FS1.Close()
CMD.Parameters.AddWithValue("@Sign_F", BYTEARRAY1)

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
CMD.Parameters.Add("@Address_F", SqlDbType.VarChar).Value =
TextBox12.Text
CMD.Parameters.Add("@Ph_No_F", SqlDbType.VarChar).Value =
TextBox15.Text

42
Bank Management System

CMD.Parameters.Add("@Mob_No_F", SqlDbType.VarChar).Value =
TextBox18.Text

CMD.Parameters.Add("@Saluation_S", SqlDbType.VarChar).Value =
ComboBox3.Text
CMD.Parameters.Add("@Name_P_O_S", SqlDbType.VarChar).Value =
TextBox4.Text
CMD.Parameters.Add("@Fa_Name_S", SqlDbType.VarChar).Value =
TextBox7.Text
CMD.Parameters.Add("@Gender_S", SqlDbType.VarChar).Value =
ComboBox6.Text
CMD.Parameters.Add("@DOB_S", SqlDbType.DateTime).Value =
DateTimePicker2.Text
CMD.Parameters.Add("@Age_S", SqlDbType.VarChar).Value = TextBox10.Text
CMD.Parameters.Add("@Occupation_S", SqlDbType.VarChar).Value =
ComboBox9.Text

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
Dim FS2 As New FileStream(STRImage, FileMode.Open, FileAccess.Read)
Dim BYTEARRAY2(FS2.Length) As Byte
FS2.Read(BYTEARRAY2, 0, FS2.Length)
FS2.Close()
CMD.Parameters.AddWithValue("@Photo_S", BYTEARRAY2)

'Catch ex As Exception
'MessageBox.Show(ex.Message)

43
Bank Management System

'End Try

'Try
Dim FS3 As New FileStream(STRImage, FileMode.Open, FileAccess.Read)
Dim BYTEARRAY3(FS3.Length) As Byte
FS3.Read(BYTEARRAY3, 0, FS3.Length)
FS3.Close()
CMD.Parameters.AddWithValue("@Sign_S", BYTEARRAY3)

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
CMD.Parameters.Add("@Address_S", SqlDbType.VarChar).Value =
TextBox13.Text
CMD.Parameters.Add("@Ph_No_S", SqlDbType.VarChar).Value =
TextBox16.Text
CMD.Parameters.Add("@Mob_No_S", SqlDbType.VarChar).Value =
TextBox19.Text

CMD.Parameters.Add("@Saluation_T", SqlDbType.VarChar).Value =
ComboBox4.Text
CMD.Parameters.Add("@Name_P_O_T", SqlDbType.VarChar).Value =
TextBox5.Text
CMD.Parameters.Add("@Fa_Name_T", SqlDbType.VarChar).Value =
TextBox8.Text
CMD.Parameters.Add("@Gender_T", SqlDbType.VarChar).Value =
ComboBox7.Text
CMD.Parameters.Add("@DOB_T", SqlDbType.DateTime).Value =
DateTimePicker3.Text

44
Bank Management System

CMD.Parameters.Add("@Age_T", SqlDbType.VarChar).Value = TextBox11.Text


CMD.Parameters.Add("@Occupation_T", SqlDbType.VarChar).Value =
ComboBox10.Text

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
Dim FS4 As New FileStream(STRImage, FileMode.Open, FileAccess.Read)
Dim BYTEARRAY4(FS4.Length) As Byte
FS4.Read(BYTEARRAY4, 0, FS4.Length)
FS4.Close()
CMD.Parameters.AddWithValue("@Photo_T", BYTEARRAY4)

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
Dim FS5 As New FileStream(STRImage, FileMode.Open, FileAccess.Read)
Dim BYTEARRAY5(FS5.Length) As Byte
FS5.Read(BYTEARRAY5, 0, FS5.Length)
FS5.Close()
CMD.Parameters.AddWithValue("@Sign_T", BYTEARRAY5)

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

45
Bank Management System

'Try
CMD.Parameters.Add("@Address_T", SqlDbType.VarChar).Value =
TextBox14.Text
CMD.Parameters.Add("@Ph_No_T", SqlDbType.VarChar).Value =
TextBox17.Text
CMD.Parameters.Add("@Mob_No_T", SqlDbType.VarChar).Value =
TextBox20.Text
CMD.Parameters.Add("@Account_Type", SqlDbType.VarChar).Value =
ComboBox11.Text
CMD.Parameters.Add("@Witness_Name", SqlDbType.VarChar).Value =
TextBox21.Text

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
Dim FS6 As New FileStream(STRImage, FileMode.Open, FileAccess.Read)
Dim BYTEARRAY6(FS6.Length) As Byte
FS6.Read(BYTEARRAY6, 0, FS6.Length)
FS6.Close()
CMD.Parameters.AddWithValue("@Witness_Sign", BYTEARRAY6)

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try

CMD.Parameters.Add("@Nominee_Rel", SqlDbType.VarChar).Value =
ComboBox12.Text

46
Bank Management System

CMD.Parameters.Add("@Nominee_Name", SqlDbType.VarChar).Value =
TextBox22.Text

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
Dim FS7 As New FileStream(STRImage, FileMode.Open, FileAccess.Read)
Dim BYTEARRAY7(FS7.Length) As Byte
FS7.Read(BYTEARRAY7, 0, FS7.Length)
FS7.Close()
CMD.Parameters.AddWithValue("@Nominee_Sign", BYTEARRAY7)

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

'Try
CMD.Parameters.Add("@Opening_Bal", SqlDbType.VarChar).Value =
TextBox23.Text
CMD.Parameters.Add("@T_Date", SqlDbType.DateTime).Value =
DateTimePicker4.Text

'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try

CMD.ExecuteNonQuery()
CMD.Dispose()

47
Bank Management System

CON.Close()

Dim A1 As Integer

A1 = MsgBox("Record Saved", MsgBoxStyle.OkOnly)

If A1 = vbOK Then

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""

48
Bank Management System

ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
ComboBox5.Text = ""
ComboBox6.Text = ""
ComboBox7.Text = ""
ComboBox8.Text = ""
ComboBox9.Text = ""
ComboBox10.Text = ""
ComboBox11.Text = ""
ComboBox12.Text = ""

RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False

DateTimePicker1.Text = ""
DateTimePicker2.Text = ""
DateTimePicker3.Text = ""
DateTimePicker4.Text = ""

End If

End Sub

49
Bank Management System

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim CON As New SqlConnection


Dim CMD As New SqlCommand
Dim DR As SqlDataReader

CON.ConnectionString = "Server =ANGELDEVIL;Initial


Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Branch_Info"
DR = CMD.ExecuteReader

While DR.Read
If ComboBox1.SelectedItem = DR(0) Then
TextBox2.Text = DR(1)
End If
End While

DR.Close()
CMD.Dispose()
CON.Close()

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles RadioButton2.CheckedChanged

GroupBox2.Enabled = True

50
Bank Management System

RadioButton4.Enabled = False
RadioButton5.Enabled = True
RadioButton6.Enabled = True

ComboBox2.Enabled = True
ComboBox3.Enabled = True
ComboBox4.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True
TextBox7.Enabled = True
TextBox8.Enabled = True
ComboBox5.Enabled = True
ComboBox6.Enabled = True
ComboBox7.Enabled = True
DateTimePicker1.Enabled = True
DateTimePicker2.Enabled = True
DateTimePicker3.Enabled = True
TextBox9.Enabled = True
TextBox10.Enabled = True
TextBox11.Enabled = True
ComboBox8.Enabled = True
ComboBox9.Enabled = True
ComboBox10.Enabled = True
LinkLabel1.Enabled = True
LinkLabel2.Enabled = True
LinkLabel3.Enabled = True
PictureBox1.Enabled = True
PictureBox2.Enabled = True
PictureBox3.Enabled = True

51
Bank Management System

LinkLabel4.Enabled = True
LinkLabel5.Enabled = True
LinkLabel6.Enabled = True
PictureBox4.Enabled = True
PictureBox5.Enabled = True
PictureBox6.Enabled = True
TextBox12.Enabled = True
TextBox13.Enabled = True
TextBox14.Enabled = True
TextBox15.Enabled = True
TextBox16.Enabled = True
TextBox17.Enabled = True
TextBox18.Enabled = True
TextBox19.Enabled = True
TextBox20.Enabled = True

If RadioButton2.Checked = True Then

RadioButton4.Enabled = False
RadioButton5.Enabled = True
RadioButton6.Enabled = True

If RadioButton5.Checked = True Then

ComboBox2.Enabled = True
ComboBox3.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox6.Enabled = True
TextBox7.Enabled = True
ComboBox5.Enabled = True

52
Bank Management System

ComboBox6.Enabled = True
DateTimePicker1.Enabled = True
DateTimePicker2.Enabled = True
TextBox9.Enabled = True
TextBox10.Enabled = True
ComboBox8.Enabled = True
ComboBox9.Enabled = True
LinkLabel1.Enabled = True
LinkLabel2.Enabled = True
PictureBox1.Enabled = True
PictureBox2.Enabled = True
LinkLabel4.Enabled = True
LinkLabel5.Enabled = True
PictureBox4.Enabled = True
PictureBox5.Enabled = True
TextBox12.Enabled = True
TextBox13.Enabled = True
TextBox15.Enabled = True
TextBox16.Enabled = True
TextBox18.Enabled = True
TextBox19.Enabled = True

End If

End If

End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles RadioButton5.CheckedChanged

53
Bank Management System

If RadioButton5.Checked = True Then

ComboBox4.Enabled = False
TextBox5.Enabled = False
TextBox8.Enabled = False
ComboBox7.Enabled = False
DateTimePicker3.Enabled = False
TextBox11.Enabled = False
ComboBox10.Enabled = False
LinkLabel3.Enabled = False
PictureBox3.Enabled = False
LinkLabel6.Enabled = False
PictureBox6.Enabled = False
TextBox14.Enabled = False
TextBox17.Enabled = False
TextBox20.Enabled = False

End If

End Sub

Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

If RadioButton1.Checked = True Then

RadioButton4.Checked = True
GroupBox2.Enabled = False
ComboBox3.Enabled = False
TextBox4.Enabled = False
ComboBox4.Enabled = False

54
Bank Management System

TextBox5.Enabled = False
TextBox7.Enabled = False
TextBox8.Enabled = False
ComboBox6.Enabled = False
ComboBox7.Enabled = False
DateTimePicker2.Enabled = False
DateTimePicker3.Enabled = False
TextBox10.Enabled = False
TextBox11.Enabled = False
ComboBox9.Enabled = False
ComboBox10.Enabled = False
LinkLabel2.Enabled = False
PictureBox1.Enabled = False
LinkLabel3.Enabled = False
PictureBox2.Enabled = False
LinkLabel5.Enabled = False
PictureBox4.Enabled = False
LinkLabel6.Enabled = False
PictureBox5.Enabled = False
TextBox13.Enabled = False
TextBox14.Enabled = False
TextBox16.Enabled = False
TextBox17.Enabled = False
TextBox19.Enabled = False
TextBox20.Enabled = False

End If

End Sub

55
Bank Management System

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles RadioButton6.CheckedChanged

If RadioButton6.Checked = True Then

RadioButton4.Enabled = False
RadioButton5.Enabled = True
RadioButton6.Enabled = True

ComboBox2.Enabled = True
ComboBox3.Enabled = True
ComboBox4.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True
TextBox7.Enabled = True
TextBox8.Enabled = True
ComboBox5.Enabled = True
ComboBox6.Enabled = True
ComboBox7.Enabled = True
DateTimePicker1.Enabled = True
DateTimePicker2.Enabled = True
DateTimePicker3.Enabled = True
TextBox9.Enabled = True
TextBox10.Enabled = True
TextBox11.Enabled = True
ComboBox8.Enabled = True
ComboBox9.Enabled = True
ComboBox10.Enabled = True
LinkLabel1.Enabled = True

56
Bank Management System

LinkLabel2.Enabled = True
LinkLabel3.Enabled = True
PictureBox1.Enabled = True
PictureBox2.Enabled = True
PictureBox3.Enabled = True
LinkLabel4.Enabled = True
LinkLabel5.Enabled = True
LinkLabel6.Enabled = True
PictureBox4.Enabled = True
PictureBox5.Enabled = True
PictureBox6.Enabled = True
TextBox12.Enabled = True
TextBox13.Enabled = True
TextBox14.Enabled = True
TextBox15.Enabled = True
TextBox16.Enabled = True
TextBox17.Enabled = True
TextBox18.Enabled = True
TextBox19.Enabled = True
TextBox20.Enabled = True

End If

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles RadioButton3.CheckedChanged

If RadioButton3.Checked = True Then

57
Bank Management System

RadioButton4.Checked = True
GroupBox2.Enabled = False
ComboBox3.Enabled = False
TextBox4.Enabled = False
ComboBox4.Enabled = False
TextBox5.Enabled = False
TextBox7.Enabled = False
TextBox8.Enabled = False
ComboBox6.Enabled = False
ComboBox7.Enabled = False
DateTimePicker2.Enabled = False
DateTimePicker3.Enabled = False
TextBox10.Enabled = False
TextBox11.Enabled = False
ComboBox9.Enabled = False
ComboBox10.Enabled = False
LinkLabel2.Enabled = False
PictureBox1.Enabled = False
LinkLabel3.Enabled = False
PictureBox2.Enabled = False
LinkLabel5.Enabled = False
PictureBox4.Enabled = False
LinkLabel6.Enabled = False
PictureBox5.Enabled = False
TextBox13.Enabled = False
TextBox14.Enabled = False
TextBox16.Enabled = False
TextBox17.Enabled = False
TextBox19.Enabled = False
TextBox20.Enabled = False

58
Bank Management System

End If

End Sub

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles DateTimePicker1.ValueChanged

Dim Date1 As Date


Dim A As Integer

Date1 = Convert.ToDateTime(DateTimePicker1.Value)

A = DateDiff(DateInterval.Year, Date1, DateTime.Now)

TextBox9.Text = A

End Sub
'Dim count, count1, count2, count3, count4, count5, count6, count7 As Integer

Dim count As Integer = 0


Dim count1 As Integer = 0
Dim count2 As Integer = 0
Dim count3 As Integer = 0
Dim count4 As Integer = 0
Dim count5 As Integer = 0
Dim count6 As Integer = 0
Dim count7 As Integer = 0

59
Bank Management System

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As


System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel1.LinkClicked

OpenFileDialog1.Filter = " Image files(*.jpg,*.bmp,*.gif)|*.jpg; *.gif*; *.bmp | all


files | * . * "

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
STRImage = OpenFileDialog1.FileName

End If

count = count + 1

End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As


System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel2.LinkClicked

OpenFileDialog1.Filter = " Image files(*.jpg,*.bmp,*.gif)|*.jpg; *.gif*; *.bmp | all


files | * . * "

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox2.Image = Image.FromFile(OpenFileDialog1.FileName)
STRImage = OpenFileDialog1.FileName

60
Bank Management System

End If

count1 = count1 + 1

End Sub

Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As


System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel3.LinkClicked

OpenFileDialog1.Filter = " Image files(*.jpg,*.bmp,*.gif)|*.jpg; *.gif*; *.bmp | all


files | * . * "

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox3.Image = Image.FromFile(OpenFileDialog1.FileName)
STRImage = OpenFileDialog1.FileName

End If

count2 = count2 + 1

End Sub

Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As


System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel4.LinkClicked

OpenFileDialog1.Filter = " Image files(*.jpg,*.bmp,*.gif)|*.jpg; *.gif*; *.bmp | all


files | * . * "

61
Bank Management System

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox4.Image = Image.FromFile(OpenFileDialog1.FileName)
STRImage = OpenFileDialog1.FileName

End If

count3 = count3 + 1

End Sub

Private Sub LinkLabel5_LinkClicked(ByVal sender As System.Object, ByVal e As


System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel5.LinkClicked

OpenFileDialog1.Filter = " Image files(*.jpg,*.bmp,*.gif)|*.jpg; *.gif*; *.bmp | all


files | * . * "

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox5.Image = Image.FromFile(OpenFileDialog1.FileName)
STRImage = OpenFileDialog1.FileName

End If

count4 = count4 + 1

End Sub

62
Bank Management System

Private Sub LinkLabel6_LinkClicked(ByVal sender As System.Object, ByVal e As


System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel6.LinkClicked

OpenFileDialog1.Filter = " Image files(*.jpg,*.bmp,*.gif)|*.jpg; *.gif*; *.bmp | all


files | * . * "

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox6.Image = Image.FromFile(OpenFileDialog1.FileName)
STRImage = OpenFileDialog1.FileName

End If

count5 = count5 + 1

End Sub

Private Sub LinkLabel7_LinkClicked(ByVal sender As System.Object, ByVal e As


System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel7.LinkClicked

OpenFileDialog1.Filter = " Image files(*.jpg,*.bmp,*.gif)|*.jpg; *.gif*; *.bmp | all


files | * . * "

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox7.Image = Image.FromFile(OpenFileDialog1.FileName)
STRImage = OpenFileDialog1.FileName

End If

63
Bank Management System

count6 = count6 + 1

End Sub

Private Sub LinkLabel8_LinkClicked(ByVal sender As System.Object, ByVal e As


System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel8.LinkClicked

OpenFileDialog1.Filter = " Image files(*.jpg,*.bmp,*.gif)|*.jpg; *.gif*; *.bmp | all


files | * . * "

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PictureBox8.Image = Image.FromFile(OpenFileDialog1.FileName)
STRImage = OpenFileDialog1.FileName

End If

count7 = count7 + 1

End Sub

Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles DateTimePicker2.ValueChanged

Dim Date1 As Date


Dim A As Integer

Date1 = Convert.ToDateTime(DateTimePicker2.Value)

64
Bank Management System

A = DateDiff(DateInterval.Year, Date1, DateTime.Now)

TextBox10.Text = A

End Sub

Private Sub DateTimePicker3_ValueChanged(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles DateTimePicker3.ValueChanged

Dim Date1 As Date


Dim A As Integer

Date1 = Convert.ToDateTime(DateTimePicker3.Value)

A = DateDiff(DateInterval.Year, Date1, DateTime.Now)

TextBox11.Text = A

End Sub

Private Sub ComboBox11_SelectedIndexChanged(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles ComboBox11.SelectedIndexChanged

If ComboBox11.SelectedItem = "Savings" Or ComboBox11.SelectedItem =


"Current" Then

TextBox23.Text = "15000"

Else

65
Bank Management System

TextBox23.Text = "0"
End If

End Sub
End Class
DEPOSIT FORM CODING

Imports System.Data.SqlClient

Public Class DEPOSIT

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button1.Click

If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or


TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text
= "" Then
MsgBox("Please Enter The Required Information",MsgBoxStyle.OkOnly)
Return
End If

Dim CON As New SqlConnection


Dim CMD As New SqlCommand

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandType = CommandType.StoredProcedure

66
Bank Management System

CMD.CommandText = "InsertDeposit_Info"

CMD.Parameters.Add("@Account_No", SqlDbType.Int).Value = ComboBox1.Text


CMD.Parameters.Add("@Branch_No", SqlDbType.VarChar).Value =
TextBox1.Text
CMD.Parameters.Add("@Depositor_Name", SqlDbType.VarChar).Value =
TextBox2.Text
CMD.Parameters.Add("@Account_H_Type", SqlDbType.VarChar).Value =
TextBox3.Text
CMD.Parameters.Add("@Deposit_Amt", SqlDbType.VarChar).Value =
TextBox5.Text
CMD.Parameters.Add("@Deposit_Date", SqlDbType.DateTime).Value =
DateTimePicker1.Text

CMD.ExecuteNonQuery()
CMD.Dispose()
CON.Close()

MsgBox("Amount Deposited", MsgBoxStyle.OkOnly)

Button2.Enabled = True

End Sub

Private Sub DEPOSIT_Load(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles MyBase.Load

TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False

67
Bank Management System

TextBox6.Enabled = False

TextBox1.ReadOnly = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox6.ReadOnly = True

Button2.Enabled = False

Dim CON As New SqlConnection


Dim CMD As New SqlCommand

Dim DR As SqlDataReader

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Account_Info"
DR = CMD.ExecuteReader

While DR.Read
ComboBox1.Items.Add(DR(0))
End While

DR.Close()
CMD.Dispose()
CON.Close()

68
Bank Management System

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim CON As New SqlConnection


Dim CMD As New SqlCommand
Dim DR As SqlDataReader

CON.ConnectionString = "Server =ANGELDEVIL;Initial


Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Account_Info"
DR = CMD.ExecuteReader

While DR.Read
If ComboBox1.SelectedItem = DR(0) Then
TextBox1.Text = DR(1)
TextBox2.Text = DR(6) & "," & DR(18) & "," & DR(30)
TextBox3.Text = DR(3)
TextBox4.Text = DR(47)
End If
End While

DR.Close()
CMD.Dispose()
CON.Close()

69
Bank Management System

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button2.Click

Dim CON As New SqlConnection


Dim CMD As New SqlCommand

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandType = CommandType.StoredProcedure
CMD.CommandText = "UpdateAccount_Info"

CMD.Parameters.Add("@Account_No", SqlDbType.Int).Value = ComboBox1.Text


CMD.Parameters.Add("@Opening_Bal", SqlDbType.VarChar).Value =
TextBox6.Text

CMD.ExecuteNonQuery()
CMD.Dispose()
CON.Close()

MsgBox("Previous Amount Updated", MsgBoxStyle.OkOnly)

ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

70
Bank Management System

TextBox5.Text = ""
TextBox6.Text = ""

Button2.Enabled = False

End Sub

Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles TextBox5.TextChanged
TextBox6.Text = Val(TextBox4.Text) + Val(TextBox5.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button3.Click
Me.Close()
End Sub

End Class

 WITHDRAWAL FORM CODING

Imports System.Data.SqlClient

Public Class WITHDRAWL


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or
TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text
= "" Then
MsgBox("Please Enter The Required Information", MsgBoxStyle.OkOnly)
Return

71
Bank Management System

End If

Dim CON As New SqlConnection


Dim CMD As New SqlCommand

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandType = CommandType.StoredProcedure
CMD.CommandText = "InsertWithdrawl_Info"

CMD.Parameters.Add("@Account_No", SqlDbType.Int).Value = ComboBox1.Text


CMD.Parameters.Add("@Branch_No", SqlDbType.VarChar).Value =
TextBox1.Text
CMD.Parameters.Add("@Withdrawee_Name", SqlDbType.VarChar).Value =
TextBox2.Text
CMD.Parameters.Add("@Account_H_Type", SqlDbType.VarChar).Value =
TextBox3.Text
CMD.Parameters.Add("@Withdrawl_Amt", SqlDbType.VarChar).Value =
TextBox5.Text
CMD.Parameters.Add("@Withdrawl_Date", SqlDbType.DateTime).Value =
DateTimePicker1.Text

CMD.ExecuteNonQuery()
CMD.Dispose()
CON.Close()

MsgBox("Amount Withdrawn", MsgBoxStyle.OkOnly)

72
Bank Management System

Button2.Enabled = True
End Sub
Private Sub WITHDRAWL_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox6.Enabled = False

TextBox1.ReadOnly = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox6.ReadOnly = True

Button2.Enabled = False

Dim CON As New SqlConnection


Dim CMD As New SqlCommand

Dim DR As SqlDataReader

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Account_Info"
DR = CMD.ExecuteReader

73
Bank Management System

While DR.Read
ComboBox1.Items.Add(DR(0))
End While

DR.Close()
CMD.Dispose()
CON.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim CON As New SqlConnection
Dim CMD As New SqlCommand

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandType = CommandType.StoredProcedure
CMD.CommandText = "UpdateAccount_Info"

CMD.Parameters.Add("@Account_No", SqlDbType.Int).Value = ComboBox1.Text


CMD.Parameters.Add("@Opening_Bal", SqlDbType.VarChar).Value =
TextBox6.Text

CMD.ExecuteNonQuery()
CMD.Dispose()
CON.Close()

MsgBox("Previous Amount Updated", MsgBoxStyle.OkOnly)

74
Bank Management System

ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""

Button2.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim CON As New SqlConnection
Dim CMD As New SqlCommand
Dim DR As SqlDataReader

CON.ConnectionString = "Server =ANGELDEVIL;Initial


Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Account_Info"
DR = CMD.ExecuteReader

While DR.Read
If ComboBox1.SelectedItem = DR(0) Then
TextBox1.Text = DR(1)

75
Bank Management System

TextBox2.Text = DR(6) & ", " & DR(18) & ", " & DR(30)
TextBox3.Text = DR(3)
TextBox4.Text = DR(47)
End If
End While

DR.Close()
CMD.Dispose()
CON.Close()
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox5.TextChanged
TextBox6.Text = Val(TextBox4.Text) - Val(TextBox5.Text)
End Sub
End Class

 LOAN FORM CODING


Imports System.Data.SqlClient

Public Class LOAN


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or
TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox5.Text = "" Or ComboBox1.Text
= "" Or ComboBox2.Text = "" Or DateTimePicker1.Text = "" Then
' MsgBox("Please Enter The Required Information", MsgBoxStyle.OkOnly)
' Return
'End If

Dim CON As New SqlConnection


Dim CMD As New SqlCommand

76
Bank Management System

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandType = CommandType.StoredProcedure
CMD.CommandText = "InsertLoan_Info"

CMD.Parameters.Add("@Account_No", SqlDbType.Int).Value = ComboBox1.Text


CMD.Parameters.Add("@Branch_No", SqlDbType.VarChar).Value =
TextBox1.Text
CMD.Parameters.Add("@Depositor_Name", SqlDbType.VarChar).Value =
TextBox2.Text
CMD.Parameters.Add("@Account_H_Type", SqlDbType.VarChar).Value =
TextBox3.Text
CMD.Parameters.Add("@Time_Span", SqlDbType.VarChar).Value =
ComboBox2.Text
CMD.Parameters.Add("@ROI", SqlDbType.VarChar).Value = TextBox4.Text
CMD.Parameters.Add("@Start_Date", SqlDbType.DateTime).Value =
DateTimePicker1.Text
CMD.Parameters.Add("@Mature_Date", SqlDbType.VarChar).Value =
TextBox5.Text
CMD.Parameters.Add("@Deposit_Amt", SqlDbType.VarChar).Value =
TextBox6.Text
CMD.Parameters.Add("@Mature_Amt", SqlDbType.VarChar).Value =
TextBox7.Text

CMD.ExecuteNonQuery()
CMD.Dispose()
CON.Close()

77
Bank Management System

MsgBox("Fixed Deposit Started", MsgBoxStyle.OkOnly)


End Sub
Private Sub LOAN _Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox7.Enabled = False
DateTimePicker1.Enabled = False

TextBox1.ReadOnly = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True

TextBox6.Enabled = False

'Button2.Enabled = False

Dim CON As New SqlConnection


Dim CMD As New SqlCommand

Dim DR As SqlDataReader

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()

78
Bank Management System

CMD.Connection = CON
CMD.CommandText = "Select * From Account_Info Where Account_Type='
LOAN '"
DR = CMD.ExecuteReader

While DR.Read
ComboBox1.Items.Add(DR(0))
End While

DR.Close()
CMD.Dispose()
CON.Close()

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Rate_Of_Interest_Info"
DR = CMD.ExecuteReader

While DR.Read
ComboBox2.Items.Add(DR(0))
End While

DR.Close()
CMD.Dispose()
CON.Close()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim CON As New SqlConnection
Dim CMD As New SqlCommand
Dim DR As SqlDataReader

79
Bank Management System

CON.ConnectionString = "Server =ANGELDEVIL;Initial


Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Account_Info"
DR = CMD.ExecuteReader

While DR.Read
If ComboBox1.SelectedItem = DR(0) Then
TextBox1.Text = DR(1)
TextBox2.Text = DR(6) & " , " & DR(18) & " , " & DR(30)
TextBox3.Text = DR(3)
'TextBox4.Text = DR(47)
End If
End While

DR.Close()
CMD.Dispose()
CON.Close()
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox5.TextChanged
'TextBox6.Text = Val(TextBox4.Text) + Val(TextBox5.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub

80
Bank Management System

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

Dim CON As New SqlConnection


Dim CMD As New SqlCommand
Dim DR As SqlDataReader

CON.ConnectionString = "Server=ANGELDEVIL;Initial
Catalog=BankingSystem;Integrated Security=True"

CON.Open()
CMD.Connection = CON
CMD.CommandText = "Select * From Rate_Of_Interest_Info"
DR = CMD.ExecuteReader

While DR.Read
If ComboBox2.SelectedItem = DR(0) Then
TextBox4.Text = DR(1)
End If
End While

DR.Close()
CMD.Dispose()
CON.Close()

Dim a, b, c As String

a = DateTimePicker1.Value.Date.Year
c = DateTimePicker1.Value.Date.Month
b = DateTimePicker1.Value.Date.Day ' 19 '

81
Bank Management System

TextBox5.Text = b & "/ " & c & "/" & a + Val(ComboBox2.Text)

TextBox6.Enabled = True
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox6.TextChanged
Dim A As Integer

A = (Val(TextBox6.Text) * Val(ComboBox2.Text) * Val(TextBox4.Text)) / 100


TextBox7.Text = TextBox6.Text + A
End Sub
End Class

82
Bank Management System

TESTING AND DEBUGGING

INTRODUCTION:-

The implementation phase of software development is concerned with translating design


specification into source code. The preliminary goal of implementation is to write source
code and internal documentation so that conformance of the code to its specifications can
be easily verified, and so that debugging, testing and modifications are eased. This goal
can be achieved by making the source code as clear and straightforword as possible.
Simplicity, clarity and elegance are the hallmark of good programs, obscurity, cleverness,
and complexity are indications of inadequate design and misdirected thinking.

Source code clarity is enhanced by structured coding techniques, by good coding style,
by, appropriate supporting documents, by good internal comments, and by feature
provided in modern programming languages.

The implementation team should be provided with a well-defined set of software


requirement, an architectural design specification, and a detailed design description. Each
team member must understand the objectives of implementation.

TERMS IN TESTING FUNDAMENTAL

1. Error

83
Bank Management System

The term error is used in two ways. It refers to the difference between the actual output of
software and the correct output, in this interpretation, error is essential a measure of the
difference between actual and ideal. Error is also to used to refer to human action that
result in software containing a defect or fault.

2. Fault
Fault is a condition that causes to fail in performing its required function. A fault is a
basic reason for software malfunction and is synonymous with the commonly used term
Bug.

3. Failure
Failure is the inability of a system or component to perform a required function according
to its specifications. A software failure occurs if the behavior of the software is the
different from the specified behavior. Failure may be caused due to functional or
performance reasons.

a. Unit Testing
The term unit testing comprises the sets of tests performed by an individual programmer
prior to integration of the unit into a larger system.
A program unit is usually small enough that the programmer who developed it can test it
in great detail, and certainly in greater detail than will be possible when the unit is
integrated into an evolving software product. In the unit testing the programs are tested
separately, independent of each other. Since the check is done at the program level, it is
also called program teasing.

b. Module Testing
A module and encapsulates related component. So can be tested without other system
module.

c. Subsystem Testing

84
Bank Management System

Subsystem testing may be independently design and implemented common problems are
sub-system interface mistake in this checking we concentrate on it.

There are four categories of tests that a programmer will typically perform on a program
unit.
1) Functional test
2) Performance test
3) Stress test
4) Structure test

1) Functional Test
Functional test cases involve exercising the code with Nominal input values for which
expected results are known; as well as boundary values (minimum values, maximum
values and values on and just outside the functional boundaries) and special values.

2) Performance Test
Performance testing determines the amount of execution time spent in various parts of the
unit, program throughput, response time, and device utilization by the program unit. A
certain amount of avoid expending too much effort on fine-tuning of a program unit that
contributes little to the over all performance of the entire system. Performance testing is
most productive at the subsystem and system levels.

3) Stress Test
Stress test are those designed to intentionally break the unit. A great deal can be learned
about the strengths and limitations of a program by examining the manner in which a
program unit breaks.

4) Structure Test
Structure tests are concerned with exercising the internal logic of a program and
traversing particular execution paths. Some authors refer collectively to functional
performance and stress testing as “black box” testing. While structure testing is referred

85
Bank Management System

to as “white box” or “glass box” testing. The major activities in structural testing are
deciding which path to exercise, deriving test date to exercise those paths, determining
the test coverage criterion to be used, executing the test, and measuring the test coverage
achieved when the test cases are exercised.
DEBUGGING
Defect testing is intended to find areas where the program does not confirm to its
specifications. Tests are designed to reveal the presence of defect in the system.When
defect have been found in the program. There must be discovered and removed. This is
called “Debugging”.

86
Bank Management System

FUTURE SCOPE OF THE PROJECT

This project can be handled in future by doing various modifications like: -

 We can go further for Online Banking.

 We can establish and start various Branches and available help centers for Account
Holder’s Queries.

 We can also deal through internet by creating web pages and a banking website for
internet dealing.

 To attract Account Holder’s we can offer various offers during festivals months.

 We can also deal in various types of Banking Transactions.

 To have more and more customer satisfaction we will emphasize more and more on
our dealings.

87
Bank Management System

BIBLIOGRAPHY AND REFERENCES

BOOK: - Black Book on Visual Basic .Net 2003 By Steven Holzner

WEBSITES: - WWW.VBTUTORIALS.COM

WWW.VBSOURCECODE.COM

WWW.LOGICATWORK.INFO

SEARCH ENGINES: - YAHOO, MSN, GOOGLE etc.

88

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy