COMPUTERIZED BANKING SYSTEM (In Visual Basic 6.

0)

Abstract:
COMPUTERIZED BANKING SYSTEM A Computerized Banking System (CBS) is a banking establishment to manage customer data. Computerized banking system for creating customer account of whole world.Also known as computerized banking management system (CBMS), customer account records management, customer transaction control or customer data reports system. Computerized Banking System means how to manage the database of customers that how the customers are merged in different fields. In this project we admits the new registration of customer. We can update customers records. We can retrieve customers data such as their balance, withdrawals, deposits, modifying etc. In this project we can delete customers records. This project is connected through data base access. A Computerized Banking System(CBS) is designed to help banks for manage the data base. Extensive information is available at your fingertips through this System. Viewing customer data, account open and deletion, managing transaction, with drawls, balance inquiry, modify account, customer information, data environment and data reports and related issues are made simple and easy. There are custom search capabilities to aid in finding customer information and working on customer records. This can make the system easier to navigate and to use maximizing the effectiveness of time and other resources. The objective of the system would be: i. ii. iii. iv. v. vi. vii. viii. Opening new customers account Account modification/updation Deletion/Close an account Withdrawals Deposit Balance enquiry Customers information Reports

Table of Contents:
Chapter 1: Introduction
1.1 Objective 1.2 Introduction to VB 1.3 Visual Basic Editions 1.4 Importance of EVENT Driven 1.5 How Visual Basic Technologies Make Computing Easier

Chapter 2: Technologies Used

2.1 Front End 2.2 Back End

Chapter 3: Feasibility Study

3.1 Intro 3.2 Types Of Feasibility Study Economical Feasibility Technical Feasibility Behaviour Feasibility Operational Feasibility 3.3 Steps in Feasibility Study

Chapter 4: REQUIREMENTS
4.1 Hardware Reqirements 4.2 Software Requirements

Chapter 5: Limitations
5.1 Limitations

Chapter 6: Snap Shots Of Forms Chapter 7: Appendix REFRENCE

CHAPTER 1 (INTRODUCTION)

1.1 Objective
COMPUTERIZED BANKING SYSTEM A Computerized Banking System (CBS) is a banking establishment to manage customer data. Computerized banking system for creating customer account of whole world.Also known as computerized banking management system (CBMS), customer account records management, customer transaction control or customer data reports system. Computerized Banking System means how to manage the database of customers that how the customers are merged in different fields. In this project we admits the new registration of customer. We can update customers records. We can retrieve customers data such as their balance, withdrawals, deposits, modifying etc. In this project we can delete customers records. This project is connected through data base access. A Computerized Banking System(CBS) is designed to help banks for manage the data base. Extensive information is available at your fingertips through this System. Viewing customer data, account open and deletion, managing transaction, with drawls, balance inquiry, modify account, customer information, data environment and data reports and related issues are made simple and easy. There are custom search capabilities to aid in finding customer information and working on customer records. This can make the system easier to navigate and to use maximizing the effectiveness of time and other resources.

1.2 Introduction To Visual Basic

Microsoft Visual Basic,the fastest and easiet way to create applications for Microsoft windows.Whether you are an experienced professional or brands new to windows programming , visual basic provides you with a complete set of tools to simplify RAPID APPLICATION DEVELOPMENT. So what is visual basic? The visual part refers to the method use to create the graphical user interface(GUI). Rather then writing numerous lines of code to describe the appearance and location of interface elements , you simply drag & drop prebuilt objects into place on screen . If you have ever used the drawning program such as paint , you already have most of the skills necessary to create an user interface. The visual basic programming language is not unique to visual basic . The visual basic programming system , application addition included in the Microsoft excel , Microsoft access , & many other windows application uses the same language . whether your goal is to create a small utility for urself on your work group , a large enterprise-wide system or even distributed application spanning the globe via the internet ,Visual basic has the tools you need. Data access features is to create databases and front-end application most popular database formats ,including Microsoft SQL server and enterprise-level databases. Internet capabilities make it easy to provide access to documents and application across the internet from within your application.Your finished application is a true .exe file that uses a runtime dynamic-link library (DLL) that you can freely distribute.

1.3Visual Basic Editions

Visual basic is available in three version, each geared to meet a specific set of development requirements . The visual basic learning edition allows programmers to easily create powerful application for Microsoft Windows 95 & Window NT. It include all intrinsic control , plus grid, tab, & data bound controls. The professional edition provides computer professional with a fully featured set of tools for developing solutions for others. It includes all the feature of the learning edition, plus additional ActiveX controls , including internet controls & the crystal Report writer. The enterprise edition allows professional to create robust distributed applications in a term setting. It includes all the features of the professional edition, plus the Automation Manager, component Manager, database Management tools , the Microsoft visual source safe project oriented version control system & more

