Lakshmi.S, MCA,M.Phil | Dept.

of CS,SACWC,CUMBUM 1
S.NO CONTENT
1. Arithmetic Function
2. String Length Calculation
3. Login Form
4. Bio Data
5. List Box
6. Food Menu using Check Box
&
Option Button

7. Advertisement and Animation

8. Menu Editor
9. Flex Grid
10. Compare The Two Super Market Details Using Chart

11. Rich Text Box

12. Slider Control

13. Chelan

14. Customer details using Dao Control

15. Student Mark List

16. Hospital Management

17. Banking Management

Lakshmi.S, MCA,M.Phil | Dept.of CS,SACWC,CUMBUM 2

18. Blood Bank

Lakshmi.S, MCA,M.Phil | Dept.of CS,SACWC,CUMBUM 3

EX.NO:1
EX .NO :

DATE:
ARITHMETIC FUNCTION

AIM :

To create a program for arithmetic function using visual basic 6.0

ALGORITHM:

STEP 1: Start the execution.

STEP 2: Place three table box, three text box five command button on the form.

STEP 3: Change the properties of the objects in the form using property window.

STEP 4: In the code window, place the corresponding code with in the corresponding
Objects.

STEP 5: Run the program.

STEP 6: Stop the program.

FORM DESIGN:
CODINGS:
Private Sub Command1_Click ()

Text3.Text = Val (Text1.Text) + Val

(Text2.Text) End Sub

Private Sub Command2_Click (Index as Integer)

Text3.Text = Val (Text1.Text) – Val (Text2.Text)

End Sub

Private Sub Command3_Click ()

Text3.Text = Val (Text1.Text) * Val (Text2.Text)

End Sub

Private Sub Command4_Click (Index as Integer)

Text3.Text = Val (Text1.Text) / Val

(Text2.Text) End Sub

Private Sub Command5_Click ()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command6_Click ()

End

End Sub
OUT PUT:

RESULT:
Thus the program has been successfully executed
EX NO: 2
STRING LENGTH CALCULATION
DATE:
AIM:
To create a program for string length calculation using visual basic 6.0

ALGORITHM:

STEP 1: Start the execution.

STEP 2: Place three tables, two text boxes and three command buttons Within a form.

STEP 3: Change the required properties the object in the form using property Window.

STEP 4: In the code window place the corresponding code with in the Corresponding

object.

STEP 5: Run the program.

STEP 6: Stop the program.

FORM DESIGN:
CODINGS:

Dim STR As

string Dim I As

string

Private sub command 1 – click ()

STR =Text1.Text

1 =Len (STR)

Text2. Text =

1 End sub

Private sub command2- Click ()

Text 1.Text = “”

Text 2.Text= “”

End sub

Private sub command3- click ()

End

End sub
 OUTPUT:

RESULT:
Thus the program has been executed successfully.
EX.NO:3

DATE:
LOGIN FORM

AIM:

To create a program for login form using visual basic .

ALGORITHM:
STEP 1: Start the execution.
STEP 2: Place three lables, 2 text boxes, three command buttons within the form.

STEP 3: Change the required properties the object in the form using property Window.

STEP 4: In the code window, place the corresponding code in the Corresponding objects.

STEP 5: Run the program.

STEP 6: Stop the program.

FORM DESIGN:
CODINGS:
Private sub command 1.click ()

If Text 1. Text= “Csit sacwc” Then

If Text 2. Text=”Stu” Then

Msg box

“welcome” Else

Msg box “Incorrect password “

End if

Else

Msg box

“recorite” End if

End sub

Private sub command 2.click ()

Text 1.Text = “”

Text 2.Text= “”

End sub

Private sub command 3. Click ()

End

End sub
OUTPUT:

RESULT:

Thus the program has been executed successfully.

EX. NO: 4

DATE: BIO DATA

AIM:

To create a program for biodata form using visual basic.

ALGORITHM:
STEP 1: Start the execution .
STEP 2: Place the text box any five, label box, two command button within the form.

STEP 3: Change the required properties the objects in the form using property window.

STEP 4: In the code window place the corresponding code within the corresponding objects.
STEP 5: Run the program.
STEP 6: Stop the program.
FORM DESIGN:
CODINGS:
Private sub command 1_click

