Report 1

“OFFICE AUTOMATION SYSTEM”
OBJECTIVE
This software is designed in view to computerize the data of office automation

system and banking system. It was required to keep the computerized data, as it
was difficult to do manually and is also fast as it takes less time. Purpose to
computerize its data to overcome from haphazard of manual system.
This software is developed with an aim to give accurate and immediate

information whenever required in very shot span of time.
This software mainly provides all information about enquiry system, admission,
re-registration, course details employee details banking system, subject details,
follow-ups to administrator. It handles transaction of total information of office
required by administrator Owner can view
Financial position of institute easily with this software.
1. Current number of enquiry.

2. Handles information about students
The prime objectives of this software:-
1. Maintain follow-ups.
2. Storing information of students required during admission.
3. Billing system.
4. Maintain financial issues
5. Stores information about cash deposit, cheque deposit demand draft
preparation
6. Employee information.
7. Maintain information of re-registration.
8. Maintain Payment from student.
9. Maintain information about courses.
10. Maintain information about subjects.
11. Credit information for student.
12. Maintain other information such as bank, company etc.
13. To provide appropriate report to admistrator regarding above all.
PROBLEM STATEMENT
Requirements
The basic requirement is remove the lengthiness in the management and

remove the unwanted mistake in the entry, apart from this reduce the
manpower and time consumption. The system should make the task of the
entire user quite easy. It should give the required output without much
clerical efforts.
Proposed System
Based on the analysis of problem areas the proposed system shall be

computerized so as to have effective Educational System. This will not only
alleviate the current problems but also provide information networks which
will strengthen the manner in which the organization address its primary
core are i.e. OAS. Proposed system is proposed to feed all the required data
in computer and generate the quick, accurate, timely and efficient output
from the system. Client server technology shall be implemented to
implemented to have good working, robust software for the system. The
huge capabilities of the existing hardware and graphical user interface
environment shall be put for the optimum use so as to have user friendly
software.
Objective Proposed System
 All voluminous data should be fed in to the relational data base hat shall
make it easy to manage.
 Central management of data should remove redundancy of data in the
system.
 At any instance of time , current status of any entity could be derived.
 It should be easy to query the data base and get necessary information
from it at any instance of time.
Proposed System Solution
Proposed system provides with following solutions:
 It provides “better and efficient” service to members.

 Reduced the workload of faculty and staff.
 Faster retrieval of information.
 provides facility for proper monitoring reduce paper work and provides
data security
 All details will be available on click.
REQUIREMENT ANALYSIS
Hardware:
 Pentium IV Processor
 750 MHz
 80 GB HDD
 1 GB RAM
Software:
Front End : VISUAL BASIC 6.0

Back End : Ms Access 2003
Code Behind : Visual Basic.
Operating System:
Development PC : Windows XP.
Framework SDK
SYSTEM REQUIREMENT SPECIFICATION

The requirement analysis phase is the first major step towards the solution
of a software problem.
During this phase, the user’s requirements concerning the proposed

application are carefully identified and documented. It is a task, which
allows the software developer to refine the software allocation and build
models of the data, functional and behavioral domains that will be treated
by software. System requirements may be either Functional or Non-
Functional.
1. Functional Requirements
The system is to support the following functions:
Function 1: Personal OAS system
The personal OAS system will be used only by the administrative members
thus will run independent of the main OAS system. This OAS system will be
used only for work-related purposes. The following functions should be
available in the communication system with regards to administration:
composing, reading old and new records, forwarding, deleting, modifying
the read / unread status of the records, notification
of new / unread records, deleting, and the ability to navigate through
messages received.
Function 2: View and enter new reports
For example, candidate’s number must be unique and when entering

reports modules both values must be valid references. Users input must be
validated and if not in the range specified, the users must be informed of the
correct range. Incorrect data must be prevented in being input, where
possible. The serial field should be locked, as it should be calculated
automatically.
Function 3: Security
The operating system in the department, OAS version 1.0, will be used to
enforce security. So that only the administrative members and the manager
will have access to the system. However another security layer should also
be incorporated, to make the system more secure.
Function 4: Changing passwords and setting userid
The facility of changing a new password and setting or adding a user id

should be available from a menu.
Function 5: Candidate’s details
Users need to view and also add new candidate to the candidate database. It
would be very helpful if a user could enter either a candidate’s name or
number in order to retrieve the candidates’ details and to perform other
functions such as deleting data and printing out student information. It was
discussed that the users would not prefer to get help from the system in
entering the student names to search for, as this function has been
previously been available in the old database and was found to be very
annoying rather than helpful after a while.
Function 7: Employee details
It would be of much use if users could search for information on employees,

By typing in the first name of an employee. Also there should be a facility
where users’ can navigate and view all
2.2 Non-functional Requirements

Mainly in the creation of work-related Information Systems (IS) there has
always been an emphasis on automating work-related tasks in order to
enhance work productivity. When manual tasks are automated work
generally becomes less time consuming, time is money, thus more money is
saved, data is easier to manipulate and is more secured. Fig shows the Data
Flow Diagram (DFD) of the MIS.
SYSTEM ANALYSIS
The system analysis has been conducted with help of Mr. SUMAN KUMARI (Guide).
 Reason For Analysis:
The current manual information system is not meeting the needs of those
responsible for the modeling of OAS-Office Automation System.
 Description:
As we know, System analysis is the first step, which is concerned with devising a
precise, under stable and correct model of real world. Before building anything we
must analyze about it to understand requirement.
As we mentioned introductory part, this Project assignment is the part of decision
support system. It is very difficult for we type of untrained People to understand
system easily because we have no knowledge of this application domain. But hard
work of 1 to 2 months intimate imagination to understand and feel the ideas
about this application domain. In this concerned we are very grateful to my
project guide.
In the initial stage of analysis, I formally attained the lecture of my project guide.
During this phase I have concentrated on
(i) Technical terms of this application domain
(ii) How to classify different parts of the project? i.e. Prepare logical
break-up about, what we understand?
(iii) What we have to do?
(iv) How map to these ideas to developing language Visual basic etc.
I have very frankly to say, during these 3 to 4 months I have only what, how
…How? And there are so many of how?
To understand the requirements i.e. what is needed. We have broken the
whole project into small parts for ease of analysis. OAS-Office Automation
system is the key issue for this type of project.
We have sincerely analyzed project site physical situations, social-economy
and finally the impact of exhaust on the environment.
A) Identification of need
During the interviews and form the research work done by me, we
identified the following specific needs: --
1. Management needs uniform, consistent, reliable and fast decision

making processes, so that it can attract the various similar software.
2. Project Manager needs proper standardized solution for the
preparation of feasibility report to attract consistent, higher No. Of
investment opportunity.
3. Management wants to avoid the duplications and improve the efficacy,
correctness and timeliness of the feasibility analysis so that the
appropriate decision can be taken under the time constraint.
4. An efficient system is needed to generate timely and accurate report
to various actors.
5. A system is needed to enhance the co-ordination between the various
actors like System Analyst, Survey team, Project Manager,
Entrepreneur involved in modeling process.
6. Project specific feasibility decision, management and control systems
needed.
7. Management wants information technology based solutions.
B) Preliminary Investigation
Review of existing manual system, on site observations and interview
are conducted for the modeling of office system in the light of user’s
need and problem identification yet. Following facts about the nature of
the project request are observed.
(a) Preliminary area of applications:

The preliminary area of application for this project identified during the
investigation phase is Database handling, accounting and Decision-
making. Since the data comes from various source and need to store in
the system hence the database management system is needed. On the
basis of various data that comes from survey report, per unit cost of
electricity is calculated. Hence Accounting Process is also needed. The
decision-making is the ultimate goal of management; hence this project
if developed must assist management for taking appropriate decision
regarding modeling process of Office Management system.
(b) Problem definition:

The existing modeling process for Office Management system have
number of problems like:
 Lack of Reliability
 Lack Of Proper Standardization
 Timeliness
 Poor Internal Control Of Information
 Lack Of Efficiency
 Problem Of Accuracy
 Problem Of Economy
 Security Problem
(c) Details Of The Problem:

The details of the problems are:
1. Lack of Reliability:
The system varies in quality from one Project to another. Whenever a new
project is taken, the whole process is done again through manual process,
which results in several of the outcome that desired.
2. Lack of proper Standardization:

Since there is no proper standard in the preparation of feasibility reports for
such kinds of enterprise, it is difficult to project manager to prepare
feasibility reports.
3. Timelines:
The report generation is ultimate goal of the system. Management needs to
generate several reports timely, so that it can attract investor. The existing
manual system is unable to generate various reports under time constraint.
The retrieval of information when and where it is needed is not available.
4. Poor internal control of information:

The manual system lacking internal control of information between different
modules. What if analysis is needed before preparation of final report
regarding project feasibility? Since there is a lack of internal control of
information of various modules, it is often difficult to achieve this task. The
problem area is also affected due to poor control of information flow.
5. Lack of efficiency:
The system needs to store the same piece of data various places. This means
that the work is to be duplicated and hence the system becomes inefficient.
6. The problem of accuracy:

The modeling process from the embryonic data gathering steps to the
processing and decision making steps needs numbers arithmetic
calculations. This process is complex and fair amount of errors may occur.
Because of inaccuracy, the result that may be generated by the system
becomes unreliable and often invalid. These invalid results are often most
troublesome for the system manager.
7. The problem of economy:

The system also suffers from problem of economy because the
existing methods of transmitting, processing and storing
information are very costly. The entire process demands a great
deal of paperwork.
8. Security problem:
The entire process needs paperwork. Paper is not a reliable
media for the storing of information. Hence the system also lacks
proper security.
(d) Significance of problem:

Lack of proper standardization, timeliness & poor internal control of
information is the major problem. Due to absence of any such
information system, consistent and higher No. of investment opportunity
is always being a milestone for a project manager.
Efficiency, accuracy & reliability are another problem that most of time
lacking in the existing manual system. The invalid results that may occur
due to the arithmetic errors become troublesome for the project
manager. Paper is unreliable, insecure and costly media for the storage of
information. Since the entire process starting from the data-gathering
step to the decision step involved great deal of paperwork, the selection
of storage media as a paper becomes unreliable, insecure and costly.
DATA FLOW DIAGRAM
A data-flow diagram (DFD) is a graphical representation of the "flow" of

data through an information system. DFDs can also be used for the
visualization of data processing (structured design).
On a DFD, data items flow from an external data source or an internal data
store to an internal data store or an external data sink, via an internal
process.
A DFD provides no information about the timing of processes, or about

whether processes will operate in sequence or in parallel. It is therefore
quite different from a flowchart, which shows the flow of control through an
algorithm, allowing a reader to determine what operations will be
performed, in what order, and under what circumstances, but not what
kinds of data will be input to and output from the system, nor where the
data will come from and go to, nor where the data will be stored (all of
which are shown on a DFD).
As all system development are divided into different modules and they will
interact with information. The module structure is designed consideration
of the easy to maintain the logic for modification and maintenance. The
system has mainly four parts: -
1. Interaction of agency with candidate’s for enquiry.
2. Interaction of management.
3. Inventory management.
4. Contact students, faculties and member of management.
CONTEXT ANALYSIS DIAGRAM
1st ’Level DFD

Admin Admin
Login Report
Process
o.
e n t Inf nfo
Stud e Info.
i
f ee
Fe ud
Student St
Sms
Admin Campus
Process Process
i nfo Sms
f e e
t ud Personal
S
info Comp Detail Student Summary
tbl_Admission_Fee Tblstud_master Student info Report
Fee Campus
Admission Report Report
Report
Fee table
Student
Admin
DATA DICTONIRY
Course Master
Field caption : Course Code
Field name : CmbcourseCode
Datatype : text
Length : 25
Description : stores the code of the course
Business Rule : not null value
Field caption : Course Desc
Field name : txtCoursedesc
Datatype : text
Length : 50
Description : stores the description of the course

Subject
Field name : CmbCode
Datatype : text
Length : 25
Field caption : Semester
Field name : cmbSem
Datatype : text
Length : 25
Description : stores the name of semester
Field caption : Subject Code
Field name : txtSubcode
Datatype : text
Length : 25
Description : stores the description of the subject

Field caption : Subject Description
Field name : txtSubDesc
Datatype : text
Length : 25
Field caption : Subject Table
Field name : txtSubtnm
Datatype : text
Length : 25
Field caption : Subject Marks
Field name : txtSubmr
Datatype : text
Length : 25
Description : stores the Marks of the subject

Create User
Field caption : User ID
Field name : txtUserid
Datatype : text
Length : 25
Description : stores the ID of user
Business Rule : unique value
Field caption : Password
Field name : txtPassword
Datatype : text
Length : 20
Description : stores the password
Student
Field name : CmbCode
Datatype : text
Length : 25
Field caption : Semester
Field name : cmbSem
Datatype : text
Length : 25
Description : stores the name of semester
Field caption : Student Name
Field name : txtnm
Datatype : text
Length : 25
Description : stores the description of the Student
Field caption : Roll
Field name : txtrl
Datatype : text
Length : 25
Description : stores the description of the Roll
Field caption : Father’s Name
Field name : txtnm
Datatype : text
Length : 25
Description : stores the description of the Father’s Name

Campus Detail
Field caption : Roll
Field name : txtrl
Datatype : text
Length : 25
Description : stores the description of the Roll
Field caption : Father’s Name
Field name : txtnm
Datatype : text
Length : 25
Description : stores the description of the Father’s Name

LIST OF TABLES
Course Master
Subject Master
tbl_Stud_Master_IDEntry
tbl_stud_master_admission
tbl_Admission_Fee
tbl_place_company
tbl_interested_student
VALIDATION CHECK
We have incorporated following checks for validation of user input-
1. All primary key fields must not be NULL.
2. All character type fields never accept blank space.
3. Numeric fields must not accept nonnumeric value.
4. Value of fields must not overflow their size.
5. Numeric value must be occurs within their range.
6. In cost benefit report functional cell must not allow to change their
value by user.
7. Cursor movement must follow a specific sequence from top to
bottom in all entry form.

SOURCE CODE & SCREEN OUTPUT
Login form
Source Code
Dim mln As Integer
Dim con As New ADODB.Connection
Dim rsenq As New ADODB.Recordset
Public uid, pwd
Private Sub cmdCancel_Click()

Unload Me
End Sub
Private Sub cmdCancel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdCancel.BackColor = &HFFFFC0
End Sub
Private Sub cmdLogin_Click()
'If txtId.Text = "genius" And txtPWD = "suineg" Then
'frmadmin.Show
'Me.Hide
'End If
Call setdatabase
Set con = New ADODB.Connection
con.Open datastr
Dim str
Dim uid1, upwd
uid1 = Crypt(txtId.Text)
upwd = Crypt(txtPWD.Text)
str = "SELECT count(*) FROM TBL_LOGIN WHERE USR_ID='" & uid1 & "' AND USR_PASSWORD='" &
upwd & "'"
'MsgBox (str)
If rsenq.State = adStateOpen Then
rsenq.Close
End If
rsenq.Open str, con, adOpenDynamic, adLockOptimistic
If txtId.Text = "" Or txtPWD.Text = "" Then
MsgBox ("Please provide user id and password to login")
txtId.SetFocus
txtId.Text = ""
txtPWD.Text = ""
ElseIf Val(rsenq(0).VALUE) <= 0 Then
MsgBox ("You are not authorised to log into the system")
txtId.SetFocus
txtId.Text = ""
txtPWD.Text = ""
Else
uid = txtId.Text
pwd = txtPWD.Text
frmadmin.Show
Me.Hide
End If
End Sub
Private Sub cmdLogin_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdLogin.BackColor = &HFFFFC0
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdLogin.BackColor = &H8000000F
cmdCancel.BackColor = &H8000000F
End Sub
Private Sub Timer1_Timer()
'Label1.Left = Label1.Left - 50
'If Label1.Left <= frmlogin.Left - 5265 Then
'Label1.Left = frmlogin.Left + 5265

'End If
frmname = " Genius Institute of Information Technology"
If mln > 50 Then mln = 2 Else mln = mln + 1
frmlogin.Caption = Left(frmname, mln)
Label1.Caption = Left(frmname, mln)
End Sub
Admission form
Source Code
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rscrs As New ADODB.Recordset
Dim rsenq1 As New ADODB.Recordset
Dim rssession As New ADODB.Recordset

Dim rsid As New ADODB.Recordset
Dim eno
Dim txtfind As String
Private Sub cmbSex_LostFocus()
'txtNational.SetFocus
End Sub
Private Sub cmdadd_Click()
Call ControlEnable
If cmdAdd.Caption = "&Add" Then
Call ControlClear
rs.AddNew
txtNational.Text = "INDIAN"
txtsearchAppno.SetFocus
txtsearchAppno.Text = ""
cmdAdd.Caption = "&Cancel"
'cmdSave.Enabled = True
ElseIf cmdAdd.Caption = "&Cancel" Then
rs.CancelUpdate
cmdAdd.Caption = "&Add"
'cmdSave.Enabled = False
Call ControlClear
End If
End Sub
Sub ControlClear()
txtEnqNo.Text = ""
txtEnqName.Text = ""
EnqDate.Enabled = True
cmbIntName.Text = ""
txtAppNo.Text = ""
txtAdminDate.Enabled = True
txtDOB.Enabled = True
txtPhoneNo.Text = ""
txtMNo.Text = ""
txtName.Text = ""
txtArea.Text = ""
txtCity.Text = ""
txtFathername.Text = ""
txtAddress.Text = ""
txtNational.Text = ""
txtcourse.Text = ""
txtsem.Text = ""
cmbSex.Text = ""
optyes.VALUE = False
Optno.VALUE = False
txtfee.Text = ""
'For cc = 0 To 5
'chkcourse(cc).VALUE = 0
'combstream(cc).Text = ""
'txtpy(cc).Text = ""
'txtpm(cc).Text = ""
'txtUniv(cc).Text = ""
'Next
txtEmailId.Text = ""
txtcurdesig.Text = ""
txtcompname.Text = ""
combadmtype.Text = ""
End Sub
Private Sub cmdAddQ_Click()
If txtCertiDeploma.Text <> "" And txtYOE.Text <> "" And txtUniBoard.Text <> "" And
txtMarksPer.Text <> "" Then
With lstVQulif
Set lstItem = .ListItems.Add(, , txtCertiDeploma)
lstItem.SubItems(1) = txtYOE
lstItem.SubItems(2) = txtUniBoard
lstItem.SubItems(3) = txtMarksPer
End With
txtCertiDeploma.Text = ""
txtYOE.Text = ""
txtUniBoard.Text = ""
txtMarksPer.Text = ""
Else
MsgBox "One or more fields are empty." & Chr(13) & Space(4) & "Please fill all fields.",
vbCritical, "Error..."
If txtCertiDeploma.Text = "" Then
txtCertiDeploma.SetFocus
ElseIf txtYOE.Text = "" Then
txtYOE.SetFocus
ElseIf txtUniBoard.Text = "" Then
txtUniBoard.SetFocus
ElseIf txtMarksPer.Text = "" Then
txtMarksPer.SetFocus
End If
End If
End Sub
Private Sub cmddelete_Click()
txtfind = Trim(InputBox("ENTER APP. NO.->"))
If txtfind = "" Then
MsgBox ("haven't entered anything")
Else
rs.MoveFirst
rs.Find "[std_appno]=" & "'" & txtfind & "'" & ""
If rs.BOF Or rs.EOF Then
MsgBox "RECORD NOT FOUND....!", vbInformation
Exit Sub
Else
Call display
End If
Dim s As String
s = MsgBox("Are You Sure Delete This Record?", vbYesNo + vbQuestion, "Deleting...?")
If s = vbYes Then
rs.Delete
rs1.Delete
'Call clear
End If
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdfirst_Click()
If rs.EOF And rs.BOF Then
MsgBox ("No Record In The Database")
Else
If rs1.EOF And rs1.BOF Then
Else
rs.MoveFirst
rs1.MoveFirst
Call display
End If
End If
End Sub
Sub display()
txtAppNo.Text = rs(0)
txtName.Text = rs(2)
txtFathername.Text = rs(3)
txtDOB.VALUE = rs(4)
cmbSex.Text = rs(5)
txtNational.Text = rs(6)
txtAddress.Text = rs(7)
txtPhoneNo.Text = rs(8)
txtMNo.Text = rs(9)
cmbIntName.Text = rs(10)
txtcourse.Text = rs(11)
txtAdminDate.VALUE = rs(12)
If rs(13) = "yes" Then
optyes.VALUE = 1
Else
If rs(13) = "no" Then
Optno.VALUE = 1
End If
txtsem.Text = rs(14)
combsession.Text = rs(15)
'calander.Value = rs(14)
'txtCertiDeploma.Text = rs1(1)
'txtUniBoard.Text = rs1(2)
'txtYOE.Text = rs1(3)
'txtMarksPer.Text = rs1(4)
End If
Dim rsa As New ADODB.Recordset