1.4 Importance Of EVENT Driven

In the present time all the software,which are being prepared for the use of various companies and to fulfill a variety of needs, is coming in the graphical user interface. So event driven programming is becoming increasingly popular in these days. The event and method in this model presents a clear view to write the code and procedure for the applications.

1.5 How Visual Basic Techgnologies Make Computing Easier

Visual basic is following technology that falls under the rapid application development.As in the case of visual basic whole of the interface is designed visually instead of writing the code for it. Which makes the programmer job easy ? The IDE environment of visual basic makes this task to easy. Even a person having just knownledge of paint brush can make an appending interface in the visual basic.

CHAPTER 2 (TECHNOLOGIES USED)

2.1 Front End (VISUAL BASIC 6.0):WELCOME TO MICROSOFT VISUAL BASIC, THE FASTEST AND Easiest way to create applications for MICROSOFT WINDOWS whether you are an experienced professional or brand new to WINDOWS. Programming VISUAL BASIC provides you with a complete set of tools. To simplify rapid apps development, so WHAT IS VISUAL BASIC? Visual Basic is an ideal programming language for developing sophisticated professional apps for MS WINDOWS. It makes use of graphical user interface for creating robust and powerful apps. The GUI as the name suggest, uses illustration for next, which enable user to interact with an app. This feature makes it easier to comprehend things in quicker and in easier way. Visual Basic was developed from the BASIC programming language. In 1970s, MICROSOFT started developing ROM-based interpreted BASIC for the early microprocessor based computers. In 1982, MICROSOFT QUICK BASIC revolutionized BASIC and legitimized as a serious development language for MS-DOS environment. Later on, MICROSOFT created the enhanced version of BASIC called VISUAL BASIC for WINDOWS.

2.2 Back End (MS-ACCESS):Back End of the package is the software which stores the database part of the package. Backend is hidden to the user. Tsshe backend may be any of the data base packages. It may be ACCESS, SQL and EXCEL etc. Database is designed to offer an organized mechanism for storing, managing and retrieving information. They do so through the use of tables. If you are familiar with spread sheets like MICROSOFT EXCEL, you are probably already accustomed to storing data in tabular form. It is not much of a stretch to make the leap from spreadsheets to databases . Just like EXCEL tables, DATABASE tables consist of columns and rows. Each column contains a different type of attribute and each row corresponds to a single record.

CHAPTER 3 (FEASIBILITY STUDY)

10

3.1 Intro
Feasibility study describes and evaluates candidate system and provides for the selection of the best system that meets the system performance requirements. First the study often pre suppose that when the feasibility is being prepared , the analyst is in opposition to evaluate solution. Second, most studied development the constraints assume attitude . It focuses on three main questions. What are the users demonstrate need and a candidate system meet them? What resources are available for candidate system? What is problem worth solving? What are the likely impacts of the candidate system on the organization?

3.2 Types of Feasibility Study Economical Study

Economical feasibility determines the benefits and saving that are except from the system and compare them with costs. It is most frequently used method for evaluating of a system. It is most commonly known as costs/benefits analysis. This is an on going effort that improves the accuracy in each phase of system life cycle. The pacakage that has been developed is cost effective. It should be accepted to organization.

Technical Feasibility
Technical feasibility centers round the existing system and to want extend support the proposed system. Two major benefits are improving the performance and minimizing the processing . The performance category emphasis improvements in the speed and accuracy to get information about connectivity status of client. This involves finicial consideration to accumodate technical enhancement. if the budget is a serious constraint then the project is judged not feasible the existance of infrastructure required for porposed system makes it technical enhancement.

Behavioral Feasibility
People are inherently resistant to change and computer have user know to facilitate change an estimate should be made on how strong reaction the user staff is likely to have the development of computerized system. It is common knowledge that computerized will have something to do with turnover, Retaining and changes in the employees job status. Therefore it is understandable the introduction of a candidate system requires special effort to educate, sell and train staff on the new way of conducting business. 11

 Operational Feasibility
Proposed systems are benefits only if thy can be turned into informational system. Here is the question that helps us to test the operation feasibility of a project: Is there sufficient support for the manager, from user? If the current system is well light and used to extend that person. Have the user been involved in the planning and development of the project? Will proposed system be feasible.

