PROJECT REPORT

A Major Project
ON

BANKING SYSTEM
For Partial Fulfillment of Diploma Course Submitted To: MR. Krishan Project Incharge.
(Lect. In CSE deptt.)

Submitted By: Nishant Harish 0805608027 0805608012 Bhavesh Rajesh 0805608010 0805608034

DEPARTMENT OF COMPUTER
Bhagwan Parshuram Polytechnic Masana (Kurukshetra)

ACKNOWLEDGEMENT
The submission of this project gives both of us an opportunity to convey our gratitude to all those who have helped us reach a stage where we have immense confidence to launch our career in the competitive world of information technology. We have no second thought in admitting that it is our respected Lecturers who have played a significant role in shaping our career and we would be miserably failing in our duty if we don extend our heart filled gratitude and sincere acknowledgement to our project guide who has been a source of perpetual inspiration to us, gently guiding and paving our way towards a bright career. Both were ever willing to give us all kind of support and encouragement. We are also very thankful to both for being an inspired project in charge and for providing necessary help throughout our project work. We also want to thank MR. Krishan who helped us a lot during the complete project by giving us his precious time. And in the end we would like to thank our parents and the almighty God for all the things that they did to us.

a amiik jp Sahil khanduja

0805608001 0805608006 0805608013 0805608040

CERTIFICATE

It is certified that all these Final year, Computer Engineering students of Bhagwan Parshuram Polytechnic MASANA(Kurukshetra) of Engineering & Technology have completed their major project BANKING SYSTEM successfully on time. I found them sincere & hardworking. Their performance during this project development period is excellent & I wish all of them successful carriers.

UNDER THE GUIDENCE OF :-

MR.Krishan Project Incharge

(Lect. In CSE deptt.)

SUBMITTED BY :NIshant Harish Bhavesh Rajesh 0805608027 0805608012 0805608010 0805608034

Table of Contents
1. Introduction..... 2. Introducing Banking system........... 3. System Analysis.. 4. Requirements Specification ... 5. Introduction to VISUAL BASIC 6.0.............. 6. Introduction to MS ACCESS 2003..... 7. Coding.................. 8. Testing........................................................................................................ 9. Project Output.. 10. References..... 11. Bibliography.............

INTRODUCTION
The project BANKING SYSTEM is made to used that working in. This Project Contain mainly following forms:1. 2. 3. 4. 5. 6. 7. 8. Load Form Log in Form Create Account Form. Delete Account Form Deposit Form Withdrawl Form Fixed Deposit Form Loan Form

(A.) Vehicle Loan (B.) Property Loan (C.) Educational Loan 9. Data Reports 10. Search By Name 11. Search By Account No. 12. MDI Form The Software VISUAL BASIC 6.0 is used as front end for the designing and programming and to create user friendly GUI forms. Microsoft Access 2003 is used as backend to create the data tables required to store the information. At present there is no such system which helps in addition, ensure, alteration and demonstration of information to the client. So this system facilitates us to perform all these functions rather straightforwardly with no supplementary specialization required.

Scope : 1. The project stores all the information about the Customers Account. 2. The programmer must be able to get details of all their information after storing. 3. It is simple to use and it is Graphical user interface. 4. The programmer can also be able to modify the information. 5. Programmer can add Record of the Customers Account. 6. Programmer can delete any of Record of the Customers Account. 7. Programmer can search any of Record of the Customers Account. 8. Programmer can maintain the information about Fixed Deposit and Loan of Customers. Platform: This project has been developed in one of the most popular and user friendly Microsoft Windows environment. The following components are also used for a successful user friendly effective development of this project: 1. FRONT END:-VISUAL BASIC 6.0 2. BACK END:-MS ACCESS 2003. Methodology: The following approach is used to design this system, which is called "classic life cycle" or "Waterfall model". This linear sequential model suggests a sequential, systematic approach to system development that begins at the system level and progress through the analysis, design, coding, testing and maintenance. The linear sequential model encompasses the following activities: 1. System/ Information engineering and modeling. 2. System requirement analysis 3. Design

4. Code generation 5. Testing 6. Maintenance

WATER FALL MODEL

These above phases mark the progress of a system analysis and design effort. It is an orderly set of activities conducted and planned for each development project. In most business situations the activities are closely related, usually inseparable, and even the order may be difficult to determine.

System

Analysis Design Code Testing Maintenance

INTRODUCTION TO BANKING SYSTEM :-This project(BANKING SYSTEM) is made into the VISUAL BASIC 6.0 .It is used maintain account information of customers. The data into the project after submission is store into the MS ACCESS 2003. . This Project Contain mainly following forms:1. Load Form 2. 3. 4. 5. 6. 7. 8. Log in Form Create Account Form. Delete Account Form Deposit Form Withdrawl Form Fixed Deposit Form Loan Form

(A.) Vehicle Loans (B.) Property Loan (C.) Educational Loan 9. Data Reports 10. Search By Name 11. Search By Account No. 12. MDI Form

Detail of these forms

