Scribd
Upload
162 views109 pages

Visual Basic Programming Lab Guide

The document outlines a Visual Basic programming lab covering various programs using Visual Basic as the front end and Oracle as the back end. It includes 13 exercises involving creating a simple calculator, building applications with multiple forms, applications with dialogs, applications with menus, using data controls, format dialogs, drag and drop events, and ActiveX controls. It also covers creating several database-connected applications like a student information system, electricity bill preparation, and banking and railway reservation systems using Oracle as the back end database. Code snippets are provided for some of the exercises.

Uploaded by

Fayaz khan
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
162 views109 pages

Visual Basic Programming Lab Guide

The document outlines a Visual Basic programming lab covering various programs using Visual Basic as the front end and Oracle as the back end. It includes 13 exercises involving creating a simple calculator, building applications with multiple forms, applications with dialogs, applications with menus, using data controls, format dialogs, drag and drop events, and ActiveX controls. It also covers creating several database-connected applications like a student information system, electricity bill preparation, and banking and railway reservation systems using Oracle as the back end database. Code snippets are provided for some of the exercises.

Uploaded by

Fayaz khan
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

SEMESTER: V INDEX Batch: 2018 - 2021

VISUAL BASIC PROGRAMMING LAB

Sl. No. Date Name of the Program Page No. Staff Sign

Perform the following using VB

1 Building Simple Application for


Calculator
2 Application With Multiple Forms

3 Application With Dialogs

4 Application With Menus

5 Application Using Data Control

6 Application Using Format Dialogs

7 Drag and Drop Events

8 Creating ActiveX Control

Perform the Following Using VB as Front End and Oracle as Back End

9 Student Information System [ADODC


Connection]
Student Mark sheet Processing
10
[ADODC Connection]

11 Electricity Bill Preparation [ADODC


Connection]
12 Banking Management System
[ADODC Connection]
13 Railway Reservation System [ADODB
Connection]

Remarks: Completed____________________ Programs


Page No:

Ex No:
Date:
Creating a Simple Calculator
Page No:
Page No:

FORM 1 Coding:-

Private Sub PROCEED()


[Link]
[Link]
End Sub

Private Sub Close_Click()


End
End Sub

FORM 2 Coding:-

Dim A As Double
Dim C As Double
Dim B As String

Private Sub Command5_Click()


[Link] = [Link] + "5"
End Sub
Page No:

Private Sub Command6_Click()


[Link] = [Link] + "6"
End Sub

Private Sub Command7_Click()


[Link] = [Link] + "7"
End Sub

Private Sub Command8_Click()


[Link] = [Link] + "8"
End Sub

Private Sub Command9_Click()


[Link] = [Link] + "9"
End Sub

Private Sub Command0_Click()


[Link] = [Link] + "0"
End Sub

Private Sub Command00_Click()


[Link] = [Link] + "00"
End Sub

Private Sub dot_Click()


[Link] = [Link] + "."
End Sub

Private Sub backspace_Click()


Dim Z As String
If ([Link] = "") Then
[Link] = [Link]
Else
Z = [Link]
Dim L As Integer
L = Len(Z)
[Link] = Mid(Z, 1, L - 1)
End If
End Sub
Page No:

Private Sub plus_Click()


B = "add"
A = Val([Link])
[Link] = ""
End Sub

Private Sub off_Click()


[Link] = False
End Sub

Private Sub minus_Click()


B = "sub"
A = Val([Link])
[Link] = ""
End Sub

Private Sub mul_Click()


B = "mul"
A = Val([Link])
[Link] = ""
End Sub

Private Sub div_Click()


B = "div"
A = Val([Link])
[Link] = ""
End Sub

Private Sub Close_Click()


End
End Sub

Private Sub Equalto_Click()


On Error GoTo p:
'ADD
If B = "add" Then
C = Val([Link])
[Link] = A + C
End If
Page No:
'SUB
If B = "sub" Then
C = Val([Link])
[Link] = A - C
End If

'MUL
If B = "mul" Then
C = Val([Link])
[Link] = A * C
End If

'DIV
If B = "div" Then
C = Val([Link])
[Link] = A / C
End If
Exit Sub

p:
[Link] = "Invalid/undefined"
End Sub

Private Sub sqrt_Click()