12

3.3 Steps In Feasibility Study

Preparation of flow chart. Enumerate Potential Candidate System. Determine and identify characterstics of candidate system. Weight system performance and cost data. Select the best candidate system. Prepare and Report final project directive to the management. The objective of feasibility study is not the problem but to acquire asense of its scope. The result of Feasibility study is be formal proposal. This is simply a report, known as feasibility report.

Cover letter: It formally present the report briefly indicates to manage the nature, general finding recommendation to be considred. Table of content: It specifies the location of the various parts of the report management quickly to concern them. Overview: It is narrative explanation of the purpose and scope of the project, the reason for undertaken of affected the candidate system. Detailed finding: It outlines the methods used in the present system. The system effectiveness and effectively as well as operating cost is emphasis. It describes the objectives and general procedure of the candidates system. Recommended an conclusion: It suggests to management the most beneficial and cost effectively system.

13

CHAPTER 4 (REQUIREMENTS)

14

4.1 Hardware Requirements HARDWARE REQUIREMENTS: COMPUTER SYSTEM:- PENTIUM COMPATABLE OR HIGHER. RAM:- MINIMUM OF 8 MB RAM. DISPLAY:- MONO,COLOURED PREFFERED. DISK SPACE:- 5-10 MB OF DISKSPACE. PRINTER:- ANY.

4.2 Software Requirements SOFTWARE REQUIREMENTS: OPERATING SYSTEM:- WINDOWS XP,WINDOWS 7. FRONT END:- MICROSOFT VISUAL BASIC 6.0. BACK END:- MICROSOFT ACCESS.

15

CHAPTER 5 (LIMITATIONS)

16

5.1 Limitations
I. II. III. IV. In computerized banking system we cant make connect our project online. This project doesnt fulfill all the requirement of bank. In computerized banking system we cant make customers life insurance. In computerized banking system we cant findout the interest

17

INDEX
18

INDEX
1. EXISTING SYSTEM 2. INTRODUCTION TO BANK 3. INTRODUCTION ABOUT PROJECT 4. SYSTEM DESIGN 5. DATA DICTIONARY 6. FILE DESCRIPTION 7. DATA STRUCTURE 8. PROGAMME LISTING

19

EXISTING SYSTEM
An analytical study of the exiting manual system is very much essential to understand its shortcomings or demerits. So as so isolate the same from the activities where computerized system can prove more useful at comparatively lesser cost. It is therefore necessary to make a through study of the information system of the various stages. In a particular field of activity in a bank the information has been gathered from the following sources: Journalism of the bank Documents Pamphlets

Opening of Account:- When a person enters the bank to open an account a distinct number known as account number is allotted to him as per serial in the progressive register mentioned by the department in charge. The customer then fills up an application for opening an account and specimen signature slip and card along with the cash deposit pay in slip which is got scrolled in the account section before depositing the cash at the cash receipt counter, pay-in-slip is passed on to the ledger folio. The depositor should always state the account number on the pay-in-slips, withdrawal forms or cheques. An account may be opened by a person in his or her own name. By more than one person in their joint names. By a minor jointly with a major. By a minor of above 18 years of age, able to read and write may open a saving account in his\her name. The account will be opened with a minimum of Rs. 500.

Withdrawals: - An account holder can withdraw money by means of withdrawal form\cheque supplied by the bank on requisition in the prescribed form. The account holder himself must present the withdrawal slip along with the passbook. An illiterate depositor should lodge with the bank his latest photograph in which case he need not has his thumb impression attested by the witness every time he withdraws money. 50 withdrawals in half year are permitted. Passbook: Every account holder will be provided with a pass book. He should verify that all the entries in the passbook are maintained correctly and signed by the bank officials. It should be got updated frequently, at least once a fortnight.

20

DISADVANTAGES OF EXISTING SYSTEM

The existing system suffers from the following drawbacks in general: Risk of issuing the same account number to two or more customers which can create great problem later on identifying the correct person. Re petition of some (incorrect and unchecked) details in so many papers resulting in redundancy.

Manual record keeping of large number of customers in the form of day by day vouchers and supplementary books is a cumbersome task. No query system is available at present, so a person has to waste a lot of time and efforts to search out a particular record.

It is time consuming and cumbersome to generate a number of different lists likeledgers, passbook, and customers list dependent upon different conditions. Totaling, accounting and balancing of books is a time consuming and cumbersome task.

21

INTRODUCTION TO BANK

22