LOADING FORM It is the first form when we start the project.After loading of this form Log in form will be displayed.The coding and the output of this project I shown below in Coding and Output Section. LOG IN FORM In this form we have to enter username and password.this is for the security reason that unauthorized person can not access our project. CREATE ACCOUNT FORM:- . Create account Form is used to add the account record of customers.In this the customer hag to fill the basic information about his account.

TEXT BOX:-A text box is use to receive the information from the user by typing into it. A text box generally used in conjunction with a label LABEL:-A label is a control used to display text on the form. The value of label button will be given on design time or can be change on the run time. COMMAND BUTTON:-A command button is used to initiate an action when user clicks on it. The code for the action to be performed is provide by the programmer COMBO BOX:-It is Similar to the list box. Most of what you know about list box will apply to combo boxes. Item are added, Remove and clear with the add item, remove item and clear method. OPTION BOTTON:- It is used to select any option from given options. On this form there is two options are present and user can select one of them.

The customer can fill following Fields 1. Account no 2. Branch 3. Full Name 4. F name 5. D.O.B. 6. Sex 7. Marital Staus 8. Address 9. Intial Amount 10. State 11. City 12. Pin Code 13. Phone No.

DELETE FORM: This form is used to delete all the records of a account of from the
database. If we want to delete a form ,click on Delete Form option and it will ask you for password, after entering the password enter account no. you want to delete.

DEPOSIT FORM:This form is used to deposit the amount to user account. For this simply click on Deposit option under Transaction menu. Then a input box will be displayed on the screen , it will ask you for account no. and amount to be deposit. If you do not have an account then it will show you an error message. This form contains the following fields. 1. Account no. 2. Name

3. Date 4. Amount To Deposit 5. Balance 6. Type Of Transaction

WTHDRAWL FORM:This form is used to withdrawl the amount from user account. For this simply click on Withdrawl option under Transaction menu. Then a input box will be displayed on the screen , it will ask you for account no. and amount to be withdrawl. If you do not have an account then it will show you an error message. This form contains the following fields.

1. Account no. 2. Name 3. Date 4. Amount To Deposit 5. Balance 6. Type Of Transaction

FIXED DEPOSIT:This form is used when customer wants to submit a fix amount for a fix time. During the time period he can not get his money back ,if he wants it before the time period completes then the amount of interest will not be given to him. It contains following fields:1. F.D. No. 2. Name

3. Account No. 4. Date 5. Amount 6. Time Period 7. Interest 8. Total Amount

VEHICLE LOAN
Under this option the customer can take loan for two wheeler vehicle and four wheeler vehicle. In this the customer have to give the fully description about the vehicle i.e. its cost and name(car , bus , truck etc.).The following are the fields under this section:1. Name 2. F Name 3. Sex 4. Nationality 5. Identification 6. Vehicle Type 7. Cost 8. Address 9. Phone No. 10. Installments 11. Interest 12. Total Amount 13. Date

EDUCATIONAL LOAN
Under this option the customer can take loan for the education. For this he has to give full description about himself and the course he is offering. He has to give the approximately cost of course. There is a benefit in educational loan is that the amount of interest is very less than other loans. It contains the following fields:-

1. Name 2. F Name 3. Sex 4. Nationality 5. Identification 6. Course Type 7. Amount 8. Address 9. Phone No. 10. Interest 11. Total Amount 12. Date

HOUSE PROPERTY LOAN

The customer can also take the house loan. If he wants a loan for making his house then he has to apply for house loan. The interest of house loan is greater than educational loan and less than vehicle loan. The customer has to give full personal details and description of plot i.e. dimension (In sq.m.). It contains the following fields:1. Name 2. F Name 3. Sex 4. Nationality 5. Identification 6. Dimension 7. Amount 8. Address 9. Phone No. 10. Interest 11. Total Amount 12. Date

DATA REPORTS
The data reports are the reports which shows the data stored in our databases. The various data reports are shown in OUTPUT section.

SEARCH BY NAME
In this form we can search the accounts of our customers by their names. When we click on option SEARCH BY NAME then an input box will be displayed ,enter the name you want to search. It will show you the full information about the customer account. The output of this form is shown in OUTPUT section.

SEARCH BY ACCOUNT NO.

In this form we can search the accounts of our customers by their account no. When we click on option SEARCH BY ACCOUNT NO. then an input box will be displayed ,enter the account no you want to search. It will show you the full information about the customer account.

MDI FORM
This form contains all the menu of project. This is the main form of the project. If we want to do something then we click any of the menu in this form.

SYSTEM ANALYSIS

3.1 IDENTIFICATION OF NEED

This Project is use to store information of customers accounts. Into past the data will be stored into the conventional file system and it is very costly and time consuming. IN today time have very importance. so, to save our time and money we need this project .Because this project is used into the computer and store information into the memory of computer, and save our TIME and MONEY.

3.2 PROBLEM ANALYSIS

Problem analysis is done to obtain a clear understanding of the needs of the users and what exactly is desired from the software information and documentation and so forth. One of the major problems during analysis is how to organize the information obtained that can be effectively evaluated for completeness and consistency. Second major during analysis is resolving the contradiction that may exists in the information from different sources.