() Text 6.Text = Text 1. Text

Text 7.Text = Text 2. Text

Text 8.Text =Text 3.Text

Text 9.Text =Text 4.Text

Text 10.Text=Text

5.Text End sub

Private sub command 2_click ()

Text 1. Text = “”

Text 2. Text = “”

Text 3. Text = “”

Text 4. Text = “”

Text 5. Text= “”

Text 6. Text = “”

Text 7. Text= “”

Text 8. Text= “”

Text 9. Text = “”

Text 10. Text= “”

End sub

Private sub command 3_click ()

End

End sub
OUTPUT:

RESULT:

Thus the above program has been executed successfully.

 EX.NO: 5

DATE: LIST BOX

AIM:
To create a program for list box from using visual basic.

ALGORITHM:

STEP 1: start →all program →Microsoft visual basic.

STEP 2: click label and text boxes to write the products.

STEP 3: Add list box control from the tool box.

STEP 4: Add three command button and change the caption as Add, delete and clear.

STEP 5: In the code window place the corresponding code within the corresponding

objects.

STEP 6: Save the project and run the program whenever you want.
FORM DESIGN:
CODINGS:
Private Sub Command1_Click

() list1.AddItem Text1.Text

Text1.Text = ""

Text1.SetFocus

lblcount.Caption = list1.ListCount

End Sub

Private Sub Command2_Click ()

Dim ind As Integer

ind = list1.ListIndex

If ind >= 0 Then

List1.RemoveItem ind

lblcount.Caption = List.ListCount

End If

End Sub

Private Sub Command3_Click ()

list1.Clear

lblcount.Caption = List.ListCount

End Sub

Private Sub Text1_Change ()

Add.Enabled = (Len (Text1.Text) > 0)

End Sub
OUTPUT:

RESULT :

Thus the program has been executed successfully.

EX.NO: 6
FOOD MENU USING CHECK BOX
DATE: &
OPTION BUTTON

AIM:

To create a program for food menu from using visual basic.

ALGORITHM:

STEP1: Start -→All programs -→Microsoft--→visual basic 6.0

STEP 2: Click label and frame boxes to form a program.

STEP 3: Add necessary checkbox ,option button and command box.

STEP 4: In the code window place the corresponding code within the corresponding
object.
STEP 5: Save the project and run the program whenever you want .
FORM DESIGN:
CODINGS:
Private Sub Check1_Click()
If Check1.Value Then
FASTFOODS = "burger"
End If
End Sub

Private Sub Check2_Click()

If Check2.Value Then
FASTFOODS = "SHAWARMA"
End If
End Sub

Private Sub Check3_Click()

If Check3.Value Then
FASTFOODS = "PIZZA"
End If
End Sub

Private Sub Check4_Click()

If Check4.Value Then
FASTFOODS = "CHEESE PIZZA"
End If
End Sub

Private Sub Command1_Click()

If Check1.Value Then
FASTFOODS = "burger"
If Option1.Value Then
MsgBox "SMALL IS AVAILABLE"
End If

If Option2.Value Then
MsgBox "MEDIUM IS NOT AVAILABLE"
End If

If Option3.Value Then
MsgBox "LARGE IS NOT AVAILABLE"
End If
End If

If Check2.Value Then
FASTFOODS = "SHAWARMA"
If Option1.Value Then
MsgBox "SMALL IS AVAILABLE"
End If

If Option2.Value Then
MsgBox "MEDIUM IS AVAILABLE"
End If

If Option3.Value Then
MsgBox "LARGE IS NOT AVAILABLE"
End If
End If

If Check3.Value Then
FASTFOODS = "PIZZA"
If Option1.Value Then
MsgBox "SMALL IS AVAILABLE"
End If

If Option2.Value Then
MsgBox "MEDIUM IS AVAILABLE"
End If

If Option3.Value Then
MsgBox "LARGE IS AVAILABLE"
End If
End If

If Check4.Value Then
FASTFOODS = "CHEESE PIZZA"
If Option1.Value Then
MsgBox "SMALL IS AVAILABLE"
End If

If Option2.Value Then
MsgBox "MEDIUM IS AVAILABLE"
End If

If Option3.Value Then
MsgBox "LARGE IS NOT AVAILABLE"
End If
End If
End Sub