Dim rsa1 As New ADODB.Recordset
enq = "select count(std_qualification) from tbl_student_qualification where std_appno='" &

txtAppNo.Text & "'"
If rsa.State = adStateOpen Then
rsa.Close
End If
rsa.Open enq, con, adOpenDynamic, adLockOptimistic
c = rsa(0)
enq1 = "select * from tbl_student_qualification where std_appno='" & txtAppNo.Text & "'"
If rsa1.State = adStateOpen Then
rsa1.Close
End If
rsa1.Open enq1, con, adOpenDynamic, adLockOptimistic
For i = 0 To c - 1
'While rsenqual1.EOF = False
'If rsa1(1) = "10th" Then
'chkcourse(i).VALUE = 1
'combstream(i).Text = rsa1(2)
'txtpy(i).Text = rsa1(3)
'txtpm(i).Text = rsa1(4)
'ElseIf rsa1(1) = "12th" Then
'ElseIf rsa1(1) = "Graduation" Then
''combstream(i).Text = rsa1(2)
'ElseIf rsa1(1) = "Post Graduate" Then

'ElseIf rsa1(1) = "Diploma" Then
'ElseIf rsa1(1) = "Others" Then
'End If
rsa1.MoveNext
'Wend
Next
End Sub
Private Sub cmdlast_Click()
If rs.EOF And rs.BOF And rs1.EOF And rs1.BOF Then
If rs.BOF And rs1.BOF Then
MsgBox ("End of record")
Else
rs.MoveLast
rs1.MoveLast
Call display
End If
End If
End Sub
Private Sub cmdmodify_Click()
Else
rs.MoveFirst
Exit Sub
Else
Call display
End If
End If
Dim s
s = MsgBox("Do U Want To Modify The Record", 64 + vbYesNo, "Modify Record")
If s = vbYes Then
cmbIntName.Enabled = True
Call ControlEnable
'Call gif
cmdSave.Enabled = True
txtAppNo.Locked = True
'MsgBox ("Application number cannot be changed...")
End If
End Sub
Private Sub cmdnamecourse_Click()
'listdetails2.Visible = True
listdetails.Visible = False

enq = "select * from qry_EnqPropDetails where trim(Enq_Name)='" & Trim(txtEnqName.Text) &
"' and trim(Enq_Course)='" & Trim(combcrs.Text) & "'"
rsenq.Close
End If
rsenq.Open enq, con, adOpenDynamic, adLockOptimistic
If rsenq.EOF And rsenq.BOF Then
MsgBox ("No Record")
Exit Sub
End If
If rsenq(0) <> "" Then
txtEnqNo.Text = rsenq(0)
End If
txtAppNo.Text = rsenq(2)
End If
combsession.Text = rsenq(21)
End If
cmbIntName.Text = rsenq(3)
End If
txtName.Text = rsenq(1)
End If
txtFathername.Text = rsenq(4)
End If
txtAddress.Text = rsenq(5)
End If
txtArea.Text = rsenq(12)
End If
txtCity.Text = rsenq(13)
End If
txtPhoneNo.Text = rsenq(6)
End If
txtMNo.Text = rsenq(7)
End If
txtcourse.Text = rsenq(19)
End If
txtsem.Text = rsenq(20)
End If
If rsenq(18) = "Yes" Then
optyes.VALUE = True
Else
Optno.VALUE = True
End If
End If
txtmno2.Text = rsenq(24)
End If
txtwllno.Text = rsenq(25)
End If
'**********************qualification************************
Dim rsenqual As New ADODB.Recordset
Dim rsenqual1 As New ADODB.Recordset
enq = "select count(enlq_course) from tbl_Enquiry_Lastqualification where Enq_Enqno='" &

txtEnqNo.Text & "'"
If rsenqual.State = adStateOpen Then
rsenqual.Close
End If
rsenqual.Open enq, con, adOpenDynamic, adLockOptimistic
c = rsenqual(0)
enq1 = "select * from tbl_Enquiry_Lastqualification where Enq_Enqno='" & txtEnqNo.Text &

"'"
If rsenqual1.State = adStateOpen Then
rsenqual1.Close
End If
rsenqual1.Open enq1, con, adOpenDynamic, adLockOptimistic
For i = 0 To c - 1
If rsenqual1(1) = "10th" Then
chkcourse(i).VALUE = 1
combstream(i).Text = rsenqual1(2)
txtpy(i).Text = rsenqual1(3)
txtpm(i).Text = rsenqual1(4)
ElseIf rsenqual1(1) = "12th" Then
ElseIf rsenqual1(1) = "Graduation" Then
ElseIf rsenqual1(1) = "Post Graduate" Then
ElseIf rsenqual1(1) = "Diploma" Then
ElseIf rsenqual1(1) = "Others" Then
End If
rsenqual1.MoveNext
'Wend
Next
End Sub
Private Sub cmdnext_Click()
If rs.EOF Then
MsgBox ("End Of Record...")
Else
If rs1.EOF Then
MsgBox ("End Of Record...")
Else
rs.MoveNext
rs1.MoveNext
If Not rs.EOF And rs1.EOF Then
Call display
End If
End If
End If
End Sub
Private Sub cmdprevious_Click()
If rs.BOF And rs1.BOF Then
rs.MoveFirst
rs1.MoveFirst
MsgBox ("Begining Of The Record...")
Else
rs.MovePrevious
rs1.MovePrevious
If Not rs.BOF And rs1.BOF Then
Call display
End If
End If
End Sub
Private Sub cmdSave_Click()
If txtAppNo.Text = "" Then
MsgBox "Application No. can not be empty.", vbCritical, "Error..."
txtAppNo.SetFocus
Exit Sub
ElseIf IsDate(txtAdminDate.VALUE) = False Then
MsgBox "Addmission Date can not be empty.", vbCritical, "Error..."
txtAdminDate.SetFocus
Exit Sub
ElseIf txtName.Text = "" Then
MsgBox "Name can not be empty.", vbCritical, "Error..."
txtName.SetFocus
Exit Sub
ElseIf txtFathername.Text = "" Then
MsgBox "Father's/Spouse Name can not be empty.", vbCritical, "Error..."
txtFathername.SetFocus
Exit Sub
ElseIf IsDate(txtDOB.VALUE) = False Then
MsgBox "Date of Birth can not be empty.", vbCritical, "Error..."
txtDOB.SetFocus
Exit Sub
ElseIf cmbIntName.Text = "" Then
MsgBox "Institute Name Missing...", vbCritical, "Error..."
cmbIntName.SetFocus
Exit Sub
ElseIf txtAddress.Text = "" Then
MsgBox "Address Detail is empty.", vbCritical, "Error..."
txtAddress.SetFocus
Exit Sub
ElseIf txtNational.Text = "" Then
MsgBox "Nationality Must Be Mensioned.", vbCritical, "Error..."
txtNational.SetFocus
Exit Sub
ElseIf IsDate(txtDOB.VALUE) = False Then
MsgBox "Date Of Birth can not be empty.", vbCritical, "Error..."
txtDOB.SetFocus
Exit Sub
ElseIf cmbSex.Text = "" Then

MsgBox "Must Not Be Empty.", vbCritical, "Error..."
cmbSex.SetFocus
Exit Sub
End If
If rs.BOF And rs.EOF Then 'And rs1.BOF And rs1.EOF Then
MsgBox ("no record in database")
Exit Sub
End If
rs(1) = txtEnqNo.Text
rs(0) = txtAppNo.Text
rs(2) = txtName.Text
rs(3) = txtFathername.Text
rs(4) = txtDOB.VALUE
rs(5) = cmbSex.Text
rs(6) = txtNational.Text
rs(7) = txtAddress.Text
rs(8) = txtPhoneNo.Text
rs(9) = txtMNo.Text
rs(10) = cmbIntName.Text
rs(11) = txtcourse.Text
rs(12) = txtAdminDate.VALUE
If optyes = True Then
rs(13) = "yes"
Else
rs(13) = "no"
End If
rs(14) = txtsem.Text
rs(15) = combsession.Text
rs(16) = txtmno2.Text
rs(17) = txtwllno.Text
rs(18) = txtArea.Text
rs(19) = txtCity.Text
rs(20) = combadmtype.Text
rs(21) = frmlogin.uid
rs(22) = Now()
rs(26) = txtcompname.Text
rs(27) = txtcurdesig.Text
rs(28) = txtEmailId.Text
rs.Update
'============student id entry=============
'Dim rsmx As New ADODB.Recordset
'If rsmx.State = adStateOpen Then
'rsmx.Close
'End If
'ses = "Aug 2009"
'rsmx.Open "select max(std_RollNo) from tbl_Stud_Master_IDEntry where std_session='" & ses

& "'", con, adOpenDynamic, adLockOptimistic
'MsgBox (rsmx(0))
'ct = rsmx(0)
'If rsid.State = adStateOpen Then
'rsid.Close
'End If
'rsid.Open "select * from tbl_Stud_Master_IDEntry", con, adOpenDynamic, adLockOptimistic
'rsid.AddNew
'rsid(0) = txtAppNo.Text
'rsid(1) = Val(ct) + 1
'rsid(2) = txtName.Text
'rsid(3) = txtFatherName.Text
'rsid(4) = txtAddress.Text
'rsid(5) = txtMNo.Text
'rsid(6) = txtcourse.Text
'rsid(7) = txtsem.Text
'rsid(8) = combsession.Text
'rsid(9) = txtAdminDate.VALUE
'rsid(10) = txtPhoneNo.Text
'rsid(12) = txtmno2.Text
'rsid(11) = txtwllno.Text
'rsid(13) = Val(ct) + 1
'rsid(14) = txtsem.Text
'rsid(15) = combsession.Text
'
'rsid.Update
'**************student qualification*****************
If rs1.BOF And rs1.EOF Then
MsgBox ("no record in database")
Exit Sub
Else
For i = 0 To 5
If chkcourse(i).VALUE = 1 Then
c = c + 1
End If
Next
For i = 0 To c - 1
If txtpy(i).Text = "" Then
MsgBox ("Please enter passing year")
txtpy(i).SetFocus
Exit For
End If
If txtUniv(i).Text = "" Then
MsgBox ("Please enter University")

