Home » Student Attendance Management System Using VB 6 Part – 3

Student Attendance Management System Using VB 6 Part – 3

In Student Attendance Management System Using VB 6 Part 3, we will learn to create an interface for the attendance system that will meet the user requirements.

Here is the list of interfaces that we need to create.

  • Login for Student (frmLogin)
  • Login for Teacher (frmTLogin)
  • Login for Admin (frmALogin)
  • Main Screen (frmSplash)
  • View Attendance (frmViewAttendance)
  • Today’s Attendance (frmTodayAttendance)
  • Student Record Management (frmStudent)
  • Teacher Record Management (frmTeacherRecord)
Figure1-Names of forms for Attendance Management Project
Figure1-Names of forms for Attendance Management Project

For each of the above interfaces which also the VB form we will list out the following things.

  • System Diagram
  • Form Design
  • Components and its properties
  • Visual basic code

The system design is a high-level overview of individual components which show how each component of interface is related.

Connect To MS Access Database

Before we do anything we must first establish connection with MS Access database that we created earlier. If you did not create a database go to attendance management part-2 and create a database first.

To connect to database we will create a VB 6 module. Modules in VB are files that contain source codes. You can use them throughout your project without repeating them on each form. We must create a single module to connect with ms access database automatically.

To create a module, go to project explorer, right-click Form, select Add, and click Module.

Figure2-Create a Module in VB 6 for Database Connectivity
Figure2-Create a Module in VB 6 for Database Connectivity

Code For Module.bas

Now we must add code so that our VB project can programmatically connect to the MS Access database.

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim rsgrid As New ADODB.Recordset
Public constr As String
Public Sub loadcon()

constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VBProjects\Attendance\attendance.mdb;Persist Security Info=False"

con.Open constr
MsgBox ("connected")
End Sub

The function loadcon() is called whenever database connectivity is required. All connections must be closed as soon as form unloads

Main Screen

The main screen is the first screen that a user is going to see. This section discusses the design of the Student Attendance Management System Using VB 6 Part 3 main splash screen.

System Diagram for Main Screen

Figure5-System Diagram for Main Screen
Figure5-System Diagram for Main Screen

Form Design (frmSpalsh)

The splash screen is a special screen. You can add a splash screen from Standard Toolbar > Form > under Add Form, select Add a Splash and modify the form according to your project.

Figure5-Main Screen of Attendance Management System
Figure5-Main Screen of Attendance Management System

Components for Main Screen

The splash screen comes with pre-configured labels. You need to modify them and add some new controls in this project. Here are the list of components.

Form Details

Name : frmSplash
Caption : Attendance Management System
BackColor : Window Text
ForeColor : Highlight Text

Frame Control

Now you need to add a frame control and right click and click “send to back”. Existing controls are not visible;therefore, delete them and create identical labels on top of frame control. If you wish, skip frame control and continue creating rest of the controls.

Name : frameMain
Caption : 'leave empty'
BackColor : Window Text

Labels

Name : lblCompanyProduct
Caption : NotesforMSc
BackColor : Window Text
ForeColor : Highlight Text
Font : Arimo 14px Bold
Name : lblProductName
Caption : Attendance Management System
BackColor : Window Text
ForeColor : Highlight Text
Font : Arimo 20px Bold
Name : lblPlatform
Caption : Windows 7
BackColor : Window Text
ForeColor : Highlight Text
Font : Arimo 16px Regular
Name : lblPlatform
Caption : 64-Bit
BackColor : Window Text
ForeColor : Highlight Text
Font : Arimo 16px Regular
Name : lblCopyright
Caption : Copyright:Notesformsc2020
BackColor : Window Text
ForeColor : Highlight Text
Font : Arimo 8px Regular
Name : lblCompany
Caption : Company-www.Notesformsc.org
BackColor : Window Text
ForeColor : Highlight Text
Font : Arimo 8px Regular
Name : lblWarning
Caption : Warning: Do not copy or reproduce without permission except for the educational purpose
BackColor : Window Text
ForeColor : Highlight Text
Font : Arimo 8px Regular

Buttons

Name : cmdStu
Caption : Student Login
BackColor : Button Highlight
Style : 1-Graphical
Name : cmdTeach
Caption : Teacher Login
BackColor : Button Highlight
Style : 1-Graphical
Name : cmdAdmin
Caption : Admin Login
BackColor : Button Highlight
Style : 1-Graphical

Code For Main Screen

Option Explicit
Public userlogin As Integer

Private Sub cmdAdmin_Click()
frmALogin.Show

End Sub

Private Sub cmdStu_Click()
frmLogin.Show
End Sub

Private Sub cmdTeach_Click()
frmTULogin.Show

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
    
End Sub

Private Sub Form_Load()

    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = App.Title
        
End Sub

Private Sub Frame1_Click()
    Unload Me
End Sub

Note that above code may give error because login forms are not created yet. Continue to create login forms.

Student Login

System Diagram For Student Login

The student login has two inputs – user id and password.

The easiest way to create a login form is to click Standard toolbar on VB project editor and click Form > select Log in Dialog from Add Form Window. The login in dialog comes with a preexisting code which you can modify later. In this example project, we have used the login dialog.

Figure3-System Diagram for Student Login
Figure3-System Diagram for Student Login

Form Design(frmLogin)

