Program 1:

AIM: Construction of an ArithmeticCalculator(Simple).

ALGORITHM:
Step 1; Start the Process
Step 2: Design the forms using controls
Step 3: Using control array design the forms using command button
Step 4: Write the coding
Step 5: Run the project
Step 6: Stop the process

DESIGN TIME WINDOW:

RUN TIME WINDOW:

RESULT :
Program 2:
AIM: . Writing simple programs using loops and decision-making statements.
a. Generate Fibonacci series.
b. Find the sum of Nnumbers.
ALGORITHM:
Step 1; Start the Process
Step 2: Design the forms using controls
Step 3: Declare variables for find the Fibonacci values
Step 4: Declare variables for sum of N numbers
Step 5: change the property in property window
Step 6: Write the coding
Step 7: Run the project
Step 8: Stop the process

PROPERTIES:
SI Control Name Property Value
NO.

1 Form Caption Fibonacci Series

Font Cooper

Name Form1

Windowstate 2-Maximized

2 Labels Alignment 2-Centre

Font Cooper

i) Label1 Caption Fibonacci Series

Name Label1

3 Textbox Alignment 0-Left Justify

Font Cooper

i) Text1 Name Text1

ii) Text2 Name Text2

4 Command Button Alignment 2-Centre

Font Cooper
i) Command1 Caption Generate

Name Command1

ii) Command2 Caption Clear

Name Command2

iii) Command3 Caption Exit

Name Command3
PROGRAM CODING:
Private Sub Command1_Click()

Dim f, s, a, n As Integer

n = Val(Text1.Text)

a=0

f=0

s=1

List1.AddItem f

List1.AddItem s

c=2

While (c < n)

a=f+s

List1.AddItem a

f=s

s=a

c=c+1

Wend

End Sub

Private Sub Command2_Click()

List1.Clear

Text1 = ""

End Sub
Private Sub Command3_Click()

End

End Sub

DESIGNTIME WINDOW:

RUNTIME WINDOW:

RESULT :
PROPERTIES:
SI Control Name Property Value
NO.

1 Form Caption Sum Of Digit

Font Cooper

Name Form1

Windowstate 2-Maximized

2 Labels Alignment 2-Centre

Font Cooper

ii) Label1 Caption Sum Of Digit

Name Label1

3 Textbox Alignment 0-Left Justify

Font Cooper

iii) Text1 Name Text1

4 Command Button Alignment 2-Centre

Font Cooper

iii) Command1 Caption Display Sum

Name Command1

iv) Command2 Caption Clear

Name Command2
PROGRAM CODING:
Private Sub Command1_Click()

Dim n, s, c, r As Integer

n = Val(Text1.Text)

s=0

While (n > 0)

s = s + (n Mod 10)

n = n / 10

Wend

Text2.Text = s

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub
DESIGNTIME WINDOW:
RUNTIME WINDOW:

RESULT :
PROPERTIES:
SI Control Name Property Value
NO.

PROJECT PROPERTIES

1 MenuItems

 MenuItem1

i) AddForm Caption Addform

 Form1 Caption Form1

Name frm1

 Form2 Caption Form2

Name frm2

 Form3 Caption Form3

Name frm3

ii) Arrange Caption arrange

 Cascade Caption Cascade

Name cascade

 Horizontal Caption Horizontal

Name horizon

 Vertical Caption Vertical

Name verti

 MenuItem2

i) Color Caption Color

 Red Caption Red

Name red
  Green Caption Green

Name green

 Blue Caption Blue

Name blue

FORM PROPERTIES

1 MDIForm Caption MenuDrivenProgram

Name MDIForm1

Windowstate 2-Maximized

2 Forms MDIchild True

i) Form1 Caption Form1

Name frm1

ii) Form2 Caption Form2

Name frm2

iii) Form3 Caption Form1

Name frm3
PROGRAM CODING:
Private Sub MDIForm_Load()
Me.Height = 10000
Me.Width = 10000
Me.Left = 0
Me.Top = 0
End Sub

Private Sub frm1_Click()

Form1.Show
End Sub

Private Sub frm2_Click()

Form2.Show
End Sub

Private Sub frm3_Click()

Form3.Show
End Sub

Private Sub cascade_Click()

MDIForm1.arrange 0
End Sub

