Session September 2009 Software Lab-2 BSIT (05)-406 Submitted To: Mr.
Dharminder Singh & Miss Harjeet Kaur
Submitted By: Name - Harwinder Kaur & Maninder Kumar Roll no- 720429019 & 820429044 On the completion of 4th SEM BSC (IT)
1. ACKNOWLEDGEMENT 2. ABOUT THE PROJECT 3. INTRODUCTION OF V.B 4. PERSONAL OPINION 5. PREFACE 6. PART-1 FORMS 7. PART-2 CODING 8. PART-3 DATA REPORT 9. PART-4 MICROSOFT ACCESS REPORT
We owe a never editing gratitude to our god for his blessing in the completion of this project. We wish to express deep felt gratitude to our supervisor Mr. Dharminder Singh & Miss Harjeet Kaur For their guidance, inspiration and encouragement at each and every place of this project. We are thankful to Centre Head PTU Learning centre Phillaur and Mr. Dharminder Singh Miss Amandeep project incharge without their encouragement and guidance this Endavour would not have been [Link] concerned do permit us pay our sincere thanks to the concerned teachers of the PTU Learning Centre for this consistence support provided to the study of the Project. We also express our thanks to every person in the centre who directly or indirectly. Helped us for completing our report by providing us required [Link] extend our special gratitude to our parents and our friends who were always there to encourage us to put in our through out this project.
This project is based on School Management. Institute is a place. Where we can get education In different courses. Institute is a vast source of [Link] education is prepares us to have morality, selfpurification, responsibility, boldness, knowledge, self-reliance and [Link] project includes four parts :->
1. PART-1 FORMS 2. PART-2 CODING 3. PART-3 DATA REPORT 4. PART-4 MICROSOFT ACCESS REPORT
Visual Basic is very popular [Link] visual part refers to the method used to create the graphic user Interface Applications & the Basic part refer to the basic language that is used by most of the programmers in the history of [Link] Basic is an event driven programming [Link] is easy to work with and is used for making project where vb is utilized as [Link] is utilize to make games software. Visual Basic 6.0 is Microsoft technology, which was developed in February [Link] this Microsoft had introduced various other versions of visual basic such as vb1.0,vb2.0,vb3.0,visul basic 1.0 was the first version of the visual basic programming language and was introduced in may 1991. Earlier visual basic allowed a user to build simple or complex application using the available visual basic controls only,such as check box and Radio [Link] various issues like Intrface Design ,Database Design,and Distributing an [Link] is also demystifies Activex and presents this topic,as it should be form a users point of view.
Training at PTU centre has been full of learning at every [Link] environment of PTU is very good and we are satisfied from [Link] atmosphere in the company is [Link] the staff members of ptu centre are [Link] teach us in a very good way by which we know every difficult topic in a simple [Link] out of our study,they guided us how to perform our [Link] also provided job placement facility to us. Easy accessibility to faculty guidance, firm assurance of staff support and a very caring and nurturing environment, all-lead to effective realization of our goals with a vast building complex, situated faraway from the din of the town,PTU institute is clean, green and extremely friendly place to be in. At the end, I want to say only that I feel proud to be a part of this institute.
This project report in vb is the outcome of hard efforts of last first [Link] project report has been completed and submitted now the fulfillment of the 4th semester. This project is based on institute [Link] handles the records of students admission,result and liabrary record etc. This project is divided into the three parts:-> 1st part deals with all the forms that are used to design the project. 2nd part deals with the main body of the project including the coding. 3rd part contains the main outcome of the Database Records stored in Microsoft Access.
LOGIN FORM
THIS FORM CONTAINS USERNAME AND PASSWORD.
WELCOME FORM
THIS FORM SHOWS FEATURES, ADDRESS AND OTHER INFORMATION. IT ALSO DISPLAYS PICTURE.
10
FEATURES
THIS FORM INCLUDES ALL THE FEATURES OF SCHOOL.
11
ADDRESS
THIS FORM INCLUDES ADDRESS DETAILS.
12
OTHER INFORMATION MDI FORM
THIS IS MDI FORM, MAIN FORM WHICH INCLUDES SCHOOL MANAGEMENT DETAIL.
13
ADMISSION FORM
THIS FORM INCLUDES ADDMISSION DETAILS OF THE STUDENTS.
14
DELETE STUDENT RECORD
THIS FORM DELETES STUDENT RECORD
15
UPDATE STUDENT RECORD
THIS FORM UPDATES STUDENT RECORD
16
SEARCH STUDENT RECORD
THIS FORM SEARCHES STUDENT RECORD
17
TEACHER`S RECORD
THIS FORM INCLUDES DETAILS OF THE STAFF.
18
NON TEACHER RECORD
THIS FORM INCLUDES NON TEACHING DETAILS.
19
SEARCH TEACHING RECORD
THIS FORM INCLUDES SEARCH DETAILS OF TEACHERS.
20
NON- TEACHING RECORD
THIS FORM INCLUDES SEARCH DETAILS OF NONTEACHING STAFF.
21
22
LOGIN FORM
Dim A$, B$, I% Private Sub Command1_Click() A = [Link] B = [Link] If A <> " " And B <> " " Then If (A = "SCHOOL" Or A = "school") And (B = "MATTO" Or B = "matto") Then [Link] = True Else MsgBox "PLEASE ENTER CORRECT USER NAME AND PASSWORD" I=I+1 If (I = 3) Then MsgBox "GOOD LUCK....TRY NEXT TIME" Unload Me End If End If Else MsgBox "FIELDS ARE EMPTY" End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() [Link] = False [Link](1) = Date [Link](2) = Time End Sub Private Sub Timer1_Timer() If [Link] = 100 Then [Link] Unload Me Else [Link] = [Link] + 10 End If End Sub
23
WELCOME FORM
Private Sub Form_Load() [Link](1) = Date [Link](2) = Time [Link] = LoadPicture("D:\SCHOOL_MGT\Eliot Hall, Reed [Link]") End Sub Private Sub Label2_Click() [Link] End Sub Private Sub Label4_Click() [Link] End Sub Private Sub Label5_Click() [Link] End Sub Private Sub Label6_Click() Unload Me End Sub
24
FEATURES
Private Sub Form_Load() [Link](1) = Date [Link](2) = Time End Sub Private Sub Label10_Click() Unload Me End Sub
25
ADDRESS
Private Sub Form_Load() [Link](1) = Date [Link](2) = Time End Sub Private Sub Label11_Click() Unload Me End Sub
26
MDI FORM
Private Sub DEL_Click() [Link] End Sub Private Sub EXI_Click() Unload MDIForm1 End Sub Private Sub MDIForm_Load() [Link](1) = Date [Link](2) = Time End Sub Private Sub NEW_Click() [Link] End Sub Private Sub NON_Click() [Link] End Sub Private Sub NONT_Click() SEARCH_NONTEACHERS.Show End Sub Private Sub SEA_Click() SEARCH_STUDENT.Show End Sub
Private Sub TEA_Click() [Link] End Sub
Private Sub TEAC_Click() search_teachers.Show End Sub Private Sub UPD_Click()
27
[Link] End Sub
NEW ADDMISSION FORM
Dim GE$ Dim CON As [Link] Dim RS As [Link] Private Sub Command1_Click() If [Link] = True Then GE = "MALE" ElseIf [Link] = TRUR Then GE = "FEMALE" End If [Link] RS(0) = [Link] RS(1) = [Link] RS(2) = [Link] RS(3) = [Link] RS(4) = [Link] RS(5) = [Link] RS(6) = [Link] RS(7) = GE RS(8) = [Link] RS(9) = [Link] MsgBox "RECORD IS SUBMIT" [Link] End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() [Link] ("SC") [Link] ("BC") [Link] ("GENERAL") [Link] ("OTHERS") Set CON = New [Link] Set RS = New [Link] [Link] = "PROVIDER=[Link].4.0;DATA SOURCE=D:\SCHOOL_MGT\STU_ADD.MDB" [Link]
28
[Link] "SELECT * FROM STU_ADD", CON, adOpenDynamic, adLockOptimistic '[Link] End Sub
Private Sub Text5_GotFocus() MsgBox "DATE FORMAT IS MM/DD/YYYY" End Sub
Private Sub Text8_GotFocus() MsgBox "DATE FORMAT IS MM/DD/YYYY" End Sub
29
MODIFY STUDENT RECORD
Dim CON As [Link] Dim RS As [Link] Private Sub Command1_Click() [Link] [Link] = " " [Link] = " " [Link] = " " [Link] = 0 [Link] = " " [Link] = 0 [Link] = " " [Link] = " " [Link] = " " [Link] = " " End Sub Private Sub Command2_Click() RS(0) = [Link] RS(1) = [Link] RS(2) = [Link] RS(3) = [Link] RS(4) = [Link] RS(5) = [Link] RS(6) = [Link] RS(7) = [Link] RS(8) = [Link] RS(9) = [Link] [Link] MsgBox "RECORD IS UPDATE" '[Link] = " " '[Link] = " " '[Link] = " " '[Link] = 0 '[Link] = " " '[Link] = 0 '[Link] = " " '[Link] = " " '[Link] = " " '[Link] = " " End Sub
30
Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() [Link] [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) [Link] = RS(7) [Link] = RS(8) [Link] = RS(9) End Sub Private Sub Command5_Click() [Link] If [Link] Then [Link] MsgBox "THIS IS THE LAST RECORD" Else [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) [Link] = RS(7) [Link] = RS(8) [Link] = RS(9) End If End Sub Private Sub Command6_Click() [Link] If [Link] Then [Link] MsgBox "THIS IS THE LAST RECORD" Else [Link] = RS(0) [Link] = RS(1)
31
[Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) [Link] = RS(7) [Link] = RS(8) [Link] = RS(9) End If End Sub Private Sub Command7_Click() [Link] [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) [Link] = RS(7) [Link] = RS(8) [Link] = RS(9) End Sub Private Sub Form_Load() Set CON = New [Link] Set RS = New [Link] [Link] = "PROVIDER=[Link].4.0;DATA SOURCE=D:\SCHOOL_MGT\STU_ADD.MDB" [Link] [Link] "SELECT * FROM STU_ADD", CON, adOpenDynamic, adLockOptimistic [Link] End Sub
32
SEARCH STUDENT RECORD
Dim CON As [Link] Dim RS As [Link] Private Sub Command1_Click() [Link] "ROLL_NUMBER = '" & Trim([Link]) & "'" [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) [Link] = RS(7) [Link] = RS(8) [Link] = RS(9) [Link] End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Set CON = New [Link] Set RS = New [Link] [Link] = "PROVIDER=[Link].4.0;DATA SOURCE=D:\SCHOOL_MGT\STU_ADD.MDB" [Link] [Link] "SELECT * FROM STU_ADD", CON, adOpenDynamic, adLockOptimistic [Link] End Sub
33
TEACHERS RECORD
Dim CON As [Link] Dim RS As [Link] Private Sub Command1_Click() [Link] RS(0) = [Link] RS(1) = [Link] RS(2) = [Link] RS(3) = [Link] RS(4) = [Link] RS(5) = [Link] RS(6) = [Link] [Link] End Sub Private Sub Command2_Click() [Link] [Link] = " " [Link] = " " [Link] = " " [Link] = 0 [Link] = " " [Link] = " " [Link] = " " End Sub Private Sub Command3_Click() RS(0) = [Link] RS(1) = [Link] RS(2) = [Link] RS(3) = [Link] RS(4) = [Link] RS(5) = [Link] RS(6) = [Link] [Link] End Sub Private Sub Command4_Click() [Link] = 0 [Link] = " " [Link] = " " [Link] = 0 [Link] = " " [Link] = " " [Link] = " "
34
End Sub Private Sub Command5_Click() [Link] [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End Sub Private Sub Command6_Click() [Link] If [Link] Then [Link] MsgBox "THIS IS THE LAST RECORD" Else [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End If End Sub Private Sub Command7_Click() [Link] If [Link] Then [Link] MsgBox "THIS IS THE LAST RECORD" Else [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End If End Sub Private Sub Command8_Click() [Link] [Link] = RS(0) [Link] = RS(1) [Link] = RS(2)
35
[Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End Sub Private Sub Form_Load() Set CON = New [Link] Set RS = New [Link] [Link] = "PROVIDER=[Link].4.0;DATA SOURCE=D:\SCHOOL_MGT\[Link]" [Link] [Link] "SELECT * FROM TEACHING", CON, adOpenDynamic, adLockOptimistic End Sub Private Sub Label8_Click() Unload Me End Sub
36
NON-TEACHING RECORD
Dim CON As [Link] Dim RS As [Link] Private Sub Command1_Click() [Link] RS(0) = [Link] RS(1) = [Link] RS(2) = [Link] RS(3) = [Link] RS(4) = [Link] RS(5) = [Link] RS(6) = [Link] [Link] End Sub Private Sub Command2_Click() [Link] [Link] = " " [Link] = " " [Link] = " " [Link] = 0 [Link] = " " [Link] = " " [Link] = " " End Sub Private Sub Command3_Click() RS(0) = [Link] RS(1) = [Link] RS(2) = [Link] RS(3) = [Link] RS(4) = [Link] RS(5) = [Link] RS(6) = [Link] [Link] End Sub Private Sub Command4_Click() [Link] = 0 [Link] = " " [Link] = " " [Link] = 0 [Link] = " " [Link] = " " 37
[Link] = " " End Sub Private Sub Command5_Click() [Link] [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End Sub Private Sub Command6_Click() [Link] If [Link] Then [Link] MsgBox "THIS IS THE LAST RECORD" Else [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End If End Sub Private Sub Command7_Click() [Link] If [Link] Then [Link] MsgBox "THIS IS THE LAST RECORD" Else [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End If End Sub Private Sub Command8_Click() [Link] [Link] = RS(0) [Link] = RS(1)
38
[Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End Sub Private Sub Form_Load() Set CON = New [Link] Set RS = New [Link] [Link] = "PROVIDER=[Link].4.0;DATA SOURCE=D:\SCHOOL_MGT\[Link]" [Link] [Link] "SELECT * FROM NONTEACHING", CON, adOpenDynamic, adLockOptimistic End Sub Private Sub Label8_Click() Unload Me End Sub
39
SEARCH TEACHING RECORD
Dim CON As [Link] Dim RS As [Link] Private Sub Command1_Click() [Link] "TEACHER_ID = '" & Trim([Link]) & "'" [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) [Link] End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Set CON = New [Link] Set RS = New [Link] [Link] = "PROVIDER=[Link].4.0;DATA SOURCE=D:\SCHOOL_MGT\[Link]" [Link] [Link] "SELECT * FROM TEACHING", CON, adOpenDynamic, adLockOptimistic [Link] End Sub
40
SEARCH NON-TEACHING RECORD
Dim CON As [Link] Dim RS As [Link] Private Sub Command1_Click() [Link] RS(0) = [Link] RS(1) = [Link] RS(2) = [Link] RS(3) = [Link] RS(4) = [Link] RS(5) = [Link] RS(6) = [Link] [Link] End Sub Private Sub Command2_Click() [Link] [Link] = " " [Link] = " " [Link] = " " [Link] = 0 [Link] = " " [Link] = " " [Link] = " " End Sub Private Sub Command3_Click() RS(0) = [Link] RS(1) = [Link] RS(2) = [Link] RS(3) = [Link] RS(4) = [Link] RS(5) = [Link] RS(6) = [Link] [Link] End Sub Private Sub Command4_Click() [Link] = 0 [Link] = " " [Link] = " " [Link] = 0 [Link] = " " [Link] = " " [Link] = " " 41
End Sub Private Sub Command5_Click() [Link] [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End Sub Private Sub Command6_Click() [Link] If [Link] Then [Link] MsgBox "THIS IS THE LAST RECORD" Else [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End If End Sub Private Sub Command7_Click() [Link] If [Link] Then [Link] MsgBox "THIS IS THE LAST RECORD" Else [Link] = RS(0) [Link] = RS(1) [Link] = RS(2) [Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End If End Sub Private Sub Command8_Click() [Link] [Link] = RS(0) [Link] = RS(1) [Link] = RS(2)
42
[Link] = RS(3) [Link] = RS(4) [Link] = RS(5) [Link] = RS(6) End Sub Private Sub Form_Load() Set CON = New [Link] Set RS = New [Link] [Link] = "PROVIDER=[Link].4.0;DATA SOURCE=D:\SCHOOL_MGT\[Link]" [Link] [Link] "SELECT * FROM NONTEACHING", CON, adOpenDynamic, adLockOptimistic End Sub Private Sub Label8_Click() Unload Me End Sub
43
44
STUDENT DATA REPORT
45
TEACHER DATA REPORT
46
NON-TEACHING RECORD
47
48
STUDENT ADD RECORD
49
TEACHER RECORD
50
NON-TEACHER RECORD
51
52
53
54
