Importance of Project

A successful project completion may lead to selection in MNC's like TCS in your case also;If you do your project yourself under the guidance of best faculties.

Our TYBCS  project lectures are going to be started from 2nd Nov. 2016.

Sample Template

Click Here to download

TYBCA / TYBCS Projects

Dear Students,

 

If you require any help regarding PROJECT then kindly call on above number(s).

If someone want's to join the project batch for TYBCS / TYBCA can call as early as possible so you can able to do your project yourself.

Project is the most important part of academics, your final project plays an important role in Job Interviews. Some of our students got selected in reputed companies because of projects only.  That is why we don't provide ready project to students; but we provide everything  require to build project.

 

 

SYBCA DS SLIPS

Click Here to download SYBCA  DS 15 Marks Slips



Click HERE to Download SYBCA DS 25 Marks Slips

VB6 Project Validation

Click Here to Download Project


Option Explicit

Private Sub cmdadd_Click()
Module1.return_count ("select * from employee")
rs.MoveLast
txteno.Text = rs.Fields(0).Value + 1
txteno.Enabled = False
cmdadd.Enabled = False
cmdsave.Enabled = True

End Sub

Private Sub cmdsave_Click()

If txteno.Text = "" Or txtename.Text = "" Or txtEmob.Text = "" Or txtEaddr.Text = "" Or txtmail.Text = "" Or txtsal.Text = "" Then
MsgBox "Fill All the Fields", vbExclamation + vbOKOnly, "Incomplete Fields"
txtename.SetFocus
Else
Module1.return_count ("insert into employee values(" & CInt(txteno.Text) & ",'" & txtename.Text & "','" & txtmail.Text & "','" & txtEmob.Text & "','" & txtEaddr.Text & "'," & CCur(txtsal.Text) & ")")
MsgBox ("Employee Details save successfuly.... ")
cmdsave.Enabled = False
cmdadd.Enabled = True
Call clearText
End If
End Sub
Private Sub clearText()
 txteno.Text = ""
 txtename.Text = ""
 txtEmob.Text = ""
 txtEaddr.Text = ""
 txtmail.Text = ""
 txtsal.Text = ""
End Sub
Private Sub Form_Load()
Me.Height = 8895
Me.Width = 15405
End Sub


Private Sub txtEmob_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then
Else
MsgBox "Enter Numbers only", vbExclamation + vbOKCancel, "Invalid input"
KeyAscii = 0
txtEmob.SetFocus
End If

End Sub

Private Sub txtEmob_LostFocus()
If Left(txtEmob.Text, 1) > 6 And Len(txtEmob.Text) = 10 Then
txtEmob.BackColor = vbWhite
Else
MsgBox "Invalid Mobile ", vbExclamation + vbOKCancel, "Invalid input"
txtEmob.BackColor = vbRed
End If

End Sub

Private Sub txtename_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 91 Or KeyAscii >= 97 And KeyAscii <= 122 Or KeyAscii = 8 Or KeyAscii = 32 Then
Else
MsgBox "Enter Alphabets only", vbExclamation + vbOKCancel, "Invalid input"
KeyAscii = 0
txtename.SetFocus
End If
End Sub



Private Sub txtmail_LostFocus()
Dim flag As Boolean
flag = False
Dim myRegExp As RegExp
Dim myMatches As MatchCollection
Dim myMatch As Match
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,6}$"
Set myMatches = myRegExp.Execute(txtmail.Text)
For Each myMatch In myMatches
flag = True
Next
If flag = False Then
MsgBox ("Invalid Email")
txtmail.BackColor = vbRed
txtmail.SetFocus
Else
txtmail.BackColor = vbWhite

End If

End Sub

Line Editor

Click Here to Download pdf files

Login Screens Designs for VB6 Projects

To Download Click Here