txtUniv(i).SetFocus
Exit For
End If
If txtpm(i).Text = "" Then
MsgBox ("Please enter % Marks")
txtpm(i).SetFocus
Exit For
End If
Next
For j = 0 To c - 1
rs1.AddNew
rs1(0) = txtAppNo.Text
rs1(1) = chkcourse(j).Caption
rs1(2) = combstream(j).Text
rs1(3) = txtUniv(j).Text
rs1(4) = txtpy(j).Text
rs1(5) = txtpm(j).Text
rs1.Update
Next
End If
MsgBox ("Your Details are Sucessfuly been Updated. Please make payment before closing the
screen.")
Command2.Enabled = True
'Call ControlClear
Call list
'End If
cmdAdd.Caption = "&Add"
End Sub
Private Sub cmdsearchforpay_Click()

Else
rs.MoveFirst
Exit Sub
Else
Call display
End If
End If
Command2.Enabled = True
MsgBox ("Click on Admission Payment Button")
End Sub
Private Sub cmdshowdata_Click()
listdetails.Visible = True
End Sub
Private Sub combcrs_Click()
listdetails2.Visible = True
listdetails2.ListItems.clear
j = 1
c = 0
enq = "select * from qry_EnqPropDetails where trim(Enq_Course)='" & Trim(combcrs.Text) &

"' order by App_No"
rsenq.Close
End If
Exit Sub
End If
While rsenq.EOF = False
listdetails2.ListItems.Add(j) = rsenq(2)
End If
listdetails2.ListItems(j).SubItems(1) = rsenq(0)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
rsenq.MoveNext
j = j + 1
c = c + 1
Wend
lblrec.Caption = c
'**********************qualification************************


txtEnqNo.Text & "'"
rsenqual.Close
End If
c = rsenqual(0)
enq1 = "select * from tbl_Enquiry_Lastqualification " 'where Enq_Enqno='" & txtEnqNo.Text

& "'"
rsenqual1.Close
End If
d = 1
While rsenqual1.EOF = False
listdetails1.ListItems.Add(d) = rsenqual1(0)
listdetails1.ListItems(d).SubItems(1) = rsenqual1(1)
'listdetails1.ListItems(d).SubItems(5) = rsenqual1(5)
rsenqual1.MoveNext
Wend
End Sub
Private Sub Command1_Click()
'cmdAdd.Enabled = True
'
' cmdSave.Enabled = False
'
'Me.Hide
'frmSearchByAdd.Show vbModal
frmAdmissionFee.Show
End Sub
frmAdmissionFee.Show
End Sub
Call detailsh
'listdetails2.Visible = True
End Sub
frmSearchByAdd.Show
End Sub
Private Sub Form_Activate()
cmdAdd.Enabled = True
End Sub
Private Sub Form_Load()
txtcompname.Enabled = False
txtcurdesig.Enabled = False
Command2.Enabled = False
txtAdminDate.VALUE = Date
combstream(0).AddItem "None"
combstream(0).AddItem "Arts"
combstream(0).AddItem "Commerce"
combstream(0).AddItem "Science"
combstream(1).AddItem "Arts"
combstream(1).AddItem "Commerce"
combstream(1).AddItem "Science"
combstream(2).AddItem "BA"
combstream(2).AddItem "BBA"
combstream(2).AddItem "BCA"
combstream(2).AddItem "BCOM"
combstream(2).AddItem "BE"
combstream(2).AddItem "BSC"
combstream(2).AddItem "BSCIT"
combstream(3).AddItem "MA"
combstream(3).AddItem "MBA"
combstream(3).AddItem "MCA"
combstream(3).AddItem "MCOM"
combstream(3).AddItem "MSC"
combstream(3).AddItem "MSCIT"
listdetails2.Visible = False
cmdAdd.Enabled = True
cmdSave.Enabled = False
Call ControlDisable
Call setdatabase
con.Open datastr
'Set con = New ADODB.Connection
'con.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\giitsuman.mdb"

Set rs = New ADODB.Recordset
If rs.State = adStateOpen Then
rs.Close
End If
rs.Open "select * from tbl_stud_master_admission", con, adOpenDynamic, adLockOptimistic
If rs1.State = adStateOpen Then
rs1.Close
End If
rs1.Open "select * from tbl_student_qualification", con, adOpenDynamic, adLockOptimistic
If rscrs.State = adStateOpen Then
rscrs.Close
End If
rscrs.Open "select * from tbl_Course_Master order by crs_courseid", con, adOpenDynamic,

adLockOptimistic
While rscrs.EOF = False
txtcourse.AddItem rscrs(2)
combdetail.AddItem rscrs(3)
combcrs.AddItem rscrs(2)
rscrs.MoveNext
Wend
If rssession.State = adStateOpen Then
rssession.Close
End If
rssession.Open "select * from tbl_Session order by crs_sessiondate desc", con,

adOpenDynamic, adLockOptimistic
While rssession.EOF = False
combsession.AddItem rssession(0)
rssession.MoveNext
Wend
Call list
End Sub
Sub ControlDisable()
txtEnqNo.Enabled = False
txtEnqName.Enabled = False
EnqDate.Enabled = False
cmbIntName.Enabled = False
txtAppNo.Enabled = False
txtAdminDate.Enabled = False
txtDOB.Enabled = False
txtPhoneNo.Enabled = False
txtMNo.Enabled = False
txtName.Enabled = False
txtArea.Enabled = False
txtCity.Enabled = False
txtFathername.Enabled = False
txtAddress.Enabled = False
txtNational.Enabled = False
txtcourse.Enabled = False
txtsem.Enabled = False
cmbSex.Enabled = False
optyes.Enabled = False
Optno.Enabled = False
txtfee.Enabled = False
Frame9.Enabled = False
cmdSave.Enabled = False
txtEmailId.Enabled = False
combadmtype.Enabled = False
End Sub
Sub ControlEnable()
txtEnqNo.Enabled = True
txtEnqName.Enabled = True
EnqDate.Enabled = True
cmbIntName.Enabled = True
txtAppNo.Enabled = True
txtAdminDate.Enabled = True
txtDOB.Enabled = True
txtPhoneNo.Enabled = True
txtMNo.Enabled = True
txtName.Enabled = True
txtArea.Enabled = True
txtCity.Enabled = True
txtFathername.Enabled = True
txtAddress.Enabled = True
txtNational.Enabled = True
txtcourse.Enabled = True
txtsem.Enabled = True
cmbSex.Enabled = True
optyes.Enabled = True
Optno.Enabled = True
txtfee.Enabled = True
Frame9.Enabled = True
cmdSave.Enabled = True
cmdModify.Enabled = True
cmdDelete.Enabled = True
txtEmailId.Enabled = True
'txtcurdesig.Enabled = False
'txtcompname.Enabled = False
combadmtype.Enabled = True
End Sub
Public Sub list()

listdetails.ListItems.clear
j = 1
rs.Close
End If
rs.Open "SELECT * FROM tbl_stud_master_admission order by std_appno", con, adOpenDynamic,

adLockOptimistic
If rs.BOF And rs.EOF Then
ToolTipText = "no record"
MsgBox "no record in the database"
Else
End If
If rs.BOF = False Then rs.MoveFirst
While Not rs.EOF
With rs
If Not (.Fields(0)) = "" Then
listdetails.ListItems.Add(j) = .Fields(0).VALUE
End If
listdetails.ListItems(j).SubItems(1) = .Fields(1).VALUE
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

End If
End If
End If
End If
End If
End If
End If
End If
End If
j = j + 1
rs.MoveNext
End With
Wend
lblrec.Caption = j
End Sub
Private Sub cmdSearch_Click()
frmEnqSearch.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Command2.Enabled = True Then
MsgBox ("First you complete payment entry")
End If
End Sub
Private Sub listdetails_Click()
Dim rsenq1 As New ADODB.Recordset
Dim searchstr As String
eno = listdetails.SelectedItem.Text
'ENO = rsenq1(0)
searchstr = "select * from tbl_stud_master_admission where std_appno='" & eno & "'"
rsenq1.Open searchstr, con, adOpenDynamic, adLockOptimistic
If rsenq1.BOF And rsenq1.EOF Then
MsgBox "record set is empty"
Exit Sub
End If
If rsenq1.BOF = False Then
rsenq1.MoveFirst
End If
If MsgBox(Space(13) & "You Select App No." & eno & Chr(13), vbYesNo, "O.A. System") =
vbYes Then
txtAppNo.Text = eno
With rsenq1
If .Fields(1).VALUE <> "" Then
txtEnqNo.Text = .Fields(1).VALUE
End If
cmbIntName.Text = .Fields(10).VALUE
End If
txtAppNo.Text = .Fields(0).VALUE
End If
txtAdminDate.VALUE = .Fields(12).VALUE
End If
txtDOB.VALUE = .Fields(4).VALUE
End If
txtPhoneNo.Text = .Fields(8).VALUE
End If
txtMNo.Text = .Fields(9).VALUE
End If
txtName.Text = .Fields(2).VALUE
End If
'txtArea.Text = .Fields(1).VALUE
'txtCity.Text = .Fields(1).VALUE
txtFathername.Text = .Fields(3).VALUE
End If
txtAddress.Text = .Fields(7).VALUE
End If

txtNational.Text = .Fields(6).VALUE
End If
txtcourse.Text = .Fields(11).VALUE
End If
txtsem.Text = .Fields(14).VALUE
End If
cmbSex.Text = .Fields(5).VALUE
End If
If .Fields(13) = "Yes" Then
optyes.VALUE = True
Else
Optno.VALUE = True
End If
End If
combsession.Text = .Fields(15).VALUE
End If
txtmno2.Text = .Fields(16).VALUE
End If
txtwllno.Text = .Fields(17).VALUE
End If
txtArea.Text = .Fields(18).VALUE
End If

txtCity.Text = .Fields(19).VALUE
End If
combadmtype.Text = .Fields(20).VALUE
End If
txtcompname.Text = .Fields(26).VALUE
End If
txtcurdesig.Text = .Fields(27).VALUE
End If
txtEmailId.Text = .Fields(28).VALUE
End If
End With
End If
End Sub
Private Sub Optno_Click()
End Sub
Private Sub optyes_Click()
txtcompname.Enabled = True
txtcurdesig.Enabled = True
End Sub
Private Sub txtappno_LostFocus()
'combsession.SetFocus
End Sub
Private Sub txtcourse_Click()

rscrs.MoveFirst
If (rscrs(2)) = txtcourse.Text Then
combdetail.Text = rscrs(3)
End If
rscrs.MoveNext
Wend
End Sub
Private Sub combdetail_Click()
rscrs.MoveFirst
If (rscrs(3)) = combdetail.Text Then
txtcourse.Text = rscrs(2)
End If
rscrs.MoveNext
Wend
End Sub
Private Sub txtDOB_LostFocus()
'cmbSex.SetFocus
End Sub
Private Sub txtNational_LostFocus()
'txtAdminDate.SetFocus
End Sub
Public Sub List1()
listdetails2.ListItems.clear
j = 1
rs2.Close
End If
rs2.Open "SELECT * FROM qur_pros_com_det where Enq_Name='" & (txtEnqName.Text) & "'", con,
Else
End If
If rs2.BOF = False Then rs2.MoveFirst
While Not rs2.EOF
With rs2
listdetails2.ListItems.Add(j) = .Fields(0).VALUE
End If
listdetails2.ListItems(j).SubItems(1) = .Fields(1).VALUE
End If
End If
End If
End If

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
j = j + 1
rs2.MoveNext
End With
Wend
End Sub
Public Sub list2()
j = 1
rs2.Close
End If
rs2.Open "SELECT * FROM tbl_Enquary_Detail where Enq_Enqdt=#" & Trim(Format(EnqDate.VALUE,

"mm/dd/yyyy")) & "#", con, adOpenDynamic, adLockOptimistic
Else
End If
While Not rs2.EOF
With rs2
listdetails2.ListItems.Add(j) = .Fields(1).VALUE
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
j = j + 1
rs2.MoveNext
End With
Wend
End Sub
Private Sub listdetails2_Click()
Dim info, str, str1
info = listdetails2.SelectedItem.Text
Dim rsd As New ADODB.Recordset
If rsd.State = adStateOpen Then
rsd.Close
End If
rsd.Open "SELECT * FROM qry_EnqPropDetails where App_No='" & (info) & "'", con,
If rsd.BOF And rsd.EOF Then
Else
End If
If rsd.BOF = False Then rsd.MoveFirst
While Not rsd.EOF
'With rsd
If rsd(2) <> "" Then
txtsearchAppno.Text = rsd(2)
End If
txtEnqName.Text = rsd(1)
End If
txtEnqNo.Text = rsd(0)
End If
txtAppNo.Text = rsd(2)
End If
combsession.Text = rsd(21)
End If
cmbIntName.Text = rsd(3)
End If
txtName.Text = rsd(1)
End If
txtFathername.Text = rsd(4)
End If
txtAddress.Text = rsd(5)
End If
txtArea.Text = rsd(12)
End If
txtCity.Text = rsd(13)
End If
txtPhoneNo.Text = rsd(6)
End If
txtMNo.Text = rsd(7)
End If
txtcourse.Text = rsd(19)
End If
txtsem.Text = rsd(20)
End If
If rsd(18) = "Yes" Then
optyes.VALUE = True
Else
Optno.VALUE = True
End If
End If
txtmno2.Text = rsd(24)
End If
txtwllno.Text = rsd(25)
End If
combadmtype.Text = rsd(26)
End If
rsd.MoveNext
Wend
'**********************qualification************************

txtEnqNo.Text & "'"
rsenqual.Close
End If
c = rsenqual(0)

"'"
rsenqual1.Close
End If
For i = 0 To c - 1
End If
rsenqual1.MoveNext
Next
End Sub
Private Sub txtsearchAppno_LostFocus()
enq = "select * from qry_EnqPropDetails where App_No='" & txtsearchAppno.Text & "'"
rsenq.Close
End If
Exit Sub
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
optyes.VALUE = True
Else
Optno.VALUE = True
End If
End If
End If
End If
combadmtype.Text = rsenq(26)
End If
'**********************qualification************************
If txtEnqNo.Text = "" Then
Else

txtEnqNo.Text & "'"
rsenqual.Close
End If
c = rsenqual(0).VALUE

"'"
rsenqual1.Close
End If
For i = 0 To c - 1
If rsenqual1(1).VALUE = "10th" Then
combstream(i).Text = rsenqual1(2).VALUE
txtpy(i).Text = rsenqual1(3).VALUE
txtpm(i).Text = rsenqual1(4).VALUE
'combstream(i).Text = rsenqual1(2).VALUE
End If
rsenqual1.MoveNext
'Wend
Next
End If
'txtAppNo.SetFocus
End Sub
Sub detailsh()
enq = "select * from qry_EnqPropDetails where trim(Enq_Name)='" & Trim(txtEnqName.Text) &

"'"
rsenq.Close
End If
Exit Sub
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
optyes.VALUE = True
Else
Optno.VALUE = True
End If
End If
End If
End If
combadmtype.Text = rsenq(26)
End If
'**********************qualification************************

txtEnqNo.Text & "'"
rsenqual.Close
End If
c = rsenqual(0)

"'"
rsenqual1.Close
End If
For i = 0 To c - 1
End If
rsenqual1.MoveNext
'Wend
Next
'txtAppNo.SetFocus
End Sub
Sub APPCHECK()
'Dim rsap As New ADODB.Recordset
'rs
End Sub
Admission Fee Entry
Source Code
Dim con As ADODB.Connection
Dim rslist As New ADODB.Recordset

Dim rsmr As New ADODB.Recordset
Dim j1
Dim j As Integer
Dim sss As New ADODB.Recordset
Dim cm, mr
Sub cmdadd_Click()
'cmdsave.Enabled = True
End Sub
Private Sub chkpayment_Click()
If chkpayment.VALUE = 1 Then
framepayment.Enabled = True
SS.Enabled = True
Call mrupdate
If sss.State = adStateOpen Then
sss.Close
End If
sss.Open "select * from tbl_MaxMrno", con, adOpenDynamic, adLockOptimistic
If txtmrnodd.Text <> "" Then ' And
sss.AddNew
sss(0) = mr
sss(1) = Now
sss(2) = frmlogin.uid
sss.Update
ElseIf txtmrnoch.Text <> "" Then
sss.AddNew
sss(0) = mr
sss(1) = Now
sss.Update
ElseIf txtmrnocs.Text <> "" Then

sss.AddNew
sss(0) = mr
sss(1) = Now
sss.Update
End If
End If
'End If
cm = 0
End Sub
Private Sub cmdMRMod_Click()
frmFeeModified.Show
End Sub
Private Sub CMDREPRINTRECEIPT_Click()
mn = InputBox("Enter MRNo.")
Dim rslist As New ADODB.Recordset
If rslist.State = adStateOpen Then
rslist.Close
End If
If SS.Caption = "Demand Draft" Then
mrn = Trim(txtmrnodd.Text)
ElseIf SS.Caption = "Cheque" Then
mrn = Trim(txtmrnoch.Text)
Else
mrn = Trim(txtmrnocs.Text)
End If
rslist.Open "SELECT * from tbl_receipt where rec_mr_no='" & Trim(mn) & "'", con,
If rslist.BOF And rslist.EOF Then
MsgBox ("record not found")
Exit Sub
'rslist.MoveFirst
Else
While rslist.EOF = False
If rslist(18) = "M-Male" Then
DataReport6.Sections("Section1").Controls("lblmr").Caption = "MR."
Else
DataReport6.Sections("Section1").Controls("lblmr").Caption = "MS."
End If
If rslist(8) = "DD" Then
DataReport6.Sections("Section1").Controls("lbldd").Visible = True
DataReport6.Sections("Section1").Controls("lblchdd").Visible = True
DataReport6.Sections("Section1").Controls("txtddno").Visible = True
DataReport6.Sections("Section1").Controls("txtdddate").Visible = True
DataReport6.Sections("Section1").Controls("lblvide").Visible = True
DataReport6.Sections("Section1").Controls("lblchdd").Caption = "DD No."
DataReport6.Sections("Section1").Controls("lbldate").Visible = True
DataReport6.Sections("Section1").Controls("lbldot").Visible = True
DataReport6.Sections("Section1").Controls("Label7").Visible = True
ElseIf rslist(8) = "Cash" Then
DataReport6.Sections("Section1").Controls("lblcash").Visible = True
DataReport6.Sections("Section1").Controls("lbldd").Visible = False
DataReport6.Sections("Section1").Controls("lblchdd").Visible = False
DataReport6.Sections("Section1").Controls("txtddno").Visible = False
DataReport6.Sections("Section1").Controls("txtdddate").Visible = False
DataReport6.Sections("Section1").Controls("lblvide").Visible = False
DataReport6.Sections("Section1").Controls("lbldate").Visible = False
DataReport6.Sections("Section1").Controls("lbldot").Visible = False
DataReport6.Sections("Section1").Controls("Line11").Visible = False
DataReport6.Sections("Section1").Controls("Label7").Visible = False
ElseIf rslist(8) = "Cheque" Then
DataReport6.Sections("Section1").Controls("lblch").Visible = True
DataReport6.Sections("Section1").Controls("txtchno").Visible = True
DataReport6.Sections("Section1").Controls("txtchdate").Visible = True
DataReport6.Sections("Section1").Controls("lblchdd").Caption = "Cheq.No"
End If
rslist.MoveNext
Wend
Set DataReport6.DataSource = rslist
'DataReport6
DataReport6.Show
Exit Sub
End If
End Sub
Dim rsfee As New ADODB.Recordset
If rsfee.State = adStateOpen Then
rsfee.Close
End If
rsfee.Open "Select * from tbl_Admission_Fee", con, adOpenStatic, adLockOptimistic
With rsfee
.AddNew
'********fetch from frmadmission form

.Fields(1).VALUE = frmAdmission.txtAppNo.Text
'.Fields(3).VALUE = frmAdmission.txtRollNo.Text
'.Fields(19).Value = name1
.Fields(18).VALUE = frmAdmission.txtcourse.Text
.Fields(19).VALUE = frmAdmission.txtsem.Text
.Fields(20).VALUE = frmAdmission.combsession.Text
'********fetch from frmadmission form end
.Fields(29) = "FR"
.Fields(30) = frmlogin.uid
.Fields(31) = Now()
.Fields(37) = frmAdmission.txtName.Text
If optuniv.VALUE = True Then
.Fields(2).VALUE = "University Fee"
ElseIf opttu.VALUE = True Then
.Fields(2).VALUE = "Tution Fee"
ElseIf optboth.VALUE = True Then
.Fields(2).VALUE = "UNF/TF"
End If
If chkfullpmt.VALUE = 1 Then
.Fields(12).VALUE = "Full Payment"
.Fields(13).VALUE = "----"
.Fields(0).VALUE = "FP"
ElseIf chkinstpmt.VALUE = 1 Then
.Fields(12).VALUE = "---"
If opt1inst.VALUE = True Then
.Fields(13).VALUE = "First Installment"
.Fields(0).VALUE = "INST1"
ElseIf opt2inst.VALUE = True Then
.Fields(13).VALUE = "Second Installment"

.Fields(13).VALUE = "Third Installment"
.Fields(13).VALUE = "Forth Installment"
.Fields(13).VALUE = "Fifth Installment"
.Fields(13).VALUE = "Six Installment"
End If
End If
' '****** for demand draft******
If SS.Caption = "Demand Draft" And optuniv.VALUE = True Then
If txtfavdd = "" Then
MsgBox "Mension to whom demand draft is favouring...."
txtfavdd.SetFocus
Exit Sub
ElseIf txtmrnodd = "" Then
MsgBox "Mension M.R.No."
txtmrnodd.SetFocus
Exit Sub
ElseIf dddate = "" Then
MsgBox "M.R date must be mensioned..."
dddate.SetFocus
Exit Sub
ElseIf txtddnum = "" Then
MsgBox "Demand draft number is missing...."
txtddnum.SetFocus
Exit Sub
ElseIf dddate = "" Then
MsgBox "Date of demand draft must be mension....."
dddate.SetFocus
Exit Sub
ElseIf txtbankcodedd = "" Then
MsgBox "Mension the bank code...."
txtbankcodedd.SetFocus
Exit Sub
ElseIf txtamountdd = "" And txtamountdd.Text = "0" Then
MsgBox "Amount must be mension...."
txtamountdd.SetFocus
Exit Sub
ElseIf txtbanknamedd = "" Then
MsgBox "Mension bank name....."
txtbanknamedd.SetFocus
Exit Sub
ElseIf txtLTFDD = "" Then
MsgBox "Mension lateral fee....."
txtLTFDD.SetFocus
Exit Sub
ElseIf txtLFDD = "" Then
MsgBox "Mension late fee....."
txtLFDD.SetFocus
Exit Sub
ElseIf txtbanknamedd = "" Then
txtbanknamedd.SetFocus
Exit Sub
Else
.Fields(4).VALUE = txtfavdd.Text
.Fields(5).VALUE = txtmrnodd.Text
.Fields(6).VALUE = dtmrdatedd.VALUE
.Fields(7).VALUE = txtddnum.Text
.Fields(8).VALUE = dddate.VALUE
.Fields(9).VALUE = txtbankcodedd.Text
.Fields(10).VALUE = txtamountdd.Text
.Fields(11).VALUE = txtbanknamedd.Text
.Fields(14).VALUE = 0
'.Fields(15).VALUE = 0
' .Fields(16).VALUE = 0
'.Fields(17).VALUE = Date
.Fields(23).VALUE = "Demand Draft"
.Fields(24).VALUE = txtLTFDD.Text
.Fields(25).VALUE = txtLFDD.Text
.Fields(26).VALUE = txtTotalAmtDD.Text
.Update
'****************receipt
rs.Close
End If
rs.Open "select *from tbl_receipt", con, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields(1).VALUE = rsfee.Fields(5).VALUE
rs.Fields(2).VALUE = frmAdmission.txtAppNo.Text
rs.Fields(3).VALUE = frmAdmission.combsession.Text
rs.Fields(4).VALUE = UCase(NumberToString(frmAdmission.txtsem.Text))
rs.Fields(5).VALUE = frmAdmission.txtcourse.Text
rs.Fields(6).VALUE = Date
am = UCase(NumberToString(Val(txtTotalAmtDD.Text)) & " ONLY")
rs.Fields(10).VALUE = am
'Dim rs1 As New ADODB.Recordset
rs.Fields(7).VALUE = frmAdmission.txtName.Text
rs.Fields(8).VALUE = "DD"
rs.Fields(11).VALUE = rsfee.Fields(2).VALUE & " - " & rsfee.Fields(0).VALUE
rs.Fields(18).VALUE = frmAdmission.cmbSex.Text
'End With
rs.Update
End If
'End If
MsgBox "Your record has been successfully updated"
'End If
' '***** for cheque********
ElseIf SS.Caption = "Cheque" And (optuniv.VALUE = True Or opttu.VALUE = True) Then
If txtfavch = "" Then
MsgBox "Mension to whom cheque is favouring...."
txtfavch.SetFocus
Exit Sub
ElseIf txtmrnoch = "" Then
txtmrnoch.SetFocus
Exit Sub
ElseIf dtmrdatech = "" Then
dtmrdatech.SetFocus
Exit Sub
ElseIf chequeno = "" Then
MsgBox "Cheque number is missing...."
chequeno.SetFocus
Exit Sub
ElseIf datech = "" Then
MsgBox "Date of Cheque issue must be mension....."
datech.SetFocus
Exit Sub
ElseIf txtamountch = "" Then
txtamountch.SetFocus
Exit Sub
ElseIf txtbankch = "" Then
txtbankch.SetFocus
Exit Sub
ElseIf txtddcom = "" Then
MsgBox "Mension DDEX fee....."
txtddcom.SetFocus
Exit Sub
ElseIf txtLTFCH = "" Then
txtLTFCH.SetFocus
Exit Sub
ElseIf txtLFCH = "" Then
MsgBox "Mension late fine....."
txtLFCH.SetFocus
Exit Sub
Else
.Fields(4).VALUE = txtfavch.Text
.Fields(5).VALUE = txtmrnoch.Text
.Fields(6).VALUE = dtmrdatech.VALUE
.Fields(7).VALUE = chequeno.Text
.Fields(8).VALUE = datech.VALUE
.Fields(10).VALUE = txtamountch.Text
.Fields(11).VALUE = txtbankch.Text
.Fields(14).VALUE = txtddcom.Text
'.Fields(21).VALUE = txtwaiverhead.Text
' .Fields(22).VALUE = txtwaiveramt.Text
.Fields(23).VALUE = "Cheque"
.Fields(24).VALUE = txtLTFCH.Text
.Fields(25).VALUE = txtLFCH.Text
.Fields(26).VALUE = TxtTotalAmtCH.Text
.Update
rs.Close
End If
rs.AddNew
rs.Fields(4).VALUE = frmAdmission.txtsem.Text
'am = NumberToString(Val(txtTotalAmtDD.Text))
am = UCase(NumberToString(Val(TxtTotalAmtCH.Text)) & " ONLY")
rs.Fields(8).VALUE = "Cheque"
'rs.Fields(10).VALUE = ""
rs.Fields(12).VALUE = chequeno.Text 'rsfee.Fields(5).VALUE
rs.Fields(13).VALUE = datech.VALUE 'rsfee.Fields(6).VALUE
rs.Fields(16).VALUE = txtbankch.Text 'rsfee.Fields(11).VALUE
rs.Update
End If
'End If
' End If
' '*********cash************
ElseIf SS.Caption = "Cash" And (optuniv.VALUE = True Or opttu.VALUE = True) Then
If txtinfavcs = "" Then
MsgBox "Mension to whom cheque is favouring...."
txtinfavcs.SetFocus
Exit Sub
ElseIf txtmrnocs = "" Then

txtmrnocs.SetFocus
Exit Sub
ElseIf datecs = "" Then
datecs.SetFocus
Exit Sub
ElseIf txtfamtcs = "" Then
txtfamtcs.SetFocus
Exit Sub
ElseIf txtddexcs = "" Then
MsgBox "Mension DDEX fee....."
txtddexcs.SetFocus
Exit Sub
ElseIf txtLTFCS = "" Then
txtLTFCS.SetFocus
Exit Sub
ElseIf txtLFCS = "" Then
MsgBox "Mension late fine....."
txtLFCS.SetFocus
Exit Sub
Else
.Fields(4).VALUE = txtinfavcs.Text
.Fields(5).VALUE = txtmrnocs.Text
.Fields(6).VALUE = datecs.VALUE
'.Fields(7).VALUE = "----"
.Fields(14).VALUE = txtddexcs.Text
.Fields(15).VALUE = txtfamtcs.Text
' .Fields(21).VALUE = txtwaiverhead.Text
'.Fields(22).VALUE = txtwaiveramt.Text
.Fields(23).VALUE = "Cash"
.Fields(24).VALUE = txtLTFCS.Text
.Fields(25).VALUE = txtLFCS.Text
.Fields(26).VALUE = txtTotalAmtCS.Text
.Update
'***********************
rs.Close
End If
rs.AddNew
rs.Fields(4).VALUE = frmAdmission.txtsem.Text
'am = (NumberToString(Val(txtTotalAmtCS.Text)) & " ONLY")
'am = UCase(NumberToString(Val(txtTotalAmtCS.Text)) & " ONLY")
am = UCase(NumberToString(Val(txtTotalAmtCS.Text)) & " ONLY")
rs.Fields(8).VALUE = "Cash"
'rs.Fields(10).VALUE = ""
rs.Update
' End If
End If
End If
End With
'Command2.Enabled = False
'Command1_Click
'cmdsave.Enabled = False
End Sub
Private Sub cmdsaveboth_Click()
Dim rsfee As New ADODB.Recordset
If rsfee.State = adStateOpen Then
rsfee.Close
End If
rsfee.Open "Select * from tbl_Admission_Fee", con, adOpenStatic, adLockPessimistic
With rsfee
If optboth.VALUE = True Then
'***************For Cash Entry*****************************
If ss1.Caption = "Cash" Then
For i = 0 To 1
.AddNew
'.Fields(2).VALUE = "UNF/TF"
End If
.Fields(2).VALUE = LBLUN(i).Caption

End If
End If
' If cmdwaiver.Enabled = True Then
' If txtwaiverhead.Text <> "" And txtwaiveramt.Text <> "" Then
' Else
' End If
' End If
'txttotamtbtcs(i).Text
'txttotalamtbtcs(i).Text
.Fields(4).VALUE = txtinfbtcs(i).Visible
.Fields(5).VALUE = txmrnobtcs(i).Text
.Fields(6).VALUE = dtmrdatebtca(i).VALUE
.Fields(8).VALUE = Date
.Fields(14).VALUE = txtddexbtcs(i).Text
.Fields(15).VALUE = txtfeeamtbtcs(i).Text
'.Fields(22).VALUE = txtwaiveramt.Text
.Fields(23).VALUE = "Cash"
.Fields(24).VALUE = txtLTFcsbt(i).Text
.Fields(25).VALUE = txtLFcsbt(i).Text
.Fields(26).VALUE = txttotalamtcsBT.Text
.Update
MsgBox "record update"
Next
End If
'***************For Cheque Entry*****************************
If ss1.Caption = "Cheque" Then
For ii = 0 To 1
.AddNew

End If
.Fields(2).VALUE = lblchk(ii).Caption
End If
End If
' Else
' End If
' End If
.Fields(4).VALUE = txtinfbt(ii).Visible
.Fields(5).VALUE = txtmrnobt(ii).Text
.Fields(6).VALUE = mrdatebt(ii).VALUE
.Fields(7).VALUE = txtchnobt(ii).Text
.Fields(8).VALUE = chdatebt(ii).VALUE
.Fields(10).VALUE = txtfeeamtbt(ii).Text
.Fields(11).VALUE = txtbnbt(ii).Text
.Fields(14).VALUE = txtddexbt(ii).Text
.Fields(23).VALUE = "Cheque"
.Fields(24).VALUE = txtLTFchbt(ii).Text
.Fields(25).VALUE = txtLFchbt(ii).Text
.Fields(26).VALUE = txttotalamtchbt.Text
.Update
Next
End If
'********************For DD Entry***************************
If ss1.Caption = "Demand Draft" Then
For iii = 0 To 1
.AddNew
End If
.Fields(2).VALUE = lblchk(iii).Caption

End If
End If
' Else
' End If
' End If
.Fields(4).VALUE = txtinbt(iii).Visible
.Fields(5).VALUE = txtddmr(iii).Text
.Fields(6).VALUE = mrdatebtdd(iii).VALUE
.Fields(7).VALUE = txtddnobt(iii).Text
.Fields(8).VALUE = dddatebt(iii).VALUE
.Fields(9).VALUE = txtbcodebt(iii).Text
.Fields(10).VALUE = txtddamtbt(iii).Text
.Fields(11).VALUE = txtbnmbt(iii).Text
.Fields(14).VALUE = txtddexbt(iii).Text
.Fields(23).VALUE = "Demand Draft"
.Fields(24).VALUE = txtLTFBTDD(iii).Text
.Fields(25).VALUE = txtLFBTDD(iii).Text
.Fields(26).VALUE = txttotalamtddbt.Text
.Update
Next
End If
End If
End With
End Sub
Private Sub cmdtomf_Click()
'frmAdmission.Show
'Me.Hide
s = NumberToString(Val(txtTotalAmtDD.Text))
MsgBox (s)
End Sub
'Private Sub cmdwaiver_Click()
'Frame12.Visible = False
'End Sub
rs.Close
End If
rs.Open "select *from tbl_receipt order by rec_mr_no", con, adOpenDynamic,

adLockOptimistic
If Option1.VALUE = True Then
rs.MoveLast
txtmrnodd.Text = Val((rs.Fields("rec_mr_no").VALUE)) + 1
Frame25.Visible = False
Else
Frame25.Visible = False
End If
End Sub
'**************Date wise**************************
If txtmrnodd.Text = "" Then
Frame25.Visible = True
Exit Sub
End If
If rslist.State = adStateOpen Then
rslist.Close
End If
rslist.Open "SELECT * from tbl_receipt where rec_mr_no='" & Trim(txtmrnodd.Text) & "'",
con, adOpenDynamic, adLockOptimistic
If rslist.BOF And rslist.EOF Then
MsgBox ("record not found")
Exit Sub
'rslist.MoveFirst
Else
While rslist.EOF = False
If rslist(18) = "M-Male" Then
DataReport6.Sections("Section1").Controls("lblmr").Caption = "MR."
Else
DataReport6.Sections("Section1").Controls("lblmr").Caption = "MS."
End If
If rslist(8) = "DD" Then
DataReport6.Sections("Section1").Controls("lbldd").Visible = True
DataReport6.Sections("Section1").Controls("txtddno").Visible = True
DataReport6.Sections("Section1").Controls("txtdddate").Visible = True
ElseIf rslist(8) = "Cash" Then
DataReport6.Sections("Section1").Controls("lblcash").Visible = True
DataReport6.Sections("Section1").Controls("lbldd").Visible = False
DataReport6.Sections("Section1").Controls("lblchdd").Visible = False
DataReport6.Sections("Section1").Controls("txtddno").Visible = False
DataReport6.Sections("Section1").Controls("txtdddate").Visible = False
DataReport6.Sections("Section1").Controls("lblvide").Visible = False
DataReport6.Sections("Section1").Controls("lbldate").Visible = False
DataReport6.Sections("Section1").Controls("lbldot").Visible = False
DataReport6.Sections("Section1").Controls("Label7").Visible = False
ElseIf rslist(8) = "Cheque" Then
DataReport6.Sections("Section1").Controls("lblch").Visible = True
DataReport6.Sections("Section1").Controls("txtchno").Visible = True
DataReport6.Sections("Section1").Controls("txtchdate").Visible = True
DataReport6.Sections("Section1").Controls("lblchdd").Caption = "Cheq.No"
End If
rslist.MoveNext
Wend
Set DataReport6.DataSource = rslist
'DataReport6
DataReport6.Show
Exit Sub
End If
End Sub
opttu.VALUE = False
optuniv.VALUE = False
optboth.VALUE = False
datecs.VALUE = Date
dtmrdatech.VALUE = Date
datech.VALUE = Date
dtmrdatedd.VALUE = Date
dddate.VALUE = Date
If frmAdmission.txtAppNo.Text = "" Then
MsgBox ("First you select Application Number")
Me.Hide
frmAdmission.Show
framepayment.Enabled = False
'Exit Sub
End If
Call setdatabase
con.Open datastr
' mrat = "Select max(VAL(Adf_Mrno)) from tbl_admission_fee"
' If rsmr.State = adStateOpen Then
' rsmr.Close
' End If
' rsmr.Open mrat, con, adOpenDynamic, adLockOptimistic
' If rsmr.EOF And rsmr.BOF Then
' MsgBox ("No Record")
' End If
' mr = rsmr(0).VALUE + 1
' If SS.Caption = "Demand Draft" Then
' txtmrnodd.Text = mr
' ElseIf SS.Caption = "Cheque" Then
' txtmrnoch.Text = mr
' ElseIf SS.Caption = "Cash" Then
' txtmrnocs.Text = mr
' End If
'Call mrupdate
'cmdsave.Enabled = False
'cmdwaiver.Enabled = True
rs.Close
End If
'cmdsaveboth.Enabled = False
If frmAdmission.txtAppNo.Text = "" Then
Exit Sub
Else
'Call list
Call feedetails
End If
End Sub
Sub mrupdate()
mrat = "Select max(VAL(MRNO)) from tbl_MaxMrno"
If rsmr.State = adStateOpen Then
rsmr.Close
End If
rsmr.Open mrat, con, adOpenDynamic, adLockOptimistic
If rsmr.EOF And rsmr.BOF Then
End If
mr = rsmr(0).VALUE + 1
txtmrnodd.Text = mr
txtmrnoch.Text = mr
ElseIf SS.Caption = "Cash" Then
txtmrnocs.Text = mr
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub
Private Sub optboth_Click()
If optboth.VALUE = True Then
ss1.Visible = True
SS.Visible = False
cmdsaveboth.Visible = True
cmdsave.Visible = False
End If
End Sub
Private Sub opttu_Click()
If opttu.VALUE = True Then
ss1.Visible = False
SS.Visible = True
cmdsaveboth.Visible = False
cmdsave.Visible = True
End If
End Sub
Private Sub optuniv_Click()
ss1.Visible = False
SS.Visible = True
cmdsaveboth.Visible = False
cmdsave.Visible = True
End If
End Sub
'Public Sub list()
'Dim rslis As New ADODB.Recordset
'listdetails.ListItems.clear
'j = 1
'Dim str As String
'str = "SELECT * FROM tbl_Admission_Fee where Std_appno='" & frmAdmission.txtappno.Text &

"'"
'If rslis.State = adStateOpen Then
'rslis.Close
'End If
'rslis.Open str, con, adOpenDynamic, adLockOptimistic
'If rslis.BOF And rslis.EOF Then
'ToolTipText = "no record"
'MsgBox "no record in the database"
'Else
'End If
'If rslis.BOF = False Then rslis.MoveFirst
'While Not rslis.EOF
'With rslis
'If Not (.Fields(1)) = "" Then
'listdetails.ListItems.Add(j) = .Fields(1).VALUE
'End If
'listdetails.ListItems(j).SubItems(1) = .Fields(3).VALUE
'End If
'listdetails.ListItems(j).SubItems(2) = frmAdmission.TXTNAME.Text
'End If
'End If
'End If
'End If
'End If
'End If
'End If
'End If
'End If
'End If
'j = j + 1
'rslis.MOVENEXT
'End With
'Wend
'End Sub
Sub feedetails()
lst2.ListItems.clear
Dim rsfd As New ADODB.Recordset
If rsfd.State = adStateOpen Then
rsfd.Close
End If
disp = "SELECT tbl_Admission_Fee.Std_rollno, tbl_Admission_Fee.Std_appno,

tbl_Admission_Fee.Adf_session, tbl_Admission_Fee.Crs_course, tbl_Admission_Fee.Sem,
tbl_Admission_Fee.Adf_FeeType, tbl_Admission_Fee.Adf_type, tbl_Admission_Fee.Adf_mrno,
tbl_Admission_Fee.Adf_mrdate, tbl_Admission_Fee.Adf_dd_ch_no,
tbl_Admission_Fee.Adf_dd_ch_date, tbl_Admission_Fee.Adf_dd_ch_totamount,
tbl_Admission_Fee.Adf_dd_ch_bankname, tbl_Admission_Fee.Adf_ddex,
tbl_Admission_Fee.Adf_feeincash, tbl_Admission_Fee.Adf_LateralFeeAmt,
tbl_Admission_Fee.Adf_LateFineAmt, tbl_Admission_Fee.Adf_DepOn,
tbl_Admission_Fee.Adf_TotalFeeAmt From tbl_Admission_Fee WHERE Std_appno='" &
frmAdmission.txtAppNo.Text & "' order by tbl_Admission_Fee.Sem"
rsfd.Open disp, con, adOpenDynamic, adLockOptimistic
j = 1
While Not rsfd.EOF
lst2.ListItems.Add(j) = j
If rsfd(2) <> "" Then
lst2.ListItems(j).SubItems(1) = rsfd(2)
End If
End If
End If
End If
End If

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
j = j + 1
rsfd.MoveNext
Wend
End Sub
Private Sub SS_Click(PreviousTab As Integer)
'mrat = "Select max(VAL(Adf_Mrno)) from tbl_admission_fee"
' If rsmr.State = adStateOpen Then
' rsmr.Close
' End If
' rsmr.Open mrat, con, adOpenDynamic, adLockOptimistic
' If rsmr.EOF And rsmr.BOF Then
' MsgBox ("No Record")
' End If
' mr = rsmr(0).VALUE + 1
txtmrnodd.Text = mr
txtmrnoch.Text = mr
ElseIf SS.Caption = "Cash" Then
txtmrnocs.Text = mr
End If
End Sub
Private Sub txtamountch_LostFocus()
txtsubTotalCH.Text = Val(txtamountch.Text)
TxtTotalAmtCH.Text = Val(txtamountch.Text)
End Sub
Private Sub txtamountdd_LostFocus()
txtTotalAmtDD.Text = Val(txtamountdd.Text)
txtsubtotaldd.Text = Val(txtamountdd.Text)
End Sub
Private Sub txtddcom_LostFocus()
txtsubTotalCH.Text = Val(txtamountch.Text) + Val(txtddcom.Text)
TxtTotalAmtCH.Text = Val(txtamountch.Text) + Val(txtddcom.Text)
End Sub
Private Sub txtddexcs_LostFocus()
txtsubtotalcs.Text = Val(txtfamtcs.Text) + Val(txtddexcs.Text)
txtTotalAmtCS.Text = Val(txtfamtcs.Text) + Val(txtddexcs.Text)
End Sub
Private Sub txtfamtcs_Change()
txtsubtotalcs.Text = Val(txtfamtcs.Text)
txtTotalAmtCS.Text = Val(txtfamtcs.Text)
End Sub
Private Sub txtLFCH_LostFocus()
txtsubTotalCH.Text = Val(txtamountch.Text) + Val(txtddcom.Text) + Val(txtLTFCH.Text) +

Val(txtLFCH.Text)
TxtTotalAmtCH.Text = Val(txtamountch.Text) + Val(txtddcom.Text) + Val(txtLTFCH.Text) +

Val(txtLFCH.Text)
End Sub
Private Sub txtLFCS_LostFocus()
txtsubtotalcs.Text = Val(txtfamtcs.Text) + Val(txtddexcs.Text) + Val(txtLTFCS.Text) +

Val(txtLFCS.Text)
txtTotalAmtCS.Text = Val(txtfamtcs.Text) + Val(txtddexcs.Text) + Val(txtLTFCS.Text) +
Val(txtLFCS.Text)
End Sub
Private Sub txtLFDD_LostFocus()
txtTotalAmtDD.Text = Val(txtamountdd.Text) + Val(txtLTFDD.Text) + Val(txtLFDD.Text)
txtsubtotaldd.Text = Val(txtamountdd.Text) + Val(txtLTFDD.Text) + Val(txtLFDD.Text)
End Sub
Private Sub txtLTFCH_LostFocus()
txtsubTotalCH.Text = Val(txtamountch.Text) + Val(txtddcom.Text) + Val(txtLTFCH.Text)
TxtTotalAmtCH.Text = Val(txtamountch.Text) + Val(txtddcom.Text) + Val(txtLTFCH.Text)
End Sub
Private Sub txtLTFCS_LostFocus()
txtsubtotalcs.Text = Val(txtfamtcs.Text) + Val(txtddexcs.Text) + Val(txtLTFCS.Text)
txtTotalAmtCS.Text = Val(txtfamtcs.Text) + Val(txtddexcs.Text) + Val(txtLTFCS.Text)
End Sub
Private Sub txtLTFDD_LostFocus()
txtTotalAmtDD.Text = Val(txtamountdd.Text) + Val(txtLTFDD.Text)
txtsubtotaldd.Text = Val(txtamountdd.Text) + Val(txtLTFDD.Text)
End Sub
Sub wordfun()
s = NumberToString(txtTotalAmtDD.Text)
s = "(" + s + " only)"
MsgBox (s)
End Sub
Private Sub txtmrnoch_Lostfocus()
If txtmrnoch.Text = "" Then
MsgBox "First you enter MRNo."
txtmrnoch.SetFocus
Else
Dim mrch As New ADODB.Recordset
If mrch.State = adStateOpen Then
mrch.Close
End If
mrch.Open "Select Adf_mrno from tbl_Admission_Fee where Adf_mrno='" & txtmrnoch.Text &
"'", con, adOpenDynamic, adLockOptimistic
'While mrch.EOF = False
If mrch.EOF And mrch.BOF Then
Exit Sub
End If
If mrch(0).VALUE = txtmrnoch.Text Then
MsgBox ("MRNo. already exist")
'txtmrnodd.Text = ""
txtmrnoch.Text = ""
txtmrnoch.SetFocus
End If
'mrch.MOVENEXT
'Wend
End If
End Sub
Private Sub txtmrnoch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

Single)
If optuniv.VALUE = False And opttu.VALUE = False Then
MsgBox ("Select payment mode")
ElseIf chkfullpmt.VALUE = 0 And chkinstpmt.VALUE = 0 Then
MsgBox ("Select fullpayment or installment")
End If
End Sub
Private Sub txtmrnocs_LostFocus()
'If txtmrnocs.Text = "" Then
'MsgBox ("First yooou enter mrno")
'txtmrnocs.SetFocus
'Else
'Dim mrch As New ADODB.Recordset
'If mrch.State = adStateOpen Then
' mrch.Close
'End If
'mrch.Open "Select Adf_mrno from tbl_Admission_Fee where Adf_mrno='" & txtmrnocs.Text &
''While mrch.EOF = False
'If mrch.EOF And mrch.BOF Then
'Exit Sub
'End If
'If mrch(0).VALUE = txtmrnocs.Text Then
'MsgBox ("MRNo. already exist")
''txtmrnoch.Text = ""
'txtmrnocs.Text = ""
'txtmrnocs.SetFocus
'End If
''mrch.MOVENEXT
''Wend
'End If
End Sub
Private Sub txtmrnocs_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As