3.3 FEASIBILITY ANALYSIS

Feasibility of a system refers to the potentiality and workability of the system. A system is said to be a feasible one if its development is beneficial to an organization. Feasibility analysis is the process of analyzing the system so as to determine whether would be feasible or not. Feasible analysis should be performed throughout the system development life cycle.

3.4 FEASIBILITY CHECKPOINTS

Feasibility study is done at various points in the system development life cycle. The scope and complexity of an apparently feasible project can change after the current problems are fully understood, after the end-users needs have been defined in detail, or after the technical requirements have been established. The project feasible at one stage may become infeasible or less feasible at any other checkpoint. Various checkpoints in the system development life cycle where feasibility study is performed are: 1. Survey phase checkpoint 2. Study phase checkpoint 3. Selection phase checkpoint 4. Acquisition phase checkpoint 5. Design phase checkpoint

Hardware Requirements

1. Processor
2. RAM

Pentium-IV 256 MB 40 GB

3. Hard Disk 4. MONITOR 5. PRINTER 6. KEYBOARD 7. MOUSE 8. CD-WRITER

Software Requirements
1. OPERATING SYSTEM:- WINDOW XP/98

2. Front End

VISUAL BASIC 6.0

3. Back End

MICROSOFT ACCESS 2007.

Introduction to VISUAL BASIC 6.0:

7.1 The Development Environment Earning the ins and outs of the Development Environment before you learn visual basic is somewhat like learning for a test you must know where all the functions belong and what their purpose is. First we will start with

7.1.1 Labeling the development environment.

The above diagram shows the development environment with all the important points labeled. Many of Visual basic functions work similar to Microsoft word eg the Tool Bar and the toolbox is similar to other products on the market, which work off a single click then drag the width of the object required. The Tool Box contains the control you placed on the form window. All of the controls that appear on the Tool Box controls on the above picture never runs out of controls as soon as you place one on the form another awaits you on the Tool Box ready to be placed as needed.

7.2 The project explorer window

The Project explorer window gives you a tree-structured view of all the files inserted into the application. You can expand these and collapse branches of the views to get more or less detail (Project explorer). The project explorer window displays forms, modules or other separators,

which are supported by the visual basic like classes and Advanced Modules. If you want to select a form on its own simply double click on the project explorer window for a more detailed look. And

It will display it where the Default form is located.

7.3 Properties Window Some programmers prefer the Categorisized view of the properties window. By defaulting, the properties window displays its properties alphabetically (with the exception of the name value) when you click on the categorized button the window changes to left picture.

7.3.1 The Default Layout When we start Visual Basic, we are provided with a VB project. A VB project is a collection of the following modules and files. The global module (that contains declaration and procedures) The form module (that contains the graphic elements of the VB application along with the The general module (that generally contains general-purpose instructions not pertaining to The class module (that contains the defining characteristics of a class, including its

instruction) anything graphic on-screen) properties and methods)

The resource files (that allows you to collect all of the texts and bitmaps for an application

in one place) On start up, Visual Basic will displays the following windows: The Blank Form window The Project window

7.4Understanding the tool box. You may have noticed that when you click on different controls the Properties Window

changes slightly this is due to different controls having different functions. Therefore more options are needed for example if you had a picture then you want to

Show an image. But if you wanted to open a Internet connection you would have to fill in the remote host and other such settings. When you use the command () you will find that a new set of properties come up the following will provide

7.5 Opening an existing Visual Basic project. Microsoft has included some freebies with visual basic to show its capabilities and functions. Dismantling or modifying these sample projects is a good way to understand what is happening at runtime. These files can be located at your default directory /SAMPLES/ To Open these projects choose 'Open Project' from the 'File' menu. Then Double click on the samples folder to open the directory then Double click on any project to load it.

7.5.1 Opening a new visual basic file & Inserting Source code. From looking at the examples it time to make your own application. Choose 'New Project' from the 'File' menu. Use the blank form1 to design a simple interface for an estate agents database, have some textboxes for names and other details. Insert some controls and make it look professional. Textboxes can be used to store there name and other details, make sure you put a picture box in for a picture of the house. Now insert the following source code for your application. Private Sub Form_Load () Picture1.Picture = LoadPicture("C:\Program Files\VB\Graphics\Icons\Misc\MISC42.ICO") End Sub

7.5.2 Running and viewing the project in detail. Once an application is loaded it can be run by click on the icon from the toolbar, to pause press and to terminate use .

Once a project is loaded, the name of the form(s) that it contains is displayed in the project window. To view a form in design mode, select the form required by clicking

with In this example the project has been loaded and the maillist.frm has been selected for viewing. This Ms Mail example project useds 6 forms and 1 modules.

Button Properties for reference

,Command Button & labels properties Property Description Name The name of the object so you can call it at runtime Back Color This specifies the command button's background color. Click the Back Colors palette down arrow to see a list of common Windows control colors, you must change this to the style property from 0 - standard to 1 - graphical Cancel Determines whether the command button gets a Click event if the user presses escape Caption Holds the text that appears on the command button. Default