On Error GoTo e:
If [Link] = "" Then
MsgBox "enter value", vbInformation, "Alert"
Else
[Link] = CSng(Round(Val(Sqr([Link])), 3))
End If
Exit Sub
e:
[Link] = "Invalid Option"
End Sub

Private Sub Command1_Click()


[Link] = [Link] + "1"
End Sub
Page No:

Private Sub Command2_Click()


[Link] = [Link] + "2"
End Sub

Private Sub Command3_Click()


[Link] = [Link] + "3"
End Sub

Private Sub Command4_Click()


[Link] = [Link] + "4"
End Sub

Private Sub Command0_Click()


[Link] = [Link] + "0"
End Sub

Private Sub Command00_Click()


[Link] = [Link] + "00"
End Sub
Private Sub Command1_Click()
[Link] = "0"
[Link] = True
End Sub

Private Sub CE_Click()


[Link] = ""
End Sub

Private Sub AC_Click()


[Link] = "0"
End Sub
Page No:
Ex No:
Date :

MULTIPLE FORMS
Page No:
Page No:
Page No:
Page No:
FORM 1 Coding

Private Sub Command1_Click()


If [Link] = "abdul" And [Link] = "hakeem" Then
[Link]
Else
MsgBox "Unauthorised User!! Verify username or password", vbInformation,
"Caution"
End If
[Link]
End Sub

Private Sub Command2_Click()


End
End Sub

FORM 2 Coding

Private Sub Command1_Click()


If [Link] = True Then
MsgBox "Right Answer", vbInformation, "Caution"
[Link] = 10
Else
MsgBox "Wrong Answer"
[Link] = "0"
End If
[Link]
[Link]
End Sub

Private Sub Form_Load()