WHAT IS A BANK ?
A bank is an institution which accepts deposits, withdrawals by cheques and makes loans and advances interest for the purpose of earning profits. The banking has become the under current of modern economic development. The bank gives the following options to the customers:a) Saving Account b) Recurring Deposit Account c) Current Account d) Fixed Deposits e) Loan Facility

RECURRING ACCOUNT
The following activities are undertaken in recurring account section of the bank. 1. Opening of the account 2. Deposits in the account 3. Withdrawals 4. Closing of the account 5. Balance enquiry The detailed description of each and every activity mentioned can be given as:1. Opening of account: - Recurring can be opened with a minimum initial of Rs.500 and there is no maximum limit. While opening a recurring account, opening form and a recent photograph of the person himself, introduced through an existing account holder of the bank are to be submitted. The concerned officer gets the signature of the person, confirms and allows the account to be opened by signing the account opening form. Customer can open his/her recurring account by these ways: He/She can open his/her recurring account for less than three months. He/She can open his/her recurring account up to 3 months to 12 months. He/She can open his/her recurring account up to 12 months to 36 months. He/She can open his/her recurring account for more than 36 months.

23

2 . Deposit in the account : - For depositing any amount in the recurring account the customer fills in the cash or cheque or pay-in-slip as the cash may be and deposit the same with cashier or clearing officer. The cashier or clearing officer after completing their procedure send the pay-in-slip inn the recurring account section. The credit slip is posted in the respective recurring account and the balance is updated by the computer clerk after comparing recurring account number. The account holder name with the ledger is send to the concerned officer for checking The officer checks the particulars of slip with the ledger account and puts his initials on the pay-in-slip and on the credit entry and the balance in the ledger in confirmation of having afforded the credit Or recurring account. In recurring account you are bond to deposit some deposit in every month from which he opened his recurring account.

Withdrawal: -Customer can not withdraw amount from RECURRING ACCOUNT

before maturity date. If any customer withdraws amount from recurring account before maturity date then bank is bound to deduct some charges from his\her actual amount plus interest.

24

INTRODUCTION ABOUT PROJECT

25

PROPOSED SYSTEM
For decades banks were dealing with class banking which didnt care for continues & systematic introspection. Over the years phenomenon changes have taken place in Indian banking system both qualitatively & quantitively, but the systems and procedures have not been properly received, streamlined and geared to meet the new challenges and to serve the customer, may be because historically banks in India have been conservative, traditionally bound & groomed in culture of abundant caution. The system determined effectiveness, efficiency and economy of operation and which in turn have bearing on customer services, productivity & cost of operation. In the proposed system data will be entered in the com putter online. The data is entered at the time of opening an account & after checking a unique account number is assigned to him\her. All particulars are filled in the data entry Performa designed as a screen Performa and given online on the compute. A person has to fill all the codes in the application Performa designed for opening the account., All the particulars like name, address, account no., date of opening an account etc. will be entered into the computer and after making money transaction various reports can be generated. In the computerized system, it is proposed to generate screen layout for all bank activities. Firstly the data entry, data editing & deletion of the customer is the major task to be kept under the maintenance head. The operator cannot only add new records but can also edit the existing data (in case mistakes) only the data has to be updated on the basis of available key. After making the database, the activities of money transaction (depositing\withdrawing) are to be taken. Also it is proposed to prepare screen so as to decide policy of various reports at run tome.

26

ADVANTAGES OF PROPOSED SYSTEM

A single computer can handle all the processors of transaction so there is no need of maintaining the books of accounts.

All the details about a particular person can be seen and even modified by pressing a key.

Misplaced information records can be retrieved from the computer system.

The overall process is time saving.

Automatic generation of account number.

Search operation becomes much faster.

Maintenance is much simple through computer. Any person having knowledge about computers can handle it very easily.

Accounts are automatically balanced.

Various reports based on the data available can be generated much faster.

The overall process is very economical.

27

SYSTEM DESIGN

28

SYSTEM DESIGN
INTRODUCTION-:
Design specification is the foundation for all programmed implementation. The design logic described there is detailed enough so that all the required functions are satisfied, system files are defined, all logic connecting programmed module are defined. The design is done in the sufficient detail that logic problems are solved complete programmed systems hang together. The lowest level of programmers is specified in terms of functions. It must perform pictorial layout of all system files describing all subdivisions. Flow charts are used to describe the major transactions in the system respective of actual logic structure of the system. The intent is to provide an understanding of data and major events in the operational system. The system design is mainly divided into two main parts-: LOGICAL DESIGN PHYSICAL DESIGN The details of the above are as follows-:

LOGICAL DESIGN Main Form:- This is the main menu, it is a first form. It gives user five options. The
first option is Account. Under this option the user gets to perform various operations on savings or recurring accounts. The operations include opening, closing, and modification of the account. The second option is TRANSACTION, Under this option the user can balance enquiry, deposit or withdraw money from his savings account . The third option available is DATA, Through this option the user is able to view the existing records in a report format and The user can see the already existing records in a random or sequential manner, according to his choice. The fourth and last option is EXIT. Through this option the user can exit form the project.

29

DATA DICTIONERY

30

PROGRAM LISTENING

31

FORM INDEX
@ CUSTOMER INFORMATION.FRM @ OPENING.FRM @ MODIFICATION.FRM @ DEPOSIT.FRM @ WITHDRAWL.FRM @ CLOSE ACCOUNT.FRM @ BALANCE INQUERY.FRM @ TRANSACTION CLOSE.FRM @ CUSTOMER INFORMATION.FRM

32

CHAPTER 6 (SNAP SHOTS) OF (FORMS)

33

34

35

36

37

38

39

40

41

42

43

44

45

46

APPENDIX

47

Coding Of Personal Information Form

Private Sub Command1_Click() On Error Resume Next If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Combo1.Text <> "" And Text4.Text <> "" And Text5.Text <> "" And Text6.Text <> "" Then rs.Open "Information", con, 1, 2 rs.AddNew If Text4.Text <= 18 Then MsgBox "Not able to Open an Account", vbCritical, "Warning" Text4.SetFocus Timer1.Enabled = False ProgressBar1.Visible = False Else Timer1.Enabled = True ProgressBar1.Visible = True rs!First_Name = Text1.Text rs!Last_Name = Text2.Text rs!Father_Name = Text3.Text rs!Status = Combo1.Text rs!Male = Option1.Value rs!Female = Option2.Value rs!Birth_Date = DTPicker1.Value rs!Zip_Code = Text5.Text rs!Address = Text6.Text rs!Contact_Number = Text7.Text End If Else MsgBox "All Fields Are Compulsary", vbCritical, "Error" End If rs.Update End Sub Private Sub Command2_Click() Unload Form1 End Sub

48

Private Sub Timer1_Timer() If ProgressBar1.Value >= 100 Then Form2.Show Me.Hide Timer1.Enabled = False ProgressBar1.Visible = False ProgressBar1.Value = 0 Else ProgressBar1.Value = ProgressBar1.Value + 10 End If End Sub

49

Coding Of Form2
Private rs1 As New ADODB.Recordset Dim a As Variant Public rs2 As New ADODB.Recordset Private Sub Command1_Click() On Error Resume Next Dim a As Integer If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" And Text5.Text <> "" And Combo1.Text <> "" Then If Text5.Text < 500 Then MsgBox "Min Of 500 Rs Deposite", vbInformation, "Condition" Text5.SetFocus Else rs.Open "Information", con, 1, 2 rs!Card_Number = Text1.Text rs!Account_Number = Text2.Text rs!Account_Name = Text3.Text rs!Pin_Code = Text4.Text rs!Initial_Deposite = Text5.Text rs!Account_Type = Combo1.Text rs!General = Check1.Value rs!SC = Check2.Value rs!BC = Check3.Value rs!OBC = Check4.Value rs!ST = Check5.Value rs!Date = Date rs!Time = Time rs.Update rs1.Open "Transaction", con, 1, 2 rs1.AddNew rs1!Total_Amount = Text5.Text rs1!Account_Number = Text2.Text rs1!Account_Type = Combo1.Text rs1!Account_Name = Text3.Text rs1!Time = Time rs1!Date = Date rs1.Update MsgBox "Account Has Been Created", vbInformation, "Verification"
50

Form1.Show Unload Me End If Else MsgBox "Enter All Values", vbCritical, "Error" End If rs.Close End Sub

51

Coding Of Balance Enquiry

Private rs1 As New ADODB.Recordset Private Sub Command1_Click() On Error Resume Next rs.Open "Information", con, 1, 2 rs1.Open "Transaction", con, 1, 2 Dim str As String a = InputBox("Enter Account No:", "Balance Inquiry") rs.MoveFirst rs1.MoveFirst If a <> "" Then str = "Account_Number=" & a rs.Find str rs1.Find str If rs.EOF Then MsgBox "DETAIL'S NOT FOUND", vbExclamation, "Unknown Result" rs.MoveFirst rs1.MoveFirst Else Label5.Caption = rs!Account_Number Label7.Caption = rs!Account_Name Label8.Caption = rs!Address Label9.Caption = rs!Account_Type Label10.Caption = rs1!Total_Amount End If End If rs.Close rs1.Close End Sub Private Sub Command2_Click() Unload Me End Sub

