1. Create a User Credentials File (users.

txt)
1. Open Notepad.

2. Save the file as users.txt in the same folder as your VB6 project.

3. Add login credentials in this format:

admin,12345

user1,password

Each line contains a username and password, separated by a comma (,).

2. Create the Login Form (frmLogin)

Textboxes: txtUsername, txtPassword (Set txtPassword.PasswordChar = "*")

Buttons: cmdLogin, cmdExit

Labels: "Username:", "Password:"

Form Name: frmLogin

3. Add Code for Login Authentication

Private Sub cmdLogin_Click()

Dim fileNum As Integer

Dim lineData As String

Dim userInfo() As String

Dim loginSuccess As Boolean

fileNum = FreeFile

Open App.Path & "\users.txt" For Input As #fileNum

loginSuccess = False

' Read file line by line

Do While Not EOF(fileNum)

Line Input #fileNum, lineData

' Check if username and password match

If Trim(userInfo(0)) = Trim(txtUsername.Text) And Trim(userInfo(1)) =

loginSuccess = True

Exit Do

End If

Loop

Close #fileNum

If loginSuccess Then

MsgBox "Login Successful!", vbInformation, "Success"

frmLogin.Hide

frmRegister.Show ' Open the Student Registration Form

Else

MsgBox "Invalid Username or Password!", vbCritical, "Login Failed"

End If

End Sub

This code checks the entered credentials against the records in users.txt.

---

4. Exit Button Code

Private Sub cmdExit_Click()

End Sub

This closes the login form.

we will use text files (.txt) as a database. This method reads, writes, updates, and deletes
records using text file operations.

---

1. Create a Text File as a Database

1. Open Notepad.

2. Save the file as students.txt in the same folder as your VB6 project.

3. Use a format like this for storing student records:

S001,John Doe,20,Computer Science

S002,Jane Smith,22,Mathematics

Each line represents a student's record, with fields separated by commas (,).

2. Create the VB6 Registration Form (frmRegister)

Textboxes: txtID, txtName, txtAge, txtCourse

Buttons: cmdInsert, cmdUpdate, cmdDelete, cmdSearch

Labels: "ID:", "Name:", "Age:", "Course:"

3. Add Code for File-Based Operations

Private Sub cmdInsert_Click()

Dim fileNum As Integer

Dim studentData As String

' Open file for appending new records

fileNum = FreeFile

Open App.Path & "\students.txt" For Append As #fileNum

' Create a record in CSV format

studentData = txtID.Text & "," & txtName.Text & "," & txtAge.Text & "," & txtCourse.Text

' Write data to file

Print #fileNum, studentData

Close #fileNum
 MsgBox "Record Inserted Successfully!", vbInformation, "Success"

' Clear textboxes

txtID.Text = ""

txtName.Text = ""

txtAge.Text = ""

txtCourse.Text = ""

End Sub

This appends a new student record to students.txt.

(b) Search for a Student Record

Private Sub cmdSearch_Click()

Dim fileNum As Integer

Dim lineData As String

Dim studentInfo() As String

Dim found As Boolean

fileNum = FreeFile

Open App.Path & "\students.txt" For Input As #fileNum

found = False

' Read file line by line

Do While Not EOF(fileNum)

studentInfo = Split(lineData, ",") ' Split by comma

If studentInfo(0) = txtID.Text Then

txtName.Text = studentInfo(1)

txtAge.Text = studentInfo(2)

txtCourse.Text = studentInfo(3)

found = True

Exit Do

End If

Loop

Close #fileNum

If Not found Then

MsgBox "Student Not Found!", vbExclamation, "Search"

End If

End Sub

This searches for a student by ID.

---

(c) Update Student Record

Private Sub cmdUpdate_Click()

Dim fileNum As Integer, tempFile As Integer

Dim lineData As String

Dim updated As Boolean

fileNum = FreeFile

tempFile = FreeFile + 1

Open App.Path & "\students.txt" For Input As #fileNum

Open App.Path & "\temp.txt" For Output As #tempFile

updated = False

Do While Not EOF(fileNum)

Line Input #fileNum, lineData

studentInfo = Split(lineData, ",")

If studentInfo(0) = txtID.Text Then

' Write updated data

Print #tempFile, txtID.Text & "," & txtName.Text & "," & txtAge.Text & "," &
txtCourse.Text

updated = True

Else

' Write original data

Print #tempFile, lineData

End If

Loop

Close #fileNum

Close #tempFile
 If updated Then

Kill App.Path & "\students.txt"

Name App.Path & "\temp.txt" As App.Path & "\students.txt"

MsgBox "Record Updated Successfully!", vbInformation, "Success"

Else

Kill App.Path & "\temp.txt"

MsgBox "Student Not Found!", vbExclamation, "Update"

End If

End Sub

This updates a student record by rewriting the file.

(d) Delete Student Record

Private Sub cmdDelete_Click()

Dim fileNum As Integer, tempFile As Integer

Dim lineData As String

Dim studentInfo() As String

Dim deleted As Boolean

fileNum = FreeFile

tempFile = FreeFile + 1

Open App.Path & "\students.txt" For Input As #fileNum

Open App.Path & "\temp.txt" For Output As #tempFile

Do While Not EOF(fileNum)

Line Input #fileNum, lineData

studentInfo = Split(lineData, ",")

If studentInfo(0) = txtID.Text Then

deleted = True ' Skip writing this record (delete)

Else

Print #tempFile, lineData

End If

Loop

Close #fileNum

Close #tempFile

If deleted Then

Kill App.Path & "\students.txt"

Name App.Path & "\temp.txt" As App.Path & "\students.txt"

MsgBox "Record Deleted Successfully!", vbInformation, "Success"

Else

Kill App.Path & "\temp.txt"

MsgBox "Student Not Found!", vbExclamation, "Delete"

End If

End Sub

This removes a student record.