(I) Structured query language(sql)

Structured Query Language is a database computer language designed for

managing data in relational database management systems (RDBMS), and originally
based upon Relational Algebra. Its scope includes data query and update, schema
creation and modification, and data access control.
SQL was one of the first languages for Edgar F. Codd's relational model and
became the most widely used language for relational databases.

DATA TYPES:
1. CHAR (Size)
2. VARCHAR (Size) / VARCHAR2 (Size)
3. DATE
4. LONG
5. RAW

There are five types of SQL statements.

1. DATA DEFINITION LANGUAGE (DDL)
2. DATA MANIPULATION LANGUAGE (DML)
3. DATA RETRIEVAL LANGUAGE (DRL)
4. TRANSATIONAL CONTROL LANGUAGE (TCL)
5. DATA CONTROL LANGUAGE (DCL)

DATA DEFINITION LANGUAGE (DDL)

The Data Definition Language (DDL) is used to create and destroy databases and
database objects. Four basic DDL commands:
1. CREATE 2. ALTER 3. DROP 4. RENAME

1. CREATE:
a) CREATE TABLE: This is used to create a new relation (table)
Syntax: CREATE TABLE <relation_name/table_name >
(field_1 data_type(size),field_2 data_type(size), .. . );
b) NOT NULL: When a column is defined as NOTNULL, then that column
becomes a mandatory column. It implies that a value must be entered into the
column if the record is to be accepted for storage in the table.
Syntax:
CREATE TABLE Table_Name (column_name data_type (size) NOT NULL, );
c) PRIMARY KEY: A field which is used to identify a record uniquely. A column or
combination of columns can be created as primary key, which can be used as a
reference from other tables. A table contains primary key is known as Master
Table.
Syntax:
CREATE TABLE Table_Name(column_name data_type(size) PRIMARY KEY,….);
Example:

1
2. ALTER:
a) ALTER TABLE ...ADD...:
This is used to add some extra fields into existing relation.
Syntax: ALTER TABLE relation_name ADD (new field_1 data_type(size),
new field_2 data_type(size),..);

b) ALTER TABLE...MODIFY...:
This is used to change the width as well as data type of fields of existing
relations.
Syntax: ALTER TABLE relation_name MODIFY (field_1 newdata_type(Size),
field_2
newdata_type(Size),....field_newdata_type(Size));

c) ALTER TABLE..DROP...:
This is used to remove any field of existing relations.
Syntax: ALTER TABLE relation_name DROP COLUMN (field_name);

d) ALTER TABLE..RENAME...:
This is used to change the name of fields in existing relations.
Syntax: ALTER TABLE relation_name RENAME COLUMN (OLD field_name)
to (NEW field_name);
3. DROP TABLE:
This is used to delete the structure of a relation. It permanently deletes
the records in the table.
Syntax: DROP TABLE relation_name;

4. RENAME: It is used to modify the name of the existing database object.

Syntax: RENAME TABLE old_relation_name TO new_relation_name;

DATA MANIPULATION LANGUAGE (DML)

The Data Manipulation Language (DML) is used to retrieve, insert and modify
database information. These commands will be used by all database users during the
routine operation of the database
Implementation of DML commands of SQL with suitable examples

1. INSERT 2. UPDATE 3. DELETE

1. INSERT INTO:
This is used to add records into a relation. These are three type of INSERT
INTO queries which are as
a) Inserting a single record
Syntax: INSERT INTO < relation/table name>
(field_1,field_2……field_n) VALUES
(data_1,data_2,........data_n);
b) Inserting all records from another relation
Syntax: INSERT INTO relation_name_1 SELECT
Field_1,field_2,field_n FROM relation_name_2 WHERE
field_x=data;
c) Inserting multiple records
Syntax: INSERT INTO relation_name field_1,field_2,.....field_n) VALUES
(&data_1,&data_2,........&data_n);
2
 2. UPDATE-SET-WHERE:
This is used to update the content of a record in a relation.
Syntax: SQL>
UPDATE relation name SET Field_name1=data,field_name2=data,
WHERE field_name=data;
3. DELETE-FROM: This is used to delete all the records of a relation but it will
retain the structure of that relation.

a) DELETE-FROM: This is used to delete all the records of relation.

Syntax: SQL>DELETE FROM relation_name;

b) DELETE -FROM-WHERE:
This is used to delete a selected record from a relation.
Syntax: SQL>DELETE FROM relation_name WHERE condition;

4. TRUNCATE: This command will remove the data permanently. But structure will
not be removed.
Syntax: TRUNCATE TABLE <Table name>

Retrieve data from one or more tables

1. SELECT FROM: To display all fields for all records.

Syntax : SELECT * FROM relation_name;
2. SELECT FROM: To display a set of fields for all records of relation.

Syntax: SELECT a set of fields FROM relation_name;

3. SELECT - FROM -WHERE:
This query is used to display a selected set of fields for a selected set of
records of a relation.

Syntax: SELECT a set of fields FROM relation_name WHERE condition;

3
(II)Creation of data source connection (DSN)

STEP 1 :

click start buton -> control panel -> administrative tools ->datasource (ODBC) – ODBC
source administrative

Step 2:

select userdsn-> click add button - > select MICROSOFT ODBC FOR ORACLE

STEP 3: give a new data source name and username(SYSTEM) and click ok.

4
 (III)Adodc connection

1. Add the Microsoft ADO DataControl 6.0 (OLEDB) from the Project, Components
menu dialog box, as in Figure The ADO Data Control icon should now appear in
the VB toolbox.

2. Place an instance of the ADO Data Control on the form

3. Change the control's Name and Caption from their default values. (The Caption
is for information only, so you can set it to whatever you think will be most
informative for the user.)

5
4. Click the ellipsis next to the Connection String property in the ADO Data
Control's Properties window to bring up the Property Page dialog box for this
property, as shown

5. Click build button

6. Click next button

6
7. Click test connection and ok button

8. In property page click record source tab

NOTE : Table name should be capital letters.

9. Setting data source and corresponding datafields for all the textbox in the form

7
 (IV) ADDING Data report