Private Sub Option1_Click()

If Option1.Value Then
QUANTITY = "SMALL"
End If
End Sub

Private Sub Option2_Click()

If Option2.Value Then
QUANTITY = "MEDIUM"
End If
End Sub

Private Sub Option3_Click()

If Option3.Value Then
QUANTITY = "LARGE"
End If
End Sub
OUT PUT :
RESULT:
Thus the above program has been executed successfully
EX .NO: 7

DATE: ADVERTISEMENT AND ANIMATION

AIM :
To create a program for advertisement and animation from using visual basic.

ALGORITHAM :

STEP 1 : start the execution.

STEP 2 : Place a image box and timer control in the from.

STEP 3 : Specify the required interval for timer in the property window .

STEP 4 : In the code window place the corresponding object .

STEP 5 : Run the program.

STEP 6 : Stop the execultion

.
FROM DESIGN:
CODINGS:

Private Sub Form_Load()

Timer1.Interval = 0

End Sub

Private Sub

go_Click()

Timer1.Interval = 100

End Sub

Private Sub

name_Click() name =

name()

End Sub

Private Sub

stop_Click()

Timer1.Interval = 0

End Sub

Private Sub Text2_Change()

price = price()

End Sub

Private Sub Timer1_Timer()

Frame1.Left = Frame1.Left +

100
If Frame1.Left > Me.Width Then

Frame1.Left = 0

End If

End Sub
OUTPUT:

RESULT:

Thus the program has been executed successfully .

 EX .NO: 8
DD
MENU EDITOR
DATE:

AIM :

\ To create a program for Menu editor from using visual basic .

ALGORITHM :

STEP 1 : Start the execution .

STEP 2 : By right clicking the form window choose the menu editor option.

STEP 3 : Write the coding for the subtitle of the menu titles.

STEP 4 : Place the text boxes in the form & check.

STEP 5: Check the exclusion of the menu option by the running the program

using.

STEP 6: Stop it using.

STEP 7 : End

theprogram.
FORM DESIGNIG:
CODINGS:
Private sub mnucenter_ click ()

Richtextbox1 . selAlignment

=2 End sub

Private sub mnuclose _ click ()

End

End sub

Private sub mnucopy _ click ()

Clipboard . GetData

Clipboard . Settext screen . Activecontrol . Seltext

End sub

Private sub mnucut_ click ()

Clipboard . Clear

If Richtextbox1 . sellenght =0 then

Richtextbox 1 . Sellenght = len (Richtextbox 1. Text)

End if

Clipboard . Settext screen . Activecontrol . Seltext

Screen . Activecontrol . Seltext =” “

End sub

Private sub mnudelete _ click ()

Richtextbox 1 . Sellenght =” “
End sub
Private sub mnuleft _ click ()

Richtextbox 1 . selAlighment =

0 End sub

Private sub mnuNew _ click

() Richtextbox 1 . text = “ “

End sub

Private sub mnupast _ click ()

Richtextbox 1 .seltext = Clipboard .GetText

End sub

Private sub mnudelete _ click

() Richtextbox 1 . seltext = “ “

End sub

Private sub mnuleft _ click ()

Richtextbox 1 . selAlighment = 0

End sub

Private sub mnuNew _ click

() Richtextbox 1 . text = “ “

End sub

Private sub mnupast _ click ()

Richtextbox 1 .seltext = Clipboard .GetText

End sub

Private sub mnright _Click ()

Richtextbox 1 . selAlighment = 1

End sub

Private sub mnsave _Click ()

commonDialog 1 . filename

X= commonDiologal .

filename Richtextbox 1.

Savefile X

End sub

Private sub mnselect _Click ()

Richtextbox 1 . SelStart = 0

Richtextbox 1 . sellenght = Len (richtextbox 1)

End sub
OUTPUT:

RESULT:

Thus the program has been executed successfully .

EX.NO: 9
FIEX GRID
DATE:
AIM :
To create a program for flex grid using visual basic .

ALGORITHM :

STEP 1 : Start the execultion .

STEP 2 : After open the from put a lable box in the top .

STEP 3 : Type “Multiplication table “ in lable box.

STEP 4 : And then select project -→components -→microsoft flex grid control 6.0 .