[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub
Page No:

FORM 3 Coding

Private Sub Command1_Click()


If [Link] = True Then
MsgBox "Right Answer", vbInformation, "Caution"
[Link] = Val([Link]) + 10
Else
MsgBox "Wrong Answer"
[Link] = Val([Link]) + 0
End If
[Link]
[Link]

End Sub

Private Sub Form_Load()


[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub

FORM 4 Coding

Private Sub Command1_Click()


If [Link] = True Then
MsgBox "Right Answer", vbInformation, "Caution"
[Link] = Val([Link]) + 10
Else
MsgBox "Wrong Answer"
[Link] = Val([Link]) + 0
End If
[Link]
[Link]
End Sub

Private Sub Form_Load()


Page No:
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub

FORM 5 Coding

Private Sub Command1_Click()


If [Link] = True Then
MsgBox "Right Answer", vbInformation, "Caution"
[Link] = Val([Link]) + 10
Else
MsgBox "Wrong Answer"
[Link] = Val([Link]) + 0
End If
[Link]
[Link]
End Sub

Private Sub Form_Load()


[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub

FORM 6 Coding

Private Sub Command1_Click()


If Val([Link]) = 0 Then
[Link] = "Very Poor"
ElseIf Val([Link]) = 10 Then
[Link] = "Poor"
ElseIf Val([Link]) = 20 Then

[Link] = "Fair"
ElseIf Val([Link]) = 30 Then
[Link] = "GOOD"
Page No:

ElseIf Val([Link]) = 40 Then


[Link] = "Excellent"
End If
End Sub

Private Sub Command2_Click()


[Link]
[Link]
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = " "
[Link] = " "
End Sub

Private Sub Command3_Click()


End
End Sub
Page No:

Ex No: APPLICATION WITH DIALOGS

Date:
Page No:
Page No:
Page No:
FORM CODINGS :-

Dim buffer As String


Private Sub Blue_Click()
buffer = [Link]
If buffer = vbNullString Then
Beep
MsgBox "please select the text!", vbCritical + vbOKOnly, "error"
Else
[Link] = vbBlue
End If
End Sub

Private Sub cmdclose_Click()


[Link] = " "
[Link] = False
[Link] = False
End Sub
Private Sub cmdimage_Click()
[Link] = True
[Link]
[Link] = LoadPicture([Link])
End Sub

Private Sub copy_Click()


[Link]
[Link] [Link]
End Sub
Page No:

Private Sub Cut_Click()


buffer = [Link]
If buffer = vbNullString Then
Beep
MsgBox "please select the text!", vbCritical + vbOKOnly, "error"
Else
[Link]
[Link] [Link]
[Link] = ""
End If
End Sub

Private Sub Exit_Click()


End
End Sub

Private Sub Green_Click()


buffer = [Link]
If buffer = vbNullString Then

Beep
MsgBox "please select the text!!", vbCritical + vbOKOnly, "error"
Else
[Link] = vbGreen
End If
End Sub
Page No:
Private Sub New_Click()
[Link] = True
[Link] = vbNullString
buffer = " "
MsgBox "new [Link]!", vbInformation + vbOKOnly, "new"
End Sub

Private Sub Normal_Click()


MsgBox "you have select normal", vbInformation + vbOKOnly, "normal"
[Link] = 11775
End Sub

Private Sub Open_Click()


[Link] = vbNullString
[Link]
[Link] ([Link])
End Sub

Private Sub Paste_Click()


[Link] = [Link]
End Sub
Private Sub Red_Click()
bufer = [Link]
If buffer = vbNullString Then
Beep
MsgBox "please select the text!!", vbCritical + vbOKOnly, "error"
Else
[Link] = vbRed
Page No:
End If
End Sub
Private Sub save_Click()
[Link]
[Link] ([Link])
End Sub
Private Sub Size1_Click()
MsgBox "you have selected 500", vbInformation + vbOKOnly, "500'"
[Link] = 5000
End Sub
Private Sub Size2_Click()
MsgBox "you have selected 700", vbInformation + vbOKOnly, "700"
[Link] = 7000
End Sub
Page No:
Ex No:

Date: WORKING WITH MENUS

CLICK TOOLS ~> MENU EDITOR TO CREATE MENUS


Page No:
Page No:
Page No:

FORM CODINGS :-
Dim buffer As String

Private Sub cmdclose_Click()


[Link] = " "
[Link] = False
[Link] = False
End Sub

Private Sub cmdimage_Click()


[Link] = True
[Link]
[Link] = LoadPicture([Link])
End Sub

Private Sub color_Click()


[Link] = cd1ccfullopen
[Link]
[Link] = [Link]
End Sub

Private Sub copy_Click()


[Link]
[Link] [Link]
End Sub
Page No:

Private Sub Cut_Click()


buffer = [Link]
If buffer = vbNullString Then
Beep
MsgBox "please select the text!", vbCritical + vbOKOnly, "error"
Else
[Link]
[Link] [Link]
[Link] = ""
End If
End Sub

Private Sub Exit_Click()


End
End Sub

Private Sub font_Click()


[Link] = cdlCFBoth
[Link]
If [Link] = True Then
Exit Sub
End If
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
End Sub
Page No:

Private Sub New_Click()


[Link] = True
[Link] = vbNullString
buffer = " "
MsgBox "new [Link]!", vbInformation + vbOKOnly, "new"
End Sub

Private Sub Open_Click()


[Link] = vbNullString
[Link]
[Link] ([Link])
End Sub

Private Sub Paste_Click()


[Link] = [Link]
End Sub

Private Sub print_Click()


[Link] = cd1cfprinterfonts
[Link]
End Sub

Private Sub save_Click()


[Link]
[Link] ([Link])
End Sub
Page No:
Ex No:

Date : APPLICATION USING DATA CONTROL


Page No:
Page No:
Page No:
Page No:
SAVE AS DATA1

RIGHT CLICK ON PROPERTIES=>NEW TABLE


IN TABLE STRUCTURE GIVE TABLE NAME [LEARN] AND CLICK ADD
FIELD
Page No:

GIVE ALL THE REQUIRED FIELD NAMES [NAME,GENDER,EMAIL,ETC;]


Page No:

CLICK BUILD THE TABLE


DOUBLE CLICK ON TABLE NAME(LEARN)
Page No:
INSERT ALL THE DATA ONCE BY CLICKING ADD BUTTON THEN
CLOSE IT

RIGHT CLICK ON ADODC CONTROL AND SELECT ADODC PROPERTIES


AND BUILD THE TABLE USING CONNECTION STRING
SELECT DATABASE NAME, PROVIDER NAME(MS JET 4.0)
Page No:
Page No:
CLICK [Link] SELECT RECORDSOURCETAB

SELECT ALL THE [Link] PROPERTIES SET DATA SOURCE AS


ADODC1
Page No:

SELECT INDIVIDUAL FIELD AND SET DATA FIELD ACCORDINGLY


Page No:

ADD (MS GRID CONTROL6.0) FROM [Link] THE PROERTY


OF GRID CONTROL IN DATASOURCE AS ADODC1
Page No:
Page No:
Page No:
FORM CODING:
Private Sub cmdadd_Click()
[Link]
End Sub

Private Sub cmdcancel_Click()


End
End Sub

Private Sub cmddelete_Click()


[Link]
End Sub

Private Sub cmdreset_Click()


[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Private Sub cmdupdate_Click()


[Link]
End Sub
Page No:
Private Sub txtgender_KeyPress(KeyAscii As Integer)
Dim e As String
If KeyAscii < Asc("@") And KeyAscii > Asc("!") Then
Beep
e = MsgBox("Alphabet only", vbExclamation + vbCritical, "Alert")
KeyAscii = 0
End If
End Sub

Private Sub txtgender_LostFocus()


[Link] = UCase([Link])
If [Link] = "" Then
End If
End Sub

Private Sub txtmail_LostFocus()


If InStr(txtmail, "@") = 0 Then
MsgBox "Enter E-Mail id using @symbol", vbCritical, "Alert"
[Link]
End If
End Sub

Private Sub txtmno_KeyPress(KeyAscii As Integer)


Dim a As String
If KeyAscii < Asc("0") And KeyAscii > Asc("9") Then
Beep
Page No:
a = MsgBox("Numeric Only", vbExclamation + vbCritical, "Alert")
KeyAscii = 0
End If
End Sub

Private Sub txtmno_LostFocus()


If Len([Link]) <> 10 Then
MsgBox "mobile number must be 10 digit", vbCritical, "Alert"
[Link]
End If
End Sub

Private Sub txtname_KeyPress(KeyAscii As Integer)


Dim e As String
If KeyAscii < Asc("@") And KeyAscii > Asc("!") Then
Beep
e = MsgBox("Alphabet only", vbExclamation + vbCritical, "Alert")
KeyAscii = 0
End If
End Sub

Private Sub txtname_LostFocus()


[Link] = UCase([Link])
If [Link] = "" Then
[Link]
End If
End Sub
Page No:

Private Sub txtpercent_KeyPress(KeyAscii As Integer)


Dim e As String
If KeyAscii < Asc("0") And KeyAscii > Asc("9") Then
Beep
e = MsgBox("Numeric only", vbExclamation + vbCritical, "Alert")
KeyAscii = 0
End If
End Sub

Private Sub txtqualification_LostFocus()


[Link] = UCase([Link])
If [Link] = "" Then
[Link]
End If
End Sub
Page No:
Ex No:

Date:
FORMAT DIALOGS

Choose Rich Text Box, Common Dialog Box and MS Internet Control from
Project =>Components
Page No:
Page No:
Page No:
FORM CODING

Dim buffer As String

Private Sub cmdclose_Click()


[Link] = " "
[Link] = False
[Link] = False
End Sub

Private Sub color_Click()


[Link] = cd1ccfullopen
[Link]
[Link] = [Link]
End Sub

Private Sub copy_Click()


[Link]
[Link] [Link]
End Sub

Private Sub Cut_Click()


buffer = [Link]
If buffer = vbNullString Then
Beep
MsgBox "please select the text!", vbCritical + vbOKOnly, "error"
Else
[Link]
Page No:
[Link] [Link]
[Link] = ""
End If
End Sub

Private Sub Exit_Click()


End
End Sub

Private Sub font_Click()


[Link] = cdlCFBoth
[Link]
If [Link] = True Then
Exit Sub
End If
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
End Sub

Private Sub New_Click()


[Link] = True
[Link] = vbNullString
buffer = " "
[Link] = True
MsgBox "new [Link]!", vbInformation + vbOKOnly, "new"
End Sub
Page No:

Private Sub Open_Click()


[Link] = vbNullString
[Link]
[Link] ([Link])
[Link] [Link]
End Sub

Private Sub Paste_Click()


[Link] = [Link]
End Sub

Private Sub print_Click()


[Link] = cd1cfprinterfonts
[Link]
End Sub

Private Sub save_Click()


[Link]
[Link] ([Link])
End Sub

HTML CODING
<head>
<title>ample</title>
</head>
<body>
<h1>this is 1st heading</h1>
Page No:
<h2>this is 2nd heading</h2>
<h3>this is 3rd heading</h3>
<h4>this is 4th heading</h4>
<h5>this is 5th heading</h5>
<font size="20">
<Marquee>this is a marquee</marquee>
</body>
</html>
Page No:
Ex No:
Date:

Drag and Drop Events


Page No:

FORM CODING:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
BackColor = vbRed
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As


Single, Y As Single)
BackColor = vbBlue
End Sub
Page No:

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As


Single, Y As Single)
BackColor = vbGreen
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As


Single, Y As Single)
BackColor = vbYellow
End Sub

Private Sub Command5_Click()


End
End Sub

Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single)