Single)

End If
End Sub
Private Sub txtmrnodd_LostFocus()
If txtmrnodd.Text = "" Then
MsgBox "First you enter MRNo."
txtmrnodd.SetFocus
Else
Dim mrch As New ADODB.Recordset
If mrch.State = adStateOpen Then
mrch.Close
End If
mrch.Open "Select Adf_mrno from tbl_Admission_Fee where Adf_mrno='" & txtmrnodd.Text &
'While mrch.EOF = False
If mrch.EOF And mrch.BOF Then
Else
If Trim(mrch(0).VALUE) = Trim(txtmrnodd.Text) Then
MsgBox ("MRNo. already exist")
txtmrnodd.Text = ""
txtmrnodd.SetFocus
'txtmrnocs.Text = ""
End If
End If
'mrch.MOVENEXT
'Wend
End If
End Sub
Private Sub txtmrnodd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

Single)

End If
End Sub
Campus Entry Form
Source Code
Dim ar As New ADODB.Recordset
Dim cmp As New ADODB.Recordset
Dim mln, frmname, str, ctr, ctr1
Private Sub cmdadd_Click()
Call clear
If cmdadd.Caption = "Add" Then
cmdadd.Caption = "Cancel"
Call Enable
rs.Close
End If
rs.Open "select *from tbl_place_company", con, adOpenDynamic, adLockOptimistic
Dim dt
dt = Date
txtcompus_no.Text = Right(dt, 2)
txtcompus_no.Text = txtcompus_no.Text & "00" & 1
'str = txtcompus_no.Text
'txtcompus_no.Text = str
frmCampus_form.txtcid.Text = "C" & "00" & 1
Exit Sub
Else
rs.Close
End If
rs.Open "select *from tbl_place_company order by comps_auto_no", con, adOpenDynamic, adLockOptimistic
rs.MoveLast
str = Val((rs.Fields("comps_auto_no").VALUE)) + 1
txtcompus_no.Text = str
rs.Close
End If
rs.Open "select *from tbl_place_company order by Company_id", con, adOpenDynamic, adLockOptimistic
rs.MoveLast
If Mid((rs.Fields("Company_id").VALUE), 2) < 9 Then
frmCampus_form.txtcid.Text = "C" & "00" & Mid((rs.Fields("Company_id").VALUE), 2) + 1
ElseIf Mid((rs.Fields("Company_id").VALUE), 2) >= 9 Then
frmCampus_form.txtcid.Text = "C" & "0" & Mid((rs.Fields("Company_id").VALUE), 2) + 1
ElseIf Mid((rs.Fields("Company_id").VALUE), 2) > 99 Then
frmCampus_form.txtcid.Text = "C" & Mid((rs.Fields("Company_id").VALUE), 2) + 1
ElseIf Mid((rs.Fields("Company_id").VALUE), 2) > 999 Then
frmCampus_form.txtcid.Text = "C" & Mid((rs.Fields("Company_id").VALUE), 2) + 1

