Scribd
Upload
15 views24 pages

Reprint

The document outlines various management forms for alumni, companies, and placements, detailing functionalities such as adding, updating, deleting records, and searching for specific entries. It also describes the project's scope, including centralized data management, tracking, reporting, and user authentication, while noting limitations like single-user access and basic security. Additionally, a bibliography is provided, listing references related to database management and Visual Basic programming.

Uploaded by

heisenbergalbert6
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
15 views24 pages

Reprint

The document outlines various management forms for alumni, companies, and placements, detailing functionalities such as adding, updating, deleting records, and searching for specific entries. It also describes the project's scope, including centralized data management, tracking, reporting, and user authentication, while noting limitations like single-user access and basic security. Additionally, a bibliography is provided, listing references related to database management and Visual Basic programming.

Uploaded by

heisenbergalbert6
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Alumni Management Form

Private Sub Command1_Click()


Dim nextNo As Integer

If [Link] = 0 Then
nextNo = 101
Else
[Link]
nextNo = Val([Link]("A_Id"))
nextNo = nextNo + 1
End If

[Link]

[Link] = nextNo

End Sub

Private Sub Command2_Click()


If [Link] = "" Then
MsgBox "Nothing To save"
Exit Sub
End If
[Link]
MsgBox "Record Saved"
End Sub

Private Sub Command3_Click()


If [Link] = "" Then
MsgBox "Please enter Alumni Name"
Exit Sub
End If

30
[Link]

MsgBox "Record Updated Successfully"


End Sub

Private Sub Command4_Click()


If [Link] = "" Then
MsgBox "No Record deleted"
Exit Sub
End If
[Link]
End Sub

Private Sub Command5_Click()


If [Link] Then
MsgBox "Nothing to show"
Else
[Link]
End If
End Sub

Private Sub Command6_Click()


If [Link] Then
MsgBox "Nothing to show"
Else
[Link]
End If
End Sub

Private Sub Command8_Click()


Unload Me

End Sub

31
Company Management Form
Private Sub Command1_Click()
Dim nextNo As Integer

If [Link] = 0 Then
nextNo = 101
Else
[Link]
nextNo = Val([Link]("comp_Id"))
nextNo = nextNo + 1
End If

[Link]

[Link] = nextNo

End Sub

Private Sub Command2_Click()


If [Link] = "" Then
MsgBox "Nothing to save"
Exit Sub
End If
[Link]
MsgBox "Record Saved"
End Sub

Private Sub Command3_Click()


If [Link] = "" Then
MsgBox "Please enter Alumni Name"
Exit Sub
End If

[Link]

32
MsgBox "Record Updated Successfully"
End Sub

Private Sub Command4_Click()


If [Link] = "" Then
MsgBox "No Record deleted"
Exit Sub
End If
[Link]
End Sub

Private Sub Command5_Click()


If [Link] Then
MsgBox "Nothing to show"
Else
[Link]
End If
End Sub

Private Sub Command6_Click()


If [Link] Then
MsgBox "Nothing to show"
Else
[Link]
End If
End Sub

Private Sub Command8_Click()


Unload Me
End Sub

33
Placement Management Form
Private Sub Command1_Click()
Dim nextNo As Integer

If [Link] = 0 Then
nextNo = 101
Else
[Link]
nextNo = Val([Link]("p_Id"))
nextNo = nextNo + 1
End If

[Link]

[Link] = nextNo

End Sub

Private Sub Command2_Click()


If [Link] = "" Then
MsgBox "Nothing to save"
Exit Sub
End If
[Link]
MsgBox "Record Saved"
End Sub

Private Sub Command3_Click()


If [Link] = "" Then
MsgBox "Please enter Alumni Name"
Exit Sub
End If

[Link]

34
MsgBox "Record Updated Successfully"
End Sub

Private Sub Command4_Click()


If [Link] = "" Then
MsgBox "No Record deleted"
Exit Sub
End If
[Link]
End Sub

Private Sub Command5_Click()


If [Link] Then
MsgBox "Nothing to show"
Else
[Link]
End If
End Sub

Private Sub Command6_Click()


If [Link] Then
MsgBox "Nothing to show"
Else
[Link]
End If
End Sub

Private Sub Command8_Click()


Unload Me
End Sub

35
Search Form
Private Sub Cmdbutton_Click()

Dim sql As String


Dim searchValue As String

searchValue = [Link]

If searchValue = "" Then


MsgBox "Enter value"
Exit Sub
End If

sql = "SELECT * FROM ADetails WHERE A_Name LIKE '%" &