Determines if the command button responds to an enter keypress even if another control has the focus Enable Determines whether the command button is active. Often, you'll change the enable property at runtime with code to prevent the user pressing the button Font Produces a Font dialog box in which you can set the caption's font name , style and size. Height Positions the height of the object - can be used for down Left Positions the left control - can be used for right Mouse Pointer If selected to an icon can change the picture of the mouse pointer over that object Picture Hold's the name of an icon graphic image so that it appears as a picture instead of a Button for this option to work the graphical tag must be set to 1 Style This determines if the Command Button appears as a standard windows dialog box or a graphical image Tab index Specifies the order of the command button in tab order Tab Stop Whether the object can be tabbed to

7.6 DATA TYPE SUMMARY Visual Basic recognize following six types of variables as Numeric, String, Boolean, Date, Object, Variant. NUMERIC Like other Programming Language Visual Basic provide Numeric Variables. They are:Integers, Single, double, Byte, Long, Currency Integer Variables are used for the Non Fractional Values. It stores values in the range from 32768 to 32767. Long Data type is used for the range 2147483648 to 2147483647. Single Data Type is used for Fractional Values from 3.402 e 38 to 1.40 e 45. Double Precision Floating Point Numbers is capable of containing values from 1.797 e 308 to 4.940 e 324 and positive numbers. Currency is used for fixed-point numbers with four decimal digits. It can represent numbers in the range 922377203685477.5808 to 922377203685477.5807. Byte data type is used for representing numbers from 0 to 255. String variables are used to store string type data. BOOLEAN Boolean Data Type stores True/ False values. Boolean variables are used in testing conditions. DATE Date and Time variables are stored internally in a special format, but you dont need to know the exact format. Date variables are declared by following statements. VARIANT Special Types of Variables declare without any data type treated as variant they are capable of containing any type of value. If one can ski data type in variable declaration statement then variable will treated as a variant

INTRODUCTION TO DATABASE:
Definition of Database: A collection of inter- related data stored together without harmful or unnecessary redundancy to serve multiple applications. Definition of Database Management System: A collection of inter-related files and set of ore-written programs that allow users to access and modify these files. Need of DBMS: DBMS needed in order to eliminate the disadvantage of a file based system, which are as follows:(a) Data duplication

(b) No integrity checks (c) Accuracy not possible (d) Data not secure (e) Quick retrieval not possible

Major functions of DBMS: The major functions of DBMS are as follows: -

(a) (b) (c) (d) (e) (f) (g) (h)

Ability to represent inherent data structure Ease of use Time related performance enhancement Minimal cost Minimal redundancy Search capability Integrity Data privacy and security

Advantages of DBMS: (a) (b) (c) (d) (e) (f) Centralized control Data independence allows dynamic changes and growth potential Data duplication elimination with controlled redundancy Data quality enhanced Security enforcement Security enforcement possible

Disadvantages of DBMS: (a) (b) (c) Problem associated with centralization Cost of hardware, software and migration Complexity of backup and recovery

CO DING

Coding
LOADING FORM
Private Sub FNAME_Timer() Label1.Left = Label1.Left - 150 If Label1.Left < -9500 Then Label1.Left = 10500 End If End Sub Private Sub Form_Load() load.BackColor = vbYellow Label1.BackColor = vbYellow Label11.BackColor = vbYellow Label1.Left = 10500 Label3.Caption = Time() Label2.Caption = Format(Date, "mmm dd,yyyy") ProgressBar1.Value = 0 End Sub Private Sub pbar_Timer() ProgressBar1.Value = ProgressBar1.Value + 1 If ProgressBar1.Value >= 100 Then pbar.Enabled = False End If If ProgressBar1.Value = 80 Then Label14.ForeColor = vbBlack End If Label14.Caption = "LOADING...." If ProgressBar1.Value >= 95 Then Label14.Caption = "LOADING COMPLETE" End If

If ProgressBar1.Value = 100 Then Me.Hide Form9.Show End If End Sub Private Sub TIMET_Timer() Label3.Caption = Time() End Sub

CREATE ACCOUNT FORM

Private Sub Command1_Click() If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox "Fill The Required Fields", vbInformation, "Message" Else Data1.RecordSource = "select * from basic where account_no='" + Text1.Text + "'" Data1.Refresh Do While Not Data1.Recordset.EOF c=c+1 Data1.Recordset.MoveNext Loop If c <> 0 Then MsgBox " Duplicate Account no! Change it" Else Data1.Recordset.AddNew Data1.Recordset.Fields("account_no") = Text1.Text Data1.Recordset.Fields("branch") = Text2.Text Data1.Recordset.Fields("name") = Text3.Text Data1.Recordset.Fields("fname") = Text4.Text Data1.Recordset.Fields("dob") = CDate(Text5.Text) Data1.Recordset.Fields("sex") = Combo1.Text