End If
End If
Else
cmdadd.Caption = "Add"
Call clear
Call disable
End If
End Sub
Private Sub cmdmod_Click()
rs.Close
End If
rs.Open "select *from tbl_place_company where trim(comps_auto_no)='" & Trim(txtcompus_no.Text) & "'",
Call updt
Call disable
End Sub
Call save
Call cplist
End Sub
Call setdatabase
con.Open datastr
str = 0
dtpdate.VALUE = Date
Call cplist
Call disable
End Sub
Public Sub clear()

txtcid.Text = ""
txtcompus_no.Text = ""
txtcomp_name.Text = ""
txtcpos1.Text = ""
txtcpos2.Text = ""
txtcposno1.Text = ""
txtcposno2.Text = ""
txtpos1.Text = ""
txtpos2.Text = ""
txtpos3.Text = ""
txter1.Text = ""
txter2.Text = ""
txter3.Text = ""
txter4.Text = ""
txter5.Text = ""
txter6.Text = ""
txter1a.Text = ""
txter1b.Text = ""
txter1c.Text = ""
txter1d.Text = ""
txter1e.Text = ""
txter1f.Text = ""
txter1aa.Text = ""
txter1bb.Text = ""
txter1cc.Text = ""
txter1dd.Text = ""
txter1ee.Text = ""
txter1ff.Text = ""
comstatus.Text = ""
End Sub
Private Sub lst1_Click()
If lst1.ListItems.count = 0 Then
Exit Sub
End If
txtcid.Text = lst1.SelectedItem.Text
txtcomp_name.Text = lst1.SelectedItem.SubItems(1)
End Sub
Call Enable
txtcompus_no.Text = LST2.SelectedItem.Text
txtcid.Text = LST2.SelectedItem.SubItems(1)
txtcomp_name.Text = LST2.SelectedItem.SubItems(2)
dtpdate.VALUE = LST2.SelectedItem.ListSubItems(3)
txtcpos1.Text = LST2.SelectedItem.SubItems(4)
txtcpos2.Text = LST2.SelectedItem.SubItems(5)
txtcposno1.Text = LST2.SelectedItem.SubItems(6)
txtcposno1.Text = LST2.SelectedItem.SubItems(7)
txtpos1.Text = LST2.SelectedItem.SubItems(8)
txter1.Text = LST2.SelectedItem.SubItems(9)
txter1a.Text = LST2.SelectedItem.SubItems(16)
txter1b.Text = LST2.SelectedItem.SubItems(17)
txter1c.Text = LST2.SelectedItem.SubItems(18)
txter1d.Text = LST2.SelectedItem.SubItems(19)
txter1e.Text = LST2.SelectedItem.SubItems(20)
txter1f.Text = LST2.SelectedItem.SubItems(21)
txter1aa.Text = LST2.SelectedItem.SubItems(23)
txter1bb.Text = LST2.SelectedItem.SubItems(24)
txter1cc.Text = LST2.SelectedItem.SubItems(25)
txter1dd.Text = LST2.SelectedItem.SubItems(26)
txter1ee.Text = LST2.SelectedItem.SubItems(27)
txter1ff.Text = LST2.SelectedItem.SubItems(28)
comstatus.Text = LST2.SelectedItem.SubItems(29)
End Sub
Private Sub txtcomp_name_Change()
Dim rsSearch As New ADODB.Recordset
Dim str As String
Dim item As Single
Dim list As ListItem
If IsEmpty(txtcomp_name) Or txtcomp_name = "" Then
Exit Sub
End If
str = "select *from tbl_company_master where trim(company_name) like'" & Trim(txtcomp_name.Text) &
"%'"
If rsSearch.State = adStateOpen Then
rsSearch.Close
End If
rsSearch.Open str, con, adOpenKeyset, adLockPessimistic
If rsSearch.EOF = True Then
If rsSearch.BOF = True Then
End If
Else
If rsSearch.EOF = False Then
rsSearch.MoveFirst
End If
Else
With lst1
.ListItems.clear
While Not rsSearch.EOF
Set list = .ListItems.Add(, , rsSearch(0))
If rsSearch(1) <> "" Then
list.SubItems(1) = rsSearch(1)
Else
list.SubItems(1) = ""
End If
rsSearch.MoveNext
Wend
End With
End If
End If
Dim Counter, c
Counter = 0
For c = 1 To lst1.ListItems.count
Counter = Counter + 1
Next
txttot.Text = Counter
End Sub
Public Sub Enable()
txtcompus_no.Enabled = True
txtcid.Enabled = True
txtcomp_name.Enabled = True
txtcpos1.Enabled = True
txtcpos2.Enabled = True
txtcposno1.Enabled = True
txtcposno2.Enabled = True
txtpos1.Enabled = True
txtpos2.Enabled = True
txter1.Enabled = True
txter1a.Enabled = True
txter1b.Enabled = True
txter1c.Enabled = True
txter1d.Enabled = True
txter1e.Enabled = True
txter1f.Enabled = True
comstatus.Enabled = True
cmdsave.Enabled = True
End Sub
Public Sub disable()
txtcid.Enabled = False
txtcompus_no.Enabled = False
txtcomp_name.Enabled = False
txtcpos1.Enabled = False
txtcpos2.Enabled = False
txtcposno1.Enabled = False
txtcposno2.Enabled = False
txtpos1.Enabled = False
txtpos2.Enabled = False
txter1.Enabled = False
txter1a.Enabled = False
txter1b.Enabled = False
txter1c.Enabled = False
txter1d.Enabled = False
txter1e.Enabled = False
txter1f.Enabled = False
comstatus.Enabled = False
cmdsave.Enabled = False
End Sub
Public Sub cplist()
j = 1
LST2.ListItems.clear
rs.Close
End If
rs.Open "select *from tbl_place_company where type=false", con, adOpenDynamic, adLockOptimistic

With LST2
While rs.EOF = False
If rs(0).VALUE <> "" Then
LST2.ListItems.Add(j) = rs(0).VALUE
End If
LST2.ListItems(j).SubItems(1) = rs(1).VALUE
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
j = j + 1
rs.MoveNext
Wend
End With
End Sub
Public Sub save()
ctr = 0
ctr1 = 0
If cmp.State = adStateOpen Then
cmp.Close
End If
cmp.Open "select *from tbl_company_master", con, adOpenDynamic, adLockOptimistic
If cmp.BOF = False Then cmp.MoveFirst

While cmp.EOF = False
If cmp(1).VALUE <> Trim(txtcomp_name.Text) Then
ctr = 0
Else
ctr1 = 1
End If
cmp.MoveNext
Wend
If ctr1 <> 1 Then
cmp.AddNew
cmp(0).VALUE = Trim(txtcid.Text)
cmp(1).VALUE = Trim(txtcomp_name.Text)
cmp.Update
End If
rs.Close
End If
rs.Open "select *from tbl_place_company", con, adOpenDynamic, adLockOptimistic
rs.AddNew
rs(0).VALUE = Trim(txtcompus_no.Text)
rs(1).VALUE = Trim(txtcid.Text)
rs(2).VALUE = Trim(txtcomp_name.Text)
rs(3).VALUE = dtpdate.VALUE
rs(4).VALUE = Trim(txtcpos1.Text)
rs(6).VALUE = Trim(txtcposno1.Text)
rs(8).VALUE = Trim(txtpos1.Text)
rs(9).VALUE = Trim(txter1.Text)
rs(16).VALUE = Trim(txter1a.Text)
rs(17).VALUE = Trim(txter1b.Text)
rs(18).VALUE = Trim(txter1c.Text)
rs(19).VALUE = Trim(txter1d.Text)
rs(20).VALUE = Trim(txter1e.Text)
rs(21).VALUE = Trim(txter1f.Text)
rs(23).VALUE = Trim(txter1aa.Text)
rs(24).VALUE = Trim(txter1bb.Text)
rs(25).VALUE = Trim(txter1cc.Text)
rs(26).VALUE = Trim(txter1dd.Text)
rs(27).VALUE = Trim(txter1ee.Text)
rs(28).VALUE = Trim(txter1ff.Text)
rs(29).VALUE = Trim(comstatus.Text)
rs(30).VALUE = False
rs.Update
MsgBox ("Record Update")
cmdadd.Caption = "Add"
Call clear
Call disable
End Sub
Public Sub updt()
rs(0).VALUE = Trim(txtcompus_no.Text)
rs(1).VALUE = Trim(txtcid.Text)
rs(2).VALUE = Trim(txtcomp_name.Text)
rs(3).VALUE = dtpdate.VALUE
rs(16).VALUE = Trim(txter1a.Text)
rs(17).VALUE = Trim(txter1b.Text)
rs(18).VALUE = Trim(txter1c.Text)
rs(19).VALUE = Trim(txter1d.Text)
rs(20).VALUE = Trim(txter1e.Text)
rs(21).VALUE = Trim(txter1f.Text)
rs(23).VALUE = Trim(txter1aa.Text)
rs(24).VALUE = Trim(txter1bb.Text)
rs(25).VALUE = Trim(txter1cc.Text)
rs(26).VALUE = Trim(txter1dd.Text)
rs(27).VALUE = Trim(txter1ee.Text)
rs(28).VALUE = Trim(txter1ff.Text)
rs(29).VALUE = Trim(comstatus.Text)
rs.Update
MsgBox ("Record Update")
Call clear
Call cplist
End Sub
Placement Interest Form
Source Code
Dim ba As New ADODB.Recordset
Dim rssession1 As New ADODB.Recordset
Dim rscourse As New ADODB.Recordset
Dim os As New ADODB.Recordset
Dim ca As New ADODB.Recordset
Dim fa As New ADODB.Recordset
Dim cmp As New ADODB.Recordset
Dim cl As New ADODB.Recordset
Dim cm, mx, f, total, j1, f1
Dim str, lw, gw
Dim mln, frmname

Dim cp As New ADODB.Recordset
Private Sub chkall_Click()
Dim k
If chkall.VALUE = 1 Then
For k = 1 To listdetails.ListItems.count
listdetails.ListItems(k).Checked = True
Next
Else
For k = 1 To listdetails.ListItems.count
listdetails.ListItems(k).Checked = False
Next
End If
End Sub
Private Sub cmdenr_Click()
frmcomp_ser.Show
End Sub
Private Sub cmdnxt_Click()
Unload Me
frm_compus_attendence.Show
End Sub
Private Sub cmdok_Click()
lst.ListItems.clear
If chk1.VALUE = 1 And chk2.VALUE = 0 And chk3.VALUE = 0 Then
j=1
str = "select *from tbl_batch_allow where trim(Crs_CourseID)='" & Trim(txtcourse.Text) & "'"
rsSearch.Close
End If
rsSearch.Open str, con, adOpenDynamic, adLockOptimistic
If rsSearch.BOF = False Then rsSearch.MoveFirst
If rsSearch.BOF And rsSearch.EOF Then
MsgBox ("Not Found")
Exit Sub
End If
rsSearch.MoveFirst
While rsSearch.EOF = False
If rsSearch(0).VALUE <> "" Then
listdetails.ListItems.Add(j) = rsSearch(0).VALUE
End If
listdetails.ListItems(j).SubItems(1) = rsSearch(1).VALUE
End If
End If
End If
End If
End If
End If

End If
End If
End If
End If
End If
End If
j=j+1
rsSearch.MoveNext
Wend
txttot.Text = j - 1
Exit Sub
End If
'**********************
j=1
str = "select *from tbl_batch_allow where trim(crs_semester)='" & Trim(txtsem.Text) & "'"
rsSearch.Close
End If
Exit Sub
Else
rsSearch.MoveFirst
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
j=j+1
rsSearch.MoveNext
Wend
txttot.Text = j - 1
Exit Sub
End If
End If
'*******************************
'MsgBox ("Select course and semster first")
'Exit Sub
'Else
j=1
str = "select *from tbl_batch_allow where trim(std_session)= '" & Trim(combsession.Text) & "'"
rsSearch.Close
End If
Exit Sub
Else
rsSearch.MoveFirst
End If
End If
End If
End If
End If
End If

End If
End If
End If
End If
End If
End If
End If
j=j+1
rsSearch.MoveNext
Wend
txttot.Text = j - 1
Exit Sub
End If
End If
'*******************************
'*********course with sem***************
j=1
str = "select *from tbl_batch_allow where trim(Crs_CourseID)='" & Trim(txtcourse.Text) & "'and trim(crs_semester)='"
& Trim(txtsem.Text) & "'"
rsSearch.Close
End If
Exit Sub
Else
rsSearch.MoveFirst
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
j=j+1
rsSearch.MoveNext
Wend
txttot.Text = j - 1
Exit Sub
End If
End If
'****************************************
'***********coursw with session**********8

'MsgBox ("Select course and semster first")
'Exit Sub
'Else
j=1
str = "select *from tbl_batch_allow where trim(Crs_CourseID)='" & Trim(txtcourse.Text) & "'and trim(std_session)= '" &
Trim(combsession.Text) & "'"
rsSearch.Close
End If
Exit Sub
Else
rsSearch.MoveFirst
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
j=j+1
rsSearch.MoveNext
Wend
txttot.Text = j - 1
Exit Sub
End If
End If
'********************************************
MsgBox ("Select the option at first")
Exit Sub
Else
j=1
str = "select *from tbl_batch_allow where trim(Crs_CourseID)='" & Trim(txtcourse.Text) & "'and trim(crs_semester)='"
& Trim(txtsem.Text) & "'and trim(std_session)= '" & Trim(combsession.Text) & "'"
rsSearch.Close
End If
Exit Sub
Else
rsSearch.MoveFirst
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
j=j+1
rsSearch.MoveNext
Wend
txttot.Text = j - 1
Exit Sub
End If
End If
End Sub
Private Sub cmdost_Click()
frmoside.Show
End Sub
Private Sub cmdsv_Click()
If combdata.Text = "" Then
MsgBox ("Select whether you are submit bio data or not")
Exit Sub
End If
If listdetails.ListItems.count = 0 Then
MsgBox ("No record to save")
Exit Sub
End If
lst.ListItems.clear
If com_name.Text = "Select company name" Then
MsgBox ("Select company name at first")
Exit Sub
End If
If cmp.State = adStateOpen Then
cmp.Close
End If
cmp.Open "select *from tbl_place_company where trim(com_name)='" & Trim(com_name.Text) & "' and
trim(com_date)='" & Trim(txtdate.VALUE) & "' and type=false", con, adOpenDynamic, adLockOptimistic
If cmp.BOF = False Then cmp.MoveFirst
If cmp.BOF And cmp.EOF Then
MsgBox ("Company name or Interview date is invalied please check it")
Exit Sub
Else
'txtcampus_no.Text = cmp(0).VALUE
End If
Call id
j=1
j1 = 1
If listdetails.ListItems.count <> 0 Then
For j = j To listdetails.ListItems.count
If listdetails.ListItems(j).Checked = True Then
If listdetails.SelectedItem.SubItems(1) <> "" Then
str = listdetails.SelectedItem.SubItems(1)
If cp.State = adStateOpen Then
cp.Close
End If
cp.Open "select *from tbl_interested_student where trim(std_roll)='" & (str) & "'and trim(cumpus_no)='" &
Trim(txtcno.Text) & "'", con, adOpenDynamic, adLockOptimistic
If cp.BOF = False Then cp.MoveFirst
If cp.BOF And cp.EOF Then
cp.Close
End If
cp.Open "select *from tbl_interested_student", con, adOpenDynamic, adLockOptimistic
cp.AddNew
cp.Fields(0) = Trim(txtcno.Text)
cp.Fields(1) = lst.ListItems(j1).Text
cp.Fields(2) = listdetails.ListItems(j).Text
cp.Fields(3) = listdetails.ListItems(j).SubItems(1)
cp.Fields(13) = True
cp.Fields(14) = Trim(com_name.Text)
cp.Fields(15) = txtdate.VALUE
If combdata.Text = "Submit" Then
cp(16).VALUE = True
Else
cp(16).VALUE = False
End If
cp.Fields(17) = False
cp.Update
Else
'***********8
cp.Close
End If
cp(16).VALUE = True
Else
End If
cp.Update
'**************
End If
Else
str = listdetails.SelectedItem.Text
cp.Close
End If
cp.Close
End If
cp.AddNew
cp(16).VALUE = True
Else
End If
cp.Update
Else
'***********8
cp.Close
End If