Private Sub horizon_Click()

MDIForm1.arrange 1
End Sub

Private Sub verti_Click()

MDIForm1.arrange 2
End Sub

Private Sub red_Click()

If Screen.ActiveForm.Name = "Form1" Then
Form1.BackColor = vbRed
ElseIf Screen.ActiveForm.Name = "Form2" Then
Form2.BackColor = vbRed
ElseIf Screen.ActiveForm.Name = "Form3" Then
Form3.BackColor = vbRed
End If
End Sub

Private Sub green_Click()

If Screen.ActiveForm.Name = "Form1" Then
Form1.BackColor = vbGreen
ElseIf Screen.ActiveForm.Name = "Form2" Then
Form2.BackColor = vbGreen
ElseIf Screen.ActiveForm.Name = "Form3" Then
Form3.BackColor = vbGreen
End If
End Sub

Private Sub blue_Click()

If Screen.ActiveForm.Name = "Form1" Then
Form1.BackColor = vbBlue
ElseIf Screen.ActiveForm.Name = "Form2" Then
Form2.BackColor = vbBlue
ElseIf Screen.ActiveForm.Name = "Form3" Then
Form3.BackColor = vbBlue
End If
End Sub

DESIGN TIME WINDOW:

RUN TIME WINDOW:
RESULT :
PROPERTIES:
SI Control Name Property Value
NO.

1 Form Caption Rich TextBox

Control

Font Cooper

Name Form1

Windowstate 2-Maximized

2 Rich Textbox Alignment 0-Left Justify

Font Cooper

i) RichTextBox1 Name RichTextBox1

Enabled True

3 Common Dialog Control

Name CommonDialog1

4 File Listbox Name File1

CausesValidation True

5 Drive Listbox Name Drive1

CausesValidation True

6 Directory Listbox Name Dir1

CausesValidation True

7 Image

Name Image1

Visible True

8 Command Button Alignment 2-Centre

 Font Cooper

i) Command1 Caption Open

Name Command1

ii) Command2 Caption Save

Name Command2

iii) Command3 Caption Clear

Name Command3

iv) Command4 Caption Exit

Name Command4

PROGRAM CODING:
Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

CommonDialog1.ShowSave

End Sub

Private Sub Command3_Click()

CommonDialog1.ShowOpen

End Sub
Private Sub Command4_Click()

rtb1.Text = ""

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

On Error GoTo 1

Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)

rtb1.Visible = False

Image1.Visible = True

Exit Sub

1: rtb1.FileName = File1.Path & "\" & File1.FileName

rtb1.Visible = True

Image1.Visible = True

End Sub
Private Sub Form_Load()

rtb1.Visible = False

Image1.Visible = False

End Sub

DESIGNTIME WNDOW:
RUNTIME WINDOW:

RESULT :
PROPERTIES:
SI Control Name Property Value
NO.

1 Form Caption CommonDialog

Font Cooper

Name Form1

2 CommonDialogControl

Name CommonDialog1

3 Labels Alignment 2-Centre

Font Cooper

ii) Label1 Caption Enter The Text

Name Label1

4 Textbox Alignment 2-Center

Font Copperplate Gothic

ii) Text1 Name Text1

5 Command Button Alignment 2-Centre

Font Cooper

v) Command1 Caption Open

Name Command1

vi) Command2 Caption Font

Name Command2

vii) Command3 Caption Save

Name Command3

viii) Command4 Caption Exit

 Name Command4

PROGRAM CODING:
Private Sub Command1_Click()

CommonDialog1.ShowOpen

End Sub

Private Sub Command2_Click()

CommonDialog1.ShowFont

Text1.FontName = CommonDialog1.FontName

Text1.FontSize = CommonDialog1.FontSize

Text1.FontBold = CommonDialog1.FontBold

Text1.FontItalic = CommonDialog1.FontItalic

End Sub

Private Sub Command3_Click()

CommonDialog1.ShowSave

End Sub

Private Sub Command4_Click()

Unload Me

End Sub
DESIGN TIME WINDOW:

RUN TIME WINDOW:

RESULT :
PROPERTIES:
SI Control Name Property Value
NO.

1 Form Caption Animation Using

Timers

Font Cooper

Name Form1

2 Timer

Name Timer 1

Enabled True

Interval 100

3 Image

i) Image Name Image 1