Data1.Recordset.Fields("marital") = Combo2.Text Data1.Recordset.Fields("address") = Text6.Text Data1.Recordset.Fields("deposit") = Val(Text7.Text) Data1.Recordset.Fields("state") = Text8.Text Data1.Recordset.Fields("city") = Text9.Text Data1.Recordset.Fields("phno") = Val(Text10.Text) Data1.Recordset.Fields("pincode") = Val(Text11.Text) Data1.Recordset.Fields("balance") = Val(Text12.Text) Data1.Recordset.Update Data1.Recordset.Close Unload Me Form3.Show End If End If Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Combo1.Text = "" Combo2.Text = "" End Sub Private Sub Form_Load() Text5.Text = Date Data1.Visible = False End Sub

Private Sub Text12_GotFocus() Text12.Text = Text7.Text End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Not ((Chr(KeyAscii) >= "0") And (Chr(KeyAscii) <= "9")) Then KeyAscii = "0" MsgBox ("Invalid entry.please enter numeric value") End If End Sub Private Sub Text10_KeyPress(KeyAscii As Integer) If Not ((Chr(KeyAscii) >= "0") And (Chr(KeyAscii) <= "9")) Then KeyAscii = "0" MsgBox ("invalid entry.please enter numeric value") End If End Sub Private Sub Text11_KeyPress(KeyAscii As Integer) If Not ((Chr(KeyAscii) >= "0") And (Chr(KeyAscii) <= "9")) Then KeyAscii = "0" MsgBox ("invalid entry.please enter numeric value") End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Not ((Chr(KeyAscii) >= "0") And (Chr(KeyAscii) <= "9")) Then KeyAscii = "0" MsgBox ("invalid entry.please enter numeric value") End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If ((Chr(KeyAscii) >= "0") And (Chr(KeyAscii) <= "9")) Then KeyAscii = "0" MsgBox ("invalid entry.please enter char value")

End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If ((Chr(KeyAscii) >= "0") And (Chr(KeyAscii) <= "9")) Then KeyAscii = "0" MsgBox ("invalid entry.please enter char value") End If End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If Not ((Chr(KeyAscii) >= "0") And (Chr(KeyAscii) <= "9")) Then KeyAscii = "0" MsgBox ("invalid entry.please enter numeric value") End If End Sub Private Sub Option1_Click() If Option1.Value = True Then Text9.Text = "SC" End If Text10.SetFocus Frame1.Visible = False End Sub Private Sub Option2_Click() If Option2.Value = True Then Text9.Text = "BC" End If Text10.SetFocus Frame1.Visible = False End Sub Private Sub Option3_Click()

If Option3.Value = True Then Text9.Text = "GENERAL" End If Text10.SetFocus Frame1.Visible = False End Sub Private Sub Text9_Click() Frame1.Visible = True End Sub Private Sub Text9_GotFocus() Frame1.Visible = True End Sub

LOGIN FORM:Private Sub Command1_Click() Dim username As String Dim password As Long a = Text1.Text b = Text2.Text c = Text3.Text If ((a = "ravi") And (b = 1234) And (b = c)) Then Unload Me MDIForm1.Show Else MsgBox (" !NV@LID U$ERN@ME OR P@$$WORD") Text2.Text = "" Text3.Text = "" End If End Sub

Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command3_Click() End End Sub

DELETE ACCOUNT FORM

Search form is further divided into three parts(1). First Year (2.)Second Year (3.) Final Year. Here is coding of Final Year and the coding of Second and First Year is same,we just need to change Table Name. Private Sub Combo3_Click() Data1.RecordSource = "select * from final_year" Data1.Refresh Do While Not Data1.Recordset.EOF If Combo3.Text = Data1.Recordset.Fields("serialno") Then Text2.Text = Data1.Recordset.Fields("phno") Text3.Text = Data1.Recordset.Fields("name") Text4.Text = Data1.Recordset.Fields("fname") Combo2.Text = Data1.Recordset.Fields("trade") Combo1.Text = Data1.Recordset.Fields("class") Text5.Text = Data1.Recordset.Fields("peradd") Text6.Text = Data1.Recordset.Fields("distance") Text7.Text = Data1.Recordset.Fields("doj") Text8.Text = Data1.Recordset.Fields("rankobt") Text9.Text = Data1.Recordset.Fields("category") Text10.Text = Data1.Recordset.Fields("detrn")

Text11.Text = Data1.Recordset.Fields("classrn") End If Data1.Recordset.MoveNext Loop End Sub

FORM DELETE:Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Data1.Visible = False End Sub Private Sub Text1_GotFocus() d = InputBox("Enter the account no to delete", "Delete") Data1.RecordSource = "select * from basic where account_no='" + d + "'" Data1.Refresh Data1.Recordset.Delete Data1.Recordset.Close Data1.RecordSource = "select * from basic" Data1.Refresh End Sub

DEPOSIT FORM
Private Sub Command1_Click() Unload Me MDIForm1.Show