searchValue & "%'"

'MsgBox "" ' ?? Debug

[Link] = sql
[Link]

Set [Link] = Adodc1

End Sub

Private Sub Command2_Click()


Dim sql2 As String
Dim searchValue2 As String

searchValue2 = [Link]

If searchValue2 = "" Then


MsgBox "Enter value"
Exit Sub

36
End If

sql2 = "SELECT * FROM Company WHERE CName LIKE '%" &


searchValue2 & "%'"

'MsgBox "" ' ?? Debug

[Link] = sql2
[Link]

Set [Link] = Adodc2


End Sub

Private Sub Command3_Click()


Dim sql3 As String
Dim searchValue3 As String

searchValue3 = [Link]

If searchValue3 = "" Then


MsgBox "Enter value"
Exit Sub
End If

sql3 = "SELECT * FROM placement WHERE stdName LIKE '%" &


searchValue3 & "%'"

'MsgBox "" ' ?? Debug

[Link] = sql3
[Link]

Set [Link] = Adodc3


End Sub

37
Report Form
Private Sub Command1_Click(Index As Integer)
[Link]
End Sub

Private Sub Command2_Click(Index As Integer)


[Link]
End Sub

Private Sub Command3_Click(Index As Integer)


[Link]
End Sub

Private Sub DataGrid1_Click()


Set [Link] = Adodc1
End Sub

Private Sub DataGrid2_Click()


Set [Link] = Adodc2
End Sub

Private Sub DataGrid3_Click()


Set [Link] = Adodc3
End Sub

38
 PROJECT OUTPUT FORMS

39
Splash Form

40
Login Form

41
MDI Form

42
Alumni Management Form

43
Company Management Form

44
Placement Management Form

45
Search Form

46
Report Form

47
 SCOPE AND LIMITATION

48
SCOPE

Scope of the Project

1. Centralized Data Management


Stores all alumni, company, and placement data in a single system.

2. Alumni Tracking
Maintains complete records of students after graduation, including job
details.

3. Company Management
Keeps information about recruiting companies, roles, packages, and
eligibility.

4. Placement Monitoring
Tracks which students are placed, where, and at what salary.

5. Search Functionality
Allows quick searching of alumni, company, and placement records.

6. Report Generation
Displays structured reports for analysis (alumni, company, placement).

7. Statistical Dashboard
Provides insights like total placements, highest package, top recruiter,
etc.

8. CRUD Operations
Supports Create, Read, Update, and Delete operations for all modules.

9. User Authentication
Basic login system for controlled access.

10. Useful for Colleges/Institutes

49
Helps training & placement cells manage data efficiently.

Limitations of the Project

Despite its usefulness, the current system has certain limitations:

1. Single User System


Does not support multiple users working at the same time.

2. Basic Security
Login system is simple (no encryption, roles, or advanced
authentication).

3. Desktop Only (VB6 Based)


Cannot be accessed online or remotely.

4. Limited Scalability
Not ideal for very large datasets or multiple colleges.

5. No Real-Time Updates
Data updates are manual; no live integration with external systems.

6. No Backup Automation
Risk of data loss if backup is not taken manually.

7. UI is Basic
Traditional interface compared to modern applications.

8. No Advanced Analytics
Limited to basic statistics (no graphs, AI insights, or predictions).

9. Dependency on Local Database


If database file is corrupted, system may fail.

[Link] Integration Features

50
Cannot connect with portals, APIs, or external job platforms.

51
 BIBLIOGRAPHY

52
BIBLIOGRAPHY

1. Dr. S.B. Kishor, “DBMS and Oracle”, Das Ganu, ISBN : 978-93-81660-
08-9
2. Sanjay Saxena, “MS Office 2007 in a Nutshell”, Vikas Publication,
2011, ISBN-978-81-259-5036-3
3. Rutkosky, Seguin, Audrey, “Microsoft office 2007”, BPB, ISBN-10:81-
8333-228-5/13:978-81-8333-228-6
4. Steve Brown, “Visual Basic 6.0 Complete”, Complete Idiot’s Books,
ISBN 978-0789718129
5. Dr. S.B. Kishor, “Front End Development using Visual Basic”, Das
Ganu Prakashan, ISBN 978-93-81660-0-5
6. Evangelos Petroutsos , “Mastering Visual Basic 6”, BPB, 2005 ISBN-
81-7635-269-1.
7. MoelJerke, “Complete Reference Visual Basic 6”,TMH, 2004, ISBN -0-
07-463666-9.

53

You might also like