Enabled True

ii) Image Name Image 2

Enabled True

PROGRAM CODING:
Private Sub Timer1_Timer()

If Image1.Visible = True Then

Image1.Visible = False

Image2.Visible = True

ElseIf Image2.Visible = True Then

Image2.Visible = False

Image1.Visible = True

End If

End Sub

DESIGNTIME WINDOW:
RUNTIME WINDOW:

RESULT :
PROPERTIES:
SI Control Name Property Value
NO.

1 Form Caption Binary Octal Hexa

Conversion

Font Cooper

Name Form1

Windowstate 2-Maximized

2 Labels Alignment 2-Centre

Font Cooper

iii) Label1 Caption Binary Octal Hexa

Conversion

Name Label1

iv) Label2 Caption Enter The Digit

Name Label2

v) Label3 Caption Binary

Name Label3

vi) Label4 Caption Octal

Name Label4

vii) Label5 Caption Hexadecimal

Name Label5

3 Textbox Alignment 0-Left Justify

Font Cooper

iv) Text1 Name Text1

v) Text2 Name Text2

 vi) Text3 Name Text3

vii) Text4 Name Text4

4 Command Button Alignment 2-Centre

Font Cooper

v) Command1 Caption Convert

Name Command1

vi) Command2 Caption Clear

Name Command2

vii) Command3 Caption Exit

Name Command3

PROGRAM CODING:
Private Sub Command1_Click()
Dim a, b As Integer
Dim c As String
a = Val(Text1.Text)
c=""

While a > 0
b = Fix(a) Mod 2
a = Fix(a) / 2
c=b&c
Text2.Text = Val(c)
Wend
a = Val(Text1.Text)
Text3.Text = Oct(a)
Text4.Text = Hex(a)
End Sub

Private Sub Command2_Click()

Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
End Sub

Private Sub Command3_Click()

End
End Sub

DESIGN TIME WINDOW:

RUN TIME WINDOW:

RESULT :
ORACLE
CODING:

SQL> create table employee (empid number(3) primary key empname

varchar2(15),design varchar2(15),gender char(1),age number(2),doj date,salary
number(10));

Table created

SQL> desc employee

Name Null? Type

EMPID NOT NULL NUMBER(3)

EMPNAME VARCHAR2(15)
DESIGN VARCHAR2(15)
GENDER CHAR(1)
AGE NUMBER(2)
DOJ DATE
SALARY NUMBER(10)

SQL> insert into employee

values('&empid','&empname','&design','&gender',&age,'&doj',&salary);
Enter value for empid: 100
Enter value for empname: karthikeyan
Enter value for design: md
Enter value for gender: m
Enter value for age: 20
Enter value for doj: 20/jan/2020
Enter value for salary: 100000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('100','karthikeyan','md','m',20,'20/jan/2020',100000)

1 row created.

SQL> /
Enter value for empid: 101
Enter value for empname: thirupathi
Enter value for design: manager
Enter value for gender: m
Enter value for age: 20
Enter value for doj: 21/feb/2020
Enter value for salary: 75000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('101','thirupathi','manager','m',20,'21/feb/2020',75000)

1 row created.

SQL> /
Enter value for empid: 102
Enter value for empname: katrina
Enter value for design: manager
Enter value for gender: f
Enter value for age: 20
Enter value for doj: 24/mar/2020
Enter value for salary: 75000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('102','katrina','manager','f',20,'24/mar/2020',75000)

1 row created.

SQL> /
Enter value for empid: 103
Enter value for empname: premanand
Enter value for design: designer
Enter value for gender: m
Enter value for age: 19
Enter value for doj: 24/aug/2020
Enter value for salary: 60000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('103','premanand','designer','m',19,'24/aug/2020',60000)

1 row created.

SQL> /
Enter value for empid: 104
Enter value for empname: harisudhan
Enter value for design: programmer
Enter value for gender: m
Enter value for age: 19
Enter value for doj: 25/sep/2020
Enter value for salary: 55000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('104','harisudhan','programmer','m',19,'25/sep/2020',55000)

1 row created.

SQL> /
Enter value for empid: 105
Enter value for empname: vishnu
Enter value for design: programmer
Enter value for gender: m
Enter value for age: 19
Enter value for doj: 25/oct/2020
Enter value for salary: 55000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('105','vishnu','programmer','m',19,'25/oct/2020',55000)