If [Link] = "STRUCTS" Then
[Link] [Link]
Else
MsgBox "This Listbox Accepts only Structured Programming"
End If
End Sub
Page No:

Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)


If [Link] = "OOPS" Then
[Link] [Link]
Else
MsgBox "This Listbox Accepts only OOPS Programming"
End If
End Sub
Page No:
Ex. No:

Date : ACTIVEX CONTROL


Page No:

Then write the coding


Page No:
Now save the program as (Make [Link])
Page No:
Open a new form in [Link]
Page No:
Page No:
FORM CODINGS:
Dim a As Double
Dim c As Double
Dim b As String

Private Sub cmdac_Click()


[Link] = "0"
End Sub

Private Sub Cmdback_Click()


Dim Z As String
If ([Link] = "") Then
[Link] = [Link]
Else
Z = [Link]
Dim l As Integer
l = Len(Z)
[Link] = Mid(Z, 1, l - 1) ‘// (z,1,L-1)
End If
End Sub

Private Sub Cmdce_Click()


[Link] = " "
End Sub

Private Sub cmdclose_Click()


End
End Sub
Page No:

Private Sub cmd00_Click()


[Link] = [Link] + "00"
End Sub

Private Sub Cmd0_Click()


[Link] = [Link] + "0"
End Sub