cp(16).VALUE = True
Else
End If
cp.Update
'**************
End If
End If
j1 = j1 + 1
Else
End If
Next
MsgBox ("Records Update")
Call clear
com_name.Text = "Select company name"
Else
MsgBox ("No record display")
Exit Sub
End If
End Sub
Private Sub com_name_LostFocus()
Call back
End Sub
f=0
total = 0
cm = 0
mx = 0
j=0
Call setdatabase
con.Open datastr
'*************************
com_name.clear
txtdate.VALUE = Date
lst.ListItems.clear
If cl.State = adStateOpen Then
cl.Close
End If
cl.Open "select * from tbl_place_company where type=false", con, adOpenDynamic, adLockOptimistic
While cl.EOF = False
com_name.AddItem cl(2)
cl.MoveNext
Wend
com_name.Text = "Select company name"
If rssession1.State = adStateOpen Then
rssession1.Close
End If
rssession1.Open "select * from tbl_Session order by crs_sessiondate desc", con, adOpenDynamic, adLockOptimistic
While rssession1.EOF = False
combsession.AddItem rssession1(0)
rssession1.MoveNext
Wend
j1 = 1
'*************************
If rscourse.State = adStateOpen Then
rscourse.Close
End If
rscourse.Open "select * from tbl_Course_Master", con, adOpenDynamic, adLockOptimistic
While rscourse.EOF = False
txtcourse.AddItem rscourse(2)
rscourse.MoveNext
Wend
'********************8
If ba.State = adStateOpen Then
ba.Close
End If
ba.Open "select *from tbl_batch_allow", con, adOpenDynamic, adLockOptimistic
If ba.BOF = False Then ba.MoveFirst
While Not ba.EOF
cm = (cm + 1)
ba.MoveNext
Wend
'MsgBox cm
rs.Close
End If
rs.Open "select *from qur_batch_allo", con, adOpenDynamic, adLockOptimistic
While Not rs.EOF
mx = (mx + 1)
rs.MoveNext
Wend
'MsgBox (mx)
If fa.State = adStateOpen Then
fa.Close
End If
fa.Open "select *from qur_fresh_addmission", con, adOpenDynamic, adLockOptimistic
If fa.BOF = False Then fa.MoveFirst
While Not fa.EOF
f = (f + 1)
fa.MoveNext
Wend
If os.State = adStateOpen Then
os.Close
End If
os.Open "select *from qur_outsider_std", con, adOpenDynamic, adLockOptimistic
If os.BOF = False Then os.MoveFirst
While Not os.EOF
f1 = (f1 + 1)
os.MoveNext
Wend
'MsgBox (f)
total = (mx + f + f1)
'MsgBox (total)
If cm = total Then
'MsgBox ("dd")
Exit Sub
Else
ba.Close
End If
ba.Open "delete *from tbl_batch_allow", con, adOpenDynamic, adLockOptimistic
ba.Close
End If
ba.Open "select *from tbl_batch_allow", con, adOpenDynamic, adLockOptimistic
rs.Close
End If
rs.Open "select *from qur_batch_allo", con, adOpenDynamic, adLockOptimistic
While Not rs.EOF
ba.AddNew
ba.Fields(0) = rs.Fields(0)
ba.Fields(6) = False
ba.Fields(7) = ""
rs.MoveNext
Wend
ba.Update
End If
If fa.State = adStateOpen Then
fa.Close
End If
fa.Open "select *from qur_fresh_addmission", con, adOpenDynamic, adLockOptimistic
If fa.BOF = False Then fa.MoveFirst
While Not fa.EOF
ba.AddNew
ba.Fields(0) = fa.Fields(0)
ba.Fields(1) = ""
ba.Fields(6) = False
ba.Fields(7) = ""
fa.MoveNext
Wend
ba.Update
'**************
If os.State = adStateOpen Then
os.Close
End If
os.Open "select *from qur_outsider_std", con, adOpenDynamic, adLockOptimistic
If os.BOF = False Then os.MoveFirst
While Not os.EOF
ba.AddNew
ba.Fields(0) = "0"
ba.Fields(1) = os.Fields(0)
os.MoveNext
Wend
ba.Update
'***********************
txtid1.Visible = False
txtdate.VALUE = Date
End Sub
Private Sub Frame8_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
If listdetails.SelectedItem.Checked = False Then
listdetails.SelectedItem.Checked = True
Else
listdetails.SelectedItem.Checked = False
End If
End Sub
Private Sub Timer1_Timer()
frmname = " Placement Interest form"
If mln > 25 Then mln = 2 Else mln = mln + 1
frmStd_inter.Caption = Left(frmname, mln)
End Sub
Private Sub txtcid_Change()
'txtcno.Enabled = False
'txtcid.Enabled = True
'Call clear2
Dim item As Single
If IsEmpty(txtcid) Or txtcid = "" Then
'Call clear2
Exit Sub
End If
str = "select *from tbl_place_company where trim(Company_id) like'" & Trim(txtcid.Text) & "%'and type=false"
rsSearch.Close
End If
If rsSearch.EOF = True And rsSearch.BOF = True Then
Exit Sub
End If
txtcno.Text = rsSearch(0).VALUE
com_name.Text = rsSearch(2).VALUE
txtdate.VALUE = rsSearch(3).VALUE
rsSearch.MoveNext
Wend
End Sub
Private Sub txtcno_Change()
type=false"
'If rsSearch.State = adStateOpen Then
'rsSearch.Close
'End If
'rsSearch.Open str, con, adOpenKeyset, adLockPessimistic
'If rsSearch.EOF = True And rsSearch.BOF = True Then
'MsgBox ("this companay is not comming")
'Exit Sub
'End If
'If rsSearch.BOF = False Then rsSearch.MoveFirst
'While rsSearch.EOF = False
'txtcid.Text = rsSearch(1).VALUE
' com_name.Text = rsSearch(2).VALUE
' txtdate.VALUE = rsSearch(3).VALUE
' rsSearch.MOVENEXT
'Wend
End Sub
Private Sub txtdate_LostFocus()
Call back
End Sub
Private Sub txtid1_Click()
txtcid.Visible = True
End Sub
Private Sub TXTNAME_Change()

lst.ListItems.clear
Dim item As Single
If IsEmpty(txtname) Or txtname = "" Then
Exit Sub
End If
str = "select *from tbl_batch_allow where trim(std_name) like'" & Trim(txtname.Text) & "%'"
rsSearch.Close
End If
End If
Else
rsSearch.MoveFirst
End If
Else
With listdetails
End If
End If

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
rsSearch.MoveNext
Wend
End With
End If
End If
Dim Counter, c
Counter = 0
For c = 1 To listdetails.ListItems.count
Next
txttot.Text = Counter - 1
End Sub
Private Sub txtroll_Change()
lst.ListItems.clear
If chk1.VALUE = 1 And chk2.VALUE = 0 Then
MsgBox ("Diselect course at first")
Exit Sub
ElseIf chk2.VALUE = 1 And chk1.VALUE = 0 Then
MsgBox ("Diselect Sem at first")
Exit Sub
MsgBox ("Diselect Course and Sem at first")
Exit Sub
End If
Dim item As Single
If IsEmpty(txtroll) Or txtroll = "" Then
Exit Sub
End If
str = "select *from tbl_batch_allow where trim(std_RollNo) like'" & Trim(txtroll.Text) & "%'"
rsSearch.Close
End If
End If
Else
rsSearch.MoveFirst
End If
Else
With listdetails
.ListItems.clear
End If
End If
End If
End If
End If

End If
End If
End If
End If
End If
End If
End If
rsSearch.MoveNext
Wend
End With
End If
End If
Dim Counter, c
Counter = 0
For c = 1 To listdetails.ListItems.count
Next
txttot.Text = Counter - 1
End Sub
Public Sub clear()
txtroll.Text = ""
txtname.Text = ""
chk1.VALUE = 0
chk2.VALUE = 0
chkall.VALUE = 0
txtcid.Text = ""
combsession.Text = ""
chk3.VALUE = 0
txttot.Text = ""
combdata.Text = ""
End Sub
Public Sub back()
txtcid.Visible = False
txtid1.Visible = True
If cl.State = adStateOpen Then
cl.Close
End If
cl.Open "select * from tbl_place_company where trim(com_name)='" & Trim(com_name.Text) & "'and type= false", con,
If cl.BOF = False Then cl.MoveFirst
If cl.BOF And cl.EOF Then
'MsgBox ("No record found")
Exit Sub
End If
While cl.EOF = False
txtcno.Text = cl(0).VALUE
txtid1.Text = cl(1).VALUE
txtdate.VALUE = cl(3).VALUE
cl.MoveNext
Wend
End Sub
Public Sub id()
j=1
cp.Close
End If
With lst
j1 = 1
If j1 <= 9 Then
.ListItems.Add(j1) = "i" & 0 & 0 & 0 & 0 & j1
ElseIf j1 > 9 And j1 <= 99 Then
.ListItems.Add(j1) = "i" & 0 & 0 & 0 & j1
.ListItems.Add(j1) = "i" & 0 & 0 & j1
.ListItems.Add(j1) = "i" & 0 & j1
.ListItems.Add(j1) = "i" & j1
ElseIf j1 > 99999 Then
.ListItems.Add(j1) = "i" & j1 + 1
End If
j1 = j1 + 1
Else
End If
Next
End With
'MsgBox ("deepak")
Exit Sub
Else
lst.ListItems.clear
j1 = 1
j=1
cp.Close
End If
cp.Open "select *from tbl_interested_student order by Interview_id", con, adOpenDynamic, adLockOptimistic
If cp.EOF = False Then cp.MoveLast
str = (Mid(Trim(cp(1).VALUE), 2))
With lst
If str > 0 And str < 9 Then
str = str + 1
.ListItems.Add(j1) = "i" & 0 & 0 & 0 & 0 & str
ElseIf str >= 9 And str < 99 Then
str = str + 1
.ListItems.Add(j1) = "i" & 0 & 0 & 0 & str
str = str + 1
.ListItems.Add(j1) = "i" & 0 & 0 & str
ElseIf str >= 999 And str <= 9999 Then
str = str + 1
.ListItems.Add(j1) = "i" & 0 & str
str = str + 1
.ListItems.Add(j1) = "i" & str

ElseIf str >= 99999 Then
.ListItems.Add(j1) = "i" & str + 1
End If
j1 = j1 + 1
End If
Next
End With
'chkall.VALUE = 0
Exit Sub
End If
End Sub
Company for Campus

Source code
Dim bat As New ADODB.Recordset
Dim rscourse As New ADODB.Recordset
Dim tmp As New ADODB.Recordset
Dim rsfin As New ADODB.Recordset
Dim rssession1 As New ADODB.Recordset
Dim cl As New ADODB.Recordset
Dim fa As New ADODB.Recordset
Dim rsSearch1 As New ADODB.Recordset
Dim irst As New ADODB.Recordset
Dim ar As New ADODB.Recordset
Dim ba As New ADODB.Recordset
Dim cp As New ADODB.Recordset
Dim j, str
Dim k
Private Sub Check1_Click()
If chkall.VALUE = 1 Then
For k = 1 To lst2.ListItems.count
lst2.ListItems(k).Checked = True
Next
Else
For k = 1 To lst2.ListItems.count
lst2.ListItems(k).Checked = False
Next
End If
End Sub
Private Sub chka1_Click()
End Sub
Private Sub cmdbk_Click()
frmStd_inter.Show
End Sub
Private Sub cmdok_Click()
txtsearch1.Text = ""
txtsearch.Text = ""
Call data
End Sub
Private Sub cmds_Click()
If txtcno.Text = "" Then
MsgBox ("select company name at first")
Exit Sub
End If
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(Interview_id)='" & Trim(txtid.Text) & " 'and
trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true", con, adOpenDynamic, adLockOptimistic
MsgBox ("This student did not fill interest form")
Exit Sub
End If
rsSearch(16).VALUE = True
rsSearch.Update
Call res
txtid.Text = ""
End Sub
Private Sub cmdsub_Click()
'**********************************
MsgBox ("No record display for present student")
Exit Sub
End If
j=1
For j = j To lst3.ListItems.count
If lst3.ListItems(j).SubItems(3) <> "" Then
str = lst3.ListItems(j).SubItems(3)
rs1.Close
End If
rs1.Open "select *from tbl_interested_student where trim(std_roll)='" & (str) & "'", con, adOpenDynamic,
adLockOptimistic

Exit Sub
End If
rs1(20).VALUE = True
rs1.Update
Else
str = lst3.ListItems(j).SubItems(2)
rs1.Close
End If
rs1.Open "select *from tbl_interested_student where trim(app_no)='" & (str) & "'", con, adOpenDynamic,
adLockOptimistic
Exit Sub
End If
rs1.Update
End If
Next
txtsearch.Text = ""
txtid.Text = ""
chk1.VALUE = 0
chk2.VALUE = 0
chk3.VALUE = 0
txtcourse.Text = ""
txtsem.Text = ""
frmlist_in.Caption = ""
frmlist_in.Caption = frmlist_in.Caption & " " & "(List of interested student :"
listof_pre.Caption = ""
listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student :"
frmattend.Caption = ""
frmattend.Caption = frmattend.Caption & " " & "(List of all attended student:"
listof_select.Caption = ""
listof_select.Caption = "(List of all selected student :"
'***********************************
rs1.Close
End If
rs1.Open "select *from tbl_place_company where trim(comps_auto_no)='" & Trim(txtcno.Text) & "' ", con,
rs1(2).VALUE = Trim(txtcname.Text)
rs1(3).VALUE = DTPdate.VALUE
rs1(29).VALUE = "Held"
rs1.Update
'Call list2
MsgBox ("records update")
End Sub
Call setdatabase
con.Open datastr
Dim cm, mx, f, total
cm = 0
f=0
mx = 0
If rscourse.State = adStateOpen Then

rscourse.Close
End If
rscourse.Open "select * from tbl_Course_Master", con, adOpenDynamic, adLockOptimistic
While rscourse.EOF = False
txtcourse.AddItem rscourse(2)
rscourse.MoveNext
Wend
If tmp.State = adStateOpen Then
tmp.Close
End If
tmp.Open "delete *from tbl_std_selection_tbl", con, adOpenDynamic, adLockOptimistic
Dim j
j=1
If rssession1.State = adStateOpen Then
rssession1.Close
End If
rssession1.Open "select * from tbl_Session order by crs_sessiondate desc", con, adOpenDynamic, adLockOptimistic
While rssession1.EOF = False
combsession.AddItem rssession1(0)
rssession1.MoveNext
Wend
DTPdate.VALUE = Date
End Sub
Private Sub TXTNAME_Change()
Dim item As Single
If IsEmpty(txtname) Or txtname = "" Then
ls1.ListItems.clear
Exit Sub
End If
str = "select *from tbl_batch_allow where trim(std_name) like'" & Trim(txtname.Text) & "%'"
rsSearch.Close
End If
End If
Else
rsSearch.MoveFirst
End If
Else
With ls1
.ListItems.clear
Else
End If
Else
End If
Else
End If
Else
End If
''If rsSearch(5) <> "" Then
''list.SubItems(5) = rsSearch(5)
''End If
rsSearch.MoveNext
Wend
End With
End If
End If
Dim Counter, c
Counter = 0
For c = 1 To ls1.ListItems.count
Next
txttot.Text = Counter
End Sub
Private Sub lblbiodata_Click()
Dim EX As New Application
Dim Book As Workbook
Dim Sheet As Worksheet

Set EX = CreateObject("Excel.Application")
Set Book = EX.Workbooks.Add
Set Sheet = Book.Sheets(1)
With Sheet
EX.Cells(1, 1) = "App_No"
EX.Cells(1, 2) = "Interview Id"
EX.Cells(1, 3) = "Roll No"
EX.Cells(1, 4) = "Name"
EX.Cells(1, 5) = "F'name"
EX.Cells(1, 6) = "Course"
EX.Cells(1, 7) = "Semester"
EX.Cells(1, 8) = "Session"
EX.Cells(1, 9) = "Mobile1"
i=1
For i = i To listdetails.ListItems.count
EX.Cells(i + 1, 1) = listdetails.ListItems(i).SubItems(1)
Next
EX.Visible = True
Sheet.Columns.Cells.ColumnWidth = 12
Sheet.Activate
End With
End Sub
Private Sub lblprn_Click()
Call prn1
End Sub
Private Sub lblprn1_Click()
With Sheet
i=1
For i = i To lst2.ListItems.count
EX.Cells(i + 1, 1) = lst2.ListItems(i).SubItems(3)
Next
EX.Visible = True
Sheet.Activate
End With
End Sub
With Sheet
i=1
Next
EX.Visible = True
Sheet.Activate
End With
End Sub
With Sheet
i=1
Next
EX.Visible = True
Sheet.Activate
End With
End Sub