STEP 5 : After that using grid icon create a grid.

STEP 6 : In the properties window you can select the number of rows and Columns which you

want .

STEP 7 : And then put “exit “ command button in the bottom and save the project.

STEP 8 : You can give the codings by double clicking on it .

STEP 9 : Here after you can run the program.

FORM DESIGN :
CODINGS:
Private sub command 1_cilck ()

End

End sub

Private sub from _ load

() For I =1 to 9

For j =1 to 9

Ms flexgrid 1 . row = i

Msflexgrid 1 . col = j

Msflexgrid 1 . text = If “ *

“ Next i

Next j

End sub
OUTPUT:

RESULT :

Thus the program has been executed successfully .

 E
EX.NO:10
X

DATE: COMPARE THE TWO SUPER MARKET DETAILS USING CHART

AIM :
To compare the two super market details using chart in visual basic.

ALGORITHM:

STEP 1 : Start the program .

STEP 2 : Design the from and place the three command button .

STEP 3 : Run the program to obtain the result.

STEP 4 : End the program .

FORM DESIGN :
CODINGS :
Oim g(1 , 4 ) As Integer

Private sub command 1 _ Click ()

g(0 , 0)=val (Text 1 . Text)

g(0 , 1)=val (Text 2 . Text)

g(0 , 2)=val (Text 3 . Text)

g(0 , 3)=val (Text 4 . Text)

‘g(0 , 4)=val (Text 5 .

Text) g(0 , 0)=val (Text 5 .

Text) g(0 , 1)=val (Text 6 .

Text) g(0 , 2)=val (Text 7 .

Text) g(0 , 3)=val (Text 8 .

Text) MSChart 1 =g

MSChart 1 . chartType = VtChChartType2dpie

MSChart 1.Row=1

MSChart 1. RowLabel =”JK super market “

MSChart 1.Row=2

MSChart 1. RowLabel =”pasumal super market “

MSChart 1 . column = 1

MSChart 1. columnLabel =”fogg shent “

MSChart 1 .column =2

MSChart 1 . columnLable =”ks shent

“ End sub

Private sub command 2_Click ()

Text 1 . Text =” “
Text 2 . Text =” “

Text 3 . Text =” “

Text 4 . Text =” “

Text 5 . Text =” “

Text 6 . Text =” “

Text 7 . Text =” “

Text 8 . Text =” “

End sub

Private sub command 3_Click ()

End

End sub
 OUTPUT :

RESULT :
Thus the program has been executed successfully .
EX . NO : 11
DATE:
 RICHTEXT BOX

AIM :

To create a program for richtext box from using visual basic.

ALGORITHM:

STEP 1 : Open new project in Standard

EXE STEP 2 : Create Rich Text box
STEP 3 : Apply command dialog control
STEP 4 : Apply required command button and rename the caption
and name STEP 5 : Type the following Visual Basic codes
FROM DESIGN :
CODINGS :
Private Sub cmdcolor_Click()

cdb.ShowColor

rtb.BackColor = cdb.Color

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub

cmdfont_Click() cdb.Flags

= h3orH100 cdb.ShowFont

rtb.SelBold = cdb.FontBold

rtb.SelColor = cdb.Color

rtb.SelUnderline = cdb.FontUnderline

rtb.SelFontName = cdb.FontName

rtb.SelFontSize = cdb.FontSize

End Sub

Private Sub cmdimage_Click()

cdb.ShowOpen

rtb.OLEObjects.Add , , cdb.FileName

End SuB

Private Sub cmdopen_Click()

cdb.ShowOpen

rtb.LoadFile cdb.FileName

End Sub
OUT PUT:

RESULT :

Thus the program has been executed successfully .

EX . NO : 12
SLIDER CONTROL
DATE:
AIM :

To create a program for rich text box form using visual basic .

ALGORITHM :

STEP 1 : Start -→All program -→Microsoft--→visual basic 6.0.

STEP 2 : Place two command button and change caption as slide show and exit.

STEP 3 : Then , place one Image list , One slider , One Image box and Timer.

STEP 4 : Type the coding for the form.

STEP 5 : Run the program .

STEP 6 : Stop the program.

FORM DESIGN :
CODINGS :

Private sub command 1 _ click ()If

