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()
Me.Hide
Form2.Show
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()
Text1.Text = Text1.Text + "5"
End Sub
Page No:
Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + "7"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + "9"
End Sub
Private Sub Command0_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command00_Click()
Text1.Text = Text1.Text + "00"
End Sub
Private Sub dot_Click()
Text1.Text = Text1.Text + "."
End Sub
Private Sub backspace_Click()
Dim Z As String
If (Text1.Text = "") Then
Text1.Text = Text1.Text
Else
Z = Text1.Text
Dim L As Integer
L = Len(Z)
Text1.Text = Mid(Z, 1, L - 1)
End If
End Sub
Page No:
Private Sub plus_Click()
B = "add"
A = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub off_Click()
Text1.Visible = False
End Sub
Private Sub minus_Click()
B = "sub"
A = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub mul_Click()
B = "mul"
A = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub div_Click()
B = "div"
A = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub Close_Click()
End
End Sub
Private Sub Equalto_Click()
On Error GoTo p:
'ADD
If B = "add" Then
C = Val(Text1.Text)
Text1.Text = A + C
End If
Page No:
'SUB
If B = "sub" Then
C = Val(Text1.Text)
Text1.Text = A - C
End If
'MUL
If B = "mul" Then
C = Val(Text1.Text)
Text1.Text = A * C
End If
'DIV
If B = "div" Then
C = Val(Text1.Text)
Text1.Text = A / C
End If
Exit Sub
p:
Text1.Text = "Invalid/undefined"
End Sub
Private Sub sqrt_Click()
On Error GoTo e:
If Text1.Text = "" Then
MsgBox "enter value", vbInformation, "Alert"
Else
Text1.Text = CSng(Round(Val(Sqr(Text1.Text)), 3))
End If
Exit Sub
e:
Text1.Text = "Invalid Option"
End Sub
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub
Page No:
Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub
Private Sub Command0_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command00_Click()
Text1.Text = Text1.Text + "00"
End Sub
Private Sub Command1_Click()
Text1.Text = "0"
Text1.Visible = True
End Sub
Private Sub CE_Click()
Text1.Text = ""
End Sub
Private Sub AC_Click()
Text1.Text = "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 Text1.Text = "abdul" And Text2.Text = "hakeem" Then
Form2.Show
Else
MsgBox "Unauthorised User!! Verify username or password", vbInformation,
"Caution"
End If
Me.Hide
End Sub
Private Sub Command2_Click()
End
End Sub
FORM 2 Coding
Private Sub Command1_Click()
If Form2.Option3.Value = True Then
MsgBox "Right Answer", vbInformation, "Caution"
Form3.Text1.Text = 10
Else
MsgBox "Wrong Answer"
Form3.Text1.Text = "0"
End If
Me.Hide
Form3.Show
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
Page No:
FORM 3 Coding
Private Sub Command1_Click()
If Form3.Option4.Value = True Then
MsgBox "Right Answer", vbInformation, "Caution"
Form4.Text1.Text = Val(Form3.Text1.Text) + 10
Else
MsgBox "Wrong Answer"
Form4.Text1.Text = Val(Form3.Text1.Text) + 0
End If
Me.Hide
Form4.Show
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
FORM 4 Coding
Private Sub Command1_Click()
If Form4.Option2.Value = True Then
MsgBox "Right Answer", vbInformation, "Caution"
Form5.Text1.Text = Val(Form4.Text1.Text) + 10
Else
MsgBox "Wrong Answer"
Form5.Text1.Text = Val(Form4.Text1.Text) + 0
End If
Me.Hide
Form5.Show
End Sub
Private Sub Form_Load()
Page No:
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
FORM 5 Coding
Private Sub Command1_Click()
If Form5.Option3.Value = True Then
MsgBox "Right Answer", vbInformation, "Caution"
Form6.Text1.Text = Val(Form5.Text1.Text) + 10
Else
MsgBox "Wrong Answer"
Form6.Text1.Text = Val(Form5.Text1.Text) + 0
End If
Me.Hide
Form6.Show
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
FORM 6 Coding
Private Sub Command1_Click()
If Val(Text1.Text) = 0 Then
Text2.Text = "Very Poor"
ElseIf Val(Text1.Text) = 10 Then
Text2.Text = "Poor"
ElseIf Val(Text1.Text) = 20 Then
Text2.Text = "Fair"
ElseIf Val(Text1.Text) = 30 Then
Text2.Text = "GOOD"
Page No:
ElseIf Val(Text1.Text) = 40 Then
Text2.Text = "Excellent"
End If
End Sub
Private Sub Command2_Click()
Me.Hide
Form2.Show
Form2.Option1.Value = False
Form2.Option2.Value = False
Form2.Option3.Value = False
Form2.Option4.Value = False
Form3.Option1.Value = False
Form3.Option2.Value = False
Form3.Option3.Value = False
Form3.Option4.Value = False
Form4.Option1.Value = False
Form4.Option2.Value = False
Form4.Option3.Value = False
Form4.Option4.Value = False
Form5.Option1.Value = False
Form5.Option2.Value = False
Form5.Option3.Value = False
Form5.Option4.Value = False
Form6.Text1.Text = " "
Form6.Text2.Text = " "
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 = rt1.SelText
If buffer = vbNullString Then
Beep
MsgBox "please select the text!", vbCritical + vbOKOnly, "error"
Else
rt1.SelColor = vbBlue
End If
End Sub
Private Sub cmdclose_Click()
rt1.Text = " "
rt1.Visible = False
Image1.Visible = False
End Sub
Private Sub cmdimage_Click()
Image1.Visible = True
com1.ShowOpen
Image1.Picture = LoadPicture(com1.FileName)
End Sub
Private Sub copy_Click()
Clipboard.Clear
Clipboard.SetText rt1.SelText
End Sub
Page No:
Private Sub Cut_Click()
buffer = rt1.SelText
If buffer = vbNullString Then
Beep
MsgBox "please select the text!", vbCritical + vbOKOnly, "error"
Else
Clipboard.Clear
Clipboard.SetText rt1.SelText
rt1.SelText = ""
End If
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub Green_Click()
buffer = rt1.SelText
If buffer = vbNullString Then
Beep
MsgBox "please select the text!!", vbCritical + vbOKOnly, "error"
Else
rt1.SelColor = vbGreen
End If
End Sub
Page No:
Private Sub New_Click()
rt1.Visible = True
rt1.Text = vbNullString
buffer = " "
MsgBox "new file.created!", vbInformation + vbOKOnly, "new"
End Sub
Private Sub Normal_Click()
MsgBox "you have select normal", vbInformation + vbOKOnly, "normal"
rt1.Width = 11775
End Sub
Private Sub Open_Click()
rt1.Text = vbNullString
com1.ShowOpen
rt1.LoadFile (com1.FileName)
End Sub
Private Sub Paste_Click()
rt1.SelText = Clipboard.GetText
End Sub
Private Sub Red_Click()
bufer = rt1.SelText
If buffer = vbNullString Then
Beep
MsgBox "please select the text!!", vbCritical + vbOKOnly, "error"
Else
rt1.SelColor = vbRed
Page No:
End If
End Sub
Private Sub save_Click()
com1.ShowSave
rt1.SaveFile (com1.FileName)
End Sub
Private Sub Size1_Click()
MsgBox "you have selected 500", vbInformation + vbOKOnly, "500'"
rt1.Width = 5000
End Sub
Private Sub Size2_Click()
MsgBox "you have selected 700", vbInformation + vbOKOnly, "700"
rt1.Width = 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()
rt1.Text = " "
rt1.Visible = False
Image1.Visible = False
End Sub
Private Sub cmdimage_Click()
Image1.Visible = True
com1.ShowOpen
Image1.Picture = LoadPicture(com1.FileName)
End Sub
Private Sub color_Click()
com1.Flags = cd1ccfullopen
com1.ShowColor
rt1.SelColor = com1.color
End Sub
Private Sub copy_Click()
Clipboard.Clear
Clipboard.SetText rt1.SelText
End Sub
Page No:
Private Sub Cut_Click()
buffer = rt1.SelText
If buffer = vbNullString Then
Beep
MsgBox "please select the text!", vbCritical + vbOKOnly, "error"
Else
Clipboard.Clear
Clipboard.SetText rt1.SelText
rt1.SelText = ""
End If
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub font_Click()
com1.Flags = cdlCFBoth
com1.ShowFont
If com1.CancelError = True Then
Exit Sub
End If
rt1.SelFontName = com1.FontName
rt1.SelFontSize = com1.FontSize
rt1.SelBold = com1.FontBold
rt1.SelItalic = com1.FontItalic
End Sub
Page No:
Private Sub New_Click()
rt1.Visible = True
rt1.Text = vbNullString
buffer = " "
MsgBox "new file.created!", vbInformation + vbOKOnly, "new"
End Sub
Private Sub Open_Click()
rt1.Text = vbNullString
com1.ShowOpen
rt1.LoadFile (com1.FileName)
End Sub
Private Sub Paste_Click()
rt1.SelText = Clipboard.GetText
End Sub
Private Sub print_Click()
com1.Flags = cd1cfprinterfonts
com1.ShowPrinter
End Sub
Private Sub save_Click()
com1.ShowSave
rt1.SaveFile (com1.FileName)
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 NEXT.THEN SELECT RECORDSOURCETAB
SELECT ALL THE FIELDS.IN PROPERTIES SET DATA SOURCE AS
ADODC1
Page No:
SELECT INDIVIDUAL FIELD AND SET DATA FIELD ACCORDINGLY
Page No:
ADD (MS GRID CONTROL6.0) FROM COMPONENTS.SET THE PROERTY
OF GRID CONTROL IN DATASOURCE AS ADODC1
Page No:
Page No:
Page No:
FORM CODING:
Private Sub cmdadd_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub cmdcancel_Click()
End
End Sub
Private Sub cmddelete_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub cmdreset_Click()
txtname.Text = ""
txtgender.Text = ""
txtmail.Text = ""
txtaddress.Text = ""
txtmno.Text = ""
txtqualification.Text = ""
txtpercent.Text = ""
End Sub
Private Sub cmdupdate_Click()
Adodc1.Recordset.Update
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()
txtgender.Text = UCase(txtgender.Text)
If txtgender.Text = "" Then
End If
End Sub
Private Sub txtmail_LostFocus()
If InStr(txtmail, "@") = 0 Then
MsgBox "Enter E-Mail id using @symbol", vbCritical, "Alert"
txtmail.SetFocus
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(txtmno.Text) <> 10 Then
MsgBox "mobile number must be 10 digit", vbCritical, "Alert"
txtmno.SetFocus
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()
txtname.Text = UCase(txtname.Text)
If txtname.Text = "" Then
txtname.SetFocus
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()
txtqualification.Text = UCase(txtqualification.Text)
If txtqualification.Text = "" Then
txtqualification.SetFocus
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()
rt1.Text = " "
rt1.Visible = False
WebBrowser1.Visible = False
End Sub
Private Sub color_Click()
com1.Flags = cd1ccfullopen
com1.ShowColor
rt1.SelColor = com1.color
End Sub
Private Sub copy_Click()
Clipboard.Clear
Clipboard.SetText rt1.SelText
End Sub
Private Sub Cut_Click()
buffer = rt1.SelText
If buffer = vbNullString Then
Beep
MsgBox "please select the text!", vbCritical + vbOKOnly, "error"
Else
Clipboard.Clear
Page No:
Clipboard.SetText rt1.SelText
rt1.SelText = ""
End If
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub font_Click()
com1.Flags = cdlCFBoth
com1.ShowFont
If com1.CancelError = True Then
Exit Sub
End If
rt1.SelFontName = com1.FontName
rt1.SelFontSize = com1.FontSize
rt1.SelBold = com1.FontBold
rt1.SelItalic = com1.FontItalic
End Sub
Private Sub New_Click()
rt1.Visible = True
rt1.Text = vbNullString
buffer = " "
WebBrowser1.Visible = True
MsgBox "new file.created!", vbInformation + vbOKOnly, "new"
End Sub
Page No:
Private Sub Open_Click()
rt1.Text = vbNullString
com1.ShowOpen
rt1.LoadFile (com1.FileName)
WebBrowser1.Navigate com1.FileName
End Sub
Private Sub Paste_Click()
rt1.SelText = Clipboard.GetText
End Sub
Private Sub print_Click()
com1.Flags = cd1cfprinterfonts
com1.ShowPrinter
End Sub
Private Sub save_Click()
com1.ShowSave
rt1.SaveFile (com1.FileName)
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 Source.Tag = "STRUCTS" Then
List1.AddItem Source.Caption
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 Source.Tag = "OOPS" Then
List2.AddItem Source.Caption
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 project1.ocx)
Page No:
Open a new form in standard.exe
Page No:
Page No:
FORM CODINGS:
Dim a As Double
Dim c As Double
Dim b As String
Private Sub cmdac_Click()
Txt1.Text = "0"
End Sub
Private Sub Cmdback_Click()
Dim Z As String
If (Txt1.Text = "") Then
Txt1.Text = Txt1.Text
Else
Z = Txt1.Text
Dim l As Integer
l = Len(Z)
Txt1.Text = Mid(Z, 1, l - 1) ‘// (z,1,L-1)
End If
End Sub
Private Sub Cmdce_Click()
Txt1.Text = " "
End Sub
Private Sub cmdclose_Click()
End
End Sub
Page No:
Private Sub cmd00_Click()
Txt1.Text = Txt1.Text + "00"
End Sub
Private Sub Cmd0_Click()
Txt1.Text = Txt1.Text + "0"
End Sub
Private Sub Cmd1_Click()
Txt1.Text = Txt1.Text + "1"
End Sub
Private Sub Cmd2_Click()
Txt1.Text = Txt1.Text + "2"
End Sub
Private Sub Cmd3_Click()
Txt1.Text = Txt1.Text + "3"
End Sub
Private Sub Cmd4_Click()
Txt1.Text = Txt1.Text + "4"
End Sub
Private Sub Cmd5_Click()
Txt1.Text = Txt1.Text + "5"
End Sub
Page No:
Private Sub Cmd6_Click()
Txt1.Text = Txt1.Text + "6"
End Sub
Private Sub Cmd7_Click()
Txt1.Text = Txt1.Text + "7"
End Sub
Private Sub Cmd8_Click()
Txt1.Text = Txt1.Text + "8"
End Sub
Private Sub cmd9_Click()
Txt1.Text = Txt1.Text + "9"
End Sub
Private Sub cmdadd_Click()
b = "add"
a = Val(Txt1.Text)
Txt1.Text = " "
End Sub
Private Sub cmdsub_Click()
b = "sub"
a = Val(Txt1.Text)
Txt1.Text = " "
End Sub
Page No:
Private Sub cmdmul_Click()
b = "mul"
a = Val(Txt1.Text)
Txt1.Text = " "
End Sub
Private Sub cmddiv_Click()
b = "div"
a = Val(Txt1.Text)
Txt1.Text = " "
End Sub
Private Sub Cmddot_Click()
Txt1.Text = Txt1.Text + "."
End Sub
Private Sub Cmdequal_Click()
On Error GoTo p
'add
If b = "add" Then
c = Val(Txt1.Text)
Txt1.Text = a + c
End If
Page No:
'sub
If b = "sub" Then
c = Val(Txt1.Text)
Txt1.Text = a - c
End If
'mul
If b = "mul" Then
c = Val(Txt1.Text)
Txt1.Text = a * c
End If
'div
If b = "div" Then
c = Val(Txt1.Text)
Txt1.Text = a / c
End If
Exit Sub
p: Txt1.Text = "Invalid"
End Sub
Private Sub Cmdon_Click()
Txt1.Text = " "
Txt1.Visible = True
End Sub
Page No:
Private Sub Cmdoff_Click()
Txt1.Visible = False
End Sub
Private Sub cmdsqrt_Click()
On Error GoTo E:
If Txt1.Text = " " Then
MsgBox "Enter some value", vbInformation, "alert"
Else
Txt1.Text = CSng(Round(Val(Sqr(Txt1.Text)), 3))
End If
Exit Sub
E: Txt1.Text = "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()
Text11.Text = Val(Text9.Text) - Val(Text10.Text)
End Sub
Private Sub DELTES_Click()
Adodc1.Recordset.Delete
MsgBox "RECORD DELETED SUCCESSFULLY"
End Sub
Private Sub EXITS_Click()
Adodc1.Recordset.exit
End Sub
Private Sub FIRSTS_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub INSERTS_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub LASTS_Click()
Adodc1.Recordset.MoveLast
End Sub
Page No:
Private Sub NEWS_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub NEXTS_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
MsgBox "Final Records Reached"
Adodc1.Recordset.MoveFirst
Private Sub PREVIOUSS_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveLast
End Sub
Private Sub SAVES_Click()
Adodc1.Recordset.Save
MsgBox "Your Record Updated Successfully"
End Sub
Private Sub UPDATES_Click()
Adodc1.Recordset.Update
MsgBox "RECORD UPDATED SUCCESSFULLY"
End Sub
Page No:
Private Sub NEW_CLICK()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
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()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Movelasts_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub News_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Nexts_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
MsgBox "Last record Reached"
Adodc1.Recordset.MoveLast
End If
End Sub
Page No:
Private Sub Previouss_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
MsgBox "First Record Reached"
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Saves_Click()
Adodc1.Recordset.Update
MsgBox "Records is Saved"
End Sub
Private Sub modify()
Dim a, b, c, d, e As Integer
a = Val(Text4.Text)
b = Val(Text5.Text)
c = Val(Text6.Text)
d = Val(Text7.Text)
e = Val(Text8.Text)
Text9.Text = a + b + c + d + e
Text10.Text = Val(Text9.Text) / 5
If (a >= 40) And (b >= 40) And (c >= 40) And (d >= 40) And (e >= 40) Then
Text11.Text = "PASS"
If Val(Text10.Text) >= 75 Then
Page No:
Text12.Text = "DISTINCTION"
ElseIf Val(Text10.Text) >= 60 Then
Text12.Text = "FIRST"
ElseIf Val(Text10.Text) >= 50 Then
Text12.Text = "SECOND"
ElseIf Val(Text10.Text) >= 40 Then
Text12.Text = "THIRD"
End If
Else
Text11.Text = "FAIL"
Text12.Text = "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(Text4.Text) > Val(Text3.Text) Then
Text5.Text = Val(Text4.Text) - Val(Text3.Text)
Else
MsgBox "current reading should be greater then pervious reading!!"
End If
If (Text5.Text >= 100) And (Text5.Text <= 200) Then
Text6.Text = Val(Text5.Text) * 10
ElseIf (Text5.Text > 200) And (Text5.Text <= 400) Then
Text6.Text = Val(Text.Text) * 20
ElseIf (Text5.Text > 400) And (Text5.Text <= 600) Then
Text6.Text = Val(Text5.Text) * 40
Else
Text6.Text = Val(Text5.Text) * 75
End If
End Sub
Private Sub EXIT_Click()
End
End Sub
Private Sub FIRST_Click()
Adodc1.Recordset.MoveFirst
End Sub
Page No:
Private Sub LAST_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub NEW_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub NEXT_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
MsgBox "Last record Reached"
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub PREVIOUS_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
MsgBox "Last record reached"
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub SAVE_Click()
Adodc1.Recordset.SAVE
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 Text1.Text = "abdul" And Text2.Text = "hakeem" Then
Me.Hide
Form2.Show
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command1_Click()
Form3.Show
End Sub
Private Sub Command2_Click()
Form4.Show
End Sub
Private Sub Command3_Click()
Form5.Show
End Sub
Page No:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
MsgBox "Amount Received Successfully"
End Sub
Page No:
Private Sub Text1_Click()
Text1.Text = Format$(Date, "dd-mm-yyyy")
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Text1_Click ()
Text1.Text = 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 ADODB.Connection
Dim rs As ADODB.Recordset
MENU EDITOR:
Private Sub ADD_Click()
clear
rs.AddNew
End Sub
Private Sub DELETE_Click()
rs.DELETE
rs.MOVEFIRST
display
MsgBox "Record deleted"
End Sub
Private Sub EXIT_Click()
End
End Sub
Private Sub MOVEFIRST_Click()
rs.MOVEFIRST
display
End Sub
Page No:
Program Codlings:
Private Sub MOVELAST_Click()
rs.MOVELAST
display
End Sub
Private Sub NEXT_Click()
rs.MoveNext
display
End Sub
Private Sub PREVIOUS_Click()
rs.MovePrevious
display
End Sub
Private Sub SAVE_Click()
rs.Fields(0) = Trim(Text1)
rs.Fields(1) = Trim(Text2)
rs.Fields(2) = Trim(Text3)
rs.Fields(3) = Trim(Text4)
rs.Fields(4) = Trim(Text5)
rs.Update
MsgBox "RECORD UPDATED"
End Sub
Page No:
CALCULATION:
Private Sub Command1_Click()
Form2.Show
End Sub
FRONT PAGE:
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=MSDAORA.1;Password=hakeem;User ID=3bca71;Data
Source=cahccl;Persist Security Info=True"
rs.Open "train", cn, adOpenDynamic, adLockOptimistic
clear
display
End Sub
Sub display()
Text1 = rs.Fields(0)
Text2 = rs.Fields(1)
Text3 = rs.Fields(2)
Text4 = rs.Fields(3)
Text5 = rs.Fields(4)
End Sub
Page No:
Sub clear()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub
FORM 2:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command2_Click()
Text7.Text = Val(Text5.Text) * Val(Text6.Text)
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=MSDAORA.1;Password=hakeem;User ID=3bca71;Data
Source=cahccl;Persist Security Info=True"
rs.Open "passenger1", cn, adOpenDynamic, adLockOptimistic
clear
display
End Sub
Page No:
Sub display()
Text1 = rs.Fields(0)
Text2 = rs.Fields(1)
Text3 = rs.Fields(2)
Text4 = rs.Fields(3)
Text5 = rs.Fields(4)
Text6 = rs.Fields(5)
Text7 = rs.Fields(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