1 row created.
SQL> /
Enter value for empid: 106
Enter value for empname: nidharsana
Enter value for design: coordinator
Enter value for gender: f
Enter value for age: 19
Enter value for doj: 27/nov/2020
Enter value for salary: 50000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('106','nidharsana','coordinator','f',19,'27/nov/2020',50000)

1 row created.

SQL> /
Enter value for empid: 107
Enter value for empname: reshma
Enter value for design: coordinator
Enter value for gender: f
Enter value for age: 18
Enter value for doj: 23/dec/2020
Enter value for salary: 50000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('107','reshma','coordinator','f',18,'23/dec/2020',50000)

1 row created.

SQL> /
Enter value for empid: 108
Enter value for empname: mageshwari
Enter value for design: marketing
Enter value for gender: f
Enter value for age: 18
Enter value for doj: 21/jan/2021
Enter value for salary: 45000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('108','mageshwari','marketing','f',18,'21/jan/2021',45000)

1 row created.

SQL> /
Enter value for empid: 109
Enter value for empname: shri
Enter value for design: marketing
Enter value for gender: f
Enter value for age: 20
Enter value for doj: 23/feb/2020
Enter value for salary: 45000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('109','shri','marketing','f',20,'23/feb/2020',45000)

1 row created.

SQL> /
Enter value for empid: 110
Enter value for empname: kevin
Enter value for design: communicator
Enter value for gender: m
Enter value for age: 20
Enter value for doj: 27/mar/2021
Enter value for salary: 40000
old 1: insert into employee
values('&empid','&empname','&design','&gender',&age,'&doj',&salary)
new 1: insert into employee
values('110','kevin','communicator','m',20,'27/mar/2021',40000)

1 row created.
SQL> select * from employee;
EMPID EMPNAME DESIGN G AGE DOJ SALARY

100 karthikeyan md m 20 20-JAN-20 100000

101 thirupathi manager m 20 21-FEB-20 75000
102 katrina manager f 20 24-MAR-20 75000
103 premanand designer m 19 24-AUG-20 60000
104 harisudhan programmer m 19 25-SEP-20 55000
105 vishnu programmer m 19 25-OCT-20 55000
106 nidharsana coordinator f 19 27-NOV-20 50000
107 reshma coordinator f 18 23-DEC-20 50000
108 mageshwari marketing f 18 21-JAN-21 45000
109 shri marketing f 20 23-FEB-20 45000
110 kevin communicator m 20 27-MAR-21 40000

11 rows selected.

SQL> select * from employee where salary>=70000;

EMPID EMPNAME DESIGN G AGE DOJ SALARY

100 karthikeyan md m 20 20-JAN-20 100000

101 thirupathi manager m 20 21-FEB-20 75000
102 katrina manager f 20 24-MAR-20 75000

SQL> select * from employee where salary>=70000 and design='manager';

EMPID EMPNAME DESIGN G AGE DOJ SALARY

101 thirupathi manager m 20 21-FEB-20 75000

102 katrina manager f 20 24-MAR-20 75000
SQL> select empname from employee union all select design from employee;

EMPNAME

karthikeyan
thirupathi
katrina
premanand
harisudhan
vishnu
nidharsana
reshma
mageshwari
shri
kevin

EMPNAME

md
manager
manager
designer
programmer
programmer
coordinator
coordinator
marketing
marketing
communicator

22 rows selected.

SQL> select * from employee order by empname;

EMPID EMPNAME DESIGN G AGE DOJ SALARY

104 harisudhan programmer m 19 25-SEP-20 55000

100 karthikeyan md m 20 20-JAN-20 100000
102 katrina manager f 20 24-MAR-20 75000
110 kevin communicator m 20 27-MAR-21 40000
108 mageshwari marketing f 18 21-JAN-21 45000
106 nidharsana coordinator f 19 27-NOV-20 50000
103 premanand designer m 19 24-AUG-20 60000
107 reshma coordinator f 18 23-DEC-20 50000
109 shri marketing f 20 23-FEB-20 45000
101 thirupathi manager m 20 21-FEB-20 75000
105 vishnu programmer m 19 25-OCT-20 55000

11 rows selected.

SQL> select count(empname) from employee group by salary;