End Sub Private Sub Command2_Click() Data2.RecordSource = "select * from trans" Data2.Refresh Data2.Recordset.AddNew Data2.Recordset.Fields("account_no") = Val(Text1.Text) Data2.Recordset.Fields("name") = Text2.Text Data2.Recordset.Fields("amount") = Val(Text4.Text) Data2.Recordset.Fields("balance") = Val(Text5.Text) Data2.Recordset.Fields("type-transaction") = Text6.Text Data2.Recordset.Fields("date") = CDate(Text3.Text) Data2.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub Form_Load() Data1.Visible = False Data2.Visible = False End Sub Private Sub Text1_GotFocus() On Error GoTo errorhandle Data1.Visible = False Data2.Visible = False Text3.Text = Date a = InputBox("Enter the Account No.", "Account No.") d = InputBox("Enter the amount you want to deposit", "Deposit") Text1.Text = Val(a) Text4.Text = Val(d) Text6.Text = "Deposit" Data1.RecordSource = "select * from basic where account_no='" + a + "'" Data1.Refresh Data1.Recordset.Edit Data1.Recordset.Fields("balance") = Data1.Recordset.Fields("balance") + Val(d) Text2.Text = Data1.Recordset.Fields("name") Text5.Text = Data1.Recordset.Fields("balance") Data1.Recordset.Update Data1.Recordset.Close Text1.Text = a Text6.Text = "Deposit" Text4.Text = Val(d) Exit Sub errorhandle:

MsgBox "NO ACCOUNT FOUND! Please fill the input properly", vbExclamation, "Error" Unload Me MDIForm1.Show End Sub

WITHDRAWL FORM
Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() Data2.RecordSource = "select * from trans" Data2.Refresh Data2.Recordset.AddNew Data2.Recordset.Fields("account_no") = Val(Text1.Text) Data2.Recordset.Fields("name") = Text2.Text Data2.Recordset.Fields("amount") = Val(Text4.Text) Data2.Recordset.Fields("balance") = Val(Text5.Text) Data2.Recordset.Fields("type-transaction") = Text6.Text Data2.Recordset.Fields("date") = CDate(Text3.Text) Data2.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub Form_Load() Data1.Visible = False Data2.Visible = False End Sub Private Sub Text1_GotFocus() On Error GoTo errorhandle Data1.Visible = False Data2.Visible = False Text3.Text = Date a = InputBox("Enter your Account no", "account_no") Data1.RecordSource = "select * from basic where account_no='" + a + "'" Data1.Refresh w = InputBox("Enter the amount you want to withdrawl", "Withdrawl") If Val(w) > Data1.Recordset.Fields("balance") Then MsgBox " Please check your balance!", vbExclamation, "Balance"

Data1.RecordSource = "select * from basic" Data1.Refresh Unload Me MDIForm1.Show Else Data1.Recordset.Edit Data1.Recordset.Fields("balance") = Data1.Recordset.Fields("balance") - Val(w) Text2.Text = Data1.Recordset.Fields("name") Text5.Text = Data1.Recordset.Fields("balance") Data1.Recordset.Update Data1.Recordset.Close Text1.Text = Val(a) Text6.Text = "Withdrawl" Text4.Text = Val(w) Data1.RecordSource = "select * from basic where account_no='" + a + "'" Data1.Refresh Exit Sub errorhandle: MsgBox "NO ACCOUNT FOUND! Please fill the input properly", vbExclamation, "Error" End If End Sub

FIXED DEPOSIT
Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() Data1.RecordSource = "select * from fd" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("fdno") = Val(Text1.Text) Data1.Recordset.Fields("name") = Text2.Text Data1.Recordset.Fields("accno") = Val(Text3.Text) Data1.Recordset.Fields("date") = CDate(Text4.Text) Data1.Recordset.Fields("amount") = Val(Text5.Text) Data1.Recordset.Fields("time") = Combo1.Text Data1.Recordset.Fields("interest") = Text6.Text Data1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ""

Text6.Text = "" Combo1.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Text4.Text = Date Text7.Enabled = False Data1.Visible = False End Sub Private Sub Text6_Change() Dim a As Long Dim b As Long Dim c As Variant Dim d As Long d = Val(Text6.Text) b = Val(Text5.Text) c=b/d a = Val(c) + Val(Text5.Text) Text7.Text = a End Sub Private Sub Text6_GotFocus() If Combo1.Text = "6 MONTHS" Then Text6.Text = "5%" End If If Combo1.Text = "1 YEAR" Then Text6.Text = "8%" End If If Combo1.Text = "2 YEAR" Then Text6.Text = "10%" End If If Combo1.Text = "3 YEAR" Then Text6.Text = "12%" End If If Combo1.Text = "4 YEAR" Then Text6.Text = "13%" End If If Combo1.Text = "5 YEAR" Then Text6.Text = "15%" End If End Sub

LOAN->VEHICLE LOAN *TWO WHEELER LOAN

Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() If Val(Text3.Text) > 80000 Then MsgBox "You Can Not Take Loan Above Limit !", vbExclamation, "Banking System" Else Form21.Show End If If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox "Fill The Required Fields", vbInformation, "Message" Else Data1.RecordSource = "select * from twowheel" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("fname") = Text2.Text Data1.Recordset.Fields("sex") = Combo1.Text Data1.Recordset.Fields("nationality") = Combo2.Text Data1.Recordset.Fields("id") = Combo3.Text Data1.Recordset.Fields("vehicle") = Combo4.Text Data1.Recordset.Fields("cost") = Val(Text3.Text) Data1.Recordset.Fields("address") = Text4.Text Data1.Recordset.Fields("phno") = Val(Text5.Text) Data1.Recordset.Fields("inst") = Combo5.Text Data1.Recordset.Fields("interest") = Val(Text6.Text) Data1.Recordset.Fields("total") = Val(Text7.Text) Data1.Recordset.Fields("date") = CDate(Text8.Text) Data1.Recordset.Update End If Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text7.Text = "" Text8.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = ""