With Sheet
i=1
Next
EX.Visible = True
Sheet.Activate
End With
End Sub
If listdetails.ListItems.count = 0 Then
Exit Sub
End If
Dim eno
If listdetails.SelectedItem.Checked = True Then
eno = listdetails.SelectedItem.SubItems(4)
If MsgBox(Space(5) & "You have to diselect" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then
Call res1
Else
Exit Sub
End If
Else
eno = listdetails.SelectedItem.SubItems(4)
If MsgBox(Space(5) & " " & (eno) & "You have to submit bio data", vbYesNo, "O.A. System") = vbYes Then
Call res
Else
Exit Sub
End If
End If
End Sub

Exit Sub
Else
Dim ctr
ctr = lst1.SelectedItem.SubItems(1)
str = "select * from tbl_place_company where trim(comps_auto_no)= '" & ctr & "'"
If rsSearch1.State = adStateOpen Then
rsSearch1.Close
End If
rsSearch1.Open str, con, adOpenKeyset, adLockPessimistic
If rsSearch1.BOF = False Then rsSearch1.MoveFirst
With rsSearch1
If rsSearch1.Fields(0) <> "" Then
txtcno.Text = ctr
End If
txtcid.Text = .Fields(1).VALUE
End If
txtcname.Text = .Fields(2).VALUE
End If
'Text1.Text = .Fields(3).VALUE
DTPdate.VALUE = .Fields(3).VALUE
End If
End With
Exit Sub
End If
End Sub
Exit Sub
End If
Dim eno
If lst2.SelectedItem.Checked = True Then
lst2.SelectedItem.Checked = False
eno = lst2.SelectedItem.SubItems(5)
Call res3
Else
lst2.SelectedItem.Checked = True
Exit Sub
End If
Else
If MsgBox(Space(5) & "You have to select" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then
Call res2
Else
Exit Sub
End If
End If
End Sub
Private Sub lst4_click()
Exit Sub
End If
Dim eno
Call res7
Else
Exit Sub
End If
Else
Call res6
Else
Exit Sub
End If
End If
End Sub
Exit Sub
End If
Exit Sub
End If
Dim eno
Call res5
Else
Exit Sub
End If
Else
Call res4
Else
Exit Sub
End If
End If
End Sub
'Dim eno
'If lst7.SelectedItem.Checked = True Then
'eno = lst7.SelectedItem.SubItems(4)
'If MsgBox(Space(5) & "You have to diselect" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then
'Call res
'Else
'Exit Sub
'End If
'Else
'eno = lst7.SelectedItem.SubItems(4)
'If MsgBox(Space(5) & "You have to select" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then
'Call res
'Else
'Exit Sub
' End If
' End If
End Sub
Exit Sub
End If
Dim eno
Call res7a
Else
Exit Sub
End If
Else
Call res6a
Else
Exit Sub
End If
End If
End Sub
Private Sub txtcid_Change()

Dim item As Single
If IsEmpty(txtcid) Or txtcid = "" Then
Exit Sub
End If
str = "select *from tbl_place_company where trim(Company_id) like'" & Trim(txtcid.Text) & "%'and type=false"
rsSearch.Close
End If
End If
Else
rsSearch.MoveFirst
End If
Else
With lst1
.ListItems.clear
j=1
.ListItems.Add(j) = j
.ListItems(j).SubItems(1) = (rsSearch(0))
End If
.ListItems(j).SubItems(2) = rsSearch(1)
Else
.ListItems(j).SubItems(2) = ""
End If
Else
End If
Else
End If
rsSearch.MoveNext
Wend
End With
End If
End If
End Sub
Private Sub txtcname_Change()
Dim item As Single
If IsEmpty(txtcname) Or txtcname = "" Then
Exit Sub
End If
str = "select *from tbl_place_company where trim(com_name) like'" & Trim(txtcname.Text) & "%'and type=false"

rsSearch.Close
End If
End If
Else
rsSearch.MoveFirst
End If
Else
With lst1
.ListItems.clear
j=1
End If
Else
End If
Else
End If

Else
End If
rsSearch.MoveNext
Wend
End With
End If
End If
End Sub
Private Sub txtcno_Change()
Dim item As Single
If IsEmpty(txtcno) Or txtcno = "" Then
Exit Sub
End If
str = "select *from tbl_place_company where trim(comps_auto_no) like'" & Trim(txtcno.Text) & "%'and type=false"
rsSearch.Close
End If
End If
Else
rsSearch.MoveFirst
End If

Else
With lst1
.ListItems.clear
j=1
End If
Else
End If
Else
End If
Else
End If
rsSearch.MoveNext
Wend
End With
End If
End If
End Sub
Private Sub txtroll_Change()

j=1
Exit Sub
Exit Sub
Exit Sub
ElseIf chk2.VALUE = 0 And chk1.VALUE = 0 And chk3.VALUE = 1 Then
MsgBox ("Diselect session at first")
Exit Sub
MsgBox ("Diselect Course,Sem and session at first")
Exit Sub
End If
Dim item As Single
If IsEmpty(txtroll) Or txtroll = "" Then
Exit Sub
End If
str = "select *from tbl_interested_student where trim(std_roll) like'" & Trim(txtroll.Text) & "%'and trim(cumpus_no)='"
& Trim(txtcno.Text) & " 'and interested=true and submite_cv=false"
rsSearch.Close
End If

With listdetails
.ListItems(j).SubItems(1) = rsSearch(2).VALUE
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
frmstd.Caption = frmstd.Caption & " " & "(List of all interested student without cv :"
frmstd.Caption = frmstd.Caption & " " & j - 1 & ")"
Call l1
End Sub
Private Sub txtsearch_Change()
j=1
Dim item As Single
If IsEmpty(txtsearch) Or txtsearch = "" Then
Exit Sub
End If
str = "select *from tbl_interested_student where trim(std_name) like'" & Trim(txtsearch.Text) & "%'and
trim(cumpus_no)='" & Trim(txtcno.Text) & " ' and interested=true and submite_cv=true"
rsSearch.Close
End If
With lst2
If rsSearch(16).VALUE = True Then
.ListItems(j).SubItems(1) = "Submit"
Else
.ListItems(j).SubItems(1) = "Not Submit"
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmlist_in.Caption = frmlist_in.Caption & " " & "(List of all interested student with cv :"
frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"
End Sub
Private Sub txtsearch1_Change()
j=1
Dim item As Single
If IsEmpty(txtsearch1) Or txtsearch1 = "" Then
Exit Sub
End If
str = "select *from tbl_interested_student where trim(std_name) like'" & Trim(txtsearch1.Text) & "%'and
trim(cumpus_no)='" & Trim(txtcno.Text) & " ' and interested=true and submite_cv=false"
rsSearch.Close
End If
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
'Call la1
End Sub
Public Sub subcv()
j=1
rs.Close
End If
rs.Open "select *from tbl_interested_student where and trim(comp_name)='" & Trim(txtcname.Text) & "'and
trim(compus_date)=#" & Trim(Format(DTPdate.VALUE, "mm/dd/yyyy")) & "# and submite_cv=true ", con,
Exit Sub
End If
With lst4
.ListItems(j).SubItems(1) = rs(1).VALUE
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
rs.MoveNext
j=j+1
End With
Wend
frmattend.Caption = "Attend Student are:" & "" & j - 1
End Sub
Public Sub back()
j=1
k=1
str = lst2.SelectedItem.SubItems(4)
For j = j To lst5.ListItems.count
If str = lst2.ListItems(j).SubItems(4) Then
If lst5.ListItems(j).SubItems(1) = "not submit" Then
If MsgBox(Space(1) & "you have not submited your bio data you have to submit your bio data", vbYesNo, "O.A.
System") = vbYes Then

rs.Close
End If
rs.Open "select *from tbl_interested_student where trim(std_roll)='" & (str) & "'and trim(comp_name)='" &
Trim(txtcname.Text) & "'and trim(compus_date)=#" & Trim(Format(DTPdate.VALUE, "mm/dd/yyyy")) & "# and
interested=true", con, adOpenDynamic, adLockOptimistic
rs(16).VALUE = True
rs.Update
Else
Exit Sub
End If
End If
End If
Next
If lst2.SelectedItem.SubItems(4) <> "" Then
If lst2.SelectedItem.Checked = False Then
rs.Close
End If
rs(19).VALUE = True
rs.Update
Call List4
Else
rs.Close
End If
interested=true ", con, adOpenDynamic, adLockOptimistic
rs.Update
Call List4
Exit Sub
End If
Else
rs.Open "select *from tbl_interested_student where trim(app_no)='" & (str) & "'and trim(comp_name)='" &
rs(19).VALUE = True
rs.Update
Call List4
Exit Sub
Else
rs.Close
End If
rs.Update
Call List4
Exit Sub
End If
End If
End Sub
Public Sub back1()
j=1
k=1
tmp.Close
End If
tmp.Open "select *from tbl_std_selection_tbl", con, adOpenDynamic, adLockOptimistic
If lst5.SelectedItem.SubItems(1) = "not submit" Then
If MsgBox(Space(1) & "you have not submited your bio data you have to submit your bio data", vbYesNo, "O.A.
System") = vbYes Then
rs.Close
End If
rs(16).VALUE = True
rs.Update
Else
Exit Sub
End If
Else
i=1
Dim nm
nm = lst5.SelectedItem.SubItems(5)
If str = lst4.ListItems(i).SubItems(3) Then
MsgBox (nm & " " & " you already atend the interview")
Exit Sub
End If
Next
rs.Close
End If
rs(17).VALUE = True
rs.Update
Else
rs.Close
End If
rs.Update
Exit Sub
End If
Else
rs(17).VALUE = True
rs.Update
Exit Sub
Else
rs.Close
End If
rs.Update
Exit Sub
End If
End If
End If
End Sub
Public Sub link()
tmp.Close
End If
tmp.Open "select *from tbl_std_selection_tbl where type1=true", con, adOpenDynamic, adLockOptimistic
If tmp.BOF = False Then tmp.MoveFirst
k=1
While tmp.EOF = False
lst4.ListItems.Add(k) = k
If tmp(0).VALUE <> "" Then
lst4.ListItems(k).SubItems(1) = tmp(0)
Else
lst4.ListItems(k).SubItems(1) = ""
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
tmp.MoveNext
k=k+1
Wend
frmattend.Caption = frmattend.Caption & " " & k - 1 & ")"
End Sub
Public Sub back2()
j=1
k=1
i=1
Dim nm
nm = lst4.SelectedItem.SubItems(4)
If str = lst3.ListItems(i).SubItems(3) Then
MsgBox (nm & " " & " you already selected")
Exit Sub
End If
Next
tmp.Close
End If
tmp.Open "select *from tbl_std_selection_tbl where trim(roll)='" & (str) & "'", con, adOpenDynamic, adLockOptimistic
tmp(10).VALUE = True
tmp.Update
Call link1
Else
tmp.Close
End If
tmp.Open "select *from tbl_std_selection_tbl where trim(roll)='" & (str) & "'", con, adOpenDynamic, adLockOptimistic
tmp(10).VALUE = False
tmp.Update
Call link1
End If
Else
tmp.Close
End If
tmp.Open "select *from tbl_std_selection_tbl where trim(app_no)='" & (str) & "'", con, adOpenDynamic,
adLockOptimistic
tmp(10).VALUE = True
tmp.Update
Call link1
Else
tmp.Close
End If
tmp.Open "select *from tbl_std_selection_tbl where trim(app_no)='" & (str) & "'", con, adOpenDynamic,
adLockOptimistic
tmp.Update
Call link1
End If
End If
End Sub
Public Sub link1()
tmp.Close
End If
tmp.Open "select *from tbl_std_selection_tbl where type=true", con, adOpenDynamic, adLockOptimistic
k=1
'Call attend
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
tmp.MoveNext
k=k+1
Wend
listof_select.Caption = listof_select.Caption & "" & k - 1 & ")"
End Sub
Public Sub listp()
tmp.Close
End If
k=1
'Call attend
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
tmp.MoveNext
k=k+1
Wend
End Sub
Public Sub listp1()
tmp.Close
End If
k=1
'Call attend
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
tmp.MoveNext
k=k+1
Wend
listof_select.Caption = listof_select.Caption & "" & k - 1 & ")"
End Sub
Public Sub list2()
chkall.VALUE = 0
MsgBox ("h1")
tmp.Close
End If
tmp.Open "select *from tbl_std_selection_tbl", con, adOpenDynamic, adLockOptimistic

j=1
rs.Close
End If
rs.Open "select *from tbl_interested_student where trim(comp_name)='" & Trim(txtcname.Text) & "'and
trim(compus_date)=#" & Trim(Format(DTPdate.VALUE, "mm/dd/yyyy")) & "# and interested=true and
submite_cv=false", con, adOpenDynamic, adLockOptimistic
MsgBox ("Either company name wrong or date is wrong please try again")
Exit Sub
End If
tmp.AddNew
lst2.ListItems(j).SubItems(1) = rs(1).VALUE
tmp(0).VALUE = rs(1).VALUE
Else
lst2.ListItems(j).SubItems(1) = ""
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rs.MoveNext
tmp.Update
Wend
frmlist_in.Caption = "(List of interested student :"
frmlist_in.Caption = frmlist_in.Caption & "" & j - 1 & ")"
End Sub
Public Sub prn1()
With Sheet
i=1
Next
EX.Visible = True
Sheet.Activate
End With
End Sub
Public Sub showall()
j=1
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
rs.MoveNext
Wend
frmlist_in.Caption = "(List of interested student :"
End Sub
Public Sub showall1()
j=1

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
rs.MoveNext
Wend
listof_pre.Caption = listof_pre.Caption & " " & k - 1 & ")"
End Sub
Public Sub showall2()
j=1
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
rs.MoveNext
Wend
End Sub
Public Sub res()
j=1
k=1

rs.Close
End If
rs.Open "select *from tbl_interested_student where trim(std_roll)='" & (str) & "'and trim(cumpus_no)='" &
Trim(txtcno.Text) & "'and interested=true", con, adOpenDynamic, adLockOptimistic
rs(16).VALUE = True
rs.Update
Call data
Else
rs.Close
End If
rs.Open "select *from tbl_interested_student where trim(app_no)='" & (str) & "'and trim(cumpus_no)='" &
Trim(txtcno.Text) & "' and interested=true ", con, adOpenDynamic, adLockOptimistic
rs(16).VALUE = True
rs.Update
Call data
'*****************************************
MsgBox ("Cv submited succesfully")
Exit Sub
End If
End Sub
'Public Sub stdcv()
'If rs.State = adStateOpen Then
'rs.Close
'End If
'rs.Open "select *from tbl_interested_student where trim(comp_name)='" & Trim(txtcname.Text) & "'and
trim(compus_date)=#" & Trim(Format(DTPdate.VALUE, "mm/dd/yyyy")) & "# and interested=true and
'If rs.BOF = False Then rs.MoveFirst
'If rs.BOF And rs.EOF Then
'MsgBox ("Either company name wrong or date is wrong please try again")
'Exit Sub
'End If
'While rs.EOF = False
'tmp.AddNew
'lst2.ListItems.Add(j) = j
'If rs(16).VALUE = True Then
'lst2.ListItems(j).SubItems(1) = "submit"
'tmp(1).VALUE = True
'Else
'lst2.ListItems(j).SubItems(1) = "not submit"
'End If
'If rs(1).VALUE <> "" Then
'lst2.ListItems(j).SubItems(2) = rs(1).VALUE
'tmp(0).VALUE = rs(1).VALUE
'Else
'lst2.ListItems(j).SubItems(2) = ""
'End If
'Else
'End If
'Else
'End If
'Else
'End If
'Else
'End If
'Else
'End If
'Else
'End If
'Else
'End If
'Else
'End If
'tmp(11).VALUE = False
'tmp(12).VALUE = False
'Else
'End If
'j = j + 1
'rs.MOVENEXT
'tmp.Update
'Wend
'frmlist_in.Caption = ""
'frmlist_in.Caption = "(List of interested student :"
'frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"
'Exit Sub
'End If
'End Sub
Public Sub List4()
k=1
rs.Close
End If
rs.Open "select *from tbl_interested_student where trim(std_course)='" & Trim(txtcourse.Text) & "'and
trim(comp_name)='" & Trim(txtcname.Text) & "'and trim(compus_date)=#" & Trim(Format(DTPdate.VALUE,
"mm/dd/yyyy")) & "# and interested=true and submite_cv=true or std_cv=true", con, adOpenDynamic,
adLockOptimistic
If rs(16).VALUE = True Then
lst5.ListItems(k).SubItems(1) = "submit"
Else
lst5.ListItems(k).SubItems(1) = "not submit"
End If
lst5.ListItems(k).SubItems(2) = rs(1)
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
rs.MoveNext
k=k+1
Wend
listof_pre.Caption = listof_pre.Caption & " " & k - 1 & ")"
End Sub
Public Sub c1()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(cumpus_no)='" & Trim(txtcno.Text) & "' and
interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic
'If rsSearch(17).VALUE = True Then
'lst2.ListItems(j).Checked = True
'Else
'lst2.ListItems(j).Checked = False
'End If
lst2.ListItems(j).SubItems(1) = "Submit"
Else
lst2.ListItems(j).SubItems(1) = "Not Submit"
End If
lst2.ListItems(j).SubItems(2) = rsSearch(1).VALUE
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'**********************************
j=1
rsSearch.Close
End If
interested=true and submite_cv=false", con, adOpenDynamic, adLockOptimistic
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""

'***************
j=1
rsSearch.Close
End If
interested=true and submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic
'Else
'End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"
listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"
'************************************
j=1
rsSearch.Close
End If
interested=true and submite_cv=true and ph_interview=true and attend_interview=true", con, adOpenDynamic,
adLockOptimistic
'Else
'End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
frmattend.Caption = frmattend.Caption & " " & j - 1 & ")"
'***************************
j=1
rsSearch.Close
End If
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and short_list=true and
type=false", con, adOpenDynamic, adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
frmshort_list.Caption = ""
frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"
frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

'******************************
j=1
rsSearch.Close
End If
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and type=true", con,
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
listof_select.Caption = listof_select.Caption & " " & "(List of all Selected student:"
listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"
End Sub
Public Sub c2()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_course)='" & Trim(txtcourse.Text) & "' and
trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and submite_cv=true", con, adOpenDynamic,
adLockOptimistic
'Else
'End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'**********************************
j=1
rsSearch.Close
End If
trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and submite_cv=false", con, adOpenDynamic,
adLockOptimistic

With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
'****************
j=1
rsSearch.Close
End If
trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and submite_cv=true and ph_interview=true", con,
'Else
'End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'************************************
j=1
rsSearch.Close
End If
trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true", con, adOpenDynamic, adLockOptimistic
'Else
'End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'***************************
j=1

rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'******************************
j=1
rsSearch.Close
End If
attend_interview=true and type=true", con, adOpenDynamic, adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
Public Sub c3()
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & "' and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and
submite_cv=true", con, adOpenDynamic, adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
frmlist_in.Caption = "(List of all interested student with cv :"
'**********************************
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_course)='" & Trim(txtcourse.Text) & "'and
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
'************
j=1
rsSearch.Close
End If
submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'************************************
j=1
rsSearch.Close
End If
submite_cv=true and ph_interview=true and attend_interview=true", con, adOpenDynamic, adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'***************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'*****************************
j=1
rsSearch.Close
End If
submite_cv=true and ph_interview=true and attend_interview=true and type=true", con, adOpenDynamic,
adLockOptimistic

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
Public Sub c4()
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & "' and trim(std_session)='" & Trim(combsession.Text) & "' and
adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'**********************************
j=1
rsSearch.Close
End If
adLockOptimistic
With listdetails
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
'*******************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'************************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'***************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'********************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub c5()
j=1
rsSearch.Close
End If
trim(std_session)='" & Trim(combsession.Text) & "' and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and
Else

End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'**********************************
j=1
rsSearch.Close
End If
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
'**********************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'************************************
j=1
rsSearch.Close
End If
adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'***************************
j=1
rsSearch.Close
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'*******************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub res1()
j=1
k=1
rs.Close
End If
Trim(txtcno.Text) & "'and interested=true", con, adOpenDynamic, adLockOptimistic
rs.Update
Else
Trim(txtcno.Text) & "' and interested=true ", con, adOpenDynamic, adLockOptimistic
rs.Update
'*****************************************
Exit Sub
End If
End Sub
Public Sub check()
If chk1.VALUE = 0 And chk2.VALUE = 0 And chk3.VALUE = 0 And txtcno.Text <> "" Then
Call cc1
Exit Sub
End If
'*****************************************
Call cc2
Exit Sub
End If
'************************************
Call cc3
Exit Sub
End If
Call cc6
Exit Sub
End If
Call cc7
Exit Sub
End If
Call cc8
Exit Sub
End If
'**************************
Call cc4
Exit Sub
End If
'************************************
Call cc5
Exit Sub
End If
End Sub
Public Sub res2()
j=1
k=1
rs.Close
End If
Trim(txtcno.Text) & "'and interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic
rs(17).VALUE = True
rs.Update
Call check
Else
rs.Close
End If
Trim(txtcno.Text) & "' and interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic
rs(17).VALUE = True
rs.Update
Call check
'*****************************************
Exit Sub
End If
End Sub
Public Sub Check1()
Call cc1a
Exit Sub
End If
'*****************************************
Call cc2a
Exit Sub
End If
'************************************
Call cc3a
Exit Sub
End If
Call cc6a
Exit Sub
End If
Call cc7a
Exit Sub
End If
Call cc8a
Exit Sub
End If
'**************************
Call cc4a
Exit Sub
End If
'************************************
Call cc5a
Exit Sub
End If
End Sub
Public Sub paten1()
j=1
rsSearch.Close
End If
rsSearch.MoveFirst
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub paten2()
j=1
rsSearch.Close
End If
rsSearch.MoveFirst
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub paten3()
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & "'and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and
rsSearch.MoveFirst
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub paten4()
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & "'and trim(std_session)='" & Trim(combsession.Text) & " 'and
rsSearch.MoveFirst

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub paten5()

j=1
rsSearch.Close
End If
trim(std_session)='" & Trim(combsession.Text) & " 'and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and
rsSearch.MoveFirst
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub l1()
j=1
str = "select *from tbl_interested_student where trim(std_roll) like'" & Trim(txtroll.Text) & "%'and trim(cumpus_no)='"
& Trim(txtcno.Text) & " 'and interested=true and submite_cv=true"
rsSearch.Close
End If
MsgBox ("No student has submited thier bio data")
Exit Sub
End If
With lst2
Else

End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
End With
rsSearch.MoveNext
Wend
End Sub
Public Sub la1()
j=1
str = "select *from tbl_interested_student where trim(std_name) like'" & Trim(txtsname.Text) & "%'and
trim(cumpus_no)='" & Trim(txtcno.Text) & " 'and interested=true and submite_cv=true"
rsSearch.Close
End If
With lst2
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub res3()
j=1
k=1
rs.Close
End If
rs.Update
Call check
Else
rs.Close
End If
rs.Update
Call check
'*****************************************
Exit Sub
End If
End Sub
Public Sub res4()
j=1
k=1
rs.Close
End If
rs(18).VALUE = True
rs.Update
Call Check2
Else
rs.Close
End If