Step 1: Adding Data Report

From the Project menu in the VBE, select Add Data Report in the dropdown menu.

Step 2: Connecting the report to database using Data Environment Designer

Click the Project menu, then select Data Environment. from the drop-down
menu.

Now, to connect to the database, right-click connection1 and select Microsoft OLE
DB Provider for Oracle (as we are using Oracle database) from the Data Link
Properties dialog , then click next.

8
Click test connection and ok button

Step 3: Retrieving Information from the Database

In order to use the database in report, create query to retrieve the information from the
database.
First of all, right click on Connection to add a command to the data environment. The
default command is Command1, as shown

9
Step 4: Adding Data Report

To add data to your report, you need to drag the fields from Command1 in
DataEnvironment1 into DataReport, as shown

Step 5: Changing Properties to Data Report

Customize a few properties of your data report so that it can connect to the database.
The first property to set is the DataSource, set it to DataEnvironment1

10
Next, you need to set the DataMember property to Command1,as shown

Step 6: Adding Data Report to Form

The Final step is to set dataReport1 as the Startup form from the Project menu, then
run the program

11
EX.NO: 1 employee payroll processing
DATE :

AIM:
To develop the project for the Employee Payroll Processing by
using Visual Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about Allowance, Deduction and
Net Pay Calculations of an Employee.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : employee

Name Null? Type

EMPID NOT NULL VARCHAR2(10)
EMPNAME VARCHAR2(20)
PHONE NUMBER(10)
DEPT VARCHAR2(10)
DOB DATE
DOJ DATE
DESIGN VARCHAR2(20)
BASICPAY NUMBER(20)
HRA NUMBER(10)
DA NUMBER(10)
PF NUMBER(10)
TOTALLOWANCE NUMBER(10)
TA NUMBER(10)
LIC NUMBER(10)
TOTDED NUMBER(10)
NETPAY NUMBER(10)
DATEOFSALARY DATE

12
 ENTITY – DIAGRAM

empname
phone
empid dept
dob
dateofsalary

doj

netpay

employee

deduction design
s

lic
basicpay

pf hra

totalallowance da ta

13
FORM DESIGN

14
 CONTROLS

COMMAND Adodc DATAGRI

INPUTS CALCULATE OUTPUT
BUTTON control D control
textbox

txtempid txthra txttotallowance cmdadd adodcemp Datagrid1

txtempname txtda txttotded cmdmod

txtphone txtta txtnetpay cmddel

txtdept txtpf cmdexit

txtdob cmdsearchempid

txtdoj searchempid

txtdesign cmdallsearch

txtbasicpay searchdept

txtlic

15
 VB CODING

GENERAL

Dim cn As New ADODB.Connection

Dim emprs As New ADODB.Recordset

FORM LOAD CODING

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
emprs.Open "employee", cn, adOpenDynamic, adLockOptimistic
txtdateofsalary.Text = Date
End Sub

ADDING,SAVING,MODIFYING,DELETING A RECORD

Private Sub cmdadd_Click()

adodcemp.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()

adodcemp.Recordset.Delete
MsgBox "record deleted"
adodcemp.Recordset.MoveNext
End Sub

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdmodify_Click()

adodcemp.Recordset.Update
MsgBox "record updated"
End Sub

Private Sub cmdsave_Click()

adodcemp.Recordset.Save
MsgBox "Record saved and salary generated"
End Sub

16
CALCULATION
Private Sub cmdcalculate_Click()
txthra.Text = Val(txtbasicpay.Text) * 12 / 100
txtda.Text = Val(txtbasicpay.Text) * 10 / 100
txtta.Text = Val(txtbasicpay.Text) * 11 / 100
txttotallowance.Text = Val(txthra.Text) + Val(txtda.Text) + Val(txtta.Text)

txtpf.Text = Val(txtbasicpay.Text) * 7 / 100

txtlic.Text = InputBox("Enter LIC amount")
txttotded.Text = Val(txtpf.Text) + Val(txtlic.Text)

txtnetpay.Text = Val(txtbasicpay.Text) + Val(txttotallowance.Text)

- Val(txttotded.Text)
End Sub

SEARCH

Private Sub cmdsearchempid_Click()

searchempid.Text = Trim(searchempid.Text)
adodcemp.RecordSource = "SELECT * FROM employee WHERE empid=
' " + (searchempid.Text) + " ' "
adodcemp.Refresh
End Sub

Private Sub cndallsearch_Click()

adodcemp.RecordSource = "SELECT * FROM employee"
adodcemp.Refresh
End Sub

Private Sub searchdept_Click()

searchempid.Text = Trim(searchempid.Text)
adodcemp.RecordSource = "SELECT * FROM employee WHERE dept=
' " + (txtsearchdept.Text) + " ' "
adodcemp.Refresh
End Sub

REPORT

Private Sub cmdreport_Click()

DataReport1.Show
End Sub

17
DATA ENVIRONMENT-EMPLOYEE PAYROLL

18
DATA REPORT-EMPLOYEE PAYROLL

19
EX.NO: 2 mark sheet processing system
DATE :

AIM:
To develop the project for the Student Mark sheet Processing
using Visual Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about Total marks, Percentage,
Class and Result Calculations of an Student.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN:

TABLE NAME: studentmark

Name Null? Type

REGNO NOT NULL NUMBER(10)
NAME VARCHAR2(20)
DOB DATE
ADDRESS VARCHAR2(20)
PHONE NUMBER(10)
SEMESTER VARCHAR2(20)
DEPT VARCHAR2(20)
M1 NUMBER(3)
M2 NUMBER(3)
M3 NUMBER(3)
M4 NUMBER(3)
M5 NUMBER(3)
TOTAL NUMBER(10)
PERCENTAGE NUMBER(10)
CLASS VARCHAR2(10)
RESULT VARCHAR2(10)

20
 ENTITY – DIAGRAM

name
phone
dept

regno dob

addres
s
semester

studentmark
result

class m1

percentage m2

total m4 m3
m5

21
FORM DESIGN

22
 CONTROLS