52

Coding Of Close Account

Public rs1 As New ADODB.Recordset Private Sub C_Click() Unload Me End Sub Private Sub Command1_Click() On Error Resume Next Dim str As String a = InputBox("Plz Enter Account No:", "For Close Account") rs.Open "Information", con, 1, 2 rs.MoveFirst If a <> "" Then str = "Account_Number=" & a rs.Find str If rs.EOF Then If MsgBox("DETAIL'S NOT FOUND", vbAbortRetryIgnore, "Unknown Result") = vbIgnore Then Me.Hide End If rs.MoveFirst Else Text1.Text = rs!First_Name Text2.Text = rs!Last_Name Text3.Text = rs!Father_Name Combo1.Text = rs!Status Option1.Value = rs!Male Option2.Value = rs!Female DTPicker1.Value = rs!Birth_Date Text4.Text = rs!Zip_Code Text5.Text = rs!Address Text6.Text = rs!Card_Number Text7.Text = rs!Account_Number Text8.Text = rs!Account_Name Text9.Text = rs!Pin_Code Text10.Text = rs!Initial_Deposite Text11.Text = rs!Contact_Number Combo2.Text = rs!Account_Type
53

Option3.Value = rs!General Option4.Value = rs!SC Option5.Value = rs!BC Option6.Value = rs!OBC Option7.Value = rs!ST End If End If Command2.Enabled = True End Sub Private Sub Command2_Click() rs!First_Name = Text1.Text rs!Last_Name = Text2.Text rs!Father_Name = Text3.Text rs!Status = Combo1.Text rs!Birth_Date = DTPicker1.Value rs!Zip_Code = Text4.Text rs!Address = Text5.Text rs!Card_Number = Text6.Text rs!Account_Number = Text7.Text rs!Account_Name = Text8.Text rs!Pin_Code = Text9.Text rs!Initial_Deposite = Text10.Text rs!Contact_Number = Text11.Text rs!Account_Type = Combo2.Text rs!General = Option3.Value rs!SC = Option4.Value rs!BC = Option5.Value rs!OBC = Option6.Value rs!ST = Option7.Value rs.Delete Form9.Show MsgBox "Account Has Been Deleted", vbCritical, "Account Delete Successfull" Command2.Enabled = False rs.Close Unload Me End Sub

54

Coding Of Deposite
Private Sub Command2_Click() Dim str As String On Error Resume Next rs1.Open "Transaction", con, 1, 2 a = InputBox("Enter Account No:", "For Deposite Money") rs1.MoveFirst If a <> "" Then str = "Account_Number=" & a rs1.Find str If rs1.EOF Then If MsgBox("DETAIL'S NOT FOUND", vbAbortRetryIgnore, "Unknown Result") = vbIgnore Then Me.Hide End If rs1.MoveFirst Else Label4.Caption = rs1!Account_Number Label5.Caption = rs1!Account_Name Label6.Caption = rs1!Total_Amount Label11.Caption = rs1!Account_Type End If End If Submit.Enabled = True End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Option1_Click() If Option1.Value Then Label10.Enabled = False Text3.Enabled = False Label8.Enabled = True Text2.Enabled = True Text3.Text = "" End If End Sub
55

Private Sub Option2_Click() If Option2.Value = True Then Label10.Enabled = True Text3.Enabled = True Label8.Enabled = False Text2.Enabled = False Text2.Text = "" End If End Sub Private Sub Submit_Click() bal = rs1!Total_Amount rs1!Total_Amount = bal + Val(Text1.Text) Label6.Caption = rs1!Total_Amount rs1!Form = Text2.Text rs1!Cheque = Text3.Text rs1!Date = Date rs1!Time = Time rs1.Update If Option1.Value Then rs1!Money_Type = Option1.Caption End If If Option2.Value Then rs1!Money_Type = Option2.Caption End If MsgBox "Amount Deposited", vbOKOnly, "Verification" Submit.Enabled = False Text1.Text = "" Text2.Text = "" Text3.Text = "" Option1.Value = False Option2.Value = False Label8.Enabled = True Label10.Enabled = True Text2.Enabled = True Text3.Enabled = True End Sub

56

Coding Of Customers Information