Private Sub Cmd1_Click()


[Link] = [Link] + "1"
End Sub

Private Sub Cmd2_Click()


[Link] = [Link] + "2"
End Sub

Private Sub Cmd3_Click()


[Link] = [Link] + "3"
End Sub

Private Sub Cmd4_Click()


[Link] = [Link] + "4"
End Sub

Private Sub Cmd5_Click()


[Link] = [Link] + "5"
End Sub
Page No:

Private Sub Cmd6_Click()


[Link] = [Link] + "6"
End Sub

Private Sub Cmd7_Click()


[Link] = [Link] + "7"
End Sub

Private Sub Cmd8_Click()


[Link] = [Link] + "8"
End Sub

Private Sub cmd9_Click()


[Link] = [Link] + "9"
End Sub

Private Sub cmdadd_Click()


b = "add"
a = Val([Link])
[Link] = " "
End Sub

Private Sub cmdsub_Click()


b = "sub"
a = Val([Link])
[Link] = " "
End Sub
Page No:

Private Sub cmdmul_Click()


b = "mul"
a = Val([Link])
[Link] = " "
End Sub

Private Sub cmddiv_Click()


b = "div"
a = Val([Link])
[Link] = " "
End Sub

Private Sub Cmddot_Click()


[Link] = [Link] + "."
End Sub

Private Sub Cmdequal_Click()


On Error GoTo p

'add
If b = "add" Then
c = Val([Link])
[Link] = a + c
End If
Page No:

'sub
If b = "sub" Then
c = Val([Link])
[Link] = a - c
End If

'mul
If b = "mul" Then
c = Val([Link])
[Link] = a * c
End If

'div
If b = "div" Then
c = Val([Link])
[Link] = a / c
End If
Exit Sub
p: [Link] = "Invalid"
End Sub

Private Sub Cmdon_Click()


[Link] = " "
[Link] = True
End Sub
Page No:
Private Sub Cmdoff_Click()
[Link] = False
End Sub

Private Sub cmdsqrt_Click()


On Error GoTo E:
If [Link] = " " Then
MsgBox "Enter some value", vbInformation, "alert"
Else
[Link] = CSng(Round(Val(Sqr([Link])), 3))
End If
Exit Sub
E: [Link] = "Invalid option"
End Sub
Page No:
Ex No:

Date:
STUDENT INFORMATION SYSTEM
Page No:
Page No:
DATA REPORT
Page No:
PROGRAM CODINGS:
Private Sub Command1_Click()
[Link] = Val([Link]) - Val([Link])
End Sub