rs(18).VALUE = True
rs.Update
Call Check2
'*****************************************
Exit Sub
End If
End Sub
Public Sub res5()
j=1
k=1
rs.Close
End If
rs.Update
Call Check2
Else
rs.Close
End If

rs.Update
Call Check2
'*****************************************
Exit Sub
End If
End Sub
Public Sub Check2()
Call paten1a
Exit Sub
End If
Call paten2a
Exit Sub
End If
Call paten6a
Exit Sub
End If
Call paten7a
Exit Sub
End If
Call paten8a
Exit Sub
End If
'************************************
Call paten3a
Exit Sub
End If
'**************************
Call paten4a
Exit Sub
End If
'************************************
Call paten5a
Exit Sub
End If
End Sub
Public Sub paten1a()
j=1
rsSearch.Close
End If
adLockOptimistic
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_course)='" & Trim(txtcourse.Text) & " 'and

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & "'and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and
submite_cv=true and ph_interview=true and attend_interview=true", con, adOpenDynamic, adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & "'and trim(std_session)='" & Trim(combsession.Text) & "' and
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
j=1
rsSearch.Close
End If
adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
Public Sub c6()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_sem)='" & Trim(txtsem.Text) & "' and
adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'**********************************
j=1
rsSearch.Close
End If
adLockOptimistic
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
'**********************
j=1
rsSearch.Close
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'************************************
j=1
rsSearch.Close
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'***************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend

'*****************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub c7()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_session)='" & Trim(combsession.Text) & "' and
adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'**********************************
j=1
rsSearch.Close
End If
adLockOptimistic
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
'**********************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'************************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'********************************8
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'***************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub c8()
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'**********************************
j=1
rsSearch.Close
End If
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
'*******************
j=1
rsSearch.Close
End If
Else

End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'************************************
j=1
rsSearch.Close
End If
adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend

'***************************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
'****************
j=1
rsSearch.Close
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub paten6()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_session)='" & Trim(combsession) & " 'and
rsSearch.MoveFirst
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub paten7()
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & "'and trim(std_session)='" & Trim(combsession.Text) & " 'and
rsSearch.MoveFirst
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub paten8()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_sem)='" & Trim(txtsem.Text) & "'and
rsSearch.MoveFirst
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub data()
Call c1
Exit Sub
End If
'*****************************************
Call c2
Exit Sub
End If
'************************************
Call c3
Exit Sub
End If
Call c6
Exit Sub
End If
Call c7
Exit Sub
End If
Call c8
Exit Sub
End If
'**************************
Call c4
Exit Sub
End If
'************************************
Call c5
Exit Sub
End If
End Sub
Public Sub Check4()
Call c1
Exit Sub
End If
'*****************************************
Call c2
Exit Sub
End If
'************************************
Call c3
Exit Sub
End If
Call c6
Exit Sub
End If
Call c7
Exit Sub
End If
Call c8
Exit Sub
End If
'**************************
Call c4
Exit Sub
End If
'************************************
Call c5
Exit Sub
End If
End Sub
Public Sub nmsearch()
j=1
Dim item As Single
Exit Sub
End If
trim(cumpus_no)='" & Trim(txtcno.Text) & " ' and interested=true and submite_cv=false"
rsSearch.Close
End If
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
End Sub
j=1
Dim item As Single
Exit Sub
End If
trim(cumpus_no)='" & Trim(txtcno.Text) & " ' and interested=true and submite_cv=true and ph_interview=true"

rsSearch.Close
End If
With lst5
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
listof_pre.Caption = listof_pre.Caption & " " & "( List of all present student with cv:"
End Sub
j=1
Dim item As Single
Exit Sub
End If
trim(cumpus_no)='" & Trim(txtcno.Text) & " ' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true"
rsSearch.Close
End If
With lst4
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmattend.Caption = frmattend.Caption & " " & "( List of all attended student:"
End Sub
j=1
Dim item As Single

Exit Sub
End If
trim(cumpus_no)='" & Trim(txtcno.Text) & " ' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true"
rsSearch.Close
End If
With lst6
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Private Sub txtsname_Change()
j=1
Exit Sub
Exit Sub
Exit Sub
MsgBox ("Diselect session at first")
Exit Sub
MsgBox ("Diselect Course,Sem and session at first")
Exit Sub
End If
Dim item As Single
If IsEmpty(txtsname) Or txtsname = "" Then
Exit Sub
End If
str = "select *from tbl_interested_student where trim(std_name) like'" & Trim(txtsname.Text) & "%'and
trim(cumpus_no)='" & Trim(txtcno.Text) & " 'and interested=true and submite_cv=false"
rsSearch.Close
End If
With listdetails
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
frmstd.Caption = ""
Call la1
End Sub
Public Sub res6()
j=1
k=1
rs.Close
End If
Trim(txtcno.Text) & "'and interested=true and submite_cv=true and ph_interview=true and attend_interview=true ",
rs(19).VALUE = True
rs.Update
Call Check1
Else
rs.Close
End If
Trim(txtcno.Text) & "' and interested=true and submite_cv=true and ph_interview=true and attend_interview=true ",
rs(19).VALUE = True
rs.Update
Call Check1
'*****************************************
Exit Sub
End If
End Sub
Public Sub res7()
j=1
k=1
rs.Close
End If
Trim(txtcno.Text) & "'and interested=true and submite_cv=true and ph_interview=true and attend_interview=true",

rs.Update
Call Check1
Else
rs.Close
End If
Trim(txtcno.Text) & "' and interested=true and submite_cv=true and ph_interview=true and attend_interview=true",
rs.Update
Call Check1
'*****************************************
Exit Sub
End If
End Sub
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_sem)='" & Trim(txtsem.Text) & " 'and
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_session)='" & Trim(combsession.Text) & " 'and
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_sem)='" & Trim(txtsem.Text) & "'and
adLockOptimistic
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
j=j+1
rsSearch.MoveNext
Wend
Exit Sub
End Sub
Public Sub cc1()
j=1
rsSearch.Close
End If
'Else
'End If
Else

End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub cc2()
j=1

rsSearch.Close
End If
'Else
'End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub cc3()
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & " 'and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and
'Else
'End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub cc6()
j=1
rsSearch.Close
End If
'Else
'End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub cc7()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_session)='" & Trim(combsession.Text) & " 'and
'Else
'End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub cc8()

j=1
rsSearch.Close
End If
'Else
'End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub cc4()
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & " 'and trim(std_session)='" & Trim(combsession.Text) & " 'and
'Else
'End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend

End Sub
Public Sub cc5()
j=1
rsSearch.Close
End If
'Else
'End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
Wend
End Sub
Public Sub cc1a()
j=1
rsSearch.Close
End If
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and short_list=true", con,
With lst6
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc2a()
j=1
rsSearch.Close
End If
attend_interview=true and short_list=true", con, adOpenDynamic, adLockOptimistic
With lst6
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc3a()
j=1
rsSearch.Close
End If
trim(std_sem)=' " & Trim(txtsem.Text) & " ' and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and
submite_cv=true and ph_interview=true and attend_interview=true and short_list=true", con, adOpenDynamic,
adLockOptimistic
With lst6
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc6a()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_sem)=' " & Trim(txtsem.Text) & " ' and
short_list=true", con, adOpenDynamic, adLockOptimistic
With lst6
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc7a()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_session)=' " & Trim(combsession.Text) & " ' and
With lst6

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc8a()
j=1
rsSearch.Close
End If
trim(std_session)=' " & Trim(combsession.Text) & " ' and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and
With lst6
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc4a()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_course)=' " & Trim(txtcourse.Text) & " ' and
trim(std_sem)='" & Trim(txtsem.Text) & " 'and trim(std_session)=' " & Trim(combsession.Text) & " ' and
With lst6
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc5a()
j=1
rsSearch.Close
End If
With lst6
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub res7a()
j=1
k=1
rs.Close
End If
Trim(txtcno.Text) & "'and interested=true and submite_cv=true and ph_interview=true and attend_interview=true",
rs.Update
Call Check1a
Else
rs.Close
End If
Trim(txtcno.Text) & "' and interested=true and submite_cv=true and ph_interview=true and attend_interview=true",
rs.Update
Call Check1a
'*****************************************
Exit Sub
End If
End Sub
Public Sub res6a()
j=1
k=1
rs.Close
End If
Trim(txtcno.Text) & "'and interested=true and submite_cv=true and ph_interview=true and attend_interview=true ",
rs(20).VALUE = True
rs.Update
Call Check1a
Else
rs.Close
End If
Trim(txtcno.Text) & "' and interested=true and submite_cv=true and ph_interview=true and attend_interview=true ",
rs(20).VALUE = True
rs.Update
Call Check1a
'*****************************************
Exit Sub
End If
End Sub
Public Sub Check1a()
Call cc1aa
Exit Sub
End If
'*****************************************
Call cc2aa
Exit Sub
End If
'************************************
Call cc3aa
Exit Sub
End If
Call cc6aa
Exit Sub
End If
Call cc7aa
Exit Sub
End If
Call cc8aa
Exit Sub
End If
'**************************
Call cc4aa
Exit Sub
End If
'************************************
Call cc5aa
Exit Sub
End If
End Sub
Public Sub cc1aa()

j=1
rsSearch.Close
End If
type=true", con, adOpenDynamic, adLockOptimistic
With lst3
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
listof_select.Caption = listof_select.Caption & " " & "(List of all selected student :"
End Sub
Public Sub cc2aa()
j=1
rsSearch.Close
End If
attend_interview=true and short_list=true and type=true", con, adOpenDynamic, adLockOptimistic
With lst3
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc3aa()
j=1
rsSearch.Close
End If
trim(std_sem)=' " & Trim(txtsem.Text) & " ' and trim(cumpus_no)='" & Trim(txtcno.Text) & "' and interested=true and
submite_cv=true and ph_interview=true and attend_interview=true and type=true", con, adOpenDynamic,
adLockOptimistic
With lst3
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc6aa()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_sem)=' " & Trim(txtsem.Text) & " ' and
short_list=true and type=true", con, adOpenDynamic, adLockOptimistic
With lst3
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc7aa()
j=1
rsSearch.Close
End If
rsSearch.Open "select *from tbl_interested_student where trim(std_session)=' " & Trim(combsession.Text) & " ' and
With lst3
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc8aa()
j=1
rsSearch.Close
End If
With lst3
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc4aa()
j=1
rsSearch.Close
End If
trim(std_sem)='" & Trim(txtsem.Text) & " 'and trim(std_session)=' " & Trim(combsession.Text) & " ' and
With lst3
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend
End Sub
Public Sub cc5aa()
j=1
rsSearch.Close
End If
With lst3
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If

Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
j=j+1
rsSearch.MoveNext
End With
Wend

End Sub
Campus Report Form

TESTING PROCEDURE
The main objective of the testing here is to execute a program and find the
errors, so that software can function according to specification specified for
behavioral and performance requirement of the software.
1. Testing Techniques:
We have used the following testing technique for finding errors in this
software:
(A) White Box Testing Technique:

We have used this method to exercise the internal program logic.
During the course of white box testing, I have done the following
work.
 All independent paths within a module are exercised at least

once.
 All logical decision on their true and false side is also exercised.
 All loops were executed at their boundaries and within their
operation bounds.
 Validity of internal data structure was also exercised.
Some of white box testing techniques, which we have used for this
software, are:
1. Basis Path Testing:

2. The basis path methods enable me to derive a logical complexity
measure of a procedure design and this measure is used for defining a
basis set of execution path. This path ensures to execute every
statement in a program at least once.
3. Control structure testing:
Since the basis path testing was not enough, hence the control structure
testing is used to exercise the logical condition in a program module.
During the course of testing, I have done the following activities, which are
described below
 After testing all conditions, we have found some errors like:

 Boolean variable error in the module cost benefit analysis.
Case:
In cost benefit analysis, we have used the concept of relative cell

referencing in this contact; we have taken two types of cell (i) Variable cell,
(ii) function based constant value cell. Only user can modify variable cell
but function value cell only display manipulated value. If cell is functional
cell, its return TURE lese FALSE. During course of testing, we have found
this function not return value properly. So we have separately test this
function for Boolean errors.
 Relational operator error.
 Boolean Parenthesis error.
 Arithmetic expression error.
 After that we have tested the flow of data across the variable in the
module.
 All the loops are also tested to ensure the validity. We found that a
loop in the cost benefits analysis modules was functioning more
than required iteration; it was later corrected to run within the
required iteration.
(B). Black Box Testing:
This method is used to test the functional requirements of the software as

specified in the section of S.E. Requirement Specification. By using this
technique I have found errors in the following categories:
o Incorrect or missing functions

o Interface errors
o Errors in data structure
o Behavior or performance errors and
o Initialization and termination errors
Under the Black Box testing we have used the following types of testing
methods:
4. Testing Strategies:
Testing strategy, which I have used here to integrate software test case
design methods into a series of steps, can be categorized into two
spectrums:
 Code Testing.
 Specifications testing.
The testing strategies, which I have used here, have the following generic
characteristics
 First component level testing are performed and then we moved

towards the integration of the entire software.
 During the course of various types of testing, user involvements are
also considered.
 Different types of testing are performed at different points of time.
A. Unit Testing: I have taken following steps during unit testing:
I. The module interface is tested to ensure that information properly

flows into and out of the program unit under test.
II. The local data structure is examined to ensure that data stored
temporarily maintains its integrity during all steps in a program
execution.
III. All independent paths within each module are exercised to ensure
that all statements in a module have been exercised at least once.
IV. Boundary is tested to ensure that the module operate properly at
boundaries established to limit or restrict processing.
V. Finally all error handling path are tested.
Case:
During the code implementation, we have face with precision problem

In “cost benefit analysis”.
B. Integration Testing: During this phase we have combine all the

module and perform integration sting for constructing the program
structure while at the same time conducting tests to uncover errors
associated with interfacing. In order to integrate all the modules we
have used Bottom up approach.
C. Validation Testing:
After the completion of integration testing and removal of interfacing

problem, we have conducted validation testing according to reasonable
expectation of user specified in the S.E.Requirement specification
documents. Since this s/w is designed for management, hence a series
of acceptance tests are also conducted. The acceptance test is
conducted is conducted by Mr. Neeraj Kant Jha and he is found the
satisfactory performance of the software according to their needs.
D. System Testing:
Finally we have conducted the system testing to fully exercise the

currently developed computer based system “Medicine Distributor
Management system”.
Following tests are performed during this phase:

I. Recovery Testing: During recovery testing we have exercised fault
tolerance capacity of system, ability to recover from failure. We
found that the system is fault tolerant and processing fault is not
causing overall system function to cease.
II. Security Testing: We have made various attempts to penetrate the
data stored in the system.
FEELING ABOUT USER
Everyone wants to automate the entire process that involved in the OES-
On-Line Examination System, so that all the problems uncounted yet can
be solved. They feel computerization is the only solution.
The use of the information technology for the automation of manual

system aim to: ---
 Cut down arithmetic errors

 Provide quicker information
 Provide reliable media for storage
 Remove duplicity of work
 Provide security to the data
 Enhance efficiency
EVALUATION
The field data provided by the supervisor, assigned by Mr. Deepak Kumar
Singh, was put to test. The manually generated results and reports are
compared against the presently developed s/w for verification.
Following points are observed:
1. The results produced by both the system are same and correct.
2. Reports are correct.
3. Report generation becomes rather easy than manual system.
4. The efficiency of the existing system enhanced significantly.
5. The new information system has changed the completeness of the
information significantly.
6. The decision making process now simplified, hence overall saving
in management efforts.
7. The productivity of the system increased.
CONCLUSION
While writing solution to this problem, I realized that right attitude towards
problem solving with at least an average aptitude gives dynamic result. At
start, I was having no roadmap, but subsequently as I progressed all become
clearer and clearer, finally I am writing the Termination Analysis. All the
process that I have used can be used informally, but it’s formal execution I
have found almost necessary to give it a professional touch, which after
realizes into its commercial value. I have also realized that, if any project
doesn’t have commercial nature, its completion or incompletion doesn’t
have any meaning. Additionally talking to seniors and experts, proper
documentation and investigating attitude are must to develop a project.
As a formal method I will follow sequential way to

develop any
solution given to me, in future:
 System study to collect max. facts in less time.

 System Analysis to understands its pros and cons.
 All(inferior and Superior) designs, that can be used to solve that
problem and choosing the the best based on the cost-benefits
Analysis.
 A severe testing strategy to test even least regretful situations that
could occur.
 Comfortable documentation with every step.
BIBLIOGRAPHY
1.System Analysis & Design Elis M.Awad
Galgotia Publication (P) Ltd.
2.Humanised Information System & Design
McGraw Hills publication Ltd.
3. Manual of Existing System of The organization
4. Microsoft Access 2003
By:-Gerg Perry
5.Bible of ASP.Net
-By Evangelos Petroutsos.
-By BPB Publication.

Report 1

Uploaded by

Copyright:

Available Formats

Report 1

Uploaded by

Document Information

Original Description:

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Report 1

Uploaded by

Copyright:

Available Formats

“OFFICE AUTOMATION SYSTEM”

This software is designed in view to computerize the data of office automation

This software is developed with an aim to give accurate and immediate

Financial position of institute easily with this software.

1. Current number of enquiry.

The prime objectives of this software:-

The basic requirement is remove the lengthiness in the management and

Based on the analysis of problem areas the proposed system shall be

Proposed System Solution

Proposed system provides with following solutions:

 It provides “better and efficient” service to members.

Front End : VISUAL BASIC 6.0

SYSTEM REQUIREMENT SPECIFICATION

During this phase, the user’s requirements concerning the proposed

The system is to support the following functions:

Function 1: Personal OAS system

Function 2: View and enter new reports

For example, candidate’s number must be unique and when entering

Function 4: Changing passwords and setting userid

The facility of changing a new password and setting or adding a user id

Function 5: Candidate’s details

Function 7: Employee details

It would be of much use if users could search for information on employees,

2.2 Non-functional Requirements

 Reason For Analysis:

responsible for the modeling of OAS-Office Automation System.

must analyze about it to understand requirement.

As we mentioned introductory part, this Project assignment is the part of decision

support system. It is very difficult for we type of untrained People to understand

work of 1 to 2 months intimate imagination to understand and feel the ideas

about this application domain. In this concerned we are very grateful to my

During this phase I have concentrated on

(i) Technical terms of this application domain

break-up about, what we understand?

(iii) What we have to do?

…How? And there are so many of how?

To understand the requirements i.e. what is needed. We have broken the

system is the key issue for this type of project.

We have sincerely analyzed project site physical situations, social-economy

and finally the impact of exhaust on the environment.

1. Management needs uniform, consistent, reliable and fast decision

(a) Preliminary area of applications:

(b) Problem definition:

(c) Details Of The Problem:

2. Lack of proper Standardization:

4. Poor internal control of information:

6. The problem of accuracy:

7. The problem of economy:

(d) Significance of problem:

A data-flow diagram (DFD) is a graphical representation of the "flow" of

A DFD provides no information about the timing of processes, or about

1. Interaction of agency with candidate’s for enquiry.

4. Contact students, faculties and member of management.

CONTEXT ANALYSIS DIAGRAM

1st ’Level DFD

Field caption : Course Code

Field name : CmbcourseCode

Description : stores the code of the course

Business Rule : not null value