Dim rs1 As New ADODB.Recordset Private Sub Command1_Click() a = InputBox("Enter Account No:", "For Finding A Customer A/C Separately") MSHFlexGrid1.Visible = True Set rs1 = New Recordset rs1.Open "select Account_Number,First_Name,Last_Name,Status,Birth_Date,Father_Name,Addres s,Zip_Code,Account_Name,Card_Number,Pin_Code,Initial_Deposite,Account_Ty pe,Contact_Number,Date,Time,Male,Female,General,SC,BC,OBC,ST from Information where Account_Number='" & a & "' ", con, 1, 2 If rs1.EOF Then MsgBox ("No Record's Found For Entering Account Number!"), vbExclamation, "Unknown Result" Else Set MSHFlexGrid1.DataSource = rs1 End If End Sub Private Sub exit1_Click() Unload Me End Sub Private Sub Form_Load() MSHFlexGrid1.Visible = False End Sub Private Sub Option1_Click() If Option1.Value Then DataGrid1.Visible = True MSHFlexGrid1.Visible = False Else DataGrid1.Visible = False End If End Sub

57

Private Sub Option2_Click() If Option2.Value Then MSHFlexGrid1.Visible = True DataGrid1.Visible = False Else MSHFlexGrid1.Visible = False End If End Sub Private Sub search_Click() DataGrid1.Visible = False MSHFlexGrid1.Visible = True Set rs = New Recordset rs.Open "select Account_Number,First_Name,Last_Name,Status,Birth_Date,Father_Name,Addres s,Zip_Code,Account_Name,Card_Number,Pin_Code,Initial_Deposite,Account_Ty pe,Contact_Number,Date,Time,Male,Female,General,SC,BC,OBC,ST from Information where Account_Type='" & Combodname.Text & "' ", con, 1, 2 If rs.EOF Then MsgBox ("No Record's Found For Selected Account Type!"), vbExclamation, "Unknown Result" Else Set MSHFlexGrid1.DataSource = rs End If End Sub

58

Coding Of Transaction Close

Private Sub Command1_Click() On Error Resume Next Dim str As String a = InputBox("Plz Enter Account No:", "For Transaction") rs.Open "Transaction", con, 1, 2 rs.MoveFirst If a <> "" Then str = "Account_Number=" & a rs.Find str If rs.EOF Then MsgBox "DETAIL'S NOT FOUND", vbExclamation, "Unknown Result" rs.MoveFirst Else Text1.Text = rs!Account_Name Text2.Text = rs!Account_Number Text3.Text = rs!Cheque Text4.Text = rs!Form Text5.Text = rs!Total_Amount Text6.Text = rs!Amount_Withdraw Text7.Text = rs!Account_Type End If End If End Sub Private Sub Command2_Click() Text1.Text = rs!Account_Name Text2.Text = rs!Account_Number Text7.Text = rs!Account_Type rs.Delete MsgBox "Transaction Del", vbCritical, "Warning" rs.Close Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = ""
59

Text7.Text = "" Text8.Text = "" End Sub Private Sub Command3_Click() Unload Me End Sub

60

Coding Of MDI Form1

Private Sub bi_Click() Unload Me Form3.Show End Sub Private Sub cd_Click() Unload Me Form8.Show End Sub Private Sub clsacc_Click() Unload Me Form4.Show End Sub Private Sub cna_Click() Unload Me Form1.Show End Sub Private Sub dp_Click() Unload Me Form5.Show End Sub Private Sub exit_Click(Index As Integer) End End Sub Private Sub ext_Click() End End Sub Private Sub info_Click() Unload Me Information.Show End Sub
61

Private Sub ma_Click() Unload Me MODIFY.Show End Sub Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Dev End If End Sub Private Sub na_Click() ProgressBar1.Visible = True Timer1.Enabled = True End Sub Private Sub nc_Click() Unload Me Form4.Show End Sub Private Sub Timer1_Timer() If ProgressBar1.Value >= 100 Then Unload Me Form1.Show Timer1.Enabled = False ProgressBar1.Value = 0 ProgressBar1.Visible = False Else ProgressBar1.Value = ProgressBar1.Value + 10 End If End Sub Private Sub transction_Click() Unload Me Transaction.Show End Sub
62

Private Sub wd_Click() Unload Me Withdrawl.Show End Sub

63

Coding Of Modify Account