COUNT(EMPNAME)

1
2
1
2
2
1
2

7 rows selected.

RESULT :
CODING:

SQL> create table invent(prodid number(5) primary key,prodname

varchar2(15),rate number(5));

Table created.

SQL> desc invent;

Name Null? Type

PRODID NOT NULL NUMBER(5)

PRODNAME VARCHAR2(15)
RATE NUMBER(5)
QTY NUMBER(5)

SQL> insert into invent values(&prodid,'&prodname',&rate)

Enter value for prodid: 1001
Enter value for prodname: tata tea
Enter value for rate: 150
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1001,'tata tea',150)

1 row created.

SQL> /
Enter value for prodid: 1002
Enter value for prodname: tata oil
Enter value for rate: 200
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1002,'tata oil',200)

1 row created.

SQL> /
Enter value for prodid: 1003
Enter value for prodname: tata masala
Enter value for rate: 250
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1003,'tata masala',250)

1 row created.

SQL> /
Enter value for prodid: 1004
Enter value for prodname: tata flour
Enter value for rate: 350
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1004,'tata flour',350)
1 row created.

SQL> /
Enter value for prodid: 1005
Enter value for prodname: tata rice
Enter value for rate: 450
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1005,'tata rice',450)

1 row created.

SQL> /
Enter value for prodid: 1006
Enter value for prodname: tata water
Enter value for rate: 500
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1006,'tata water',500)

1 row created.

SQL> /
Enter value for prodid: 1007
Enter value for prodname: tata sweets
Enter value for rate: 600
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1007,'tata sweets',600)
1 row created.

SQL> /
Enter value for prodid: 1008
Enter value for prodname: tata milk
Enter value for rate: 600
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1008,'tata milk',600)

SQL> /
Enter value for prodid: 1009
Enter value for prodname: tata soap
Enter value for rate: 400
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1009,'tata soap',400)

1 row created.

SQL> /
Enter value for prodid: 1010
Enter value for prodname: tata paint
Enter value for rate: 900
old 1: insert into invent values(&prodid,'&prodname',&rate)
new 1: insert into invent values(1010,'tata paint',900)

1 row created.

SQL> commit;

Commit complete.

SQL> select * from invent;

PRODID PRODNAME RATE

1000 tata salt 100

 1001 tata tea 150
1002 tata oil 200
1003 tata masala 250
1004 tata flour 350
1005 tata rice 450
1006 tata water 500
1007 tata sweets 600
1008 tata milk 600
1009 tata soap 400
1010 tata paint 900

11 rows selected.

SQL> begin
2 update invent
3 set rate = rate + rate * 0.2;
4 commit;
5 end;
6/

PL/SQL procedure successfully completed.

SQL> select * from invent;

PRODID PRODNAME RATE

1000 tata salt 120

1001 tata tea 180
1002 tata oil 240
1003 tata masala 300
1004 tata flour 420
1005 tata rice 540
1006 tata water 600
1007 tata sweets 720
1008 tata milk 720
1009 tata soap 480
1010 tata paint 1080
11 rows selected.

SQL> alter table invent add qty number(5);

Table altered.

SQL> select * from invent;

PRODID PRODNAME RATE QTY

1000 tata salt 120

1001 tata tea 180
1002 tata oil 240
1003 tata masala 300
1004 tata flour 420
1005 tata rice 540
1006 tata water 600
1007 tata sweets 720
1008 tata milk 720
1009 tata soap 480
1010 tata paint 1080

11 rows selected.

SQL> update invent

2 set qty=10
3 where prodid=1000;

1 row updated.

SQL> update invent

2 set qty =20
3 where prodid = 1001;

1 row updated.
SQL> update invent
2 set qty =30
3 where prodid = 1002;

1 row updated.

SQL> update invent

2 set qty =40
3 where prodid = 1003;

1 row updated.

SQL> update invent

2 set qty =20
3 where prodid=1004;

1 row updated.

SQL> update invent

2 set qty =20
3 where prodid=1005;

1 row updated.

SQL> update invent

2 set qty =50
3 where prodid=1006;

1 row updated.

SQL> update invent

2 set qty =20
3 where prodid=1007;

1 row updated.

SQL> update invent

 2 set qty =20
3 where prodid=1008;

1 row updated.

SQL> update invent