Combo4.Text = "" Combo5.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Data1.Visible = False Text8.Text = Date Text6.Text = "10" Text6.Enabled = False Text7.Enabled = False End Sub Private Sub text3_change() Dim a As Long Dim b As Long Dim c As Variant Dim d As Long d = 10 b = Val(Text3.Text) c=b/d a = Val(c) + Val(b) Text7.Text = Val(a) End Sub

*FOUR WHEELER LOAN

Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox "Fill The Required Fields", vbInformation, "Message" Else Data1.RecordSource = "select * from loan" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("fname") = Text2.Text Data1.Recordset.Fields("sex") = Combo1.Text Data1.Recordset.Fields("nationality") = Combo2.Text Data1.Recordset.Fields("id") = Combo3.Text Data1.Recordset.Fields("vehicle") = Combo4.Text

Data1.Recordset.Fields("cost") = Val(Text3.Text) Data1.Recordset.Fields("address") = Text4.Text Data1.Recordset.Fields("phno") = Val(Text5.Text) Data1.Recordset.Fields("inst") = Combo5.Text Data1.Recordset.Fields("interest") = Val(Text6.Text) Data1.Recordset.Fields("total") = Val(Text7.Text) Data1.Recordset.Fields("date") = CDate(Text8.Text) Data1.Recordset.Update End If Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text7.Text = "" Text8.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" Combo4.Text = "" Combo5.Text = "" Text6.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Data1.Visible = False Text8.Text = Date Text6.Text = "10" Text6.Enabled = False Text7.Enabled = False End Sub Private Sub text3_change() Dim a As Long Dim b As Long Dim c As Variant Dim d As Long d = 10 b = Val(Text3.Text) c=b/d a = Val(c) + Val(b) Text7.Text = Val(a) End Sub

EDUCATIONAL LOAN
Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() If Val(Text3.Text) > 400000 Then MsgBox "You Can Not Take Loan Above Limit !", vbExclamation, "Banking System" Else Form21.Show End If If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox "Fill The Required Fields", vbInformation, "Message" Else Data1.RecordSource = "select * from edu" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("fname") = Text2.Text Data1.Recordset.Fields("sex") = Combo1.Text Data1.Recordset.Fields("nationality") = Combo2.Text Data1.Recordset.Fields("id") = Combo3.Text Data1.Recordset.Fields("course") = Combo4.Text Data1.Recordset.Fields("amount") = Val(Text3.Text) Data1.Recordset.Fields("address") = Text4.Text Data1.Recordset.Fields("phno") = Val(Text5.Text) Data1.Recordset.Fields("interest") = Val(Text6.Text) Data1.Recordset.Fields("total") = Val(Text7.Text) Data1.Recordset.Fields("date") = CDate(Text8.Text) Data1.Recordset.Update End If Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text7.Text = "" Text8.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" Combo4.Text = "" End Sub Private Sub Command3_Click() End

End Sub Private Sub Form_Load() Data1.Visible = False Text8.Text = Date Text6.Text = "4" Text6.Enabled = False Text7.Enabled = False End Sub Private Sub text3_change() Dim a As Long Dim b As Long Dim c As Variant Dim d As Long d=4 b = Val(Text3.Text) c=b/d a = Val(c) + Val(b) Text7.Text = Val(a) End Sub

HOUSE LOAN
Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() If Val(Text3.Text) > 4000000 Then MsgBox "You Can Not Take Loan Above Limit !", vbExclamation, "Banking System" Else Form21.Show End If If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "")) Then MsgBox "Fill The Required Fields", vbInformation, "Message" Else Data1.RecordSource = "select * from house" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("fname") = Text2.Text Data1.Recordset.Fields("sex") = Combo1.Text Data1.Recordset.Fields("nationality") = Combo2.Text Data1.Recordset.Fields("id") = Combo3.Text Data1.Recordset.Fields("dimension") = Val(Text9.Text) Data1.Recordset.Fields("amount") = Val(Text3.Text) Data1.Recordset.Fields("address") = Text4.Text

Data1.Recordset.Fields("phno") = Val(Text5.Text) Data1.Recordset.Fields("interest") = Text6.Text Data1.Recordset.Fields("total") = Val(Text7.Text) Data1.Recordset.Fields("date") = CDate(Text8.Text) Data1.Recordset.Update End If Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text7.Text = "" Text8.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" Text9.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Label11.Enabled = False Data1.Visible = False Text8.Text = Date Text6.Text = "7" Text6.Enabled = False Text7.Enabled = False End Sub Private Sub text3_change() Dim a As Long Dim b As Long Dim c As Variant Dim d As Long d=7 b = Val(Text3.Text) c=b/d a = Val(c) + Val(b) Text7.Text = Val(a) End Sub Private Sub Text9_GotFocus() Text1.Enabled = True End Sub