timer 1. Enabled = True Then

Timer 1. Enabled = False

ElseIf Timer 1. Enabled = Flase Then

Timer 1. Enabled= True

End If

End sub

Private sub command 1 _ click ()

End

End sub

Private sub Form _ Load

() A=0

Timer 1. Enabled =

Flase End sub

Private sub slider 1 _ Click ()If

slider 1. Value =1 Then

Timer 1 . Interval =25

ElseIf slider 1. Value =2 Then

Timer 1 . Interval =100

ElseIf slider 1. Value =6 Then

Timer 1 . Interval =400

Elase

Timer 1 . Interval

=1900 End If

End sub

Private sub Timer 1 _ Click ()A

=a+1

If a <=Imagelist 1.List Image .count Then

Image 1.Picture = ImageList 1 . List Image (a).Picture

Elase

A =0

End If

End sub
 OUTPUT:

RESULT :

Thus the program has been executed successfully.

EX.NO: 13

CHELAN
DATE :
AIM :

To create a program for chelan form using visual basic.

ALGORITHM:

STEP 1 : start --→all programs -→microsoft--→visual

basic 6.0 . STEP 2 : Click frame tool from the tool box .

STEP 3 : Using lines and other tools to design a chelan of India

bank .

STEP 4 : Go to components →Microsoft window comman

control 6.0→To get data picker .

STEP 5 : Then click combo box to add type of deposits .

STEP 6 : To save project click save project and the run whenever you want .
FORM DESIGN :
CODINGS :

Private Sub Combo1_Change()

Combo1.AddItem ("CASH DEPOSIT")