CALCULATE
INPUTS & COMMAND Adodc DATAGRID
OUTPUT BUTTON control control
textbox

txtregno txttot cmdadd adodcmark Datagrid1

txtname txtpercent cmdmod

txtdob txtclass cmddel

txtaddress txtresult cmdexit

txtphone cmdsearchregno

txtsem cmdallsearch.

txtdept cmdsearchresult

cmdsearchdept
txtm1

txtm2

txtm3

txtm4

txtm5

txtsearchdept

txtsearchresult

txtsearchregno

23
 VB CODING
GENERAL

Dim cn As New ADODB.Connection

Dim mkrs As New ADODB.Recordset

FORM LOAD CODING

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
mkrs.Open "studentmark", cn, adOpenDynamic, adLockOptimistic
End Sub

ADDING, SAVING,MODIFYING, DELETING A RECORD

Private Sub cmdadd_Click()

adodcmark.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()

adodcmark.Recordset.Delete
MsgBox "record deleted"
adodcmark.Recordset.MoveNext
End Sub

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdmodify_Click()

adodcmark.Recordset.Update
MsgBox "record updated"
End Sub

Private Sub cmdsave_Click()

adodcmark.Recordset.Save
MsgBox "Record saved "
End Sub

CALCULATION

Private Sub cmdcalculate_Click()

txttot.Text = Val(txtm1.Text) + Val(txtm2.Text) + Val(txtm3.Text)
+ Val(txtm4.Text) + Val(txtm5.Text)
txtpercent.Text = (Val(txttot.Text) / 5)
If (Val(txtpercent.Text) >= 75) Then
txtclass.Text = "ICLASS-DISTINCTION"
24
 ElseIf (Val(txtpercent.Text) >= 60) And (Val(txtpercent.Text) < 75) Then
txtclass.Text = "I Class"
ElseIf (Val(txtpercent.Text) >= 50) And (Val(txtpercent.Text) < 60) Then
txtclass.Text = "II Class"
ElseIf (Val(txtpercent.Text) >= 35) And (Val(txtpercent.Text) < 50) Then
txtclass.Text = "III Class"
End If
If (Val(txtm1.Text) > 35 And Val(txtm2.Text) > 35 And Val(txtm3.Text) > 35
And Val(txtm4.Text) > 35 And Val(txtm5.Text) > 35) Then
txtresult.Text = "PASS"
Else
txtresult.Text = "FAIL"
txtclass.Text = "NILL"
End If
End Sub

SEARCH
Private Sub cmdsearchregno_Click()
txtsearchregno.Text = Trim(txtsearchregno.Text)
adodcmark.RecordSource = "SELECT * FROM studentmark WHERE
regno=' " + (txtsearchregno.Text) + " ' "
adodcmark.Refresh
End Sub

Private Sub cmdsearchresult_Click()

txtsearchresult.Text = Trim(txtsearchresult.Text)
adodcmark.RecordSource = "SELECT * FROM studentmark WHERE
result=' " + (txtsearchresult.Text) + " ' "
adodcmark.Refresh
End Sub

Private Sub cmdallsearch_Click()

adodcmark.RecordSource = "SELECT * FROM studentmark"
adodcmark.Refresh
End Sub

Private Sub searchdept_Click()

txtsearchdept.Text = Trim(txtsearchdept.Text)
adodcmark.RecordSource = "SELECT * FROM studentmark WHERE
dept=' " + (txtsearchdept.Text) + " ' "
adodcmark.Refresh
End Sub

REPORT
Private Sub cmdreport_Click()
DataReport1.Show
End Sub

25
DATA ENVIRONMENT-STUDENTMARKSHEET

26
DATA REPORT- STUDENT MARKSHEET

27
EX.NO: 3 SAVINGS BANK ACCOUNT FOR BANKING
DATE :

AIM:
To develop the project for Opening Savings bank account using
Visual Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about Cash Withdraw and Deposit
by Updating Balance amount after each Transaction of a
Customer.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : bank

Name Null? Type

CUSNAME Not Null VARCHAR2(20)
OFFADDRESS VARCHAR2(20)
HOMEADDRESS VARCHAR2(20)
DATEOFBIRTH DATE
GENDER VARCHAR2(5)
PHONE NUMBER(10)
ACCOUNTNUM NUMBER(15)
ACCTYPE VARCHAR2(20)
BALANCE NUMBER(15)
DATEOPENED DATE
TRANSID NUMBER(10)
TRANDATE DATE
TRANSMODE VARCHAR2(20)

28
 ENTITY – DIAGRAM-BANKING

dateobirth
gender
homeaddress phone
accountnum
offaddress

acctype

customer
name

bank

transmode
balance

transdate
dateopened
transid

29
FORM DESIGN

30
 CONTROLS

CALCULATE &
INPUTS OUTPUT COMMAND Adodc DATAGRID
BUTTON control control
textbox
adodcbank
txtcusname txtamount cmdadd Datagrid1

txtcurrbal
txtoffaddr cmdmod

txthomeaddr cmddel

txtdob cmdexit

cmd
cmbgender
DEP/WITHD

txtphone cmdsearchacctno

txtaccno searchaccno

cmbacctype cmdallsearch

txtbalance

txtdateopen

txttransid

cmbtransmode

txttransdate

31
 VB CODING
GENERAL
Dim cn As New ADODB.Connection
Dim bankrs As New ADODB.Recordset

FORM LOAD CODING

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
bankrs.Open "bank", cn, adOpenDynamic, adLockOptimistic

‘for transaction mode combobox

cmbtransmode.AddItem "Depoist"
cmbtransmode.AddItem "Withdraw"

‘for gender combobox

cmbgender.AddItem "MALE"
cmbgender.AddItem "FEM"

‘for accounttype combobox

cmbacctype.AddItem "SAVINGS"
cmbacctype.AddItem "CURRENT"
End Sub

ADDING,SAVING,MODIFYING,DELETING A RECORD
Private Sub cmdadd_Click()
adodcbank.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()

adodcbank.Recordset.Delete
MsgBox "record deleted"
adodcbank.Recordset.MoveNext
End Sub

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdmodify_Click()