QUERY BY NAME

Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() Unload Me End End Sub Private Sub Form_Load() On Error GoTo errorhandle Data1.Visible = False n = InputBox("Enter your Name", "Name") Data1.RecordSource = "select * from basic where name='" + n + "'" Data1.Refresh Exit Sub errorhandle: MsgBox "Error occurred! Please fill the input properly", vbExclamation, "Error" End Sub

QUERY BY ACCOUNT NO.

Private Sub Command1_Click() Unload Me MDIForm1.Show End Sub Private Sub Command2_Click() Unload Me End End Sub Private Sub Form_Load() Data1.Visible = False Form13.Show On Error GoTo errorhandle n = InputBox("Enter Account No.", "account_no") Data1.RecordSource = "select * from basic where account_no='" + n + "'" Data1.Refresh Exit Sub errorhandle: MsgBox "Error occurred! Please fill the input properly", vbExclamation, "Error" End Sub

MDI FORM
Private Sub mnuabout_Click() Unload Me Form15.Show End Sub Private Sub mnuaccinformation_Click() Unload Me Form12.Show End Sub Private Sub mnuaccountno_Click() Unload Me Form13.Show End Sub Private Sub mnuagloan_Click() Unload Me Form27.Show End Sub Private Sub mnubasic_Click() a = InputBox("Enter Password") If a = 1234 Then Unload Me Form11.Show Else MsgBox "You Are Not An Authorized Person To View This Data", vbExclamation, "Security" Unload Me MDIForm1.Show End If End Sub Private Sub mnubyname_Click() Form7.Show End Sub Private Sub mnucreateaccount_Click() Form1.Show End Sub Private Sub mnudeleteacc_Click() u = InputBox("Enter password", "Password") If u = "1234" Then Form12.Show Else MsgBox "Access Denied", vbExclamation, "Message" End If End Sub Private Sub mnudeposit_Click() Form5.Show

End Sub Private Sub mnuedu_Click() Unload Me Form23.Show End Sub Private Sub mnueduc_Click() Unload Me Form24.Show End Sub Private Sub mnuexit_Click() End End Sub Private Sub mnufd_Click() Unload Me Form16.Show End Sub Private Sub mnufixeddeposit_Click() Unload Me Form17.Show End Sub Private Sub mnufour_Click() Unload Me Form19.Show End Sub Private Sub mnufwheel_Click() Unload Me Form20.Show End Sub Private Sub mnuhouse_Click() Unload Me Form25.Show End Sub Private Sub mnuhse_Click() Unload Me Form26.Show End Sub Private Sub mnutransaction_info_Click() Unload Me Form14.Show

End Sub Private Sub mnutwheel_Click() Unload Me Form22.Show End Sub Private Sub mnutwo_Click() Unload Me Form21.Show End Sub Private Sub mnuwithdrawl_Click() Unload Me Form6.Show End Sub

INFORMATION ABOUT COMMON BUTTONS PRESENT ON THE SCREEN Command Buttons: BACK: - When we click on the BACK button then the MDIForm will be displayed. NEXT: - This button is used to display next form. SUBMIT: -When we click on SUBMIT button Record will save in Database File. DELETE: - This command button is used to delete the selected Record EXIT:- This command button is used to exit the Project. CREATE:-This command button will create your account.

THANKS
TESTING
Testing is a very critical aspect of the Software Quality Assurance (SQA) and represents the ultimate review of specification, design and code generation .The design process focuses on the logical internals of the software, ensuring that all the statements have

been tested and all the functional externals i.e. defined input will produce actual results that agree with the required results. There are two types of testing

1. WHITE BOX TESTING 2. BLACK BOX TESTING WHITE BOX TESTING It is also called as glass-box testing. It is predicted on the close examination of the procedural details. Here providing test cases that exercise specific sets of condition and for loops tests the logical paths through the software. It demonstrate that each function operational at the same searching for errors in each function. BLACK BOX TESTING This is also called as the behavioral testing and it focuses on the functional requirements of the software. It enables the software engineer to derive set of input conditions that will fully exercise all functional requirements for a program. These sets are used to demonstrate that software functions are operational and output is correctly produced and integrity of external database is maintained. It helps to ensure that the internal operations are performed according to specification and all components have been adequately exercise.

Output

LOADING FORM

LOG IN FORM

CREATE ACCOUNT FORM

DELETE ACCOUNT FORM

DEPOSIT RECORD

WITHDRAWL FORM

FIXED DEPOSIT FORM

VEHICLE LOAN

EDUCATIONAL LOAN

HOUSE PROPERTY LOAN

ABOUT

MDI FORM

sDATA REPORTS

SEARCH BY ACCOUNT NO.

SEARCH BY NAME

 BIBLIOGRAPHIES

The following BOOKS are used to make this project. [1] [2] ABHISHEK SAGAR EAGLE VISUAL BASIC 6

REFRECES
1. www.google.com 2. www.yahoo.com 3. www.analogx.com