Private Sub DELTES_Click()


[Link]
MsgBox "RECORD DELETED SUCCESSFULLY"
End Sub

Private Sub EXITS_Click()


[Link]
End Sub

Private Sub FIRSTS_Click()


[Link]
End Sub

Private Sub INSERTS_Click()


[Link]
End Sub

Private Sub LASTS_Click()


[Link]
End Sub
Page No:
Private Sub NEWS_Click()
[Link]
End Sub

Private Sub NEXTS_Click()


[Link]
If [Link] Then
MsgBox "Final Records Reached"
[Link]

Private Sub PREVIOUSS_Click()


[Link]
If [Link] Then
[Link]
End Sub

Private Sub SAVES_Click()


[Link]
MsgBox "Your Record Updated Successfully"
End Sub

Private Sub UPDATES_Click()


[Link]
MsgBox "RECORD UPDATED SUCCESSFULLY"
End Sub
Page No:
Private Sub NEW_CLICK()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Page No:
Ex No:

Date :

STUDENT MARKSHEET PROCESSING SYSTEM


Page No:
Page No:
DATA REPORT
Page No:
PROGRAM CODING:

Private Sub Exits_Click()


End
End Sub

Private Sub Movefirsts_Click()


[Link]
End Sub

Private Sub Movelasts_Click()


[Link]
End Sub

Private Sub News_Click()


[Link]
End Sub

Private Sub Nexts_Click()


[Link]
If [Link] Then
MsgBox "Last record Reached"
[Link]
End If
End Sub
Page No:
Private Sub Previouss_Click()
[Link]
If [Link] Then
MsgBox "First Record Reached"
[Link]
End Sub

Private Sub Saves_Click()


[Link]
MsgBox "Records is Saved"
End Sub

Private Sub modify()


Dim a, b, c, d, e As Integer
a = Val([Link])
b = Val([Link])
c = Val([Link])
d = Val([Link])
e = Val([Link])
[Link] = a + b + c + d + e
[Link] = Val([Link]) / 5
If (a >= 40) And (b >= 40) And (c >= 40) And (d >= 40) And (e >= 40) Then
[Link] = "PASS"

If Val([Link]) >= 75 Then


Page No:
[Link] = "DISTINCTION"
ElseIf Val([Link]) >= 60 Then
[Link] = "FIRST"
ElseIf Val([Link]) >= 50 Then
[Link] = "SECOND"
ElseIf Val([Link]) >= 40 Then
[Link] = "THIRD"
End If
Else
[Link] = "FAIL"
[Link] = "NIL"
End If
End Sub

Private Sub Text4_Change()


modify
End Sub

Private Sub Text5_Change()


modify
End Sub

Private Sub Text6_Change()


modify
End Sub
Page No:
Private Sub Text7_Change()
modify
End Sub

Private Sub Text8_Change()


modify
End Sub
Page No:
Ex No:
Date :
Electricity Bill Preparation System
Page No:
Update:
Page No:

DATA REPORT
Page No:
PROGRAM CODINGS:
Private Sub Command1_Click()
If Val([Link]) > Val([Link]) Then
[Link] = Val([Link]) - Val([Link])
Else
MsgBox "current reading should be greater then pervious reading!!"
End If
If ([Link] >= 100) And ([Link] <= 200) Then
[Link] = Val([Link]) * 10
ElseIf ([Link] > 200) And ([Link] <= 400) Then
[Link] = Val([Link]) * 20
ElseIf ([Link] > 400) And ([Link] <= 600) Then
[Link] = Val([Link]) * 40
Else
[Link] = Val([Link]) * 75
End If
End Sub
Private Sub EXIT_Click()
End
End Sub

Private Sub FIRST_Click()


[Link]
End Sub
Page No:
Private Sub LAST_Click()
[Link]
End Sub

Private Sub NEW_Click()


[Link]
End Sub

Private Sub NEXT_Click()


[Link]
If [Link] Then
MsgBox "Last record Reached"
[Link]
End If
End Sub
Private Sub PREVIOUS_Click()
[Link]
If [Link] Then
MsgBox "Last record reached"
[Link]
End If
End Sub
Private Sub SAVE_Click()
[Link]
MsgBox "record updates"
End Sub
Page No:
Ex No:

Date:

BANKING MANAGEMENT SYSTEM


Page No:
Page No:
Page No:
Page No:
Page No:

FORM CODINGS:

Private Sub Command1_Click()


If [Link] = "abdul" And [Link] = "hakeem" Then
[Link]
[Link]
End If
End Sub

Private Sub Command2_Click()


End
End Sub

Private Sub Command1_Click()


[Link]
End Sub

Private Sub Command2_Click()


[Link]
End Sub

Private Sub Command3_Click()


[Link]
End Sub
Page No:

Private Sub Command1_Click()


[Link]
End Sub

Private Sub Command2_Click()


[Link]
End Sub

Private Sub Command3_Click()


[Link]
End Sub

Private Sub Command4_Click()


[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Private Sub Command1_Click()


[Link]
MsgBox "Amount Received Successfully"
End Sub
Page No:

Private Sub Text1_Click()


[Link] = Format$(Date, "dd-mm-yyyy")
End Sub
Private Sub Command1_Click()
[Link]
End Sub

Private Sub Command2_Click()


[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Private Sub Text1_Click ()


[Link] = Format$(Date, "dd-mm-yyyy")
End Sub
Page No:

Ex No:

Date : RAILWAY RESERVATION SYSTEM

Form 1(Train Details form):


Page No:
Form 2 (Passenger Details form):
Page No:
To Add a New Record:
Page No:
To Update a Record:
Page No:
Data Environment 1:
Page No:
Data Report 1:
Page No:
Data Environment 2:
Page No:
Data Report 2:
Page No:
Program Codlings:
FORM 1:
Dim cn As [Link]
Dim rs As [Link]
MENU EDITOR:

Private Sub ADD_Click()


clear
[Link]
End Sub

Private Sub DELETE_Click()

[Link]

[Link]

display

MsgBox "Record deleted"

End Sub

Private Sub EXIT_Click()

End

End Sub

Private Sub MOVEFIRST_Click()


[Link]
display
End Sub
Page No:
Program Codlings:
Private Sub MOVELAST_Click()
[Link]
display
End Sub

Private Sub NEXT_Click()


[Link]
display
End Sub

Private Sub PREVIOUS_Click()


[Link]
display
End Sub

Private Sub SAVE_Click()


[Link](0) = Trim(Text1)
[Link](1) = Trim(Text2)
[Link](2) = Trim(Text3)
[Link](3) = Trim(Text4)
[Link](4) = Trim(Text5)
[Link]
MsgBox "RECORD UPDATED"
End Sub
Page No:
CALCULATION:

Private Sub Command1_Click()

[Link]

End Sub

FRONT PAGE:

Private Sub Form_Load()

Set cn = New [Link]

Set rs = New [Link]


[Link] "Provider=MSDAORA.1;Password=hakeem;User ID=3bca71;Data
Source=cahccl;Persist Security Info=True"
[Link] "train", cn, adOpenDynamic, adLockOptimistic
clear
display
End Sub

Sub display()
Text1 = [Link](0)
Text2 = [Link](1)
Text3 = [Link](2)
Text4 = [Link](3)
Text5 = [Link](4)
End Sub
Page No:

Sub clear()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub
FORM 2:
Dim cn As [Link]
Dim rs As [Link]
Private Sub Command2_Click()
[Link] = Val([Link]) * Val([Link])
End Sub

Private Sub Form_Load()


Set cn = New [Link]
Set rs = New [Link]
[Link] "Provider=MSDAORA.1;Password=hakeem;User ID=3bca71;Data
Source=cahccl;Persist Security Info=True"
[Link] "passenger1", cn, adOpenDynamic, adLockOptimistic
clear
display
End Sub
Page No:

Sub display()
Text1 = [Link](0)
Text2 = [Link](1)
Text3 = [Link](2)
Text4 = [Link](3)
Text5 = [Link](4)
Text6 = [Link](5)
Text7 = [Link](6)
End Sub

Sub clear()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
End Sub

SQL Codings:

SQL>create table train(train varchar(20),trainname varchar(20),pnrno


varchar(20),source varchar(20),destination varchar(20));

Table created.

SQL> insert into train values('kk5678','doronto','15454','chennai','bangalore');

1 row created.
Page No:

TRAIN TRAINNAME PNRNO SOURCE DESTINATION

------------------------------------------------------------------------------------------------

kk5678 doronto 15454 chennai bangalore

tt4521 shatabthi 25792 delhi hyderabad

You might also like