Source Code for Presence Management System in Vb6. 0 Essay

Pupils Attendance Entrance Module Source Code:

Alternative Explicit

Community rs Since New ADODB. Recordset

Community cmd Since New ADODB. Command

Public con Since New ADODB. Connection

Open public Sub OpenConn()

With con

. CursorLocation sama dengan adUseClient

. ConnectionString = " Provider=MSDAORA. 1; Password=praem; User ID=praem; Info Source=127. 0. 0. you; Persist Security Info=True". Open

End With

End Sub

Private Bass speaker Form_Load()

OpenConn

With rs

. CursorLocation = adUseClient

. CursorType = adOpenKeyset

. LockType sama dengan adLockOptimistic

. CacheSize = 55

. Source = " Choose * coming from students"

. ActiveConnection = " Provider=MSDAORA. one particular; Password=praem; User ID=praem; Info Source=127. zero. 0. one particular; Persist Secureness Info=True"

. Open up

End With

fillforms

lock_edit

save. Enabled = Phony

End Subwoofer

Private Bass speaker fillforms()

If perhaps Not (rs. EOF sama dengan True Or perhaps rs. BOF = True) Then

rno. Text = rs(0)

pupil. Text sama dengan rs(1)

fname. Text sama dengan rs(2)

phno. Text sama dengan rs(3)

email. Text = rs(4)

Me personally. branch. Text message = rs(5)

sem. Text = rs(6)

street. Textual content = rs(7)

city. Text message = rs(8)

district. Text message = rs(9)

state. Text message = rs(10)

pincode. Text = rs(11)

dob. Value = rs(12)

doj. Benefit = rs(13)

Else

MsgBox " This can be the last Record or the 1st Record", vbOKOnly, " Are unable to Move" End If

End Sub

Non-public Sub Form_Unload(Cancel As Integer)

college. Show

End Subwoofer

Private Subwoofer Label1_Click()

End Sub

Non-public Sub nex_Click()

If Not really (rs. EOF = True) Then

rs. MoveNext

fillforms

End In the event

End Subwoofer

Private Subwoofer prev_Click()

In the event Not (rs. BOF = True) Then simply

rs. MovePrevious

fillforms

End If

End Sub

Personal Sub first_Click()

If Not (rs. BOF = True) Then

rs. MoveFirst

fillforms

End In the event

End Bass speaker

Private Subwoofer last_Click()

In the event that Not (rs. EOF = True) After that

rs. MoveLast

fillforms

End If

End Sub

Private Sub add_Click()

If put. Caption sama dengan " New" Then

unlock_edit

nul_text

add. Caption sama dengan " add"

delete. Caption = " Cancel"

modify. Enabled sama dengan False

save. Enabled sama dengan False

initially. Enabled = False

last. Enabled = False

prev. Enabled sama dengan False

nex. Enabled sama dengan False

Leave Sub

Otherwise

If rno. Text = " " Then

MsgBox " Signup No Ought not to be Empty", vbOKOnly

Else

In the event that student. Text message = " " Then simply

MsgBox " Name must not be Empty", vbOKOnly

Else

If perhaps fname. Textual content = " " In that case

MsgBox " Father Brand Should not be Empty", vbOKOnly Different

If phno. Text = " " Then

MsgBox " Telephone No Ought not to be Empty", vbOKOnly Else

In the event that email. Text message = " " Then simply

MsgBox " Email Ought not to be Empty", vbOKOnly Else

In the event branch. Text message = " " Then

MsgBox " branch Term Should not be Empty", vbOKOnly Different

If search engine optimization. Text sama dengan " " Then

MsgBox " Session Should not be Empty", vbOKOnly Otherwise

If road. Text = " " Then

MsgBox " Talk about Should not be Empty", vbOKOnly Different

If city. Text = " " Then

MsgBox " Talk about Should not be Empty", vbOKOnly Different

If perhaps district. Textual content = " " In that case MsgBox " Address Ought not to be Empty", vbOKOnly Else

If point out. Text sama dengan " " Then MsgBox " Talk about Should not be Empty", vbOKOnly More

If pincode. Text sama dengan " " Then MsgBox " Talk about Should not be Empty", vbOKOnly...



News

 Hills Just like White Elphants Essay

Hills Just like White Elphants Essay

The english language 102 12 October 2012 Human Experience Person if viewed from a distance in their life would virtually go through the basic…...

 If Only She Had Tune in to Me- Short Story Analysis Paper

If Only She Had Tune in to Me- Short Story Analysis Paper

Camaraderie is a feeling of love of one person another. Its not necessary to decide on whom to get your good friend, your best friend. The friendship between one…...

 The Baseball catchers In The Rye Dead Poets Soci Dissertation

The Baseball catchers In The Rye Dead Poets Soci Dissertation

п»їThe Catcher in the Rye/the Lifeless Poets Contemporary society The Catcher in the Rye/The Dead Poets Society Holden Caufield, narrator and main character inside the Catcher…...

 Benefits of Contract price Essay

Benefits of Contract price Essay

Who benefits from a contract price or subspecies? TARIFFS Rewards 1 . Local government through increased revenues. 2 . Domestic business due to…...

 Just-noticeable Difference and Sound Wave Dissertation

Just-noticeable Difference and Sound Wave Dissertation

Study Questions: 1 ) The physical properties of the stimulus will be translated in neural impulses in a method called A. Physical coding W. Transduction…...

 Discerning New Forms of Solidarity That Go above Nation, Faith, and Sociable Class Dissertation

Discerning New Forms of Solidarity That Go above Nation, Faith, and Sociable Class Dissertation

One thing that may be clearly noticeable is that individuals have regularly developed new forms of unification as we have started out roaming rings of sportsman and gatherers to a digital…...