2 set qty =70
3 where prodid=1009;

1 row updated.

SQL> update invent

2 set qty =30
3 where prodid=1010;

1 row updated.

SQL> select * from invent;

PRODID PRODNAME RATE QTY

1000 tata salt 120 10

1001 tata tea 180 20
1002 tata oil 240 30
1003 tata masala 300 40
1004 tata flour 420 20
1005 tata rice 540 20
1006 tata water 600 50
1007 tata sweets 720 20
1008 tata milk 720 20
1009 tata soap 480 70
1010 tata paint 1080 30

11 rows selected.

RESULT :
CODING:

SQL> create table std(sid number(8) primary key,sname

varchar2(15),age number(2),loc varchar2(20));

Table created.

SQL> std;
desc Null? Type
Name
SID NOT NULL NUMBER(8)
SNAME VARCHAR2(15
)
AGE NUMBER(2)
LOC VARCHAR2
(20)

SQL> create or replace trigger std_trig

2 before insert or update or
delete on std 3 for each row
4 begin
5 if inserting then
6 dbms_output.put_line('before insert
trigger fired'); 7 elsif updating then
8 dbms_output.put_line('before update
trigger fired'); 9 elsif deleting then
10 dbms_output.put_line('before delete
trigger fired'); 11 end if;
12 end;
13 /

Trigger created.

SQL> insert into std

values(&sid,'&sname',&age,'&loc'); Enter
value for sid: 658
Enter value for
sname: nitin Enter
value for age: 26
Enter value for loc:
pune
old 1: insert into std
values(&sid,'&sname',&age,'&loc') new 1:
insert into std values(658,'nitin',26,'pune')
before insert trigger fired

1 row created.

SQL> update std set loc='kanpur'

where sid=658; before update trigger
fired

1 row updated.

SQL> select * from std;

SID SNAME AGE LOC

256 rohan 36 mumbai

145 keshav 35 rajasthan
287 hitesh 27 kolkata
649 hardik 28 delhi
658 nitin 26 kanpur

SQL> delete from std where

sid=145; before delete
trigger fired

1 row deleted.

SQL> select * from std;

SID SNAME AGE LOC

256 rohan 36 mumbai

287 hitesh 27 kolkata
649 hardik 28 delhi
658 nitin 26 kanpur

RESULT :
CODING:

SQL> create or replace procedure sum_no(a in number,b in

number) is c number; 2 begin
3 c :=a+b;
4 dbms_output.put_line('Sum of two
nos='|| c); 5 end sum_no;
6/

Procedure created.

SQL> set
serveroutput on;
SQL> declare
2 x number;
3 y number;
4 begin
5 x := &x;
6 y := &y;
7 sum_no(x,y);
8 end;
9/

OUTPUT:

Enter value for

x: 45 old 5: x
:= &x;
new 5: x := 45;
Enter value for
y: 50 old 6: y
:= &y;
new 6: y :=
50; Sum of two
nos=95

PL/SQL procedure successfully completed.

RESULT :
PROPERTIES:
SI NO. Control Name Property Value

1 Form Caption Student

Font Cooper

Name Form1

2 Labels Alignment 2-Centre

Font Copperplate Gothic

i) Label1 Caption Student Database

Name Label1

ii) Label2 Caption StudentID

Name Label2

iii) Label3 Caption Name

Name Label3

iv) Label4 Caption Rdbms

Name Label4

v) Label5 Caption Vb

Name Label5

vi) Label6 Caption Cn

Name Label6

vii) Label7 Caption St

Name Label7
 viii) Label8 Caption Result

Name Label8

3 Textbox Alignment 0-Left Justify

DataSource Adodc1

Font Copperplate Gothic

i) Text1 DataField studid

Name Text1

ii) Text2 DataField studname

Name Text2

iii) Text3 DataField rdbms

Name Text3

iv) Text4 DataField Vb

Name Text4

v) Text5 DataField Cn

Name Text5

vi) Text6 DataField St

Name Text6

vii) Text7 DataField Result

Name Text7

4 Command Button Alignment 2-Centre

Font Copperplate Gothic

i) Command1 Caption Add

Name Command1
 ii) Command2 Caption Delete

Name Command2

iii) Command3 Caption Update

Name Command3

iv) Command4 Caption Save

Name Command4