Combo1.AddItem ("CREDIT

DEPOSIT") Combo1.AddItem

("SAVING DEPOSIT")

Combo1.AddItem ("CURRENT

DEPOSIT")
End Sub

OUTPUT :

RESULT:
Thus the program has been executed successfully .
EX. NO: 14

CUSTOMER DETAILS USING DAO CONTROL

DATE :

AIM:

To create a program for DAO control from using visual basic.

ALOGRITHM :

STEP 1 : start --→all programs -→microsoft--→visual basic

6.0 .
STEP 2: Place four label box, four text box and five
command button .

STEP 3: Then change the caption label box , text box and

command button .

STEP 4: In the code window , place the corresponding code within

the Corresponding object.

STEP 5: Connect DAO control to the

form .

STEP 6: Execute the program .

STEP 7: Close the program.

FORM DESIGN:
CODINGS :
Private sub command1_click()
Data1.recordset.Addnew
End Sub

Private sub command2_click()

Data1.recordset.Edit
End Sub

Private sub command3_click()

Data1.recordset.Delete
End Sub

Private sub command4_click()

Data1.recordset.Upbate
End Sub

Private sub command5_click()

End
End Sub
OUTPUT:

RESULT:

Thus the program has been executed successfully.

EX.NO:15

DATE: STUDENT MARK LIST

AIM
To prepare a student marklist using visual basic(vb) as affront-end and
Ms access as a backend.

ALGORITHM:

STEP:1 Start the program.

STEP:2 Open a new file and create the form using text box,label
box, commandbutton.

STEP:3 Set the command button as add,update,delete and exit. The label
are rollno,name,m1,m2,m3,total,avg.

STEP:4 Set the data connection.

STEP:5 Write the coding according to the command in the form.
STEP:6 Run the form to display the output.
STEP:7 Stop the program.
FORM DESIGN:
SOURCE CODE:

Private Sub Command1_Click()

Data1.Recordset.AddNew
End
End sub

Private Sub command2_Click()

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

Private Sub Command3_Click()

Data1.Recordset.Delete
MsgBox "record deleted"
End Sub

Private Sub Command4_Click()

End
End Sub

Private Sub Text6_Change()

Text6.Text = Val
(Text3.Text) + Val
(Text4.Text) + Val
(Text5.Text)
End Sub

Private Sub Text7_Change()

Text7.Text = Val
(Text6.Text) / 3
End Sub
OUTPUT:

RESULT:

Thus the program has been executed successfully.

EX.NO:16

DATE: HOSPITAL MANAGEMENT

AIM:
To prepare a hospital management using visual basic(vb)
as affront-end and Ms access as a backend.

ALGORITHM:

STEP:1 Start the program.

STEP:2 Design the form using labels text box,command button,data grid.
STEP:3 Write code to perform action.
STEP:4 Update details in the database.
STEP:5 Run the program.
STEP:6 Stop the program
FORM DESIGN:
SOURCE CODE:
Private sub commamnd1_click()
Form1.hide
Form2.Show
End Sub

Private Sub Command2_click()

Form1.Hide
Form3.Show
End sub

Private Sub Command10_Click()

Form2.Hide
Form1.Show
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Update
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command5_Click()

Adodc1.Recordset.MoveLast
End Sub

Private Sub Command6_Click()

Adodc1.Recordset.MovePrevious
End Sub
Private Sub Command7_Click()
Text1.Text=” “
Text2.Text=” “
Text3.Text=” “
Text4.Text=” “
Text5.Text=” “
Text6.Text=” “
Text7.Text=” “

End Sub
Private Sub Command8_Click()
End
End Sub

Private Sub Command9_Click()

Form2.Hide
Form3.show
End Sub

Private Sub Command1_Click()

Adodc1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()

Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command4_Click()

Form3.Hide
Form1.show
End Sub

Private Sub Command5_Click()

Form3.Hide
Form2.Show
 End Sub

OUTPUT:

RESULT:

Thus the program has been executed successfully.

EX.NO:17

DATE: BANKING SYSTEM

AIM:
To prepare a student marklist using visual basic(vb) as affront-end and Ms
access as a backend.

ALGORITHM:

STEP:1 Start the visual basic (vb) project using standard exe.

STEP:2 Open a new file and create the form using text text box, label box and
command button.

STEP:3 Set the command button as exit.

STEP:4 The labels are accno, ncus name, deposit, withdraw, balance, interest
and total.

STEP:5 Set the data connection.

STEP:6 Write the coding according to the command in the form.

STEP:7 Stop the program

FORM DESIGN:

DATE BASE:
SOURCE CODE:

Private Sub Command1_Click()

End
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MoveLast
End Sub

Private Sub Command5_Click()

Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command6_Click()

Adodc1.Recordset.MoveNext
End Sub

Private Sub Command7_Click()

Adodc1.Recordset.Update
End Sub
Private Sub Command8_Click()
End
End Sub

Private Sub Label6_Click()

Text6.Text=Val(Text5.Text)/50
End Sub

Private Sub Text3_Click()

Text3.Text=InputBox(“Enter The Amount To Deposit”)
End Sub

Private Sub Text4_Click()

Text4.Text= InputBox(“Enter The Amount To WithDraw”)
End Sub

Private Sub Text6_Click()

Text6.Text=Val(Text5.Text)/50
End Sub

Private Sub Label7_Click()

Text6.Text=Val(Text5.Text)-val(Text6.Text)
End Sub
OUTPUT

RESULT:
Thus the program has been executed successfully.
EX.NO:18

DATE: BLOOD BANK

AIM:
To prepare a blood banking using visual basic(vb) as affront-end
and Ms access as a backend.

ALGORITHM:

STEP:1 Start the visual basic(vb) project using standard exe.

STEP:2 Open a new file and create the form using text
box,label
box and command button.

STEP:3 Set the command button as donar,receiver and exit.

STEP:4 The necessary labels are added.

STEP:5 Set the DAU connection.

STEP:6 Write the coding according to the command in the form.

STEP:7 Stop the program.

FORM DESIGN:
SOURCE CODE:

Private Sub Command1_Click()

Form16.Show
End Sub

Private Sub Command2_Click()

Form17.Show
End Sub

Private Sub Command3_Click()

End
End Sub

Private Sub Command1_Click()

Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Data1.Recordset.Update
End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete
End Sub

Private Sub Command4_Click() Form6.Show

End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command4_Click() Form6.Show

End Sub

Private Sub Form_Load() Combo1.AddItem ("1 days")

Combo1.AddItem ("2 days")
Combo1.AddItem ("3 days")
Combo1.AddItem ("4 days")
Combo1.AddItem ("5 days")
Combo1.AddItem ("6 days")
Combo1.AddItem ("7 days") End Sub
OUTPUT:
RESULT:

Thus the program has been executed successfully.