CERTIFICATE OF APPRECIATION
TO WHOM IT MAY CONCERN
This is to be certifying that the project submitted under title “BANKING” developed by bonafied and unique piece of work carried out under my supervision and guidance. He worked about 3 months on the systems analysis and system design. I wish them best of luck in future. He did following jobs during their project work at site and college.
System Study
- Data Collection
- Program Coding
- Testing
- Data Entry and Documentation
ACKNOWLEDGEMENT
I sincerely extend my thanks and gratitude to the Director sir, for granting me permission to do my project work and helped by encouraging me to complete the project in systematic manner.
I greatly indebted to for his painstaking efforts in making the project a success and possibility. His keen interest and fine ability helped me to complete the project.
I am also thankful to my parents who
Encourage me to complete the project in time and also to
My friends who are a source to content inspiration to me.
| SrNo. | Chapter Title | Page No. |
| 1 | INTRODUCTION | 1 |
| 2 | Introduction | 6 |
| - Tables & Er. Diagrams | 13 | |
| - Validations checks | 17 | |
| - Tools / Platforms | 18 | |
| - Future applications of the project | 19 | |
| -IT | ||
| 3 | System Analysis | |
| - Identification of need | 20 | |
| - Preliminary Investigation | 25 | |
| 4 | Feasibility Study | 28 |
| 5 | S/W Engg. Paradigm Applied | |
| 6 | Software & Hardware Requirements/Specifications | 60 |
| 7 | System Design | 61 |
| 8 | Data Structure | 64 |
| 9 | Coding | 66 |
| -form design | 113 | |
| 10 | Code Efficiency | 130 |
| 11 | Validation Checks | 131 |
| 12 | Implementation and Maintenance | 132 |
| 13 | PERT Chart, Gantt Chart | 134 |
| 14 | Future Scope of the project | 135 |
| -scope of project | ||
| 15 | Bibliography | 136 |
| -books name | ||
| 16 | Glossary | 137 |
| 17 | Conclusions | 138 |
INTRODUCTOIN
Banking is the interesting subject. It provides some important or special services to their customers. Bank
Provide saving money, It gives loans to their customer
Or some other facilities like ATM cards, CREDIT cards.
Banks offer the customer to open new account in the bank. Accounts are two types like single account and
Joint account. Single account has one owner where as Joint account has two or three owner. Bank also offers checkbook facility to the customer.
Following are some rules you followed when you open a new account in the State Bank of India:
1. Please DO NOT Introduce any person to the Bank for propose of opening an account unless you know him/her well.
2. The attention of the depositor I invited to the Saving Bank Account rules, which govern the conduct of the Savings Bank Accounts. A copy of the rules may be called for, if not already received.
3. For facility of the depositors, certain extracts from the rules concerning the importance of the pass book and governing the mode of withdrawals have been reproduced at the end of the pass book.
4. Nomination facility is available.
EXTRACTS FROM SAVING BANK RULES
1.The conduct of the Saving Bank Accounts is governed by the Saving Bank Rules, a copy of which may be called for, if not already receive. Extracts from certain Rules have been reproduced hereunder for ready reference of the Account Holders.
2.Account Holders are advised not to give introduction for opening of new accounts to persons who are not personally known to them.
3.Account Holders are expected to adhere to and subscribe uniform signature as per their specimen recorded with the Bank, while operation their accounts or addressing any correspondence to it
4.Nomination facility is available for all types of accounts . As an alternative joint accounts with survivorship benefits may be opened.
5. The center –wise minimum balances, which must be maintained in the two types of Saving Bank Accounts, are as under Violation of this stipulation will attract a service charge a mentioned in the brackets. No Ceiling on the maximum balances is prescribed.
| Metropolitan | Urban | Semi-Urban | Rural | |
| i)SB with cheque book facility | Rs. 1000/- | Rs. 1000/- | Rs. 1000/- | Rs. 500/- |
| Service Charge per quarter | Rs. 50/- | Rs. 50/- | Rs. 50/- | Rs. 25/- |
| ii)SB ordinary accounts or without cheque book facility | Rs. 500/- | Rs. 500/- | Rs. 500/- | Rs. 250/- |
| Service Charge per quarter | Rs. 25/- | Rs. 25/- | Rs. 25/- | Rs. 15/- |
6.Account Holders should examine the entries carefully made in their passbook and draw Bank’s attention to any errors or omissions that may be discovered. The Bank will not accept any responsibility for any loss arising out of his failure to carry out examination of entries in the passbook not authenticated under the initial of its authorized officials.
7.THE PASS BOOK MUT BE PRESENTED OR ALL WITHDRAWALS OTHER THAN BY CHEQUES Deposits may be made without the production of the passbook. The Account Holders should ensure that their passbook is presented at intervals for updating. A passbook tendered while transacting or for completion of entries will be made-up and returned to the Account Holders or to their authorized representative the same day. If left overnight, the Bank will issue a receipt in the form of a paper token which must be surrendered in exchange of the passbook within a week, failing which the Bank will dispatch the passbook to them by registered AD post as their costs.
8. The account Holders should keep their passbook and cheque books in a place of safety. The Bank will not be responsible for any loss or incorrect payment attributable to the neglect of this rule.
9. If a passbook is lot or spoiled a cheque of Rs. 20/- will be levied for a duplicate passbook, which will be issued only after due enquiry. Additional charge of Rs. 20/- per ledger folio (40 entries) will be collected for copying the previous entries.
10. Cash deposit for less than Rs. 10/- will not be accepted, exceptions being made for transfer credits and instrument
Lodged for credit of the accounts. Accounts Holders are advised to preserve the duly stamped and acknowledged counterfoils of the day in slips at leat till the relative entries are made and authenticated in their pass books
11. In satisfactorily conducted accounts immediate credit will be afforded for outstation instruments for account upto Rs. 15,000/-.
12.Bank`s standered withdrawal form must be used for withdrawing monies otherwise then by cheques, Withdrawal forms cannot be used for making payments to third parties.Amount smaller than Rs. 50/- cannot be withdrawn and all withdrawals must be multiple of rupee one only.For withdrawing monies through authorised representative a letter of authority (In the prescribed form) duly signed should be presented along with the passbook. The thumb impression of the illiterate Account Holders on the letter of authority should be attested by two persons known to the bank or by a magistrate under his court seal.
13. Cheques must be written legibly and all alterations/cuttings must be authenticated under full signature of the Account Holder. Cheques should be drawn in a way as to prevent any alterations or insertions after their issue.
14.The Bank will register top payment instructions from the Account Holders in respect of cheques lost, stolen etc, but cannot grantee the against loss in the event of such cheques being paid inadvertently.
15.A Service charge of Rs.2/- for MICR cheque room and Rs.1/- for non-MICR cheque form will be recovered for cheque forms issued in excess of ixety in a calandar year.
16.The maximum number of debit entries (by withdrawal, cheques or letters) permitted in an account is fifty per half year. A SERVICE HARGE OF Rs.10/- per extra entery in excess of the ceiling will be debited to the account at the time of yearly application of interest.
17.A service charge of Rs. 50/- p.a. will be recovered in respect of accounts remaining inoperative (no deposit and no withdrawal) for a continue period of twenty-four months. This charge will be recovered only in account having balances below the stipulated minimum in term. If the balance is equal to or less than Rs. 50/- the account will be acepted for a normal charge of Rs. 25/-.
18. Standing instructions for peroidical payment of insurance premium, membership fees etc. By debit to the account will be accepted for normal charge of Rs. 25/- .
19. Interest will be calculated for each calendar month on the lowest balance between the close of the tenth and the last day of the month. It will be compounded half yearly and credited to the accounts yearly on or before 10th of January. The current rate of interest can be ascertained at the Bank. Any change in rate, which is governed by the RBI (Reserve Bank Of India) directives, is notified through advertisement in the newspapers.
20.Account, if closed within twelve months of its opening, will attract a service charge of Rs. 100/-.
Project Category
Since Visual Basic is the popular GUI based language used to develop software. Here I use Oracle 8i as back end databases tool. To this project is a RDBMS based project. The data store in the SQL tables can be manipulated using Oracle or Developer 2000 or Crystal Reports Or Oracle in-built reports.
TABLES AND E-R DIAGRAMS
1.Customer_Detail:
| Field_Name | Description | Type | Width_Dec. | Data_Sample |
| A/c_no. | Account_no | Number | 25 | 655657646534 |
| Name | Customer_Name | Char | 20 | Amritpal Singh |
| Locality | Customer_Address | Varchar | 35 | 29,Sundar Nagar |
| City | City_Name | Char | 15 | Jalandhar |
| Phone | Phone Number | Number | 25 | 9800000001 |
| A/C Opening Date | Date | 8 | 1-June-2007 | |
| Balance(Rs.) | Balance(Rs.) | Number | 20 | 25000 |
E-R Diagram for the table is :
2.INTEREST_DETAIL:
| Field_name | Description | Type | Width_Dec | Data |
| A/C_no. | Account number | Number | 5 | 42514 |
| Appl_date | Apply date | Date | 2-Aug-2007 | |
| From_mon | From month | Number | 15 | August |
| From_year | From year | Number | 15 | 2007 |
| Upto_mon | Upto month | Number | 10 | August |
| Upto_year | Upto year | Number | 10 | 2008 |
| Amount | Amount | Number | 15 | 20000 |
E-R Diagram for this table is:
3.LOGIN DETAIL:
| Fiel_Name | Description | Type | Width_Dec. | Data_Sample |
| User_Name | User Name | Varchar2 | 15 | Amit |
| User_Pass | User Password | Varchar2 | 10 | 9211A |
| Admin_Name | Administrator Name | Varchar2 | 10 | Rahul |
| Admin_Pass | Administrator Password | Varchar2 | 10 | PP212 |
E-R Diagram for this table is:
 |  |
4.TRANSACTION_DETAIL:
| Field_Name | Description | Type | Width_Dec. | Data_Sample |
| A/C_No. | Account Number | Number | 5 | 12441 |
| Trans | Transaction | Varchar2 | 10 | |
| Amount | Amount | Number | 10 | 5000 |
| Trans_Date | Transaction_Date | Date | 2-Sept-2007 | |
| Pers_Name | Person Name | Varchar2 | 10 | Sumit |
| Balance | Balance | Number | 10 | 50000 |
E-R Diagram for this table is:
VALIDATION CHECKS:
1. All the primary key fields Should not be 0 or -ve or repeated
2. If account no, policy no etc are not found then display and error message.
3. In case of rcpt entry, check the current TRIAL balance to check - whether the accounts holder is defaulter or not ? If defaulter the charge fine.
4. The case - which is pending, it should not be accepted by the rcpt entry.
5. The cases with 1 MONTH balance payment ( dr. ) - should be considered as defaulters.
Tools/Platform, Languages to be used.
Language used : Visual Basic 6
Back end tool : Oracle 8
HARDWARE
PII or Higher Processor
40 GB HDD
1 FDD
MONITOR, KEYBOARD, MOUSE AND PRINTER
SOFTWARE
WINDOWS 9X OS, VB6 AND ORACLE.
future Applications of The Project
1. Since this project is linked with the Internet. So any time we can send mail to the clients or the top mgt of PO authortieis to get the latest position of the deposits.
2. The data can be shared using a network.
3. Since Oracle 8i is a powerful RDBMS, So the s/w can be also be accessed using other programming languages i.e. GUI tools like X-WINDOWS tools.
4. The URL of the VB6 & Oracle 8i can be connected for E-Commerce purpose.
Identification of need
Developing a system is just like a manufacturing unit where some raw material and man power is used to produce the goods – in computer system, the data and fed to computer for processing. The results produced by figures are computer is called information and have value of its users. On the basic of information we can take valuable decisions.
In the later 1980, this process it was known as Computerization, but in 1990s it’s name is more popular under the title “Information Technology”. According to an author Peter Norton, the amount of information we have produced from 1990 to till today is much much more than what information we have produced in last 3000 years. So like industrial revolution, milk revolution and and green revolution – there is a revolution in field of Computers – so that’s why it becomes an technology called “Information Technlogy”.
A system is defined as the organized collection of components works in a coordinated manner, to achieve an objective. There three main implications of a system i.e.
1. A system must have a predetermined objective(s).
2. There must be interrelationship and interdependence among the system components.
3. The objective of organization as whole has higher priority than the objective of an individual component.
Characteristics of a system :
1. Organization : It means all the parts of a software system must be properly arranged in order and structure.
2. Interaction : All the components of a system must interact with other components to achieve the objective.
3. Interdependence : One part of a system must depends upon other component for proper working. It means the output of one part may be feed to the other component as input.
4. Integration : It means holism; which means the collection of all the components.
5. Central Objective : Each system must have one central objective.
Components of a system
1. Output and input : The output are the outcomes of a system and input are the data, figures and raw material fed into computer for processing.
2. Processor(s) : It is the operational component of a system. In an industry, plant & machinery is used to convert the incoming material to the finished goods – but in a computer system; operating system, language & DBMS package helps the user to convert the input data into output data.
3. Control : It is the decision making subsystem of a system. It deals with management of resources and other components; Operating system.
4. Feedback : A feedback may be –ve or +ve. These feedback factors gives the idea to improve the system.
5. Environment : It is the supra system in which system operates; like users, offices and labs.
6. Boundaries and interfaces : It is the limit which help us to identify the system components.
stages of a life cycle :
Like Nitrogen & Production cycle – a Software system is just like a cycle which passes the following stages like:
1. Recognition of need.
2. Feasibility study.
3. Analysis.
4. Design.
5. Implementation & Maintenance
1. Recognition of need : This steps is to be taken by the authorities of the organization. The old system has many limitations, which will be discussed in the system analysis part of this project. The Initial Investigation mainly deals with
· Recognition of need
· Ability of users
· Finance involved
· Current system and how new system will rectify the problems of old one.
· It is also possible that an old or computerized system can be replaced by computerized in the SAD.
2. Feasibility Study : This study deals with : Technical Feasibility . It is related with the technical specifications of the projects. It focus on the three major questions : Hardware & software available in market
H/W & S/W required Potential of the hardware.
Economics Feasibility : It deals with the cost benefit analysis. It includes the expenses like H/W, S/W, installation cost, furniture, fixture, wages, salaries etc.
Operational Feasibility : It basically concern with the operational environment capabilities of a project. It focus on ability of users, user friendliness of the projects, nature of working environment provided & ergonomics.
3. Analysis : Analysis is the study of checking the relationship of components with the environment and other parts of the system. This stages deals with “What is to be done to design the candidate system ?”.
4. Design : It is the most creative and challenging phase of system development. It deals with converting input into output. It contains output design, input design, file or database design and processing design.
5. Implementation & Maintenance: It is the less creative stage of life cycle in which new system will replace the old system completely or partially. There are three types of conversion : Direct, Phase wise and pilot. It also deals with backup, recovery, security and reliability measures of the cycle.
Preliminary Investigation
Previous System.
Fact finding means to trace the following factors in the field of SYSTEM ANALYSIS AND DESIGN. The fact finding passes through the following stages.
1. To check the performance of old system.
2. Problems in the
3. Old system.
4. Recommendations which can rectify the problems.
5. The management biases.
6. The user limitations.
7. Present hardware and software.
8. Finance
Fact-finding is also called feasibility study. SYSTEM ANALYSIS AND DESIGN is just as a manufacturing unit in which raw material is entered as input, machine and plant work as process and products/finished goods as output. In the SAD the raw data is the input, programs is the processes and information is output. Some time if the information is not up to the standards then the output can be fed to the system as input - It means it work as a cycle. So that why SAD is also called SDLC i.e. System Development Life Cycle. During the system analysis, it is found that the old system is the manual system. The old system has following advantages
1. It was very difficult to maintain the bills, complaints register, subscribers’s reports and bulky bills preparations.
2. No automated tool like COMPUTER is used for the processing.
3. It is difficult to get the prompt case position.
4. Difficult to keep the provide ON-LINE information to the management, customer, clients & subs.
5. More staff was required.
6. Old system has following limitations
1. Not up-to-date
2. Less security
3. Data duplicacy
4. Not centralized
5. Slow in process
Proposed System.
The new recommended is the computerized, which has many advantages over the old one.
1. Since the overall system is under the control of Data Base Administrator (DBA) - hence the system us centralized one.
2. The security and privacy is more in case of new system.
3. The long process can be shortened.
4. Easy to maintain the reports
5. One deletion can delete all the related enteries.
6. Each to check the consistency of entries.
7. Fast in process as compared to manual system.
Feasibility Studies.
There are three feasibility studies : Technical, Economic and Behavioral or Operational . Feasibility is the most successful system projects are not necessarily the biggest or most visible in a business but rather those that truly meet user expectation. FEASIBILITY CONSIDERATION:
ECONOMIC FEASIBILITY: Economic analysis is most frequently used method for evaluating the effectiveness of candidate system. More commonly known as cost and benefits analysis.
TECHNICAL FEASIBILITY: Technical feasibility centers around the existing computer system (hardware ,software,etc.) and to what extent it can support the proposed addition. For example, if the current computer is operating at 80% capacity-an arbitrary ceiling- then running another app. could overload the system or require additional hardware.
BEHAVIORAL FEASIBILITY: People are inherently resistant to change, and computer have been known to facilitate change. An estimate should be made of how strong a reaction the user staff is likely to have towards the development of computerized system.
STEPS IN FEASIBILITY ANALYSIS::
1. Form a project team and appoint a project leader
2. Prepare system flowcharts.
3. Enumerate potential candidate system
1. Describe and identify characteristics of candidate system
2. Determine and evaluate performance and cost effectiveness of each candidate system.
3. Weight system performance and cost data.
4. Select the best candidate system.
5. Prepare and report final project directive to management.
Data Collection is very important for designing a system. To design a system – we must collect the information about
Information about the organization:
Policies
Goals
Objectives
Organization Structure
Information about the user staff who will use our project directly or indirectly:
Authority
Relationship
Job functions
Interpersonal relationship
The information about work:
Work Flow
Work methods and procedures
Work Schedules
To collect the information, some data sources are required and they are :
INTERNAL TOOLs : - Which are used to collect the data from sources within the organization and they are:-
1. Financial Reports
2. Personnel Staff
3. Professional staff
4. System documents and manuals
5. User staff.
6. Reports transaction documents.
EXTERNAL TOOLs : These are the outside tools used to collect the data from the system for designing and they are
1. Vendors.
2. Government documents.
3. Newspapers and professional journals.
To collect the data properly, some tools are used and they are :
1: Review of literature, procedures, and forms.
2: On-site observations.
3: Questionnaires.
4: Interviews .
Review of literature, procedures, and forms : In this tool the old documents of organization are studied – in this tools; we get old forms, old bills, old slips, manual registers etc. The major advantage of this tool is that we can get data in bulk and we can design screen as appear manually – but the data may be too old and some new changes are not included in that.
On-site Observation : In this tool, the analyst and user visited the organization and collect the samples and data. The major advantage of this tool is that we can get fresh data and know the system working “How the old system works actually ?” – so that equivalent candidate ( computerized ) system can be developed. But it is also possible that many organizations may not allow you to observe the actual system and you may pick the wrong sample.
Questionnaires : In this tool, some set of questions are sent to the users. These questions may be option selection based, open ended questions, yes/no questions and essay type questions. After filling these questions ; they are returned to the programmer or analyst. It looks an easy tool but there are very less number of returns.
Interview: It is the best data collection in which one person asks the questions and other answers. It is the fast and accurate method. I use this method in my project.
Structured analysis means tools used to understand the system easily and steadily. These tools are
ü Data flow diagrams
ü Data Dictionaries
ü Structured English
ü Decision Trees
ü Decision Tables
ü ER Diagrams
DFD is a tool which show the actual data flow in the system. It show us various points from where the data is flows to a new point and where the major transformation takes place. The DFD uses some symbols and they are
A Square represents the source or destination of data.
A Circle represents the program name or process.
A Solid Arrow Line shows the data in flow or motion.
An Open Rectangle shows the data at rest.
Data Dictionaries : Although DFD represents the data flow and transformation; but still it does not indicate the full details of the system. For getting more details; data dict is used. A DD represents data about data. It is a document which is used for system documentation and reference. It contains all the details of elements. The root of the tree is called problem name.
Decision Table : A decision table is the collection of four quadrants; condition stub, action stub, condition entries and action entries. In condition stub all the condition are listed in simple English and Maths. In Action stub all the actions are written, In condition entry the responses to the conditions are written in ‘Y’& ‘N’ form. In Action entry all the action response is written as X & --. ‘X’ means action taken and ‘-‘ means no action.
ERD : Entity Relationship Diagram is a tool used to represent the tables, their attributes and relationship.
Since SDLC is a cycle. It is called cycle; because after some time your project may be terminated and initial investigation is done again ( i.e. first stage of the SDLC ). The project terminated in the following situations. So an analyst and programmer must take care of these factors:
* Changing objectives or requirements of the user can not be met by the existing design.
* Benefits realized from the candidate system do not justify commitment to implementation.
* There is a sudden change in the user’s budget or an increase in design cost beyond the estimate made during the feasibility study.
* The project greatly exceeds the time and cost schedule.
* User requirements were not defined clearly or understood.
* The user was not directly involved in the crucial phases of system development.
* The analyst, programmer, or both were inexperienced.
* The systems analyst or the project team had to do work under stringent time constraints.
* User training was poor.
* Existing hardware proved deficient to handle the new application.
* The new system left users in other departments out of touch with information that the old system had provided.
* The new system may not user-friendly.
* Users changed their requirements.
* The user staff was hostile.
Man has invented many electronic devices but computer has a greater Impact on society than any other device. They have made a potentially significant contribution to the society during the last three decades. One of the primary reasons for the immense popularity Of computers is the speed with which they can accomplish specified task.
However computer application are not always easy to use. Any application has two parts:
- USER INTERFACE
This is the screen displayed by application .we interact with an application via the interface. Every application has a user interface in one form or the other. The application asks for and we provide the necessary instructions using the interface.
2. PROGRAM
Computers need clear-cut instructions to tell them what to do and, how to do and when to do. A set of instructions to carry out a specific task is called a program. This is what goes on the background.
Applications generally provide two types of interfaces :
Character Based Interface Graphical User Interface
2. Character Based Systems
In a Character Based System, text was the medium of information exchange. The application displayed text that prompted the user for the required information. It also specify the valid options, if any. The user then responded to these prompts by specifying the required information.
Such an application is not very easy to use, essentially because the user cannot react intuitively to this interface. The disadvantage with Character Based Systems was that each new application the user had to spend time and effort getting used to the way it worked.
2.2 Graphical User Interface
Interfaces that use graphics came to be known as Graphical User Interface. These became very popular because the users could identify with the graphics displayed on screen. In everyday life too, we associate more with images than words. Such an interface presents the user with an intuitive way of interacting with the application.
2.3 THE NEED FOR VISUAL PROGRAMMING
There are several programming tools that allow us to build such visually appealing and intuitive interfaces. These tools allow us to design interfaces that employ user-friendly features such as buttons, menus, 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 major task in itself.
Therefore a programmer spends a lot of time writing code for the user interface. Moreover large percentage of the user time is wasted in action of writing the code, aligning the buttons properly.
This means that if the process of building the user interface
is simplified, then the time and effort required in developing an application can be reduced. There is the need of an environment that would allow easy design of the user interface. Thus was the born the art of VISUAL PROGRAMMING.
2.4 Rapid Application Development (RAD) Tools
RAD tools help us to create applications in a shorter time as compared to conventional languages and with fewer errors.
RAD tools help us to create a range of applications. These could range from a small utility for ourselves or even distributed applications spanning the globe in the internet.
2.5 WHAT IS VISUAL BASIC
VISUAL BASIC is Microsoft’s RAD (RAPID APPLICATON DEVELOPMENT TOOL) for windows programmers. RAD tools help us to create application in a shorter time as compared to conventional languages and with fewer errors. Visual basic uses a graphical, forms-based approach to application development. The typical way to write a program in visual basic is to create a form, drag and drop controls onto the form, set properties for the form and its controls, and add application-specific code to handle events. It sounds simple, but we can write some very popular applications in this manner.
VISUAL PROGRAMMING:
A visual programming environment provides all features that are required to develop a graphical user interfaces as ready-to-use components. The programmer does not have to write a code to create and display commonly required user-friendly features each time around.
A visual programming environment automates the process of creating a user interface. The interface provided by this is called the VISUAL INTERFACE. Using the visual interface the programmer designs the user interface visually instead of writing code. In addition it also provide a means of associating code with each component. In visual programming 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.
Some popular visual programming tools are:
Visual basic Power builder Developer 2000
SOME VISUAL INTERFACE
COMPONENTS
Having been introduced the concept of visual programming, we now explore some often used visual interface components.
WINDOW
A window sometimes also called a form, is the most important of all the visual interface components. A window plays a role of the canvas in the painting. Without a canvas there is no painting similarly, without the window there is no user interface. When an application starts it opens a window.
BUTTONS
The button also referred as command button or the push button, is one of the most popular user interface component. A button is used to initiate an action. The text on the button indicates the action that it will initiate.
TEXT BOXES
Text boxes are used to accept information from the user. The user interface will display one text box for each piece of information. The text box is a means of accepting information from the user.
LIST BOXES
List boxes are used to present the user with the possible options. The user can select one or more of the listed options.
DEFAULT FUNCTIONALITY OF THE INTERFACE COMPONENTS
The ready-to-use interface component supplied by a visual development incorporate certain default behaviour. The default behaviour can be altered to meet the requirement of the application. Similarly, the component also have default properties.
For example: A button always has a default caption, which is the text that appears on the face of the button. The user can change the text. All controls have names associated with the every interface component are certain characteristics which can also be referred as properties. These properties are set to default when the component is created. A major part of the interactions between people in the every day life is in the form of events and responses to events. An event is any user action directed at the application. Interface component have the ability to respond to the events. An event driven application operates by responding to the user events.
A method is the code that is build into the interface component and can be executed as required. For example, consider a list box. A list box component will provide a method called add item. This method is to be executed every time an item is added to the list. Similarly, most controls provide a method called move that can be used to reposition the control during the course of execution. This feature is required very often in the application that provide animation. Each component can have several methods associated with it. Each method provides distinct functionality.
VISUAL BASIC CONTROLS
THE FORM: The window is called a form in visual basic. The form is the main part of the user interface. It is the base on which the user interface is built. Every windows application must have at least one form.
THE FORM PROPERTIES:
Forms have the properties that determine aspects of their appearance, such as position, size, and color; and aspects of their behaviour, such as whether or not they are resizable. Listed below are some of the important properties of a form.
CAPTION: The text that appears on the title bar of the form. When the form is minimized this is the name that appears below the form’s icon.
NAME: Text used in the code to identify a form. the default name for a new form in visual basic is ‘form’ plus a unique integer. For example, the first new form has the name form1,the next form2 etc.
FORM METHODS
We can develop applications that efficiently use the computer resources Such as memory and processing speed by understanding the form’s method. We use the following methods to manage forms in visual basic.
1. LOAD
2. UNLOAD
3. HIDE
4. SHOW
1. LOAD: The load statement initializes and loads the form into memory without displaying it on the screen. If a form is not already loaded, any references to the form automatically loads it into the memory.
E.g. load form1
UNLOAD: unload removes a form from the memory. Unloading a form may be necessary to free the system’s resources, and to reset form properties to their original values. A form can be unloaded as follows:
unload form1
or
unload Me
The Me statement refers to the current form of the application.
3. HIDE: The hide method removes a form from the screen. A user cannot access a hidden form’s controls but the Visual Basic application has access to it. The user can interact with the form only after the code that caused the form to be hidden is executed completely. When a form is not loaded into the memory and the hide method is called, it loads the form but does not display it. A form can be hidden in the following two ways:
Form1.Hide
Or
Me.Hide
SHOW: The show method loads a form into memory if not loaded already and displays it on the screen. This method displays forms modally or modelessly. A model window requires the user to take some action before the focus can change to another form. The default argument for the Show method is modeless. We use the show method as follows:
Form1.show vb model.
THE COMBO BOX OR DROPDOWN LIST BOX:
A combo box control combines the features of a text box and a list box. This control allow the user to select an item either by typing text into the Combo box, or by selecting it from the list. Combo box present a list of choices to the user such that only the selected item is displayed while the Rest of the list is hidden.
THE RADIO BUTTON OR OPTION BUTTON
The radio button, also referred to as option buttons, are used when the User can select one and only one of the multiple options.
THE FRAME CONTROL
The frame control can be used to separate option into group. Once this is done, it is possible to select one option button in each group. The frame Is essentially meant to be a container for all other controls. Thus it does not have any unique properties. One property of the group box, that is Important is caption: the text that appears on the frame.
THE SCROLL BARS:
5. Scroll bars provide easy navigation through a long list of Since this project is linked with the Internet. So any time we can send mail to the clients, agents and companies.
6. Since Oracle 8i is a powerful RDBMS, So the s/w can be also be accessed using other programming languages i.e. GUI tools like X-WINDOWS tools.
7. The URL of the VB6 & Oracle 8i can be connected for E-Commerce purpose.
8. The tables used in the project can be converted into text file to make them platform independent.
9. The number of packages can work on the tables of project.
10. Since this project is linked with the Internet. So any time we can send mail to the clients, agents and companies.
11. Since Oracle 8i is a powerful RDBMS, So the s/w can be also be accessed using other programming languages i.e. GUI tools like X-WINDOWS tools.
12. The URL of the VB6 & Oracle 8i can be connected for E-Commerce purpose.
13. The tables used in the project can be converted into text file to make them platform independent.
14. The number of packages can work on the tables of project.
Items or a large amount of information. They can also be used minute measurements such as controlling the volume of a computer game. Scroll bars are actually Graphical representation of numeric values. The visual basic allows you to Create two types of scroll bars: horizontal and vertical. Horizontal scroll bars scroll from left to right and vertical scroll bars scroll from up and down.
THE LABEL:
The label is the control used to place text in a form. The main difference between a text box and a label is that a user can modify text box but cannot modify the text in the label. Typically, label is used to identify Controls that do not have a caption property of their own. For example, a text box.
INTRODUCTION TO ADO
There is an increasing popularity of distributed application and databases In the IT industry. A distributed application is one that has two parts:
FRONT END
BACK END
FRONT END that runs on the client computer
BACK END that runs on the server.
In distributed applications, the main aim is to divide the computing into two parts. The front end requires minimal resources and runs on the workstation of the client. The back end requires large amount of data or specialized hardware and runs on the server. A connection between the client and server allows data to flow in both directions.
With the need and popularity of distributed application and the different formats in which the data is stored there was a need to have a mechanism that sported these applications and databases. As a solution OLE DATABASE brought a new approach of accessing data.
OLE DATABASE IS A DATABASE architecture that enables the application to have Uniform access to data stored in the diverse information sources, regardless of the location or type. OLE DATABASE defines a set of COM(component object model) interfaces that enables a uniform access
To data stored in diverse DBMS. An interface is a class with all functions abstract.
DATA ACCESS IN VISUAL BASIC
Visual basic provides three data access interfaces. They are:
1. DATA ACCESS OBJECTS(DAO)
2. REMOTE DATA OBJECTS(RDSSO)
3. ACTIVEX DATA OBJECTS(ADO)
ACESSING DATA WITH THE DATA CONTROL
ADO is an interface to OLE DATABASE, introduced in version 6.0 of the visual basic.
This is Microsoft’s newest data access technology and provides access to almost any data stored in different formats. ADO is a replacement for the older DAO and RDO and gives you us features not found in either. for example it also allow us to access other data sources such as, e-mail, file systems, project management tools and spreadsheets. The ADO DATA CONTROL is the key element in creating data access application with a minimum of code. It provides a visual interface for setting data access properties. It provides a link between an application and the data we need to access. We create this link by placing the ADO data control on a form by binding controls to ADO data control without writing any code. Controls can be found to the ADO data control if they possess the data source property. These include the check box, image, label, textbox controls.
CONNECTING A DATA SOURCE
We create a connection to a data source by setting the connection String property of the ADO data control. This property specifies the type and location of the database that we need to access. To set the property we click the ellipsis button next to the connection string property in the properties windows of the ADODC.
THE RECORD SOURCE PROPERTY.
The record source property specifies where the records will come from after a connection is established to a database. This property can be set to a table name, a stored procedure or a SQL statements. It is a good Practice to use a SQL statement, which retrieves only the selected rows From a table rather than selecting an entire table.
CREATING A RECORDSET
After getting connected to a database and learning how to display information from the database in the bound controls we now learn to manipulate data with the ADO data control. The record set property of the ADODC is an object that represents the entire set of records from a table or the results of an executed command. The record set object is used to access the records returned from a query. At a given time a record set object points to a single record called the current record in the set of records returned from a query.
We use the record set object to do the following manipulations to the data in the database:
ADDING RECORDS.
MODIFYING RECORDS.
DELETING RECORDS.
FINDING SPECIFIC RECORDS.
ADDING RECORDS:
We use the AddNew method to add the records to a record set. When we add a new record , the ADODC clears the information in the bound controls to prepare them for the addition. The following code adds a new
Record:
AdoEmpolyees. Recordset .AddNew
This record becomes the current record. the new record is added to the database when we move to another record. This action prompts the ADODC to save the new record to the database. To cancel any changes made to a record we use the CancelUpdate method.
MODIFYING RECORDS:
The ADODC automatically modifies records when we move to the record that we wish to change. Make the necessary changes and the move to the next record. We can also use the update method to modify the current record.
DELETING RECORDS:
The delete method of the record set enables to delete a record. The record is removed from the database but the bound controls still displays The information of the deleted record until we reposition the record pointer to another record.
FINDING RECORDS:
Searching for a specific record requires invoking the find method of the record set and specifying the condition for the search. When we use a string value in the find method, the value is to be enclosed in the single quotes.
WORKING WITH ACTIVEX DATA OBJECTS
We can creat more powerful application using the ADO objects than we can using the ADO data control. Though ADO data control allows us to navigate and edit records ADO objects provide us all the data access and manipulation features required by the most applications.
Some of the advantages of using ADO objects than using the ADO data control are:
Validation of any information entered by the user before it goes into the database.
We can create database applications that do not require a user interface. Since the ADO data control is a graphical component, it can be used only in programs with a visual component.
We can use SQL statements to modify multiple records at a time.
The ADO object model has the following three main objects that are required to access data from an existing database.
Connection
Recordset
Command
CONNECTION
When we work with data in a database, we must first create a connection to the data source. The connection object makes a connection between an application and the data source such as Microsoft SQL server. Each connection object supports multiple lower level objects such as RecordSet objects and command objects. Creating a connection object is similar to the setting the ConnectionString property of the ADODC.
RESCORDSET:
A RecordSet object represents the entire set of records from a table or the results of an executed command. The RecordSet object is used to access records returned from a query. We manipulate the data almost entirely
Using the RecordSet objects. This object is constructed using records and fields.
COMMAND:
We use a command object to query a database and access the records that are required from the database. The records are returned in the RecordSet object. Command objects can be used to create a RecordSet object and obtain records, to execute a bulk operation, or to manipulate the structure of the database.
INTRODUCTION TO ORACLE 8
We are using ORACLE 8 as a back-end in our project. ORACLE 8 is the most popular database currently in use.
Various approaches to data management are:
- Manual methods of data management
- Management of data and information
- Convenient and efficient retrieval
- Updating operations
- Limitation of manual data management
- Physical Volume of data
- Human processing of data
- Technological Advancement in data management
- Using computers to speed up processing of data
- Advancement of processing power
- High speed storage devices
- Centralized to distributed databases
Database management : An Evolutionary Phenomenon Drawbacks of the prevalent approach to data management
· Data redundancy
· Risk to data integrity
· Data isolation
· Difficult access to data
· Unsatisfactory security measures
Poor support of parallel access of data
Concept of a DBMS
A database is a collection of interrelated data from which some information can be extracted. The collection of data must be logically coherent with some inherent meaning. A database is designed and Built for a specific purpose, keeping in mind the needs of the applications that are going to use it and the end users of those applications. It is managed bysoftware package known as a database management system(DBMS). Data is stored in the form of tables. Tables are then connected with visual basic and through linking this Can be used in front end in the project.
Software Engg Paradigm Applied
 |
Hardware, Software, Space & Humanware requirements.
MINIMUM HARDWARE REQUIREMENTS
A PIII or PIV server
At least 128 MB RAM
At least 1024 KB Cache Memory
At least 2 hard drives ( Master & Slave )
Work Stations ( As per requirements )
Zip Drive ( For Data Backup and data recovery)
80 Col Or 132 DMP
SOFTWARE requirements
VB 6
Oracle 8
MS OFFICE
OPERATING SYSTEM
Windows NTs/9X
HUMANWARE
One programmer
One data librarian
Data Entry operators ( As per requirements )
SPACE
At least 20m x 20m room with AC & moisture free.
HOW TO CREATE OWN USER NAME AND PASSWORD IN ORACLE ?
ANS : Start->Program->Oracle 8i folder->Oracle8 Navigator
Double click personal edition, double click at local
database, Click user, right click, click new
Name ABC
New ZYX
Confirm ZYX
Or
Open oracle using USER NAME AS SYSTEM AND
PASSWORD AS MANAGER
SQL>create user ABC identified by XYZ;
ORACLE VB CONNECTIVITY: Click Project, Click
Component, MICROSOFT ADO OLEDB
Click Ref, Active project 2.1 libraries
HOW TO CREATE OWN USER NAME AND PASSWORD IN ORACLE?
ANS: Start->Program->Oracle 8i folder->Oracle8 Navigator
Double click personal edition, double click at local
Database, Click user, right click, click new
Name ABC
New ZYX
Confirm ZYX
Or
Open oracle using USER NAME AS SYSTEM AND
PASSWORD AS MANAGER
SQL>create user ABC identified by XYZ;
ORACLE VB CONNECTIVITY: Click Project, Click
Component, MICROSOFT ADO OLEDB
Click Ref, Active project 2.1 library
Some tools and tips.
Following points should be kept in mind, while using this project
| Tip No. | Tip Type | Parameters |
| 1 | Program Loading User Name | bank |
| 2 | Program Loading Password | banking |
| 3 | Oracle User Name | PROJECT2007 |
| 4 | Oracle Password | IT2007 |
| 5 | Working Directory | C:\BANKING |
| 6 | Pixel Setting | 1024 by 768 pixels |
SQL> select* from tab;
TNAME TABTYPE CLUSTERID
------------------------------ ------- ---------
CUST_DETAIL TABLE
INTRST_DETAIL TABLE
LOG_DETAIL TABLE
TRANS_DETAIL TABLE
SQL> describe cust_detail;
Name Null? Type
------------------------------- -------- ----
AC_NO NUMBER(5)
NAME VARCHAR2(15)
LOCALITY VARCHAR2(15)
CITY VARCHAR2(15)
PHONE NUMBER(10)
AC_OP_DATE DATE
BALANCE NUMBER(10)
SQL> describe intrst_detail;
Name Null? Type
------------------------------- -------- ----
AC_NO NUMBER(5)
APPL_DATE DATE
FROMMON NUMBER(15)
FROMYEAR NUMBER(15)
UPTOMON NUMBER(10)
UPTOYEAR NUMBER(10)
AMOUNT NUMBER(15)
SQL> describe trans_detail;
Name Null? Type
------------------------------- -------- ----
AC_NO NUMBER(5)
TRANS VARCHAR2(10)
AMOUNT NUMBER(10)
TRANS_DATE DATE
PERS_NAME VARCHAR2(10)
BALANCE NUMBER(10)
SQL> describe log_detail;
Name Null? Type
------------------------------- -------- ----
USER_NAME VARCHAR2(15)
USER_PASS VARCHAR2(10)
ADMIN_NAM VARCHAR2(10)
ADMIN_PASS VARCHAR2(10)
** Coding of Form New Account
Option Explicit
Dim con As New Connection
Dim rs As New Recordset
Public acno As Long
Public nam As String, loc As String, cit As String, pno As String, bal As Long
Dim cmd1 As ADODB.Command
Dim cmd2 As ADODB.Command
Private Sub Command1_Click()
If Len(Text1.Text) < 2 Then
MsgBox "Name Field cannot Be Empty"
Text1.SetFocus
Exit Sub
ElseIf Len(Text2.Text) < 1 Then
MsgBox "Locality Field cannot Be Empty"
Text2.SetFocus
Exit Sub
ElseIf Len(Text3.Text) < 1 Then
MsgBox "City Field cannot Be Empty"
Text3.SetFocus
Exit Sub
ElseIf Len(Text4.Text) < 1 Then
MsgBox "Phone Number Field cannot Be Empty"
Text4.SetFocus
Exit Sub
ElseIf Len(Text5.Text) < 3 Then
MsgBox "Insufficent Data In Amount Field.Enter Atleast Rs. 100 "
Text5.SetFocus
Exit Sub
End If
bal = CLng(Text5.Text)
If bal < 100 Then
MsgBox "Enter amount greater then or equal to 100"
Text5.SetFocus
Exit Sub
End If
nam = Text1.Text
loc = Text2.Text
cit = Text3.Text
pno = Text4.Text
rs.Open "select ac_no from cust_detail ", con, adOpenStatic, adLockOptimistic, adCmdText
rs.MoveLast
Set Text1.DataSource = rs
Text1.DataField = "ac_no"
acno = Text1.Text
Text1.Text = ""
acno = acno + 1
rs.Close
Set cmd1 = New ADODB.Command
Set cmd2 = New ADODB.Command
cmd1.ActiveConnection = con
cmd2.ActiveConnection = con
cmd1.CommandText = "insert into cust_detail(ac_no,name,locality,city,phone,ac_op_date,balance) values('" & acno & "','" & nam & "','" & loc & "','" & cit & "','" & pno & "','" & Date & "','" & bal & "');"
cmd1.Execute
cmd2.CommandText = "insert into trans_detail(ac_no,trans,amount,trans_date,pers_name,balance) values('" & acno & "','" & "DEPOSIT" & "','" & bal & "','" & Date & "','" & "SELF" & "','" & bal & "');"
cmd2.Execute
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Form1.Hide
Form2.Show
End Sub
Private Sub Command2_Click()
Me.Hide
Form3.Show
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr$(KeyAscii)) Then
MsgBox "Invalid Data.Enter Only Text Data"
KeyAscii = 0
End If
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr$(KeyAscii)) Then
MsgBox "Invalid Data.Enter Only Text Data"
KeyAscii = 0
End If
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr$(KeyAscii)) Then
MsgBox "Invalid Data.Enter Only Numeric Data."
KeyAscii = 0
End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr$(KeyAscii)) Or Chr$(KeyAscii) = "." Then
Exit Sub
Else
MsgBox "Invalid Data.Enter Only Numeric Data."
KeyAscii = 0
End If
End Sub
*Coding of Account Information
Option Explicit
Private Sub Command1_Click()
Form2.Hide
Form3.Show
End Sub
Private Sub Form_Load()
Text1.Text = Form1.acno
Text2.Text = Form1.nam
Text3.Text = Form1.loc
Text4.Text = Form1.cit
Text5.Text = Form1.pno
Text6.Text = Date
Text7.Text = Form1.bal
End Sub
Private Sub Label1_Click()
End Sub
**Coding of form Bank Transaction Management
Option Explicit
Dim rs As New Recordset
Dim rs2 As New Recordset
Dim con As New Connection
Public trans As String
Public do_tran As String
Dim cmd1 As ADODB.Command
Dim cmd2 As ADODB.Command
Dim cmd3 As ADODB.Command
Private Sub auth_cmd_Click()
Form13.Show
End Sub
Private Sub ch_pass_cmd_Click()
Form16.Show
End Sub
Private Sub cust_cmd_Click()
DataReport1.Show
'Form9.Show
End Sub
Private Sub cust_serach_cmd_Click()
Form9.Show
End Sub
Private Sub delcmd_Click()
do_tran = "delete"
Form5.Show
End Sub
Private Sub depcmd_Click()
trans = "deposit"
Form4.Show
End Sub
Private Sub det_ac_cmd_Click()
do_tran = "disp_query"
Form5.Show
End Sub
Private Sub det_city_cmd_Click()
do_tran = "city"
Form8.Show
End Sub
Private Sub det_name_cmd_Click()
do_tran = "name"
Form8.Show
End Sub
Private Sub det_phon_cmd_Click()
End Sub
Private Sub drawcmd_Click()
trans = "withdraw"
Form4.Show
End Sub
Private Sub exit_cmd_Click()
End
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
End Sub
Private Sub int_all_cmd_Click()
rs.Open "select ac_no from cust_detail ", con, adOpenStatic, adLockOptimistic, adCmdText
While rs.EOF = False
Dim acno1 As Long
acno1 = rs.Fields(0)
intfunct (acno1)
rs.MoveNext
Wend
rs.Close
End Sub
Private Sub int_cmd_Click()
DataReport3.Show
End Sub
Private Sub int_one_cmd_Click()
do_tran = "interest"
Form5.Show
End Sub
Public Function intfunct(ByVal acn As Long)
Dim sql1 As String
Dim rs3 As New Recordset
sql1 = "select ac_no from intrst_detail where ac_no =" & acn & ";"
rs3.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs3.EOF = True Then
int_first_time (acn)
Else
int_not_first (acn)
End If
Exit Function
End Function
Public Function int_first_time(ByVal acno3 As Long)
Dim curdate As Date, opendate As Date
Dim sql1 As String
Dim prev_bal As Double
Dim balamt As Long
Dim si As Double, si_sum As Double
Dim omon As Integer, oyear As Integer, cmon As Integer, cyear As Integer
Dim rs4 As New Recordset
Dim rs5 As New Recordset
si = 0
si_sum = 0
sql1 = "select ac_op_date from cust_detail where ac_no =" & acno3 & ";"
rs2.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
opendate = rs2.Fields(0)
rs2.Close
curdate = Date
omon = Month(opendate)
oyear = Year(opendate)
If Day(opendate) > 10 Then
If omon = 12 Then
omon = 1
oyear = oyear + 1
Else
omon = omon + 1
End If
End If
If oyear > Year(curdate) Then
Exit Function
ElseIf omon > Month(curdate) Or omon = Month(curdate) Then
Exit Function
End If
sql1 = "select balance from cust_detail where ac_no =" & acno3 & ";"
rs2.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
prev_bal = rs2.Fields(0)
rs2.Close
Dim frommon1 As Integer, uptomon1 As Integer, fromyear1 As Integer, uptoyear1 As Integer
Dim cn As Integer
frommon1 = omon
fromyear1 = oyear
For cn = 0 To 100
sql1 = "select balance from trans_detail where ac_no =" & acno3 & " AND month(trans_date) = " & omon & "AND year(trans_date) = " & oyear & " AND day(trans_date) between 10 AND 31 " & ";"
rs4.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs4.EOF = True Then
sql1 = "select balance from trans_detail where ac_no =" & acno3 & " AND month(trans_date) = " & omon & "AND year(trans_date) = " & oyear & " AND day(trans_date) between 1 AND 11" & ";"
rs5.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs5.EOF = True Then
balamt = prev_bal
si = (balamt + si_sum) * 8.5 / (12 * 100)
si_sum = si_sum + si
Else
rs5.MoveLast
balamt = rs5.Fields(0)
si = (balamt + si_sum) * 8.5 / (12 * 100)
si_sum = si_sum + si
End If
Else
'finding the lowest amount
Dim count1 As Integer, cnter As Integer
Dim sitem As Long
count1 = rs4.RecordCount
rs4.MoveFirst
sitem = rs4.Fields(0)
cnter = 1
While cnter < count1
rs4.MoveNext
If sitem > rs4.Fields(0) Then
sitem = rs4.Fields(0)
End If
cnter = cnter + 1
Wend
balamt = sitem
si = (balamt + si_sum) * 8.5 / (12 * 100)
si_sum = si_sum + si
End If
uptomon1 = omon
uptoyear1 = oyear
If omon = 12 Then
omon = 1
oyear = oyear + 1
Else
omon = omon + 1
End If
If oyear > Year(curdate) Then
Exit For
ElseIf oyear = Year(curdate) And omon = Month(curdate) Then
Exit For
End If
rs4.Close
rs5.Close
Next
'fire the updation
Set cmd1 = New ADODB.Command
Set cmd1.ActiveConnection = con
Set cmd2 = New ADODB.Command
Set cmd2.ActiveConnection = con
Set cmd3 = New ADODB.Command
Set cmd3.ActiveConnection = con
cmd1.CommandText = "insert into intrst_detail(ac_no,appl_date,frommon,fromyear,uptomon,uptoyear,amount) values('" & acno3 & "','" & Date & "','" & frommon1 & "','" & fromyear1 & "','" & uptomon1 & "','" & uptoyear1 & "','" & si_sum & "');"
cmd1.Execute
sql1 = "select balance from cust_detail where ac_no =" & acno3 & ";"
rs2.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
Dim getamt As Long
getamt = rs2.Fields(0)
rs2.Close
getamt = getamt + si_sum
cmd2.CommandText = "insert into trans_detail(ac_no,trans,amount,trans_date,pers_name,balance) values('" & acno3 & "','" & "INTEREST" & "','" & si_sum & "','" & Date & "','" & "AUTO" & "','" & getamt & "');"
cmd2.Execute
sql1 = "update cust_detail set balance = '" & getamt & "'where ac_no = " & acno3 & ";"
cmd3.CommandText = sql1
cmd3.Execute
End Function
Public Function int_not_first(ByVal acno3 As Long)
Dim curdate As Date, opendate As Date
Dim sql1 As String
Dim prev_bal As Double
Dim balamt As Long
Dim si As Double, si_sum As Double
Dim omon As Integer, oyear As Integer, cmon As Integer, cyear As Integer
Dim rs4 As New Recordset
Dim rs5 As New Recordset
si = 0
si_sum = 0
curdate = Date
sql1 = "select uptomon,uptoyear from intrst_detail where ac_no = " & acno3 & ";"
rs2.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
rs2.MoveLast
omon = rs2.Fields(0)
oyear = rs2.Fields(1)
rs2.Close
If omon = 12 Then
omon = 1
oyear = oyear + 1
Else
omon = omon + 1
End If
If oyear > Year(curdate) Then
Exit Function
ElseIf omon > Month(curdate) Or omon = Month(curdate) Then
Exit Function
End If
sql1 = "select balance from cust_detail where ac_no =" & acno3 & ";"
rs2.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
prev_bal = rs2.Fields(0)
rs2.Close
Dim frommon1 As Integer, uptomon1 As Integer, fromyear1 As Integer, uptoyear1 As Integer
Dim cn As Integer
frommon1 = omon
fromyear1 = oyear
For cn = 0 To 100
sql1 = "select balance from trans_detail where ac_no =" & acno3 & " AND month(trans_date) = " & omon & "AND year(trans_date) = " & oyear & " AND day(trans_date) between 10 AND 31 " & ";"
rs4.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs4.EOF = True Then
sql1 = "select balance from trans_detail where ac_no =" & acno3 & " AND month(trans_date) = " & omon & " AND year(trans_date) = " & oyear & " AND day(trans_date) between 1 AND 11" & ";"
rs5.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs5.EOF = True Then
balamt = prev_bal
si = (balamt + si_sum) * 8.5 / (12 * 100)
si_sum = si_sum + si
Else
rs5.MoveLast
balamt = rs5.Fields(0)
si = (balamt + si_sum) * 8.5 / (12 * 100)
si_sum = si_sum + si
End If
Else
'finding the lowest amount
Dim count1 As Integer, cnter As Integer
Dim sitem As Long
count1 = rs4.RecordCount
rs4.MoveFirst
sitem = rs4.Fields(0)
cnter = 1
While cnter < count1
rs4.MoveNext
If sitem > rs4.Fields(0) Then
sitem = rs4.Fields(0)
End If
cnter = cnter + 1
Wend
balamt = sitem
si = (balamt + si_sum) * 8.5 / (12 * 100)
si_sum = si_sum + si
End If
uptomon1 = omon
uptoyear1 = oyear
If omon = 12 Then
omon = 1
oyear = oyear + 1
Else
omon = omon + 1
End If
If oyear > Year(curdate) Then
Exit For
ElseIf oyear = Year(curdate) And omon = Month(curdate) Then
Exit For
End If
rs4.Close
rs5.Close
Next
'fire the updation
Set cmd1 = New ADODB.Command
Set cmd1.ActiveConnection = con
Set cmd2 = New ADODB.Command
Set cmd2.ActiveConnection = con
Set cmd3 = New ADODB.Command
Set cmd3.ActiveConnection = con
cmd1.CommandText = "insert into intrst_detail(ac_no,appl_date,frommon,fromyear,uptomon,uptoyear,amount) values('" & acno3 & "','" & Date & "','" & frommon1 & "','" & fromyear1 & "','" & uptomon1 & "','" & uptoyear1 & "','" & si_sum & "');"
cmd1.Execute
sql1 = "select balance from cust_detail where ac_no =" & acno3 & ";"
rs2.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
Dim getamt As Long
getamt = rs2.Fields(0)
rs2.Close
getamt = getamt + si_sum
cmd2.CommandText = "insert into trans_detail(ac_no,trans,amount,trans_date,pers_name,balance) values('" & acno3 & "','" & "INTEREST" & "','" & si_sum & "','" & Date & "','" & "AUTO" & "','" & getamt & "');"
cmd2.Execute
sql1 = "update cust_detail set balance = '" & getamt & "'where ac_no = " & acno3 & ";"
cmd3.CommandText = sql1
cmd3.Execute
End Function
Private Sub int_serch_cmd_Click()
Form11.Show
End Sub
Private Sub modcmd_Click()
do_tran = "modify"
Form5.Show
End Sub
Private Sub new_accmd_Click()
Form1.Show
End Sub
Private Sub proj_cmd_Click()
Form14.Show
End Sub
Private Sub tran_cmd_Click()
DataReport2.Show
End Sub
Private Sub tran_serch_cmd_Click()
Form10.Show
End Sub
**Coding of form Deposite:
Option Explicit
Dim con As New Connection
Dim rs As New Recordset
Dim cmd1 As ADODB.Command
Dim cmd2 As ADODB.Command
Private Sub Command1_Click()
Dim acno As Long, sql1 As String
Dim bal As Long, amt As Long
Dim trn As String
Set cmd1 = New ADODB.Command
Set cmd2 = New ADODB.Command
Set cmd1.ActiveConnection = con
Set cmd2.ActiveConnection = con
If Len(Text1.Text) < 1 Then
MsgBox "Account Number Field Cannot Be Empty."
Text1.SetFocus
Exit Sub
ElseIf Len(Text2.Text) < 1 Then
MsgBox "Amount Field Cannot Be Empty."
Text2.SetFocus
Exit Sub
ElseIf Len(Text3.Text) < 1 Then
MsgBox "This Field Cannot Left Blank"
Text3.SetFocus
Exit Sub
ElseIf Not IsNumeric(Text1.Text) Then
MsgBox "Invalid Account Number."
Text1.SetFocus
Exit Sub
ElseIf Not IsNumeric(Text2.Text) Then
MsgBox "Enter Only Numeric Data"
Text2.SetFocus
Exit Sub
End If
acno = CLng(Text1.Text)
amt = CLng(Text2.Text)
sql1 = "select ac_no from cust_detail where ac_no =" & acno & ";"
rs.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs.EOF = True Then
MsgBox "Account Number Not Exist"
Text1.SetFocus
Exit Sub
End If
rs.Close
sql1 = "select balance from cust_detail where ac_no =" & acno & ";"
rs.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
bal = rs.Fields(0)
rs.Close
If Form3.trans = "deposit" Then
bal = bal + amt
trn = "DEPOSIT"
ElseIf Form3.trans = "withdraw" Then
If bal < (amt + 100) Then
MsgBox "your amount is more then your balance.you can withdraw atmost Rs." & (bal - 100)
Text2.SetFocus
Exit Sub
Else
bal = bal - amt
trn = "withdraw"
End If
End If
sql1 = "update cust_detail set balance = '" & bal & "'where ac_no = " & acno & ";"
cmd1.CommandText = sql1
cmd1.Execute
cmd2.CommandText = "insert into trans_detail(ac_no,trans,amount,trans_date,pers_name,balance) values('" & acno & "','" & trn & "','" & amt & "','" & Date & "','" & Text3.Text & "','" & bal & "');"
cmd2.Execute
MsgBox "Your transaction is successfull.Now Your balance is Rs. " & bal
Me.Hide
End Sub
Private Sub Command2_Click()
Me.Hide
Form3.Show
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr$(KeyAscii)) Then
MsgBox "Invalid Data.Enter Only Text Data"
KeyAscii = 0
End If
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
**Coding of Get A/C No.
Option Explicit
Dim con As New Connection
Dim rs As New Recordset
Public pubacno As Long
Dim cmd1 As ADODB.Command
Private Sub Command1_Click()
If Len(Text1.Text) < 1 Then
MsgBox "Account Number Field Cannot Be Empty."
Text1.SetFocus
Exit Sub
ElseIf Not IsNumeric(Text1.Text) Then
MsgBox "Invalid Account Number."
Text1.SetFocus
Exit Sub
End If
pubacno = CLng(Text1.Text)
Dim sql1 As String
sql1 = "select ac_no from cust_detail where ac_no =" & pubacno & ";"
rs.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs.EOF = True Then
MsgBox "Account Number Not Exist"
Text1.SetFocus
rs.Close
Exit Sub
End If
rs.Close
If Form3.do_tran = "interest" Then
Form3.intfunct (pubacno)
ElseIf Form3.do_tran = "delete" Then
Set cmd1 = New ADODB.Command
Set cmd1.ActiveConnection = con
cmd1.CommandText = "delete from cust_detail where ac_no = " & pubacno & ";"
cmd1.Execute
cmd1.CommandText = "delete from trans_detail where ac_no = " & pubacno & ";"
cmd1.Execute
cmd1.CommandText = "delete from intrst_detail where ac_no = " & pubacno & ";"
cmd1.Execute
ElseIf Form3.do_tran = "modify" Then
Form6.Show
ElseIf Form3.do_tran = "disp_query" Then
Form7.Show
Form7.display (pubacno)
End If
Text1.Text = " "
Me.Hide
Exit Sub
End Sub
Private Sub Command2_Click()
Me.Hide
Exit Sub
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
Text1.Text = " "
End Sub
**Coding of form Modify A/C No.
Option Explicit
Dim con As New Connection
Dim rs As New Recordset
Dim cmd1 As ADODB.Command
Dim sql1 As String
Dim acno As Long, nam As String, loc As String, cit As String, phone As String, opdat As Date, bal As Long
Private Sub Command1_Click()
If Not IsNumeric(Text5.Text) Then
MsgBox "Invalid Data.Enter Only Numeric Data."
Text5.SetFocus
Exit Sub
ElseIf Len(Text2.Text) < 1 Then
MsgBox "Name Field cannot Be Empty"
Text2.SetFocus
Exit Sub
ElseIf Len(Text3.Text) < 1 Then
MsgBox "Locality Field cannot Be Empty"
Text3.SetFocus
Exit Sub
ElseIf Len(Text4.Text) < 1 Then
MsgBox "City Field cannot Be Empty"
Text4.SetFocus
Exit Sub
ElseIf Len(Text5.Text) < 1 Then
MsgBox "Phone Number Field cannot Be Empty"
Text5.SetFocus
Exit Sub
End If
nam = Text2.Text
loc = Text3.Text
cit = Text4.Text
phone = Text5.Text
Set cmd1 = New ADODB.Command
cmd1.ActiveConnection = con
'cmd1.CommandText = "update cust_detail set name = '" & nam & "'," & "locality = '" & loc & "'," & " city = '" & cit & "'," & " phone = '" & phone & "' where ac_no = " & acno & ";"
cmd1.CommandText = "update cust_detail set name = '" & nam & "',locality = '" & loc & "', city = '" & cit & "', phone = '" & phone & "' where ac_no = " & acno & ";"
cmd1.Execute
MsgBox "Your Account Information Is Successfully Modified"
Me.Hide
End Sub
Private Sub Command2_Click()
Me.Hide
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
sql1 = "select * from cust_detail where ac_no =" & Form5.pubacno & ";"
rs.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
acno = rs.Fields(0)
nam = rs.Fields(1)
loc = rs.Fields(2)
cit = rs.Fields(3)
phone = rs.Fields(4)
opdat = rs.Fields(5)
bal = rs.Fields(6)
rs.Close
Text1.Text = acno
Text2.Text = nam
Text3.Text = loc
Text4.Text = cit
Text5.Text = phone
Text6.Text = opdat
Text7.Text = bal
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr$(KeyAscii)) Then
MsgBox "Invalid Data.Enter Only Text Data"
KeyAscii = 0
End If
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr$(KeyAscii)) Then
MsgBox "Invalid Data.Enter Only Text Data"
KeyAscii = 0
End If
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
**Coding of form show querry
Option Explicit
Dim var As Integer, count1 As Integer
Dim con As New Connection
Dim rs As New Recordset
Dim sql1 As String
Dim i As Long, i_var As Integer, prev_i As Integer
Private Sub Command1_Click()
var = 0
Dim save_i As Integer
save_i = i
i = i - 15
Command2.Enabled = True
prev_i = i
If i = 0 Then
Command1.Enabled = False
End If
While prev_i < count1
rs.Move (prev_i)
Text1(var) = rs.Fields(0)
var = var + 1
Text1(var) = rs.Fields(1)
var = var + 1
Text1(var) = rs.Fields(2)
var = var + 1
Text1(var) = rs.Fields(3)
var = var + 1
Text1(var) = rs.Fields(4)
var = var + 1
Text1(var) = rs.Fields(5)
var = var + 1
Text1(var) = rs.Fields(6)
var = var + 1
prev_i = prev_i + 1
If prev_i = save_i Then
Exit Sub
End If
Wend
End Sub
Private Sub Command2_Click()
var = 0
Command2.Enabled = False
Command1.Enabled = True
i_var = i + 15
While i < count1
rs.Move (i)
Text1(var) = rs.Fields(0)
var = var + 1
Text1(var) = rs.Fields(1)
var = var + 1
Text1(var) = rs.Fields(2)
var = var + 1
Text1(var) = rs.Fields(3)
var = var + 1
Text1(var) = rs.Fields(4)
var = var + 1
Text1(var) = rs.Fields(5)
var = var + 1
Text1(var) = rs.Fields(6)
var = var + 1
i = i + 1
If i = i_var Then
Command2.Enabled = True
Exit Sub
End If
Wend
End Sub
Private Sub Command3_Click()
rs.Close
Me.Hide
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
For i = 0 To 104
Text1(i) = ""
Next
Command1.Enabled = False
Command2.Enabled = False
End Sub
Public Function display(acno As Long)
sql1 = "select * from cust_detail where ac_no =" & acno & ";"
rs.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs.EOF = True Then
Me.Hide
MsgBox "No match Found "
Else
count1 = rs.RecordCount
Text1(0) = rs.Fields(0)
Text1(1) = rs.Fields(1)
Text1(2) = rs.Fields(2)
Text1(3) = rs.Fields(3)
Text1(4) = rs.Fields(4)
Text1(5) = rs.Fields(5)
Text1(6) = rs.Fields(6)
End If
End Function
Public Function show_by_name(ByVal nam As String)
sql1 = "select * from cust_detail where name like '" & nam & "';"
rs.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs.EOF = True Then
Me.Hide
MsgBox "No match Found "
Else
var = 0
count1 = rs.RecordCount
For i = 0 To count1 - 1
rs.Move (i)
Text1(var) = rs.Fields(0)
var = var + 1
Text1(var) = rs.Fields(1)
var = var + 1
Text1(var) = rs.Fields(2)
var = var + 1
Text1(var) = rs.Fields(3)
var = var + 1
Text1(var) = rs.Fields(4)
var = var + 1
Text1(var) = rs.Fields(5)
var = var + 1
Text1(var) = rs.Fields(6)
var = var + 1
If i = 14 Then
Command2.Enabled = True
Exit Function
End If
Next
End If
End Function
Public Function show_by_city(ByVal cit As String)
sql1 = "select * from cust_detail where city like '" & cit & "';"
rs.Open sql1, con, adOpenStatic, adLockOptimistic, adCmdText
If rs.EOF = True Then
Me.Hide
MsgBox "No match Found "
Else
var = 0
count1 = rs.RecordCount
For i = 0 To count1 - 1
rs.Move (i)
Text1(var) = rs.Fields(0)
var = var + 1
Text1(var) = rs.Fields(1)
var = var + 1
Text1(var) = rs.Fields(2)
var = var + 1
Text1(var) = rs.Fields(3)
var = var + 1
Text1(var) = rs.Fields(4)
var = var + 1
Text1(var) = rs.Fields(5)
var = var + 1
Text1(var) = rs.Fields(6)
var = var + 1
If i = 14 Then
Command2.Enabled = True
Exit Function
End If
Next
End If
End Function
Private Sub Text1_Change(Index As Integer)
End Sub
**Coding of form Get String Information
Option Explicit
Private Sub Command1_Click()
If Form3.do_tran = "name" Then
Form7.Show
Form7.show_by_name (Text1.Text)
Me.Hide
ElseIf Form3.do_tran = "city" Then
Form7.Show
Form7.show_by_city (Text1.Text)
Me.Hide
End If
End Sub
Private Sub Command2_Click()
Me.Hide
End Sub
Private Sub Form_Load()
Text1.Text = " "
If Form3.do_tran = "name" Then
Label1.Caption = "Name"
ElseIf Form3.do_tran = "city" Then
Label1.Caption = "City"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
**Coding of Move Across Customer Detail
Option Explicit
Private Sub Command1_Click()
DataEnvironment1.rsCommand1.MoveFirst
End Sub
Private Sub Command2_Click()
If DataEnvironment1.rsCommand1.BOF Then
Beep
Else
DataEnvironment1.rsCommand1.MovePrevious
If DataEnvironment1.rsCommand1.BOF Then
DataEnvironment1.rsCommand1.MoveFirst
End If
End If
End Sub
Private Sub Command3_Click()
If DataEnvironment1.rsCommand1.EOF Then
Beep
Else
DataEnvironment1.rsCommand1.MoveNext
If DataEnvironment1.rsCommand1.EOF Then
DataEnvironment1.rsCommand1.MoveLast
End If
End If
End Sub
Private Sub Command4_Click()
DataEnvironment1.rsCommand1.MoveLast
End Sub
Private Sub Command5_Click()
Me.Hide
End Sub
Private Sub Form_Load()
End Sub
Private Sub txtname_Change()
End Sub
**Coding Move Across Transaction Detail:
Option Explicit
Private Sub Command1_Click()
DataEnvironment1.rsCommand2.MoveFirst
End Sub
Private Sub Command2_Click()
If DataEnvironment1.rsCommand2.BOF Then
Beep
Else
DataEnvironment1.rsCommand2.MovePrevious
If DataEnvironment1.rsCommand2.BOF Then
DataEnvironment1.rsCommand2.MoveFirst
End If
End If
End Sub
Private Sub Command3_Click()
If DataEnvironment1.rsCommand2.EOF Then
Beep
Else
DataEnvironment1.rsCommand2.MoveNext
If DataEnvironment1.rsCommand2.EOF Then
DataEnvironment1.rsCommand2.MoveLast
End If
End If
End Sub
Private Sub Command4_Click()
DataEnvironment1.rsCommand2.MoveLast
End Sub
Private Sub Command5_Click()
Me.Hide
End Sub
Private Sub Form_Load()
End Sub
**Coding of form Move Across Interest Detail
Option Explicit
Private Sub Command1_Click()
DataEnvironment1.rsCommand3.MoveFirst
End Sub
Private Sub Command2_Click()
If DataEnvironment1.rsCommand3.BOF Then
Beep
Else
DataEnvironment1.rsCommand3.MovePrevious
If DataEnvironment1.rsCommand3.BOF Then
DataEnvironment1.rsCommand3.MoveFirst
End If
End If
End Sub
Private Sub Command3_Click()
If DataEnvironment1.rsCommand3.EOF Then
Beep
Else
DataEnvironment1.rsCommand3.MoveNext
If DataEnvironment1.rsCommand3.EOF Then
DataEnvironment1.rsCommand3.MoveLast
End If
End If
End Sub
Private Sub Command4_Click()
DataEnvironment1.rsCommand3.MoveLast
End Sub
Private Sub Command5_Click()
Me.Hide
End Sub
Private Sub Form_Load()
End Sub
**Coding of form User Name And Password Login:
Option Explicit
Dim rs As New Recordset
Dim con As New Connection
Dim nam As String, pass As String
Private Sub Command1_Click()
rs.Open "select * from log_detail ", con, adOpenStatic, adLockOptimistic, adCmdText
rs.MoveFirst
nam = rs.Fields(0)
pass = rs.Fields(1)
rs.Close
If LCase(Text1.Text) = nam And LCase(Text2.Text) = pass Then
Form3.Show
Me.Hide
Else
MsgBox "Invalid User Name Or Password.Try Again To Login"
Text1.SetFocus
Exit Sub
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
End Sub
**Coding of form Author Information
Option Explicit:
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
End Sub
**Coding of form Project Management:
Option Explicit
Private Sub Command1_Click()
Me.Hide
End Sub
Private Sub Form_Load()
End Sub
**Coding of form About Project:
Option Explicit
Private Sub Form_Click()
Form12.Show
Me.Hide
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Form12.Show
Me.Hide
End Sub
**Coding of form Change Password1:
Option Explicit
Dim rs As New Recordset
Dim con As New Connection
Dim nam As String, pass As String
Private Sub Command1_Click()
rs.Open "select * from log_detail ", con, adOpenStatic, adLockOptimistic, adCmdText
rs.MoveFirst
nam = rs.Fields(2)
pass = rs.Fields(3)
rs.Close
If Text1.Text = nam And Text2.Text = pass Then
Form17.Show
Me.Hide
Else
MsgBox "Invalid Adminstrator Name Or Password.Try Again To Login"
Text1.SetFocus
Exit Sub
End If
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Me.Hide
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
End Sub
**Coding of form Change Password2:
Option Explicit
Dim rs As New Recordset
Dim con As New Connection
Dim oldpass As String, newpass As String
Dim cmd As ADODB.Command
Private Sub Command1_Click()
Dim sql1 As String
rs.Open "select * from log_detail ", con, adOpenStatic, adLockOptimistic, adCmdText
rs.MoveFirst
oldpass = rs.Fields(1)
rs.Close
If Text1.Text = oldpass Then
If Len(Text2.Text) < 3 Then
MsgBox "Minimum Length Of Password Is 3."
Text2.SetFocus
Exit Sub
End If
newpass = Text2.Text
Set cmd = New ADODB.Command
cmd.ActiveConnection = con
'cmd.CommandText = "update log_detail set password = '" & newpass & "' where admin_nam = '" & "manager" & "' ;"
sql1 = "update log_detail set user_pass = '" & newpass & "' ;"
cmd.CommandText = sql1
cmd.Execute
MsgBox "Your Password Has Been Changed Successfully"
Me.Hide
Else
MsgBox "Invalid Old Password.Try Again."
Text1.SetFocus
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Me.Hide
End Sub
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source=c:\sbank\bank_db.mdb;"
End Sub
END of coding
DESCRIPTION:
This form provide the information about opening the new account
In the bank.
DESCRIPTION:
This form provide the information about accounts information.
DESCRIPTION:
This form provides the information about bank transaction management.
DESCRIPTION:
This form provides the information of the deposit in the bank.
DESCRIPTION:
This form provides the information of get account number.
DESCRIPTION:
This form provides the information of modification in account number.
DESCRIPTION:
This form provides the information of show query.
DESCRIPTION:
This form provides the information of get string information.
DESCRIPTION:
This form provides the information of move across customer detail.
DESCRIPTION:
This form provides the information of move across transaction detail.
DESCRIPTION:
This form provides the information of move across interest detail.
DESCRIPTION:
This form provides the information of user name and password login.
DESCRIPTION:
This form provides the information of author information.
DESCRIPTION:
This form provides the information about project.
DESCRIPTION:
This form also provide the information about project.
DESCRIPTION:
This form provides the information of change password1.
DESCRIPTION:
This form provides the information about change password2.
Code Efficiency
The code efficiency of a project can be improved by using
· Functions
· Pointers
· Standard Exe codes
· User Defined Functions
In this project most of the coding is done on the basis of these principals, hence the codes in this project is relatively efficient.
Validation checks.
ü All the primary key fields Should not be 0 or -ve or repeated
ü If vcnh no or acc code number is zero or not found the print error.
ü After specified amount in cash, voucher should not be posted.
ü In case of cash in hand s zero or negative then no cash issued to chqeue issued entry is to be executed.
After due date – computer should prompt for submitting the tax return
Testing & Implementation Techniques
There are three mainly used testing and implementation techniques,
Parallel or Pilot. Direct
In Direct conversion - on a particular day the old system is discarded and new one is adopted. Although it is a fast process but if only system is to be consulted but that is not available. In parallel model, the old system can run in parallel manner. Both the system can be tested and consulted for accuracy, but this system is costly one - because it is required to run the system parallel which is a time consuming and costly.
Hence the third system is to be consulted in which the old system is to be converted into new one phase by phase. In this project phased model is used.
Security Measures & Maintenance
Even after the proper analysis and design - once a system has been implemented - even then some security and maintenance measures are to be taken , so that system data can be avoided from theft, disclosure and intentional misuse. Following points should be kept in mind
1. The entry to the system is to be done thru proper channel like DBA or system manager.
2. Each user is assigned a time constraint, a user name and a password.
3. Each used should lass with different type of privileges.
4. Daily Virus scanning is to be done.
5. Daily backup on tapes, CDs, thumb drives & Zip disks is to be taken.
6.Data must be secure - when it is in the organization, in transportation and under communications.
COST ESTIMATION, PERT
& Gantt Chart
The PERT ( Program Evaluation and Review Technique ) deals with how project is proceeded with the passage of time and various possibilities of the problem solution. 
Hire a programmer Develop
1
Define Problem 2 Purchase Implement 
s
3 Develop in-house
Activity Time estimation Cost Estimation Recommendation
1 6 Months 25,000/_ Accepted
1 1 Year 50,000/_ Not Accepted
1 1 Years Or MOre 60,000/_ Not Accepted
GANNT CHART will show how the project grows in all the stages ( as shown in the worksheet with a bar chart ). COST Estimation is about Rs. 25000/_ as per PERT & GANTT.
Future Applications of the project
ü Since this project is linked with the Internet. So any time we can send mail to the supplier, customers, market and committee.
ü Since Oracle 8i is a powerful RDBMS, So the s/w can be also be accessed using other programming languages i.e. GUI tools like X-WINDOWS tools.
ü The URL of the VB6 & Oracle 8i can be connected for E-Commerce purpose.
Bibliography
1. VB 6 - By Mohammand Anzam
2. VB6 - in 24 days
3. PC Computing - By Rashapl Singh & Gurinder Singh
4. Programming of Oracle - By Ivan Bayross and STG computer center ORACLE AND VB module.
5. System Analysis and design - By EM Awad.
Glossary
1. Computer Sc : It deals with theory and implementation of Computer Sc.
2. Visual Programming : It deals with GUI based program.
3. Back End : A back end tool is used to store the database at back end and manipulated by the front end.
4. Front End : A front end reduce the program efforts and helps in RAD( Rapid Application Development ).
5. OLE DB : A tools used by Oracle and Visual Basic to handle the database connectivity and ACTIVEX programming.
6. EXE File : It is ready to run file and hide the code. It can be plat form independent.
7. Database : A collection of information store under one name.
8. RDBMS : Relational Database Management System. Helps the user to relate the tables with minimum redundancy and integrity.
Conclusions
1. This project require a programmer, costly hardware and more data security options are to be applied.
2. The database can be easily trapped if the data base is not secure under the control of DBA.
3. Centralized control is must.
4. It may require 6 more months for analysis, design and implementation.
5. The project may be rejected after implementation - if it is not correctly analyzed and designed I.e. user requirement is not clearly defined.
6. If it is used properly, it can give accurate results with speedy process.
7. It can reduce the paper work, staff requirements and threats to the data security.
**** END OF PROJECT ****
0 Comments:
Post a Comment