v) Command5 Caption Clear

Name Command5

vi) Command6 Caption Exit

Name Command6

vii) Command7 Caption <

Name Command7

viii) Command8 Caption >

Name Command8

5 Adodc Control

i) Adodc1 Caption Adodc1

Font MS Sans Serif

Name Adodc1

Visible False
PROGRAM CODING:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
MsgBox "RECORD ADDED SUCCESSFULLY"
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Delete
MsgBox "RECORD DELETED SUCCESSFULLY"
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Update
MsgBox "RECORD UPDATED SUCCESSFULLY"
End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Save
MsgBox "RECORD SAVED SUCCESSFULLY"
End Sub

Private Sub Command5_Click()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7. Text = ""
End Sub

Private Sub Command6_Click()

Unload Me
End Sub

Private Sub Command7_Click()

Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command8_Click()

Adodc1.Recordset.MoveNext
End Sub

DESIGN TIME WINDOW:

RUN TIME WINDOW:
CODING:
SQL> create table student (sid number(4) primary key , sname varchar2(15),rdbms
number(3),vb number(3),cn number(3),st number(3),result char(6));

SQL> desc student;

Name Null? Type

SID NOT NULL NUMBER(4)

SNAME VARCHAR2(15)
RDBMS NUMBER(3)
VB NUMBER(3)
CN NUMBER(3)
ST NUMBER(3)
RESULT CHAR(6)

SQL> insert into student values(&sid, '&sname',&rdbms,&vb,&cn,&st,'&result');

Enter value for sid: 100
Enter value for sname: karthikeyan
Enter value for rdbms: 100
Enter value for vb: 100
Enter value for cn: 100
Enter value for st: 100
Enter value for result: pass
old 1: insert into s values(&sid ,'&sname',&rdbms,&vb,&cn,&st,'&result')
new 1: insert into s values(100,'karthikeyan',100,100,100,100,'pass')

1 row created.

SQL> /
Enter value for sid: 101
Enter value for sname: tamil
Enter value for rdbms: 90
Enter value for vb: 100
Enter value for cn: 70
Enter value for st: 80
Enter value for result: pass
old 1: insert into s values(&sid ,'&sname',&rdbms,&vb,&cn,&st,'&result')
new 1: insert into s values(101,'tamil',90,100,70,80,'pass')

1 row created.

SQL> /
Enter value for sid: 102
Enter value for sname: salim
Enter value for rdbms: 100
Enter value for vb: 100
Enter value for cn: 100
Enter value for st: 100
Enter value for result: pass
old 1: insert into s values(&sid ,'&sname',&rdbms,&vb,&cn,&st,'&result')
new 1: insert into s values(102,'salim',100,100,100,100,'pass')

1 row created.
SQL> /
Enter value for sid: 103
Enter value for sname: dhoni
Enter value for rdbms: 100
Enter value for vb: 97
Enter value for cn: 99
Enter value for st: 88
Enter value for result: pass
old 1: insert into s values(&sid ,'&sname',&rdbms,&vb,&cn,&st,'&result')
new 1: insert into s values(103,'dhoni',100,97,99,88,'pass')

1 row created.

SQL> /
Enter value for sid: 104
Enter value for sname: raja
Enter value for rdbms: 100
Enter value for vb: 100
Enter value for cn: 80
Enter value for st: 70
Enter value for result: pass
old 1: insert into s values(&sid ,'&sname',&rdbms,&vb,&cn,&st,'&result')
new 1: insert into s values(104,'raja',100,100,80,70,'pass')

1 row created.

SQL> /
Enter value for sid: 105
Enter value for sname: ram
Enter value for rdbms: 100
Enter value for vb: 99
Enter value for cn: 90
Enter value for st: 8100
Enter value for result: pass
old 1: insert into s values(&sid ,'&sname',&rdbms,&vb,&cn,&st,'&result')
new 1: insert into s values(105,'ram',100,99,90,100,'pass')
1 row created.

SQL> select * from student;

SID SNAME RDBMS VB CN ST RESULT

100 karthikeyan 100 100 100 100 pass

101 tamil 90 100 70 80 pass
102 salim 100 100 100 100 pass
103 dhoni 100 97 99 88 pass
104 raja 100 100 80 70 pass
105 ram 100 99 90 100 pass

RESULT :