Private rs1 As New ADODB.Recordset Private Sub C_Click() Unload Me End Sub Private Sub Command1_Click() On Error Resume Next Dim str As String a = InputBox("Enter Account No:", "For Modify") rs.Open "Information", con, 1, 2 rs.MoveFirst If a <> "" Then str = "Account_Number=" & a rs.Find str If rs.EOF Then If MsgBox("DETAIL'S NOT FOUND", vbAbortRetryIgnore, "Unknown Result") = vbIgnore Then Me.Hide End If rs.MoveFirst Else Text1.Text = rs!First_Name Text2.Text = rs!Last_Name Text3.Text = rs!Father_Name Combo1.Text = rs!Status Option1.Value = rs!Male Option2.Value = rs!Female DTPicker1.Value = rs!Birth_Date Text4.Text = rs!Zip_Code Text5.Text = rs!Address Text6.Text = rs!Card_Number Text7.Text = rs!Account_Number Text8.Text = rs!Account_Name Text9.Text = rs!Pin_Code Text10.Text = rs!Contact_Number Combo2.Text = rs!Account_Type Option3.Value = rs!General
64

Option4.Value = rs!SC Option5.Value = rs!BC Option6.Value = rs!OBC Option7.Value = rs!ST Command2.Enabled = True End If End If End Sub Private Sub Command2_Click() On Error Resume Next rs.Open "Information", con, 1, 2 rs!First_Name = Text1.Text rs!Last_Name = Text2.Text rs!Father_Name = Text3.Text rs!Status = Combo1.Text If Option1.Value Then rs!Gender = Option1.Caption End If If Option2.Value Then rs!Gender = Option2.Caption End If rs!Birth_Date = DTPicker1.Value rs!Zip_Code = Text4.Text rs!Address = Text5.Text rs!Card_Number = Text6.Text rs!Account_Number = Text7.Text rs!Account_Name = Text8.Text rs!Pin_Code = Text9.Text rs!Contact_Number = Text10.Text rs!Account_Type = Combo2.Text rs1.Open "Transaction", con, 1, 2 rs1!Account_Name = Text8.Text rs1!Account_Number = Text7.Text rs1!Account_Type = Combo2.Text rs!General = Option3.Value rs!SC = Option4.Value rs!BC = Option5.Value rs!OBC = Option6.Value rs!ST = Option7.Value
65

rs1!Date = Date rs1!Time = Time Command2.Enabled = False rs.Update rs1.Update MsgBox "Account Has Been Modified", vbInformation, "Successfull" rs.Close End Sub Private Sub Command3_Click() Unload Me End Sub

66

Coding Of Withdrawal
Private Sub Command1_Click() On Error Resume Next rs1.Open "Transaction", con, 1, 2 Dim str As String a = InputBox("Enter Account No:", "For Withdrawl Money") rs1.MoveFirst If a <> "" Then str = "Account_Number=" & a rs1.Find str If rs1.EOF Then If MsgBox("DETAIL'S NOT FOUND", vbAbortRetryIgnore, "Unknown Result") = vbIgnore Then Me.Hide End If Command1.Enabled = True rs1.MoveFirst Else Label4.Caption = rs1!Account_Number Label10.Caption = rs1!Account_Name Label12.Caption = rs1!Account_Type Label13.Caption = rs1!Total_Amount End If End If Command3.Enabled = True End Sub Private Sub Option1_Click() If Option1.Value Then Text2.Enabled = False Text1.Enabled = True Text3.Text = "" End If End Sub

67

Private Sub Option2_Click() If Option2.Value = True Then Text2.Enabled = True Text1.Enabled = False Text2.Text = "" End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() If Text3.Text > Val(Label13.Caption) Then MsgBox "Please Enter Valid Amount" Else If Text3.Text <> "" Then bal = rs1!Total_Amount rs1!Total_Amount = bal - Val(Text3.Text) Label13.Caption = rs1!Total_Amount bal1 = rs1!Amount_Withdraw rs1!Amount_Withdraw = bal1 + Val(Text3.Text) MsgBox "Money Withdrawl Successfull", vbInformation, "Thank You" rs1!Cheque = Text1.Text rs1!Form = Text2.Text rs1!Date = Date rs1!Time = Time rs1.Update If Option1.Value Then rs1!Money_Type = Option1.Caption End If If Option2.Value Then rs1!Money_Type = Option2.Caption End If Else MsgBox "Amount Field Is Compulsary", vbExclamation, "Error" Command3.Enabled = True End If End If If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
68

Text3.SetFocus End If Command3.Enabled = False Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub

69

Coding Of Module1
Public Const con As String = "dsn=BBB" Public rs As New ADODB.Recordset Public rs1 As New ADODB.Recordset

70

End Of Project

71