The second option is to create a new form and design the login screen yourself. Later , you can modify the appearance for the form.

Figure4-Student Login Form
Figure4-Student Login Form

Components for Student Login

The components for student login is listed below.

Form Details

Name : frmLogin
Caption :Login
BackColor : Window Text
ForeColor : Highlight Text

Labels

Name : lblUserID
Caption : SID
BackColor : Window Text
ForeColor : Highlight Text
Name : lblPassword
Caption : Password
BackColor : Window Text
ForeColor : Highlight Text

Textboxes

Name : txtSID
Text : 'leave blank'
Name : txtPassword
Text : 'leave blank'

All other properties remain same.

Code for Student Login

Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
 'set the global var to false ' to denote a failed login

 LoginSucceeded = False
 Me.Hide
 End Sub
 Private Sub cmdOK_Click()
 
 'making connection
  
 Call loadcon
  
rs.Open "SELECT * FROM Student ", con, adOpenDynamic, adLockReadOnly
While Not rs.EOF
 If rs!SID = Val(txtSID) Then
 'check for correct password
 If rs!Password = txtPassword Then
 frmSplash.userlogin = rs!SID
  'place code to here to pass the 'success to the calling sub 'setting a global var is the easiest LoginSucceeded = True
 frmMenu.Show
 Unload Me
  'closing connection and recordset
  rs.Close
  con.Close
  
 Exit Sub
 Else
 MsgBox "Invalid Password, try again!", , "Login"
 txtPassword.SetFocus
 SendKeys "{Home}+{End}"
 End If
 End If
 rs.MoveNext
 Wend
End Sub

 Private Sub Form_Load()
 frmSplash.Hide
 End Sub

Teacher Login

System Diagram for Teacher Login

System Design for Teacher Login
System Design for Teacher Login

Form Design(frmTLogin)

You can create a form from the Standard Toolbar > Form > Log in Dialog. The second option is to create a new form with code.

Teacher Login Form
Teacher Login Form

Components for Teacher Login

The components for teacher login is listed below. These are controls used in the form design according to the system diagram.

Form Name: frmTLogin

Labels

Name: lblTID

Caption: &TID

Name: lblPassword

Caption: &Password

Textboxes

Name: txtTID

Text: ‘none’

Name: txtPassword

Text: ‘none’

All other properties stay the same. Note that the ‘none’ means you must leave it blank.

Code for Teacher Login

The code for teacher login is created by modifying the preexisting code of “login dialog” form.

System Diagram for Admin Login

Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdTCancel_Click()
 'set the global var to false ' to denote a failed login

 LoginSucceeded = False
 Me.Hide
 End Sub

 Private Sub cmdTOK_Click()
 
 'making connection
 Call loadcon
 
 rs.Open "SELECT * FROM Teacher ", con, adOpenDynamic, adLockReadOnly
While Not rs.EOF
 If rs!Tid = Val(txtTID) Then
 'check for correct password
 If rs!Password = txtPassword Then
 'place code to here to pass the 'success to the calling sub 'setting a global var is the easiest LoginSucceeded = True
 frmMenu.Show
 
 Me.Hide
 'closing connection and recordset
 
 rs.Close
 con.Close
 
 
 Exit Sub
 Else
 MsgBox "Invalid Password, try again!", , "Login"
 txtPassword.SetFocus
 SendKeys "{Home}+{End}"
 End If
 End If
 rs.MoveNext
 Wend
End Sub


Private Sub Form_Load()
frmSplash.Hide
End Sub

Administrator Login

The admin is the user with highest privileges, but the login behavior of administrator staff is the same as everyone.

System Design for Admin Login
System Design for Admin Login

Form Design (frmALogin)

Create the login form in the same way that you did for student and teacher. See section above.

Admin Login Form
Admin Login Form

Component for Admin Login

The list of components for admin login is given below.

Form Name: frmALogin

Labels

Name: lblAID

Caption: &AID

Name: lblPassword

Caption: &Password

TextBoxes

Name: txtAID

Text: ‘none’

Name: txtPassword

Text: ‘none’

Code for Admin Login

Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdACancel_Click()
 'set the global var to false ' to denote a failed login

 LoginSucceeded = False
 Me.Hide
 End Sub
 Private Sub cmdAOK_Click()
 
 
 rs.Open "SELECT * FROM Admin ", con, adOpenDynamic, adLockReadOnly
While Not rs.EOF
 If rs!AID = Val(txtAID) Then
 'check for correct password
 If rs!Password = txtPassword Then
 'place code to here to pass the 'success to the calling sub 'setting a global var is the easiest LoginSucceeded = True
 frmMenu.Show
 Me.Hide
 rs.Close
 Set rs = Nothing
 
 Exit Sub
 Else
 MsgBox "Invalid Password, try again!", , "Login"
 txtPassword.SetFocus
 SendKeys "{Home}+{End}"
 End If
 End If
 rs.MoveNext
 Wend
End Sub

 Private Sub Form_Load()
 frmSplash.Hide

 End Sub

In the next part we will continue building the interface for the attendance management system.

(adsbygoogle = window.adsbygoogle || []).push({}); </script

Please support us by disabling your adblocker or whitelist this site from your adblocker. Thanks!

turn of adblocker imag

(adsbygoogle = window.adsbygoogle || []).push({});