adodcbank.Recordset.Update
MsgBox "record updated"
End Sub

Private Sub cmdsave_Click()

MsgBox "Record saved "
End Sub
32
CALCULATION

Private Sub cmbtransmode_LostFocus()

cmd.Caption = cmbtransmode.Text
End Sub

Private Sub cmd_Click()

If cmd.Caption = "Depoist" Then
txtcurrbal.Text = Val(txtamount.Text) + Val(txtbalance.Text)
MsgBox "Transaction done successfully.", vbExclamation, Title
ElseIf cmd.Caption = "Withdraw" Then
If Trim(txtamount.Text) > Trim(txtbalance.Text) Then
MsgBox "The Amount you are withdrawing is more than your
current balance!", vbExclamation, Title
txtamount.SelStart = 0
txtamount.SelLength = Len(txtamount.Text)
txtamount.SetFocus
Exit Sub
ElseIf MsgBox("Are you sure you want to Withdraw " & txtamount.Text & "
from Account Number " & txtaccno.Text & " ?") Then
txtcurrbal.Text = Val(txtbalance.Text) - Val(txtamount.Text)
MsgBox ("Amount with drawn successfully")
End If
End If
End Sub

SEARCH
Private Sub cmdsearchacctno_Click()
searchaccno.Text = Trim(searchaccno.Text)
adodcbank.RecordSource = "SELECT * FROM bank WHERE
accountnum=' " + (searchaccno.Text) + " ' "
adodcbank.Refresh
End Sub

Private Sub cndallsearch_Click()

adodcbank.RecordSource = "SELECT * FROM bank"
adodcbank.Refresh
End Sub

REPORT

Private Sub cmdreport_Click()

DataReport1.Show
End Sub

33
DATA ENVIRONMENT-BANKING

34
DATA REPORT-BANKING

35
EX.NO: 4 inventory system
DATE :

AIM:
To develop the project for the Inventory System using Visual
Basic 6.0.
PROJECT PLANNING:
 The application should be developed using the VB controls.
 This project should describe about stockin, stockout of the
products in stock table and updation of stock in an inventory
table.
SOFTWARE REQUIREMENT ANALYSIS:
The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : invt
Name Null? Type
CATEGORY Not Null VARCHAR2(20)
BRAND VARCHAR2(20)
STOCK NUMBER(10)
UNITCOST NUMBER(37)
TOTALCOST NUMBER(37)

TABLE NAME : stock

Name Null? Type

DATESTK DATE
CATEGORY VARCHAR2(20)
BRAND VARCHAR2(20)
STOCKIN NUMBER(10)
STOCKOUT NUMBER(10)
UNITCOST NUMBER(10)
TOTALCOST NUMBER(10)
STOCK NUMBER(30)

36
 ENTITY RELATIONSHIP – DIAGRAM

stock brand category

brand
unitcost
dateofstk
category stock
totalcost

stockin
invt stockout stock

totalcost stockin

unitcost
stockout

37
FORM DESIGN

38
 CONTROLS

INPUTS OUTPUT &

combo box SEARCH
Adodc DATAGRID
& COMMAND
control control
command BUTTON
button
adoinvt gridinvt
cmbbrand categsearch
gridstock
adostock

cmbcatg searchbrand

cmdbrand allsearch

cmdcateg stocknew

cmdstockin

cmdstockout

cmdupdate

39
 VB CODING
FORM LOAD
Private Sub Form_Load()
'combo box items for brands
cmbbrand.Text = "ALL BRANDS"
cmbbrand.AddItem "ALL BRANDS"
cmbbrand.AddItem "SAMSUNG"
cmbbrand.AddItem "LG"
cmbbrand.AddItem "MOTOROLO"
cmbbrand.AddItem "HAIER"

'combo box items for categories

cmbcatg.Text = "ALL CATEGORIES"
cmbcatg.AddItem "ALL CATEGORIES"
cmbcatg.AddItem "TV"
cmbcatg.AddItem "SMART PHONE"
cmbcatg.AddItem "FRIDGE"
End Sub

CATEGORY AND BRAND COMBO BOX – INVT TABLE

Private Sub cmdbrand_Click()
adoinvt.Recordset.Fields("brand") = Trim(cmbbrand.Text)
End Sub

Private Sub cmdcateg_Click()

adoinvt.Recordset.Fields("category") = Trim(cmbcatg.Text)
End Sub

DATA GRID – INVT,STOCK

Private Sub gridinvt_Click()
If adoinvt.Recordset.Fields("unitcost") <> "" Then
Dim totalcostinvt As Double
totalcostinvt = Val(adoinvt.Recordset.Fields("unitcost")) *
Val(adoinvt.Recordset.Fields("stock"))
adoinvt.Recordset.Fields("totalcost") = Str(totalcostinvt)
Else
adoinvt.Recordset.Fields("totalcost") = ""
End If
End Sub

40
Private Sub gridstock_Click()
Dim totcoststk As Integer
If adostock.Recordset.Fields("stockin") <> " " Then
totcoststk = Val(adostock.Recordset.Fields("unitcost")) *
Val(adostock.Recordset.Fields("stockin"))
adostock.Recordset.Fields("totalcost") = Str(totcoststk)
ElseIf adostock.Recordset.Fields("stockout") <> " " Then
totcoststk = Val(adostock.Recordset.Fields("unitcost")) *
Val(adostock.Recordset.Fields("stockout"))
adostock.Recordset.Fields("totalcost") = Str(totcoststk)
End If
End Sub

STOCKIN AND STOCKOUT – STOCK TABLE

Private Sub cmdstockin_Click()
Dim stockvalue
adostock.Recordset.Fields("stockin") = InputBox("Enter stockin")
stockvalue = Val(adostock.Recordset.Fields("stockin")) +
Val(adoinvt.Recordset.Fields("stock"))

adoinvt.Recordset.Fields("stock") = Str(stockvalue)
adostock.Recordset.Fields("stock") = Str(stockvalue)
adoinvt.Recordset.Update
adostock.Recordset.Update
End Sub

Private Sub cmdstockout_Click()

Dim stockvalue
adostock.Recordset.Fields("stockout") = InputBox("Enter stockout")
stockvalue = Val(adoinvt.Recordset.Fields("stock"))
- Val(adostock.Recordset.Fields("stockout"))
adoinvt.Recordset.Fields("stock") = Str(stockvalue)
adostock.Recordset.Fields("stock") = Str(stockvalue)
adoinvt.Recordset.Update
adostock.Recordset.Update
End Sub

UPDATE AND EXIT

Private Sub cmdupdate_Click()
adoinvt.Recordset.Update
adostock.Recordset.Update
End Sub

Private Sub cmdexit_Click()

End
End Sub
41
NEW STOCK ENTRY
Private Sub stocknew_Click()
adostock.Recordset.AddNew
adostock.Recordset.Fields("datestk") = Date
adostock.Recordset.Fields("category") = adoinvt.Recordset.Fields("category")
adostock.Recordset.Fields("brand") = adoinvt.Recordset.Fields("brand")
adostock.Recordset.Fields("unitcost") = adoinvt.Recordset.Fields("unitcost")
adostock.Recordset.Fields("stock") = adoinvt.Recordset.Fields("stock")
adostock.Recordset.Update
adoinvt.Recordset.Update
End Sub

SEARCH
Private Sub allsearch_Click()
adoinvt.RecordSource = "SELECT * FROM invt"
adoinvt.Refresh
End Sub

Private Sub categsearch_Click()

adoinvt.RecordSource = "SELECT * FROM invt WHERE
category=' " + (cmbcatg.Text) + " ' "
adoinvt.Refresh
End Sub

Private Sub cmdsearch_Click()

adoinvt.RecordSource = "SELECT * FROM invt WHERE
category=' " + (cmbcatg.Text) + " ' "
adoinvt.Refresh
End Sub

Private Sub searchbrand_Click()

adoinvt.RecordSource = "SELECT * FROM invt WHERE
brand=' " + (cmbbrand.Text) + " ' "
adoinvt.Refresh
End Sub

REPORT
Private Sub cmdreport_Click()
DataReport1.Show
End Sub

42
DATA ENVIRONMENT- INVENTORY

43
DATA REPORT-INVENTORY

44
EX.NO: 5 INVOICE SYSTEM
DATE :

AIM:
To develop the project for the preparing Invoice using Visual
Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about calculating Invoice Amount,
tax, discount and balance amount of a customer for the items
purchased.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : invoice

Name Null? Type

CUSTOMERID NOT NULL NUMBER(10)
CUSTOMERNAME VARCHAR2(20)
PHONENO NUMBER(10)
DATEOFEMBERSHIP DATE
INVOICENO NUMBER(10)
INVOICEDATE DATE
INVOICEAMT NUMBER(20)
DISAMT NUMBER(10)
NETAMT NUMBER(10)
AMTPAID NUMBER(10)
BALAMT NUMBER(20)
ADDRESS VARCHAR2(20)
TAX NUMBER(10)

45
 ENTITY – DIAGRAM

dateof invoice
membership no
invoicedate
phone

customername address

customerid

invoice

invoiceamt
balam
t
tax
amtpaid
netamt disamt

46
FORM DESIGN

47
 CONTROLS

INPUTS CALCULATE OUTPUT COMMAND Adodc DATAGRI

BUTTON control D control
textbox
txtdisa
txtcustomerid txtamtpaid cmdadd adodcinv Datagrid1
mt

txtcustomername txttax txtbalamt cmdmod

txtneta
txtphoneno cmddel
mt

txtaddress cmdexit

txtdateofmem cmdsearchcusid

txtinvoiceno cmdallsearch

txtinvoicedate

txtinvoiceamt

txtsearchcusid

48
 VB CODING

GENERAL

Dim cn As New ADODB.Connection

Dim invrs As New ADODB.Recordset

FORM LOAD

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
invrs.Open "invoice", cn, adopendynamc, adLockOptimistic
End Sub

ADDING,SAVING,MODIFYING,DELETING A RECORD

Private Sub cmdadd_Click()

adodcinv.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()

adodcinv.Recordset.Delete
MsgBox "record deleted"
adodcinv.Recordset.MoveNext
End Sub

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdmodify_Click()

adodcinv.Recordset.Update
MsgBox "record updated"
End Sub

Private Sub cmdsave_Click()

MsgBox "Record saved "
End Sub

CALCULATION

Private Sub cmdcalculate_Click()

txtdisamt.Text = Round((Val(txtinvoiceamt.Text) * 5)) / 100
txttax.Text = Round((Val(txtinvoiceamt.Text) * 2)) / 100
End Sub

49
Private Sub txtnetamt_Click()
txtnetamt.Text = Round(Val(txtinvoiceamt.Text) - Val(txtdisamt.Text)
+ Val(txttax.Text))
End Sub
Private Sub txtbalamt_Click()
txtbalamt.Text = Round(Val(txtamtpaid.Text) - Val(txtnetamt.Text))
End Sub

SEARCH

Private Sub cmdsearchcusid_Click()

searchcusid.Text = Trim(searchcusid.Text)
adodcinv.RecordSource = "SELECT * FROM invoice WHERE
customerid=' " + (searchcusid.Text) + " ' "
adodcinv.Refresh
End Sub

Private Sub cmdallsearch_Click()

adodcinv.RecordSource = "SELECT * FROM invoice"
adodcinv.Refresh
End Sub

REPORT

Private Sub cmdreport_Click()

DataReport1.Show
End Sub

50
DATA ENVIRONMENT- INVOICE

51
DATA REPORT-INVOICE

52
EX.NO: 6 Library information system
DATE :

AIM:
To develop the project for the Library Information System using
Visual Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about Book Issue , Return and No.
of copies of book updation Calculations of an Library Memeber.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : libbook

Name Null? Type

BOOKID Not Null VARCHAR2(10)
BOOKNAME VARCHAR2(20)
AUTHOR VARCHAR2(20)
EDITION NUMBER(5)
COST NUMBER(10)
PUBLISHER VARCHAR2(20)
SUPPLIER VARCHAR2(20)
NOOFCOPIES NUMBER(5)

53
TABLE NAME : libmem

Name Null? Type

MEMBERID VARCHAR2(20)
MEMBERNAME VARCHAR2(20)
DATEOFMEM DATE
ADDRESS VARCHAR2(20)
PHONE NUMBER(10)
TRANSDATE DATE
RETDATE DATE
DOR DATE
FINE NUMBER(5)
BOOKID NUMBER(10)
BOOKNAME VARCHAR2(20)
AUTHOR VARCHAR2(20)
COPIES NUMBER(10)
TRANSACTION VARCHAR2(20)
COPYISSUERETURN NUMBER(5)

54
 ENTITY RELATIONSHIP – DIAGRAM

author dateof
memname mem
bookname
publisher

bookid memid
address
supplier

book
libbook issue/ libmem
return

edition no.ofcopies
dor phone

renewdat
cost transdate
e

55
FORM DESIGN

56
 CONTROLS

CALCULATE
INPUTS & COMMAND Adodc DATAGRID
OUTPUT BUTTON control control
textbox & combo box
txtmemid txttransdate cmdaddmem adodclibbk DataGrid1BOO

txtmemname txtretdate cmdmodmem adodclibmem

DataGridMEM

txtdom txtbkissuedt cmddelmem

txtaddress txtmemretdate cmdexitmem

txtcpret
txtphone cmdissue

txtfine
cmbtrans cmdreturn

txtbkiddis cmdreport

txtbknamedis cmdbook

txtauthdis

txtcopdis

txtcopissu

57
 VB CODING

GENERAL
Dim cn As New ADODB.Connection
Dim memrs As New ADODB.Recordset
Dim bkrs As New ADODB.Recordset

FORM LOAD CODING

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
' for member table
memrs.Open "libmem", cn, adOpenDynamic, adLockOptimistic
' for book table
bkrs.Open "libbook", cn, adOpenKeyset, adLockPessimistic
' for transaction combo box
cmbtrans.AddItem "ISSUE"
cmbtrans.AddItem "RETURN"
End Sub

ADDING,SAVING,MODIFYING,DELETING A RECORD

Private Sub cmdaddmem_Click(Index As Integer)

adodclibmem.Recordset.AddNew
End Sub

Private Sub cmddelmem_Click(Index As Integer)

adodclibmem.Recordset.Delete
MsgBox "Record Deleted"
End Sub

Private Sub cmdexitmem_Click(Index As Integer)

End
End Sub

Private Sub cmdmodmem_Click(Index As Integer)

adodclibmem.Recordset.Update
MsgBox "Record modified"
End Sub

58
CALCULATION

Private Sub cmdbook_Click()

If adodclibbk.Recordset.Fields("bookid") = Val(txtbkiddis.Text) Then
txtbknamedis.Text = adodclibbk.Recordset.Fields("bookname")
txtauthdis.Text = adodclibbk.Recordset.Fields("author")
txtcopdis.Text = adodclibbk.Recordset.Fields("noofcopies")
End If
End Sub

Private Sub cmdissue_Click()

txttransdate.Text = Date
Dim ad, rd As Date
ad = CDate(txttransdate.Text)
rd = DateAdd("d", 10, ad)
txtretdate.Text = rd
Dim copystk
copystk = Val(adodclibbk.Recordset.Fields("noofcopies"))
- Val(txtcopissue.Text)
adodclibbk.Recordset.Fields("noofcopies") = Str(copystk)
adodclibbk.Recordset.Update
MsgBox "book issued"
MsgBox "No of copies after ISSUE"
txtcopdis.Text = adodclibbk.Recordset.Fields("noofcopies")
adodclibmem.Recordset.Update
adodclibmem.Refresh
End Sub

Private Sub cmdreturn_Click(Index As Integer)

cmdissue.Visible = False
lblissue.Visible = False
lbltransdate.Visible = False
lblretdate.Visible = False
lblbkissue.Visible = False
txtretdate.Visible = False
txttransdate.Visible = False
txtcopissue.Visible = False

txtmemretdate.Text = Date
a = DateDiff("d", txtbkissuedt.Text, txtmemretdate.Text)
If (a <= 10) Then
txtfine.Text = 0
Else
b = a - 10
c = (b * 2)
txtfine.Text = Val(c)
End If

59
 Dim copystk
copystk = Val(adodclibbk.Recordset.Fields("noofcopies"))
+ Val(txtcpret.Text)
adodclibbk.Recordset.Fields("noofcopies") = Str(copystk)
adodclibbk.Recordset.Update
MsgBox "book returned"
MsgBox "No.of copies after RETURN"
txtcopdis.Text = adodclibbk.Recordset.Fields("noofcopies")
adodclibmem.Recordset.Update
adodclibmem.Refresh
End Sub

Private Sub txtdom_Click()

txtdom.Text = Date
End Sub

REPORT

Private Sub cmdreport_Click()

DataReport1.Show
End Sub

60
DATA ENVIRONMENT-LIBRARY SYSTEM

61
DATA REPORT-LIBRARY SYSTEM

62
EX.NO: 7 STUDENT INFORMATION SYSTEM
DATE :

AIM:
To develop the project for the Student Information System
using Visual Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about personal details update of a
Student.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : studentdetails

Name Null? Type

REGNO Not Null NUMBER(10)
NAME VARCHAR2(20)
DOB DATE
ADDRESS VARCHAR2(20)
PHONE NUMBER(10)
SEMESTER NUMBER(5)
DEPT VARCHAR2(20)

63
 ENTITY – DIAGRAM

name
phone
dept

regno dob

addres
s
semester

studentdetails

64
FORM DESIGN

65
 CONTROLS

INPUTS COMMAND Adodc DATAGRID

textbox BUTTON control control

txtregno cmdadd adodcstd Datagrid1

txtname cmdmod

txtdob cmddel

txtaddress cmdexit

txtphone cmdsearchregno

txtsem cmdallsearch

cmdsearchdept
txtdept

txtsearchregno

txtsearchdept

66
 VB CODING

GENERAL

Dim cn As New ADODB.Connection

Dim mkrs As New ADODB.Recordset

FORM LOAD CODING

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
mkrs.Open "studentmark", cn, adOpenDynamic, adLockOptimistic
End Sub

ADDING,SAVING,MODIFYING,DELETING A RECORD

Private Sub cmdadd_Click()

adodcstd.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()

adodcstd.Recordset.Delete
MsgBox "record deleted"
adodcstd.Recordset.MoveNext
End Sub

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdmodify_Click()

adodcstd.Recordset.Update
MsgBox "record updated"
End Sub

Private Sub cmdsave_Click()

adodcstd.Recordset.Save
MsgBox "Record saved "
End Sub

67
SEARCH

Private Sub cmdsearchregno_Click()

txtsearchregno.Text = Trim(txtsearchregno.Text)
adodcstd.RecordSource = "SELECT * FROM studentdetails WHERE
regno=' " + (txtsearchregno.Text) + " ' "
adodcstd.Refresh
End Sub

Private Sub searchdept_Click()

txtsearchdept.Text = Trim(txtsearchdept.Text)
adodcstd.RecordSource = "SELECT * FROM studentdetails WHERE
dept=' " + (txtsearchdept.Text) + " ' "
adodcstd.Refresh
End Sub

Private Sub cmdallsearch_Click()

adodcstd.RecordSource = "SELECT * FROM studentdetails"
adodcstd.Refresh
End Sub

REPORT

Private Sub cmdreport_Click()

DataReport1.Show
End Sub

68
 DATA ENVIRONMENT
STUDENT INFORMATION SYSTEM

69
DATA REPORT- STUDENT INFORMATION

70
EX.NO: 8 INCOME TAX processing SYSTEM
DATE :

AIM:
To develop the project for the Income Tax Processing System
using Visual Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about Annual Income, Tax amount
and Deductions Calculations of an Employee for Tax payment.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : incometax

Name Null? Type

EMPID Not Null NUMBER(10)
EMPNAME VARCHAR2(20)
PHONENO NUMBER(10)
DEPT VARCHAR2(10)
DOB DATE
DOJ DATE
DESIGN VARCHAR2(10)
BASICPAY NUMBER(10)
ANNUALINCOME NUMBER(20)
TAXAMT NUMBER(20)
DATEOFTAXGEN DATE
LASTDATEPAY DATE
DEDUCTIONS NUMBER(10)

71
 ENTITY – DIAGRAM

empname
phone
empid dept
dob
basicpay

doj

design

incometax

deduction dateoftaxge
s n

lastdaytopay
tax amount annual
income

72
FORM DESIGN

73
 CONTROLS

INPUTS CALCULATE OUTPUT COMMAND Adodc DATAGRID

BUTTON control control
textbox

txtempid txtannualincome txttaxamt cmdadd adodctax Datagrid1

txtlast
txtempname txtdateoftaxgen cmdmod
datepay

txtphone cmddel

txtdept cmdexit

txtdob cmdsearchempid

txtdoj cmdallsearch

txtdesign

txtbasicpay

txtdeductions

txtsearch
empid

74
 VB CODING

GENERAL

Dim cn As New ADODB.Connection

Dim taxrs As New ADODB.Recordset

FORM LOAD CODING

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
taxrs.Open "incometax", cn, adOpenDynamic, adLockOptimistic
End Sub

ADDING,SAVING,MODIFYING,DELETING A RECORD

Private Sub cmdadd_Click()

adodctax.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()

adodctax.Recordset .Delete
MsgBox "record deleted"
adodctax.Recordset.MoveNext
End Sub

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdmodify_Click()

adodctax.Recordset.Update
MsgBox "record updated"
End Sub

Private Sub cmdsave_Click()

adodctax.Recordset.Save
MsgBox "Record saved "
End Sub

75
CALCULATION

Private Sub txttaxamt_Click()

If (Val(txtannualincome.Text)) < 150000 Then
MsgBox " No Income tax"
txttaxamt.Text = 0
ElseIf (Val(txtannualincome.Text) > 150000) And
(Val(txtannualincome.Text) < 250000) Then
MsgBox "10% Tax Percentage"
txttaxamt = (Val(txtannualincome) * 10) / 100
Else
MsgBox "15% Tax Percentage"
txttaxamt = (Val(txtannualincome) * 15) / 100
End If
txtdateoftaxgen.Text = Date
‘DATE GENERATION CODING
Dim ad, rd As Date
ad = CDate(txtdateoftaxgen.Text)
rd = DateAdd("d", 30, ad)
txtlastdatepay.Text = rd
End Sub

Private Sub txtannualincome_GotFocus()

txtannualincome.Text = Round(Val(txtbasicpay.Text) * 12)
End Sub
Private Sub txtannualincome_LostFocus()
MsgBox "Annual Income After deductios"
txtannualincome.Text = Val(txtannualincome.Text)
- Val(txtdeductions.Text)
End Sub
SEARCH
Private Sub cmdallsearch_Click()
adodctax.RecordSource = "SELECT * FROM studentmark"
adodctax.Refresh
End Sub

Private Sub cmdsearchempid_Click()

txtsearchempid.Text = Trim(txtsearchempid.Text)
adodctax.RecordSource = "SELECT * FROM incometax WHERE
empid=' " + (txtsearchempid.Text) + " ' "
adodctax.Refresh
End Sub
REPORT
Private Sub cmdreport_Click()
DataReport1.Show
End Sub

76
DATA ENVIRONMENT- INCOME TAX

77
DATA REPORT-INCOME TAX

78
EX.NO: 9 Electricity bill preparation system
DATE :

AIM:
To develop the project for the Electricity Bill Preparation
System using Visual Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about Current Meter Readings,
Number of Units consumed and Bill amount Calculations of
an Customer.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : ebcustomer

Name Null? Type

CUSTOMERID Not Null VARCHAR2(20)
CUSTOMERNAME VARCHAR2(20)
PHONENO NUMBER(10)
ADDRESS VARCHAR2(20)
DATEOFMEMBERSHIP DATE
PREVMTREAD NUMBER(5)
CURRREADING NUMBER(5)
UNITS NUMBER(5)
AMOUNT NUMBER(5)

79
 ENTITY – DIAGRAM

phoneno
address
customername
dateofmembership

customerid

prevmtread

ebcustomer

amount

currentmtreading

units

80
FORM DESIGN

81
 CONTROLS

CALCUL DATAGRI
INPUTS OUTPUT COMMAND Adodc
ATE D
BUTTON control
textbox control

txtcustomerid txtunit txtamt cmdadd adodcinv Datagrid1

txtcustomername txtamt cmdmod

txtphoneno cmddel

txtaddress cmdexit

txtdateofmem cmdcalculate

txtprevmtread cmdreport

txtcurrread
cmdsearchcusid

cmdallsearch

82
 VB CODING
GENERAL

Dim cn As New ADODB.Connection

Dim ebrs As New ADODB.Recordset

FORM LOAD CODING

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
ebrs.Open "ebcustomer", cn, adopendynamc, adLockOptimistic
End Sub

ADDING,SAVING,MODIFYING,DELETING A RECORD

Private Sub cmdadd_Click()

adodceb.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()

adodceb.Recordset.Delete
MsgBox "record deleted"
adodceb.Recordset.MoveNext
End Sub

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdmodify_Click()

adodceb.Recordset.Update
MsgBox "record updated"
End Sub

Private Sub cmdsave_Click()

adodceb.Recordset.Update
MsgBox "Record saved "
End Sub

83
CALCULATION

Private Sub cmdcalculate_Click()

txtunit.Text = Val(txtcurrread.Text) - Val(txtprevmtread.Text)
Dim t As Integer
If Val(txtunit.Text) < 100 Then
txtamt = 0
ElseIf Val(txtunit.Text) > 200 & Val(txtunit.Text) < 500 Then
t = Val(txtunit.Text) - 200
txtamt.Text = (t * 3.5) + (100 * 1.5) + (100 * 2.25)
Else
txtamt.Text = Val(txtunit.Text * 1.5)
End If
End Sub

SEARCH

Private Sub cmdsearchcusid_Click()

searchcusid.Text = Trim(searchcusid.Text)
adodceb.RecordSource = "SELECT * FROM ebcustomer WHERE
customerid=' " + (searchcusid.Text) + " ' "
adodceb.Refresh
End Sub

Private Sub cmdallsearch_Click()

adodceb.RecordSource = "SELECT * FROM ebcustomer"
adodceb.Refresh
End Sub

REPORT

Private Sub cmdreport_Click()

DataReport1.Show
End Sub

84
DATA ENVIRONMENT-ELECTRICITY BILL

85
DATA REPORT-ELECTRICITY BILL

86
EX.NO: 10 TELEPHONE DIRECTORY MAINTENANCE
DATE :

AIM:
To develop the project for the Telephone Directory Maintenance
Using Visual Basic 6.0.

PROJECT PLANNING:
 The application should be developed by using the controls.
 This project should describe about customer telephone
directory Maintenance.

SOFTWARE REQUIREMENT ANALYSIS:

The basic requirements for the project includes,
 Microsoft visual basic 6.0
 Windows OS
 Oracle 9i

SQL DATABASE DESIGN :

TABLE NAME : telephone

Name Null? Type

CUSTOMERID Not Null NUMBER(10)
CUSTOMERNAME VARCHAR2(20)
ADDRESS VARCHAR2(20)
DATEOFMEM DATE
TYPE VARCHAR2(10)
FACILITIES VARCHAR2(10)
AREACODE NUMBER(5)
PHONENO NUMBER(10)

87
 ENTITY – DIAGRAM

phoneno dateofmem
address type

customername
facilities

areacode
customerid

telephone

88
FORM DESIGN

89
 CONTROLS

INPUTS DATAGRI
COMMAND Adodc
D
textbox BUTTON control
control

txtcustomerid cmdadd Adodc1 Datagrid1

txtcustomername cmdmod

txtaddress cmddel

txtdateofmem cmdexit

cmbtype cmdsearchtelephone

cmbfacilities txtsearchphone

cmbareacode

txtphoneno

90
 VB CODING

GENERAL

Dim cn As New ADODB.Connection

Dim trs As New ADODB.Recordset

FORM LOAD CODING

Private Sub Form_Load()

cn.Open “veltech”, “scott”, “tiger”
trs.Open "telephone", cn, adopendynamc, adLockOptimistic

cmbtype.AddItem "MOBILE"
cmbtype.AddItem "lANDLINE"
cmbfacilities.AddItem "LOCAL"
cmbfacilities.AddItem "LOCAL +STD"
cmbfacilities.AddItem "LOCAL + STD + ISD"
cmbareacode.AddItem "044"
cmbareacode.AddItem "+91"
End Sub

ADDING,SAVING,MODIFYING,DELETING A RECORD

Private Sub cmdadd_Click()

Adodc1.Recordset.AddNew
End Sub

Private Sub cmddelete_Click()

Adodc1.Recordset.Delete
MsgBox "record deleted"
Adodc1.Recordset.MoveNext
End Sub

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdmod_Click()

Adodc1.Recordset.Update
MsgBox "record updated"
End Sub

Private Sub cmdsave_Click()

Adodc1.Recordset.Save
MsgBox "record saved"
End Sub
91
SEARCH

Private Sub cmdsearchtelephone_Click()

searchphone.Text = Trim(searchphone.Text)
Adodc1.RecordSource = "SELECT * FROM telephone WHERE
phoneno=' " + (searchphone.Text) + " ' "
Adodc1.Refresh
End Sub

Private Sub cmdallsearch_Click()

Adodc1.RecordSource = "SELECT * FROM telephone"
Adodc1.Refresh
End Sub

REPORT

Private Sub cmdreport_Click()

DataReport1.Show
End Sub

92
DATA ENVIRONMENT-TELEPHONE DIRECTORY

93
DATA REPORT-TELEPHONE DIRECTORY

94