0% found this document useful (0 votes)

389 views496 pages

Office Automation System Overview

This document discusses the development of an office automation system software with the following objectives: 1. To computerize the data management processes of an office and banking system to make it faster and easier than a manual system. 2. To provide accurate and immediate information to administrators whenever needed. 3. To store and provide access to information about students, employees, courses, subjects, and financial transactions. The proposed system aims to address problems with the current manual system by automating data entry and storage, centralizing data management, and providing up-to-date information retrieval capabilities. It is intended to reduce errors, workload, and time/effort for users.

Uploaded by

RITIKA KUMARI GUPTA

We take content rights seriously. If you suspect this is your content, claim it here.

Available Formats

Download as DOC, PDF, TXT or read online on Scribd

0% found this document useful (0 votes)

389 views496 pages

Office Automation System Overview

Uploaded by

RITIKA KUMARI GUPTA

We take content rights seriously. If you suspect this is your content, claim it here.

Available Formats

Download as DOC, PDF, TXT or read online on Scribd

“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

Business Rule : not null value

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

Business Rule : not null value

Student

Field caption : Course Code

Field name : CmbCode

Datatype : text

Length : 25

Description : stores the code of the course

Business Rule : not null value

Field caption : Semester

Field name : cmbSem

Length : 25

Description : stores the description of the Father’s Name

Business Rule : not null value

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

Source Code

Dim mln As Integer

Dim con As New [Link]

Dim rsenq As New [Link]

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)

[Link] = &HFFFFC0

End Sub

Private Sub cmdLogin_Click()

'If [Link] = "genius" And txtPWD = "suineg" Then

'[Link]

'End If

Call setdatabase

Set con = New [Link]

[Link] datastr

Dim str

Dim uid1, upwd

uid1 = Crypt([Link])

upwd = Crypt([Link])

str = "SELECT count(*) FROM TBL_LOGIN WHERE USR_ID='" & uid1 & "' AND USR_PASSWORD='" &
upwd & "'"

'MsgBox (str)

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenDynamic, adLockOptimistic

If [Link] = "" Or [Link] = "" Then

MsgBox ("Please provide user id and password to login")

[Link]

[Link] = ""
[Link] = ""

ElseIf Val(rsenq(0).VALUE) <= 0 Then

MsgBox ("You are not authorised to log into the system")

[Link]

[Link] = ""

Else

uid = [Link]

pwd = [Link]

[Link]

End If

End Sub

Private Sub cmdLogin_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

[Link] = &HFFFFC0

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

[Link] = &H8000000F

End Sub

Private Sub Timer1_Timer()

'[Link] = [Link] - 50

'If [Link] <= [Link] - 5265 Then

'[Link] = [Link] + 5265

'End If

frmname = " Genius Institute of Information Technology"

If mln > 50 Then mln = 2 Else mln = mln + 1

[Link] = Left(frmname, mln)

End Sub

Admission form

Source Code
Dim con As New [Link]

Dim rs As New [Link]

Dim rs1 As New [Link]

Dim rscrs As New [Link]

Dim rsenq1 As New [Link]

Dim rssession As New [Link]

Dim rs2 As New [Link]

Dim rsid As New [Link]

Dim eno

Dim txtfind As String

[Link] = "&Add"

'[Link] = False

Call ControlClear

End If

End Sub

Sub ControlClear()

[Link] = ""

[Link] = True

[Link] = ""

[Link] = True
[Link] = True

[Link] = ""

[Link] = False

[Link] = ""

'For cc = 0 To 5

'chkcourse(cc).VALUE = 0

'combstream(cc).Text = ""

'txtpy(cc).Text = ""

'txtpm(cc).Text = ""

'txtUniv(cc).Text = ""

'Next

[Link] = ""

End Sub

Private Sub cmdAddQ_Click()

If [Link] <> "" And [Link] <> "" And [Link] <> "" And
[Link] <> "" Then
With lstVQulif

Set lstItem = .[Link](, , txtCertiDeploma)

[Link](1) = txtYOE

[Link](2) = txtUniBoard

[Link](3) = txtMarksPer

End With

[Link] = ""

Else

txtfind = Trim(InputBox("ENTER APP. NO.->"))

If txtfind = "" Then

MsgBox ("haven't entered anything")

Else

[Link]
[Link] "[std_appno]=" & "'" & txtfind & "'" & ""

If [Link] Or [Link] 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

[Link]

'Call clear

End If

End Sub

Private Sub cmdExit_Click()

Unload Me

End Sub

Private Sub cmdfirst_Click()

If [Link] And [Link] Then

MsgBox ("No Record In The Database")

Else

If [Link] And [Link] Then

MsgBox ("No Record In The Database")

Else

[Link]

Call display
End If

End If

End Sub

Sub display()

[Link] = rs(0)

[Link] = rs(2)

[Link] = rs(3)

[Link] = rs(4)

[Link] = rs(5)

[Link] = rs(6)

[Link] = rs(7)

[Link] = rs(8)

[Link] = rs(9)

[Link] = rs(10)

[Link] = rs(11)

[Link] = rs(12)

If rs(13) = "yes" Then

[Link] = 1

Else

If rs(13) = "no" Then

[Link] = 1

End If

[Link] = rs(14)

[Link] = rs(15)

'[Link] = rs(14)

'[Link] = rs1(1)

'[Link] = rs1(2)

'[Link] = rs1(3)

'[Link] = rs1(4)

End If

Dim rsa As New [Link]

Dim rsa1 As New [Link]

enq = "select count(std_qualification) from tbl_student_qualification where std_appno='" &

[Link] & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

c = rsa(0)

enq1 = "select * from tbl_student_qualification where std_appno='" & [Link] & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq1, con, adOpenDynamic, adLockOptimistic

'txtpy(i).Text = rsa1(3)

'txtpm(i).Text = rsa1(4)

'End If

[Link]

'Wend

End Sub

Private Sub cmdlast_Click()

If [Link] And [Link] And [Link] And [Link] Then

MsgBox ("No Record In The Database")

If [Link] And [Link] Then

MsgBox ("End of record")

Else

[Link]

Call display

End If

End Sub
Private Sub cmdmodify_Click()

Dim txtfind As String

txtfind = Trim(InputBox("ENTER APP. NO.->"))

If txtfind = "" Then

MsgBox ("haven't entered anything")

Else

[Link]

[Link] "[std_appno]=" & "'" & txtfind & "'" & ""

If [Link] Or [Link] Then

MsgBox "RECORD NOT FOUND....!", vbInformation

Exit Sub

Else

Call display

End If

Dim s

s = MsgBox("Do U Want To Modify The Record", 64 + vbYesNo, "Modify Record")

If s = vbYes Then

[Link] = True

Call ControlEnable

'Call gif

[Link] = True

'MsgBox ("Application number cannot be changed...")

End If

End Sub

Private Sub cmdnamecourse_Click()

'[Link] = True

[Link] = False

Dim rsenq As New [Link]

enq = "select * from qry_EnqPropDetails where trim(Enq_Name)='" & Trim([Link]) &
"' and trim(Enq_Course)='" & Trim([Link]) & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

If rsenq(18) <> "" Then

If rsenq(18) = "Yes" Then

[Link] = True

Else

[Link] = True

End If

If rsenq(24) <> "" Then

[Link] = rsenq(24)

txtpm(i).Text = rsenqual1(4)

End If

[Link]

'Wend

End Sub

Private Sub cmdnext_Click()

If [Link] Then

MsgBox ("End Of Record...")

Else

If [Link] Then

MsgBox ("End Of Record...")

Else
[Link]

[Link]

If Not [Link] And [Link] Then

Call display

End If

End Sub

Private Sub cmdprevious_Click()

If [Link] And [Link] Then

[Link]

MsgBox ("Begining Of The Record...")

Else

[Link]

If Not [Link] And [Link] Then

Call display

End If

End Sub

Private Sub cmdSave_Click()

If [Link] = "" Then

MsgBox "Application No. can not be empty.", vbCritical, "Error..."

[Link]

Exit Sub

ElseIf IsDate([Link]) = False Then

MsgBox "Addmission Date can not be empty.", vbCritical, "Error..."

Exit Sub

End If

If [Link] And [Link] Then 'And [Link] And [Link] Then

MsgBox ("no record in database")

Exit Sub

End If

rs(1) = [Link]

rs(0) = [Link]

rs(2) = [Link]

rs(3) = [Link]

rs(4) = [Link]

rs(5) = [Link]

rs(6) = [Link]

rs(7) = [Link]

rs(8) = [Link]

rs(9) = [Link]

rs(10) = [Link]

rs(11) = [Link]

rs(12) = [Link]

If optyes = True Then

rs(13) = "yes"

Else

rs(13) = "no"

End If

rs(14) = [Link]

rs(15) = [Link]

rs(16) = [Link]

rs(17) = [Link]

rs(18) = [Link]
rs(19) = [Link]

rs(20) = [Link]

rs(21) = [Link]

rs(22) = Now()

rs(26) = [Link]

rs(27) = [Link]

rs(28) = [Link]

[Link]

'============student id entry=============

'Dim rsmx As New [Link]

'If [Link] = adStateOpen Then

'[Link]

'End If

'ses = "Aug 2009"

'[Link] "select max(std_RollNo) from tbl_Stud_Master_IDEntry where std_session='" & ses

& "'", con, adOpenDynamic, adLockOptimistic

'MsgBox (rsmx(0))

'ct = rsmx(0)

'If [Link] = adStateOpen Then

'[Link]

'End If

'[Link] "select * from tbl_Stud_Master_IDEntry", con, adOpenDynamic, adLockOptimistic

'[Link]

'rsid(0) = [Link]

'rsid(1) = Val(ct) + 1

'rsid(2) = [Link]

'rsid(3) = [Link]

'rsid(4) = [Link]

'rsid(5) = [Link]

'rsid(6) = [Link]
'rsid(7) = [Link]

'rsid(8) = [Link]

'rsid(9) = [Link]

'rsid(10) = [Link]

'rsid(12) = [Link]

'rsid(11) = [Link]

'rsid(13) = Val(ct) + 1

'rsid(14) = [Link]

'rsid(15) = [Link]

'[Link]

'**************student qualification*****************

If [Link] And [Link] Then

MsgBox ("no record in database")

Exit Sub

Else

For i = 0 To 5

If chkcourse(i).VALUE = 1 Then

txtpm(i).SetFocus

Exit For

End If

For j = 0 To c - 1

[Link]

rs1(0) = [Link]

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

[Link]

End If

MsgBox ("Your Details are Sucessfuly been Updated. Please make payment before closing the
screen.")

[Link] = True

'Call ControlClear

Call list

'End If

[Link] = "&Add"

End Sub

Private Sub cmdsearchforpay_Click()

Dim txtfind As String

txtfind = Trim(InputBox("ENTER APP. NO.->"))

If txtfind = "" Then

MsgBox ("haven't entered anything")

Else

[Link]

[Link] "[std_appno]=" & "'" & txtfind & "'" & ""

If [Link] Or [Link] Then

MsgBox "RECORD NOT FOUND....!", vbInformation

Exit Sub

Else

Call display

End If

[Link] = True

MsgBox ("Click on Admission Payment Button")

End Sub

Private Sub cmdshowdata_Click()

[Link] = True

End Sub

Private Sub combcrs_Click()

[Link] = False

[Link] = True

[Link]

j = 1

c = 0

Dim rsenq As New [Link]

enq = "select * from qry_EnqPropDetails where trim(Enq_Course)='" & Trim([Link]) &

"' order by App_No"
If [Link] = adStateOpen Then

[Link]

End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

If [Link] And [Link] Then

MsgBox ("No Record")

Exit Sub

[Link](j).SubItems(5) = rsenq(6)

End If

If rsenq(7) <> "" Then

[Link](j).SubItems(6) = rsenq(7)

End If
If rsenq(19) <> "" Then

Dim rsenqual1 As New [Link]

enq = "select count(enlq_course) from tbl_Enquiry_Lastqualification where Enq_Enqno='" &

[Link] & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

c = rsenqual(0)

enq1 = "select * from tbl_Enquiry_Lastqualification " 'where Enq_Enqno='" & [Link]

& "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq1, con, adOpenDynamic, adLockOptimistic

d = 1

While [Link] = False

[Link](d) = rsenqual1(0)

[Link](d).SubItems(1) = rsenqual1(1)

[Link](d).SubItems(2) = rsenqual1(2)

[Link](d).SubItems(3) = rsenqual1(3)

[Link](d).SubItems(4) = rsenqual1(4)

'[Link](d).SubItems(5) = rsenqual1(5)

[Link]

Wend

End Sub

Private Sub Command1_Click()

'[Link] = True

'
' [Link] = False

'[Link]

'[Link] vbModal

[Link]

End Sub

Private Sub Command2_Click()

[Link]

End Sub

Private Sub Command3_Click()

Call detailsh

'[Link] = True

[Link] = False

End Sub

Private Sub Command5_Click()

[Link]

End Sub

Private Sub Form_Activate()

[Link] = True

End Sub

Private Sub Form_Load()

[Link] = False

[Link] = Date

combstream(0).AddItem "None"

combstream(0).AddItem "Arts"
combstream(0).AddItem "Commerce"

combstream(0).AddItem "Science"

combstream(1).AddItem "None"

combstream(1).AddItem "Arts"

combstream(1).AddItem "Commerce"

combstream(1).AddItem "Science"

combstream(2).AddItem "None"

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 "None"

combstream(3).AddItem "MA"

combstream(3).AddItem "MBA"

combstream(3).AddItem "MCA"

combstream(3).AddItem "MCOM"

combstream(3).AddItem "MSC"

combstream(3).AddItem "MSCIT"

[Link] = False

[Link] = True

[Link] = False

Call ControlDisable

Call setdatabase

Set con = New [Link]

[Link] datastr

'Set con = New [Link]

'[Link] "provider=[Link].4.0;data source=" & [Link] & "\[Link]"

Set rs = New [Link]

adLockOptimistic

While [Link] = False

[Link] rscrs(2)

[Link] rscrs(3)

[Link] rscrs(2)

[Link]

Wend

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select * from tbl_Session order by crs_sessiondate desc", con,

adOpenDynamic, adLockOptimistic

While [Link] = False

[Link] rssession(0)

[Link]

Wend

Call list
End Sub

Sub ControlDisable()

[Link] = False

End Sub

Sub ControlEnable()
[Link] = True

[Link] = True

'[Link] = False

[Link] = True

End Sub

Public Sub list()

[Link]

j = 1

Dim rs As New [Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "SELECT * FROM tbl_stud_master_admission order by std_appno", con, adOpenDynamic,

adLockOptimistic

If [Link] And [Link] Then

ToolTipText = "no record"

If Not (.Fields(4)) = "" Then

[Link](j).SubItems(4) = .Fields(4).VALUE

End If
If Not (.Fields(5)) = "" Then

[Link](j).SubItems(27) = .Fields(28).VALUE

End If

j = j + 1

[Link]

End With

Wend

[Link] = j
End Sub

Private Sub cmdSearch_Click()

[Link]

End Sub

Private Sub Form_Unload(Cancel As Integer)

If [Link] = True Then

MsgBox ("First you complete payment entry")

End If

End Sub

Private Sub listdetails_Click()

Dim rsenq1 As New [Link]

Dim searchstr As String

eno = [Link]

'ENO = rsenq1(0)

searchstr = "select * from tbl_stud_master_admission where std_appno='" & eno & "'"

[Link] searchstr, con, adOpenDynamic, adLockOptimistic

If [Link] And [Link] Then

MsgBox "record set is empty"

Exit Sub

End If

If [Link] = False Then

[Link]

End If

If MsgBox(Space(13) & "You Select App No." & eno & Chr(13), vbYesNo, "O.A. System") =
vbYes Then

[Link] = eno

With rsenq1

'[Link] = .Fields(1).VALUE

If .Fields(13) = "Yes" Then

[Link] = True

Else

[Link]

While [Link] = False

If (rscrs(2)) = [Link] Then

[Link] = rscrs(3)

End If

[Link]

Wend

End Sub

Private Sub combdetail_Click()

[Link]

While [Link] = False

If (rscrs(3)) = [Link] Then

[Link] = rscrs(2)

End If

[Link]

Wend

End Sub

Private Sub txtDOB_LostFocus()

'[Link]

End Sub

Private Sub txtNational_LostFocus()

'[Link]

End Sub

Public Sub List1()

[Link] = False

[Link] = True

[Link]
j = 1

Dim rs2 As New [Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "SELECT * FROM qur_pros_com_det where Enq_Name='" & ([Link]) & "'", con,
adOpenDynamic, adLockOptimistic

If [Link] And [Link] Then

ToolTipText = "no record"

If Not (.Fields(15)) = "" Then

[Link](j).SubItems(15) = .Fields(15).VALUE

End If

If Not (.Fields(16)) = "" Then

[Link](j).SubItems(16) = .Fields(16).VALUE
End If

If Not (.Fields(17)) = "" Then

[Link](j).SubItems(17) = .Fields(17).VALUE

End If

If Not (.Fields(18)) = "" Then

[Link](j).SubItems(18) = .Fields(18).VALUE

End If

If Not (.Fields(19)) = "" Then

[Link](j).SubItems(19) = .Fields(19).VALUE

End If

If Not (.Fields(20)) = "" Then

[Link](j).SubItems(20) = .Fields(20).VALUE

End If

j = j + 1

[Link]

End With

Wend

End Sub

Public Sub list2()

[Link] = True

j = 1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "SELECT * FROM tbl_Enquary_Detail where Enq_Enqdt=#" & Trim(Format([Link],

"mm/dd/yyyy")) & "#", con, adOpenDynamic, adLockOptimistic

If [Link] And [Link] Then

ToolTipText = "no record"

MsgBox "no record in the database"

If Not (.Fields(13)) = "" Then

[Link](j).SubItems(9) = .Fields(13).VALUE

End If

If Not (.Fields(6)) = "" Then

[Link](j).SubItems(10) = .Fields(6).VALUE

End If

If Not (.Fields(7)) = "" Then

[Link](j).SubItems(11) = .Fields(7).VALUE

End If

If Not (.Fields(18)) = "" Then

[Link](j).SubItems(12) = .Fields(18).VALUE

End If

j = j + 1

[Link]

End With

Wend

End Sub

Private Sub listdetails2_Click()

Dim info, str, str1

info = [Link]

Dim rsd As New [Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "SELECT * FROM qry_EnqPropDetails where App_No='" & (info) & "'", con,
adOpenDynamic, adLockOptimistic

If [Link] And [Link] Then

ToolTipText = "no record"

MsgBox "no record in the database"

End If
If rsd(12) <> "" Then

If rsd(18) = "Yes" Then

[Link] = True

Else

[Link] = True

End If

If rsd(24) <> "" Then

[Link] = rsd(24)

End If

If rsd(25) <> "" Then

[Link] = rsd(25)

End If
If rsd(26) <> "" Then

[Link] = rsd(26)

End If

[Link]

Wend

'**********************qualification************************

Dim rsenqual As New [Link]

Dim rsenqual1 As New [Link]

enq = "select count(enlq_course) from tbl_Enquiry_Lastqualification where Enq_Enqno='" &

[Link] & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

c = rsenqual(0)

enq1 = "select * from tbl_Enquiry_Lastqualification where Enq_Enqno='" & [Link] &

"'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq1, con, adOpenDynamic, adLockOptimistic

txtpm(i).Text = rsenqual1(4)

End If

[Link]

End Sub

Private Sub txtsearchAppno_LostFocus()

Dim rsenq As New [Link]

enq = "select * from qry_EnqPropDetails where App_No='" & [Link] & "'"

If [Link] = adStateOpen Then

[Link]
End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

End If

If rsenq(12) <> "" Then

[Link] = rsenq(12)

End If
If rsenq(13) <> "" Then

[Link] = rsenq(13)

End If

If rsenq(6) <> "" Then

[Link] = rsenq(6)

End If
'**********************qualification************************

Dim rsenqual As New [Link]

Dim rsenqual1 As New [Link]

If [Link] = "" Then

Else

enq = "select count(enlq_course) from tbl_Enquiry_Lastqualification where Enq_Enqno='" &

[Link] & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

c = rsenqual(0).VALUE

enq1 = "select * from tbl_Enquiry_Lastqualification where Enq_Enqno='" & [Link] &

"'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq1, con, adOpenDynamic, adLockOptimistic

For i = 0 To c - 1

'While [Link] = False

If rsenqual1(1).VALUE = "10th" Then

chkcourse(i).VALUE = 1

combstream(i).Text = rsenqual1(2).VALUE

txtpy(i).Text = rsenqual1(3).VALUE

txtpm(i).Text = rsenqual1(4).VALUE

ElseIf rsenqual1(1) = "12th" Then

chkcourse(i).VALUE = 1

combstream(i).Text = rsenqual1(2).VALUE

txtpy(i).Text = rsenqual1(3).VALUE

txtpm(i).Text = rsenqual1(4).VALUE

ElseIf rsenqual1(1) = "Graduation" Then

chkcourse(i).VALUE = 1
'combstream(i).Text = rsenqual1(2).VALUE

txtpy(i).Text = rsenqual1(3).VALUE

txtpm(i).Text = rsenqual1(4).VALUE

ElseIf rsenqual1(1) = "Post Graduate" Then

chkcourse(i).VALUE = 1

combstream(i).Text = rsenqual1(2).VALUE

txtpy(i).Text = rsenqual1(3).VALUE

txtpm(i).Text = rsenqual1(4).VALUE

ElseIf rsenqual1(1) = "Diploma" Then

chkcourse(i).VALUE = 1

combstream(i).Text = rsenqual1(2).VALUE

txtpy(i).Text = rsenqual1(3).VALUE

txtpm(i).Text = rsenqual1(4).VALUE

ElseIf rsenqual1(1) = "Others" Then

chkcourse(i).VALUE = 1

combstream(i).Text = rsenqual1(2).VALUE

txtpy(i).Text = rsenqual1(3).VALUE

txtpm(i).Text = rsenqual1(4).VALUE

End If

[Link]

'Wend

End If

'[Link]

End Sub

Sub detailsh()

Dim rsenq As New [Link]

enq = "select * from qry_EnqPropDetails where trim(Enq_Name)='" & Trim([Link]) &

"'"

If [Link] = adStateOpen Then

[Link]
End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

End If

If rsenq(12) <> "" Then

[Link] = rsenq(12)

End If
If rsenq(13) <> "" Then

[Link] = rsenq(13)

End If

If rsenq(6) <> "" Then

[Link] = rsenq(6)

End If
'**********************qualification************************

Dim rsenqual As New [Link]

Dim rsenqual1 As New [Link]

enq = "select count(enlq_course) from tbl_Enquiry_Lastqualification where Enq_Enqno='" &

[Link] & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq, con, adOpenDynamic, adLockOptimistic

c = rsenqual(0)

enq1 = "select * from tbl_Enquiry_Lastqualification where Enq_Enqno='" & [Link] &

"'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] enq1, con, adOpenDynamic, adLockOptimistic

txtpm(i).Text = rsenqual1(4)

End If

[Link]

'Wend

'[Link]

End Sub

Sub APPCHECK()

'Dim rsap As New [Link]

'rs

End Sub
Admission Fee Entry

Source Code
Dim con As [Link]

Dim rslist As New [Link]

Dim rs As New [Link]

Dim rs1 As New [Link]

Dim rsmr As New [Link]

Dim j1

Dim j As Integer

Dim sss As New [Link]

Dim cm, mr

Sub cmdadd_Click()

'[Link] = True

End Sub

Private Sub chkpayment_Click()

If [Link] = 1 Then

[Link] = True

Call mrupdate

If [Link] = adStateOpen Then

sss(1) = Now

sss(2) = [Link]

[Link]

End If

'End If

cm = 0

End Sub

Private Sub cmdMRMod_Click()

Exit Sub
'[Link]

Else

While [Link] = False

If rslist(18) = "M-Male" Then

[Link]("Section1").Controls("lblmr").Caption = "MR."

Else

[Link]("Section1").Controls("lblmr").Caption = "MS."

End If

If rslist(8) = "DD" Then

[Link]("Section1").Controls("lbldd").Visible = True

[Link]("Section1").Controls("lblchdd").Visible = True

[Link]("Section1").Controls("txtddno").Visible = True

[Link]("Section1").Controls("txtdddate").Visible = True

[Link]("Section1").Controls("lblvide").Visible = True

[Link]("Section1").Controls("lblchdd").Caption = "DD No."

[Link]("Section1").Controls("lbldate").Visible = True

[Link]("Section1").Controls("lbldot").Visible = True

[Link]("Section1").Controls("Label7").Visible = True

ElseIf rslist(8) = "Cash" Then

[Link]("Section1").Controls("lblcash").Visible = True

[Link]("Section1").Controls("lbldd").Visible = False

[Link]("Section1").Controls("lblchdd").Visible = False

[Link]("Section1").Controls("txtddno").Visible = False

[Link]("Section1").Controls("txtdddate").Visible = False

[Link]("Section1").Controls("lblvide").Visible = False

[Link]("Section1").Controls("lblchdd").Caption = "DD No."

[Link]("Section1").Controls("lbldate").Visible = False

[Link]("Section1").Controls("lbldot").Visible = False

[Link]("Section1").Controls("Line11").Visible = False

[Link]("Section1").Controls("Line13").Visible = False

[Link]("Section1").Controls("Line14").Visible = False
[Link]("Section1").Controls("Label7").Visible = False

ElseIf rslist(8) = "Cheque" Then

[Link]("Section1").Controls("lblch").Visible = True

[Link]("Section1").Controls("lblchdd").Visible = True

[Link]("Section1").Controls("txtchno").Visible = True

[Link]("Section1").Controls("txtchdate").Visible = True

[Link]("Section1").Controls("lblvide").Visible = True

[Link]("Section1").Controls("lblchdd").Caption = "[Link]"

[Link]("Section1").Controls("lbldate").Visible = True

[Link]("Section1").Controls("lbldot").Visible = True

[Link]("Section1").Controls("Label7").Visible = True

End If

[Link]

Wend

Set [Link] = rslist

'DataReport6

[Link]

Exit Sub

End If

End Sub

Private Sub cmdSave_Click()

Dim rsfee As New [Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "Select * from tbl_Admission_Fee", con, adOpenStatic, adLockOptimistic

With rsfee

.AddNew

'********fetch from frmadmission form

.Fields(1).VALUE = [Link]

'.Fields(3).VALUE = [Link]

'.Fields(19).Value = name1

.Fields(18).VALUE = [Link]

.Fields(19).VALUE = [Link]

.Fields(20).VALUE = [Link]

'********fetch from frmadmission form end

.Fields(29) = "FR"

.Fields(30) = [Link]

.Fields(31) = Now()

.Fields(37) = [Link]

If [Link] = True Then

.Fields(2).VALUE = "University Fee"

ElseIf [Link] = True Then

.Fields(2).VALUE = "Tution Fee"

ElseIf [Link] = True Then

.Fields(2).VALUE = "UNF/TF"

End If

If [Link] = 1 Then

.Fields(12).VALUE = "Full Payment"

.Fields(13).VALUE = "----"

.Fields(0).VALUE = "FP"

.Fields(13).VALUE = "Six Installment"

.Fields(0).VALUE = "INST6"

End If

' ' for demand draft

If [Link] = "Demand Draft" And [Link] = True Then

If txtfavdd = "" Then

MsgBox "Mension to whom demand draft is favouring...."

[Link]

Exit Sub

ElseIf txtmrnodd = "" Then

MsgBox "Mension [Link]."

[Link]

Exit Sub

ElseIf dddate = "" Then

MsgBox "M.R date must be mensioned..."

[Link]

Exit Sub

ElseIf txtddnum = "" Then

MsgBox "Demand draft number is missing...."

Exit Sub

Else
.Fields(4).VALUE = [Link]

.Fields(5).VALUE = [Link]

.Fields(6).VALUE = [Link]

.Fields(7).VALUE = [Link]

.Fields(8).VALUE = [Link]

.Fields(9).VALUE = [Link]

.Fields(10).VALUE = [Link]

.Fields(11).VALUE = [Link]

.Fields(14).VALUE = 0

'.Fields(15).VALUE = 0

' .Fields(16).VALUE = 0

'.Fields(17).VALUE = Date

.Fields(23).VALUE = "Demand Draft"

.Fields(24).VALUE = [Link]

.Fields(25).VALUE = [Link]

.Fields(26).VALUE = [Link]

.Update

'****************receipt

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_receipt", con, adOpenDynamic, adLockOptimistic

[Link]

[Link](1).VALUE = [Link](5).VALUE

[Link](2).VALUE = [Link]

[Link](3).VALUE = [Link]

[Link](4).VALUE = UCase(NumberToString([Link]))

[Link](5).VALUE = [Link]

[Link](6).VALUE = Date
am = UCase(NumberToString(Val([Link])) & " ONLY")

[Link](10).VALUE = am

'Dim rs1 As New [Link]

[Link](7).VALUE = [Link]

[Link](8).VALUE = "DD"

[Link](9).VALUE = [Link](26).VALUE

[Link](11).VALUE = [Link](2).VALUE & " - " & [Link](0).VALUE

[Link](14).VALUE = [Link](7).VALUE

[Link](15).VALUE = [Link](8).VALUE

[Link](16).VALUE = [Link](11).VALUE

[Link](18).VALUE = [Link]

'End With

[Link]

End If

'End If

MsgBox "Your record has been successfully updated"

'End If

' '* for cheque****

ElseIf [Link] = "Cheque" And ([Link] = True Or [Link] = True) Then

If txtfavch = "" Then

MsgBox "Mension to whom cheque is favouring...."

[Link]

Exit Sub

ElseIf txtmrnoch = "" Then

MsgBox "Mension [Link]."

[Link]

Exit Sub
ElseIf dtmrdatech = "" Then

.Fields(5).VALUE = [Link]

.Fields(6).VALUE = [Link]

.Fields(7).VALUE = [Link]

.Fields(8).VALUE = [Link]

'.Fields(9).VALUE = 0

.Fields(10).VALUE = [Link]

.Fields(11).VALUE = [Link]

.Fields(14).VALUE = [Link]

'.Fields(15).VALUE = 0

'.Fields(16).VALUE = 0

'.Fields(17).VALUE = Date

'.Fields(21).VALUE = [Link]

' .Fields(22).VALUE = [Link]

.Fields(23).VALUE = "Cheque"

.Fields(24).VALUE = [Link]

.Fields(25).VALUE = [Link]

.Fields(26).VALUE = [Link]

.Update

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_receipt", con, adOpenDynamic, adLockOptimistic

[Link]

[Link](1).VALUE = [Link](5).VALUE

[Link](2).VALUE = [Link]

[Link](3).VALUE = [Link]
[Link](4).VALUE = [Link]

[Link](5).VALUE = [Link]

[Link](6).VALUE = Date

'am = NumberToString(Val([Link]))

am = UCase(NumberToString(Val([Link])) & " ONLY")

[Link](10).VALUE = am

'Dim rs1 As New [Link]

[Link](7).VALUE = [Link]

[Link](8).VALUE = "Cheque"

[Link](9).VALUE = [Link](26).VALUE

'[Link](10).VALUE = ""

[Link](11).VALUE = [Link](2).VALUE & " - " & [Link](0).VALUE

[Link](12).VALUE = [Link] '[Link](5).VALUE

[Link](13).VALUE = [Link] '[Link](6).VALUE

[Link](16).VALUE = [Link] '[Link](11).VALUE

[Link](18).VALUE = [Link]

[Link]

End If

'End If

MsgBox "Your record has been successfully updated"

' End If

' '*********cash************

ElseIf [Link] = "Cash" And ([Link] = True Or [Link] = True) Then

Else

.Fields(4).VALUE = [Link]

.Fields(5).VALUE = [Link]

.Fields(6).VALUE = [Link]

'.Fields(7).VALUE = "----"

'.Fields(8).VALUE = Date

'.Fields(9).VALUE = 0
' .Fields(10).VALUE = 0

'.Fields(11).VALUE = 0

' .Fields(16).VALUE = 0

'.Fields(17).VALUE = Date

.Fields(14).VALUE = [Link]

.Fields(15).VALUE = [Link]

' .Fields(21).VALUE = [Link]

'.Fields(22).VALUE = [Link]

.Fields(23).VALUE = "Cash"

.Fields(24).VALUE = [Link]

.Fields(25).VALUE = [Link]

.Fields(26).VALUE = [Link]

.Update

'***********************

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_receipt", con, adOpenDynamic, adLockOptimistic

[Link]

[Link](1).VALUE = [Link](5).VALUE

[Link](2).VALUE = [Link]

[Link](3).VALUE = [Link]

[Link](4).VALUE = [Link]

[Link](5).VALUE = [Link]

[Link](6).VALUE = Date

'am = (NumberToString(Val([Link])) & " ONLY")

'am = UCase(NumberToString(Val([Link])) & " ONLY")

am = UCase(NumberToString(Val([Link])) & " ONLY")

[Link](10).VALUE = am

'Dim rs1 As New [Link]

[Link](7).VALUE = [Link]
[Link](8).VALUE = "Cash"

[Link](9).VALUE = [Link](26).VALUE

'[Link](10).VALUE = ""

[Link](11).VALUE = [Link](2).VALUE & " - " & [Link](0).VALUE

[Link](18).VALUE = [Link]

[Link]

MsgBox "Your record has been successfully updated"

' End If

End If

End With

'[Link] = False

'Command1_Click

'[Link] = False

End Sub

Private Sub cmdsaveboth_Click()

Dim rsfee As New [Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "Select * from tbl_Admission_Fee", con, adOpenStatic, adLockPessimistic

With rsfee

If [Link] = True Then

'*For Cash Entry***************

If [Link] = "Cash" Then

For i = 0 To 1

.AddNew

'********fetch from frmadmission form

.Fields(1).VALUE = [Link]

'.Fields(3).VALUE = [Link]

'.Fields(19).Value = name1
.Fields(18).VALUE = [Link]

.Fields(19).VALUE = [Link]

.Fields(20).VALUE = [Link]

'********fetch from frmadmission form end

If [Link] = True Then

.Fields(2).VALUE = "University Fee"

ElseIf [Link] = True Then

.Fields(2).VALUE = "Tution Fee"

ElseIf [Link] = True Then

'.Fields(2).VALUE = "UNF/TF"

End If

.Fields(2).VALUE = LBLUN(i).Caption

If [Link] = 1 Then

.Fields(13).VALUE = "Fifth Installment"

.Fields(0).VALUE = "INST5"

ElseIf [Link] = True Then

.Fields(13).VALUE = "Six Installment"

.Fields(0).VALUE = "INST6"

End If

' If [Link] = True Then

' If [Link] <> "" And [Link] <> "" Then

' .Fields(21).VALUE = [Link]

' .Fields(22).VALUE = [Link]

' Else

' .Fields(21).VALUE = 0

' .Fields(22).VALUE = 0

' 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(7).VALUE = "----"

.Fields(8).VALUE = Date

.Fields(9).VALUE = 0

.Fields(10).VALUE = 0

.Fields(11).VALUE = 0

.Fields(16).VALUE = 0
.Fields(17).VALUE = Date

.Fields(14).VALUE = txtddexbtcs(i).Text

.Fields(15).VALUE = txtfeeamtbtcs(i).Text

' .Fields(21).VALUE = [Link]

'.Fields(22).VALUE = [Link]

.Fields(23).VALUE = "Cash"

.Fields(24).VALUE = txtLTFcsbt(i).Text

.Fields(25).VALUE = txtLFcsbt(i).Text

.Fields(26).VALUE = [Link]

.Update

MsgBox "record update"

End If

'*For Cheque Entry***************

If [Link] = "Cheque" Then

For ii = 0 To 1

.AddNew

'********fetch from frmadmission form

.Fields(1).VALUE = [Link]

'.Fields(3).VALUE = [Link]

'.Fields(19).Value = name1

.Fields(18).VALUE = [Link]

.Fields(19).VALUE = [Link]

.Fields(20).VALUE = [Link]

'********fetch from frmadmission form end

If [Link] = True Then

.Fields(2).VALUE = "University Fee"

ElseIf [Link] = True Then

.Fields(2).VALUE = "Tution Fee"

ElseIf [Link] = True Then

'.Fields(2).VALUE = "UNF/TF"

End If

.Fields(2).VALUE = lblchk(ii).Caption

If [Link] = 1 Then

.Fields(13).VALUE = "Fifth Installment"

.Fields(0).VALUE = "INST5"

ElseIf [Link] = True Then

.Fields(13).VALUE = "Six Installment"

.Fields(0).VALUE = "INST6"

End If

End If
' If [Link] = True Then

' If [Link] <> "" And [Link] <> "" Then

' .Fields(21).VALUE = [Link]

' .Fields(22).VALUE = [Link]

' Else

' .Fields(21).VALUE = 0

' .Fields(22).VALUE = 0

' End If

'txttotamtbtcs(i).Text

'txttotalamtbtcs(i).Text

.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(9).VALUE = 0

.Fields(10).VALUE = txtfeeamtbt(ii).Text

.Fields(11).VALUE = txtbnbt(ii).Text

.Fields(16).VALUE = 0

.Fields(17).VALUE = Date

.Fields(14).VALUE = txtddexbt(ii).Text

.Fields(15).VALUE = 0

.Fields(23).VALUE = "Cheque"

.Fields(24).VALUE = txtLTFchbt(ii).Text

.Fields(25).VALUE = txtLFchbt(ii).Text

.Fields(26).VALUE = [Link]

.Update

MsgBox "record update"

End If
'********************For DD Entry***************************

If [Link] = "Demand Draft" Then

For iii = 0 To 1

.AddNew

'********fetch from frmadmission form

.Fields(1).VALUE = [Link]

'.Fields(3).VALUE = [Link]

'.Fields(19).Value = name1

.Fields(18).VALUE = [Link]

.Fields(19).VALUE = [Link]

.Fields(20).VALUE = [Link]

'********fetch from frmadmission form end

If [Link] = True Then

.Fields(2).VALUE = "University Fee"

ElseIf [Link] = True Then

.Fields(2).VALUE = "Tution Fee"

ElseIf [Link] = True Then

'.Fields(2).VALUE = "UNF/TF"

End If

.Fields(2).VALUE = lblchk(iii).Caption

If [Link] = 1 Then

.Fields(13).VALUE = "Fifth Installment"

.Fields(0).VALUE = "INST5"

ElseIf [Link] = True Then

.Fields(13).VALUE = "Six Installment"

.Fields(0).VALUE = "INST6"

End If

' If [Link] = True Then

' If [Link] <> "" And [Link] <> "" Then

' .Fields(21).VALUE = [Link]

' .Fields(22).VALUE = [Link]

' Else

' .Fields(21).VALUE = 0

' .Fields(22).VALUE = 0

' End If

'txttotamtbtcs(i).Text

'txttotalamtbtcs(i).Text

.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(16).VALUE = 0

.Fields(17).VALUE = Date

.Fields(14).VALUE = txtddexbt(iii).Text

.Fields(15).VALUE = 0

.Fields(23).VALUE = "Demand Draft"

.Fields(24).VALUE = txtLTFBTDD(iii).Text

.Fields(25).VALUE = txtLFBTDD(iii).Text

.Fields(26).VALUE = [Link]

.Update

MsgBox "record update"

End If

End With

End Sub

Private Sub cmdtomf_Click()

'[Link]

s = NumberToString(Val([Link]))

MsgBox (s)

End Sub

'Private Sub cmdwaiver_Click()

'[Link] = False
'End Sub

Private Sub Command1_Click()

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_receipt order by rec_mr_no", con, adOpenDynamic,

adLockOptimistic

If [Link] = True Then

[Link]

[Link] = Val(([Link]("rec_mr_no").VALUE)) + 1

[Link] = False

Else

[Link] = False

End If

End Sub

Private Sub Command2_Click()

'**************Date wise**************************

If [Link] = "" Then

[Link] = True

Exit Sub

End If

If [Link] = adStateOpen Then

[Link]

End If

[Link] "SELECT * from tbl_receipt where rec_mr_no='" & Trim([Link]) & "'",
con, adOpenDynamic, adLockOptimistic

If [Link] And [Link] Then

MsgBox ("record not found")

Exit Sub

'[Link]
Else

While [Link] = False

If rslist(18) = "M-Male" Then

[Link]("Section1").Controls("lblmr").Caption = "MR."

Else

[Link]("Section1").Controls("lblmr").Caption = "MS."

End If

If rslist(8) = "DD" Then

[Link]("Section1").Controls("lbldd").Visible = True

[Link]("Section1").Controls("lblchdd").Visible = True

[Link]("Section1").Controls("txtddno").Visible = True

[Link]("Section1").Controls("txtdddate").Visible = True

[Link]("Section1").Controls("lblvide").Visible = True

[Link]("Section1").Controls("lblchdd").Caption = "DD No."

[Link]("Section1").Controls("lbldate").Visible = True

[Link]("Section1").Controls("lbldot").Visible = True

[Link]("Section1").Controls("Label7").Visible = True

ElseIf rslist(8) = "Cash" Then

[Link]("Section1").Controls("lblcash").Visible = True

[Link]("Section1").Controls("lbldd").Visible = False

[Link]("Section1").Controls("lblchdd").Visible = False

[Link]("Section1").Controls("txtddno").Visible = False

[Link]("Section1").Controls("txtdddate").Visible = False

[Link]("Section1").Controls("lblvide").Visible = False

[Link]("Section1").Controls("lblchdd").Caption = "DD No."

[Link]("Section1").Controls("lbldate").Visible = False

[Link]("Section1").Controls("lbldot").Visible = False

[Link]("Section1").Controls("Line11").Visible = False

[Link]("Section1").Controls("Line13").Visible = False

[Link]("Section1").Controls("Line14").Visible = False
[Link]("Section1").Controls("Label7").Visible = False

ElseIf rslist(8) = "Cheque" Then

[Link]("Section1").Controls("lblch").Visible = True

[Link]("Section1").Controls("lblchdd").Visible = True

[Link]("Section1").Controls("txtchno").Visible = True

[Link]("Section1").Controls("txtchdate").Visible = True

[Link]("Section1").Controls("lblvide").Visible = True

[Link]("Section1").Controls("lblchdd").Caption = "[Link]"

[Link]("Section1").Controls("lbldate").Visible = True

[Link]("Section1").Controls("lbldot").Visible = True

[Link]("Section1").Controls("Label7").Visible = True

End If

[Link]

Wend

Set [Link] = rslist

'DataReport6

[Link]

Exit Sub

End If

End Sub

Private Sub Form_Load()

[Link] = False

[Link] = Date

[Link] = Date
If [Link] = "" Then

MsgBox ("First you select Application Number")

[Link]

[Link] = False

'Exit Sub

End If

Call setdatabase

Set con = New [Link]

[Link] datastr

' mrat = "Select max(VAL(Adf_Mrno)) from tbl_admission_fee"

' If [Link] = adStateOpen Then

' [Link]

' End If

' [Link] mrat, con, adOpenDynamic, adLockOptimistic

' If [Link] And [Link] Then

' MsgBox ("No Record")

' End If

' mr = rsmr(0).VALUE + 1

' If [Link] = "Demand Draft" Then

' [Link] = mr

' ElseIf [Link] = "Cheque" Then

' [Link] = mr

' ElseIf [Link] = "Cash" Then

' [Link] = mr

' End If

'Call mrupdate

'[Link] = False

'[Link] = True
If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_receipt", con, adOpenDynamic, adLockOptimistic

'[Link] = False

If [Link] = "" Then

Exit Sub

Else

'Call list

Call feedetails

End If

End Sub

Sub mrupdate()

mrat = "Select max(VAL(MRNO)) from tbl_MaxMrno"

If [Link] = adStateOpen Then

[Link]

End If

[Link] mrat, con, adOpenDynamic, adLockOptimistic

If [Link] And [Link] Then

MsgBox ("No Record")

End If

mr = rsmr(0).VALUE + 1

If [Link] = "Demand Draft" Then

[Link] = mr

ElseIf [Link] = "Cheque" Then

[Link] = mr

ElseIf [Link] = "Cash" Then

[Link] = mr

End If
End Sub

[Link] = True

End If
End Sub

'Public Sub list()

'Dim rslis As New [Link]

'[Link]

'j = 1

'Dim str As String

'str = "SELECT * FROM tbl_Admission_Fee where Std_appno='" & [Link] &

"'"

'If [Link] = adStateOpen Then

'[Link]

'End If

'[Link] str, con, adOpenDynamic, adLockOptimistic

'If [Link] And [Link] Then

'ToolTipText = "no record"

'MsgBox "no record in the database"

'Else

'End If

'If [Link] = False Then [Link]

'While Not [Link]

'With rslis

'If Not (.Fields(1)) = "" Then

'[Link](j) = .Fields(1).VALUE

'End If

'If Not (.Fields(3)) = "" Then

'[Link](j).SubItems(1) = .Fields(3).VALUE

'End If

'If Not (.Fields(2)) = "" Then

'[Link](j).SubItems(2) = [Link]

'End If

'[Link](j).SubItems(11) = .Fields(23).VALUE

'End If

'j = j + 1

'[Link]

'End With

'Wend

'End Sub

Sub feedetails()
[Link]

Dim rsfd As New [Link]

If [Link] = adStateOpen Then

[Link]

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='" &
[Link] & "' order by tbl_Admission_Fee.Sem"

[Link] disp, con, adOpenDynamic, adLockOptimistic

j = 1

[Link](j).SubItems(16) = rsfd(18)
End If

If rsfd(18) <> "" Then

[Link](j).SubItems(17) = rsfd(17)

End If

j = j + 1

[Link]

Wend

End Sub

Private Sub SS_Click(PreviousTab As Integer)

'mrat = "Select max(VAL(Adf_Mrno)) from tbl_admission_fee"

' If [Link] = adStateOpen Then

' [Link]

' End If

' [Link] mrat, con, adOpenDynamic, adLockOptimistic

' If [Link] And [Link] Then

' MsgBox ("No Record")

' End If

Private Sub txtamountdd_LostFocus()

[Link] = Val([Link])

End Sub

Private Sub txtLTFCS_LostFocus()

[Link] = Val([Link]) + Val([Link]) + Val([Link])

End Sub

Private Sub txtLTFDD_LostFocus()

[Link] = Val([Link]) + Val([Link])

End Sub

Sub wordfun()

s = NumberToString([Link])

s = "(" + s + " only)"

MsgBox (s)

End Sub

Private Sub txtmrnoch_Lostfocus()

If [Link] = "" Then

MsgBox "First you enter MRNo."

[Link]
Else

'[Link]

'Wend

End If

End Sub

Private Sub txtmrnoch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

Single)

If [Link] = False And [Link] = False Then

MsgBox ("Select payment mode")

ElseIf [Link] = 0 And [Link] = 0 Then

MsgBox ("Select fullpayment or installment")

End If
End Sub

Private Sub txtmrnocs_LostFocus()

'If [Link] = "" Then

'MsgBox ("First yooou enter mrno")

'[Link]

'Else

'Dim mrch As New [Link]

'If [Link] = adStateOpen Then

' [Link]

'End If

'[Link] "Select Adf_mrno from tbl_Admission_Fee where Adf_mrno='" & [Link] &
"'", con, adOpenDynamic, adLockOptimistic

''While [Link] = False

'If [Link] And [Link] Then

'Exit Sub

'End If

'If mrch(0).VALUE = [Link] Then

'MsgBox ("MRNo. already exist")

''[Link] = ""

'[Link] = ""

'[Link]

'End If

''[Link]

''Wend

'End If

End Sub

Private Sub txtmrnocs_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As

Single)

If [Link] = False And [Link] = False Then

MsgBox ("Select payment mode")

ElseIf [Link] = 0 And [Link] = 0 Then

MsgBox ("Select fullpayment or installment")

End If

End Sub

Private Sub txtmrnodd_LostFocus()

If [Link] = "" Then

MsgBox "First you enter MRNo."

[Link]

Else

Dim mrch As New [Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "Select Adf_mrno from tbl_Admission_Fee where Adf_mrno='" & [Link] &
"'", con, adOpenDynamic, adLockOptimistic

'While [Link] = False

If [Link] And [Link] Then

Else

If Trim(mrch(0).VALUE) = Trim([Link]) Then

MsgBox ("MRNo. already exist")

[Link] = ""

[Link]

'[Link] = ""

End If

'[Link]

'Wend

End If

End Sub

Private Sub txtmrnodd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

Single)

If [Link] = False And [Link] = False Then

MsgBox ("Select payment mode")

ElseIf [Link] = 0 And [Link] = 0 Then

MsgBox ("Select fullpayment or installment")

End If

End Sub

Campus Entry Form

Source Code
Dim con As New [Link]

Dim rs As New [Link]

Dim ar As New [Link]

Dim rs1 As New [Link]

Dim cmp As New [Link]

Dim mln, frmname, str, ctr, ctr1

Private Sub cmdadd_Click()

Call clear

If [Link] = "Add" Then

[Link] = "Cancel"
Call Enable

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_place_company", con, adOpenDynamic, adLockOptimistic

If [Link] And [Link] Then

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.[Link] = "C" & "00" & 1

Exit Sub

Else

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_place_company order by comps_auto_no", con, adOpenDynamic, adLockOptimistic

[Link]

str = Val(([Link]("comps_auto_no").VALUE)) + 1

txtcompus_no.Text = str

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_place_company order by Company_id", con, adOpenDynamic, adLockOptimistic

[Link]

If Mid(([Link]("Company_id").VALUE), 2) < 9 Then

frmCampus_form.[Link] = "C" & "00" & Mid(([Link]("Company_id").VALUE), 2) + 1

ElseIf Mid(([Link]("Company_id").VALUE), 2) >= 9 Then

frmCampus_form.[Link] = "C" & "0" & Mid(([Link]("Company_id").VALUE), 2) + 1

ElseIf Mid(([Link]("Company_id").VALUE), 2) > 99 Then

frmCampus_form.[Link] = "C" & Mid(([Link]("Company_id").VALUE), 2) + 1

ElseIf Mid(([Link]("Company_id").VALUE), 2) > 999 Then

frmCampus_form.[Link] = "C" & Mid(([Link]("Company_id").VALUE), 2) + 1

End If

[Link]

End If

Else

[Link] = "Add"

Call clear

Call disable

End If

End Sub

Private Sub cmdmod_Click()

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_place_company where trim(comps_auto_no)='" & Trim(txtcompus_no.Text) & "'",
con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

Call updt

Call disable

End Sub

Private Sub cmdSave_Click()

Call save

Call cplist

End Sub

Private Sub Form_Load()

Set con = New [Link]

Set rs = New [Link]

Call setdatabase

Set con = New [Link]

[Link] datastr

str = 0

[Link] = Date

[Link]

Call cplist

Call disable

End Sub

Public Sub clear()

[Link] = ""

txtcompus_no.Text = ""

txtcomp_name.Text = ""

[Link] = ""

End Sub

Private Sub lst1_Click()

If [Link] = 0 Then

Exit Sub

End If
[Link] = [Link]

txtcomp_name.Text = [Link](1)

End Sub

Private Sub lst2_Click()

Call Enable

txtcompus_no.Text = [Link]

[Link] = [Link](1)

txtcomp_name.Text = [Link](2)

[Link] = [Link](3)

[Link] = [Link](4)

[Link] = [Link](5)

[Link] = [Link](6)

[Link] = [Link](7)

[Link] = [Link](8)

[Link] = [Link](9)

[Link] = [Link](10)

[Link] = [Link](11)

[Link] = [Link](12)

[Link] = [Link](13)

[Link] = [Link](14)

[Link] = [Link](15)

[Link] = [Link](16)

[Link] = [Link](17)

[Link] = [Link](18)

[Link] = [Link](19)

[Link] = [Link](20)

[Link] = [Link](21)

[Link] = [Link](22)

[Link] = [Link](23)

[Link] = [Link](24)

[Link] = [Link](25)

[Link] = [Link](26)

[Link] = [Link](27)

[Link] = [Link](28)

[Link] = [Link](29)
End Sub

Private Sub txtcomp_name_Change()

Dim rsSearch As New [Link]

Dim str As String

Dim item As Single

Dim list As ListItem

If IsEmpty(txtcomp_name) Or txtcomp_name = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_company_master where trim(company_name) like'" & Trim(txtcomp_name.Text) &
"%'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = True Then

End If

Else

If [Link] = False Then

[Link]

End If

If [Link] = True Then

Else

With lst1

.[Link]

While Not [Link]

Set list = .[Link](, , rsSearch(0))

If rsSearch(1) <> "" Then

[Link](1) = rsSearch(1)

Else

[Link](1) = ""

End If
[Link]

Wend

End With

End If

Dim Counter, c

Counter = 0

For c = 1 To [Link]

Counter = Counter + 1

[Link] = Counter

End Sub

Public Sub Enable()

txtcompus_no.Enabled = True

[Link] = True

txtcomp_name.Enabled = True

[Link] = True

[Link] = True
[Link] = True

End Sub

Public Sub disable()

[Link] = False

txtcompus_no.Enabled = False

txtcomp_name.Enabled = False

[Link] = False

End Sub

Public Sub cplist()

j = 1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_place_company where type=false", con, adOpenDynamic, adLockOptimistic

[Link](j).SubItems(21) = rs(21).VALUE

End If

[Link](j).SubItems(28) = rs(28).VALUE

End If

If rs(29).VALUE <> "" Then

[Link](j).SubItems(29) = rs(29).VALUE

End If

j = j + 1

[Link]

Wend

End With

End Sub

Public Sub save()

ctr = 0

ctr1 = 0

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_company_master", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

If cmp(1).VALUE <> Trim(txtcomp_name.Text) Then

ctr = 0

Else

ctr1 = 1

End If

[Link]

Wend

If ctr1 <> 1 Then

[Link]

cmp(0).VALUE = Trim([Link])

cmp(1).VALUE = Trim(txtcomp_name.Text)

[Link]

End If

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_place_company", con, adOpenDynamic, adLockOptimistic

[Link]

rs(0).VALUE = Trim(txtcompus_no.Text)

rs(1).VALUE = Trim([Link])

rs(2).VALUE = Trim(txtcomp_name.Text)

rs(3).VALUE = [Link]

rs(4).VALUE = Trim([Link])

rs(5).VALUE = Trim([Link])

rs(6).VALUE = Trim([Link])

rs(7).VALUE = Trim([Link])

rs(8).VALUE = Trim([Link])

rs(9).VALUE = Trim([Link])

rs(10).VALUE = Trim([Link])

rs(11).VALUE = Trim([Link])

rs(12).VALUE = Trim([Link])

rs(13).VALUE = Trim([Link])

rs(14).VALUE = Trim([Link])

rs(15).VALUE = Trim([Link])
rs(16).VALUE = Trim([Link])

rs(17).VALUE = Trim([Link])

rs(18).VALUE = Trim([Link])

rs(19).VALUE = Trim([Link])

rs(20).VALUE = Trim([Link])

rs(21).VALUE = Trim([Link])

rs(22).VALUE = Trim([Link])

rs(23).VALUE = Trim([Link])

rs(24).VALUE = Trim([Link])

rs(25).VALUE = Trim([Link])

rs(26).VALUE = Trim([Link])

rs(27).VALUE = Trim([Link])

rs(28).VALUE = Trim([Link])

rs(29).VALUE = Trim([Link])

rs(30).VALUE = False

[Link]

MsgBox ("Record Update")

[Link] = "Add"

Call clear

Call disable

End Sub

Public Sub updt()

rs(0).VALUE = Trim(txtcompus_no.Text)

rs(1).VALUE = Trim([Link])

rs(2).VALUE = Trim(txtcomp_name.Text)

rs(3).VALUE = [Link]

rs(4).VALUE = Trim([Link])

rs(5).VALUE = Trim([Link])

rs(6).VALUE = Trim([Link])

rs(7).VALUE = Trim([Link])

rs(8).VALUE = Trim([Link])

rs(9).VALUE = Trim([Link])

rs(10).VALUE = Trim([Link])

rs(11).VALUE = Trim([Link])

rs(12).VALUE = Trim([Link])
rs(13).VALUE = Trim([Link])

rs(14).VALUE = Trim([Link])

rs(15).VALUE = Trim([Link])

rs(16).VALUE = Trim([Link])

rs(17).VALUE = Trim([Link])

rs(18).VALUE = Trim([Link])

rs(19).VALUE = Trim([Link])

rs(20).VALUE = Trim([Link])

rs(21).VALUE = Trim([Link])

rs(22).VALUE = Trim([Link])

rs(23).VALUE = Trim([Link])

rs(24).VALUE = Trim([Link])

rs(25).VALUE = Trim([Link])

rs(26).VALUE = Trim([Link])

rs(27).VALUE = Trim([Link])

rs(28).VALUE = Trim([Link])

rs(29).VALUE = Trim([Link])

rs(30).VALUE = False

[Link]

MsgBox ("Record Update")

Call clear

Call cplist

End Sub
Placement Interest Form

Source Code
Dim rs As New [Link]

Dim rs1 As New [Link]

Dim con As New [Link]

Dim ba As New [Link]

Dim rssession1 As New [Link]

Dim rscourse As New [Link]

Dim os As New [Link]

Dim ca As New [Link]

Dim fa As New [Link]

Dim cmp As New [Link]

Dim cl As New [Link]

Dim cm, mx, f, total, j1, f1

Dim str, lw, gw

Dim mln, frmname

Dim rsSearch As New [Link]

Dim cp As New [Link]

Private Sub chkall_Click()

Dim k

If [Link] = 1 Then

For k = 1 To [Link]

[Link](k).Checked = True

Else

For k = 1 To [Link]

[Link](k).Checked = False

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()

[Link]

If [Link] = 1 And [Link] = 0 And [Link] = 0 Then

j=1

str = "select *from tbl_batch_allow where trim(Crs_CourseID)='" & Trim([Link]) & "'"

If [Link] = adStateOpen Then

[Link]
End If

[Link] str, con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("Not Found")

Exit Sub

End If

[Link](j).SubItems(11) = rsSearch(12).VALUE

End If

If rsSearch(13).VALUE <> "" Then

[Link](j).SubItems(12) = rsSearch(13).VALUE

End If

j=j+1

[Link]

Wend

[Link] = j - 1

Exit Sub

End If

'**********************

If [Link] = 0 And [Link] = 1 And [Link] = 0 Then

[Link]

j=1

str = "select *from tbl_batch_allow where trim(crs_semester)='" & Trim([Link]) & "'"

If [Link] = adStateOpen Then

[Link]

End If
[Link] str, con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("Not Found")

Exit Sub

Else

Wend

[Link] = j - 1

Exit Sub

End If

'*******************************

If [Link] = 0 And [Link] = 0 And [Link] = 1 Then

'MsgBox ("Select course and semster first")

'Exit Sub

'Else

[Link]

j=1
str = "select *from tbl_batch_allow where trim(std_session)= '" & Trim([Link]) & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("Not Found")

Exit Sub

Else

[Link](j).SubItems(11) = rsSearch(12).VALUE

End If

If rsSearch(13).VALUE <> "" Then

[Link](j).SubItems(12) = rsSearch(13).VALUE

End If

j=j+1

[Link]

Wend

[Link] = j - 1

Exit Sub

End If

'*******************************

'*course with sem*******

If [Link] = 1 And [Link] = 1 And [Link] = 0 Then

[Link]
j=1

str = "select *from tbl_batch_allow where trim(Crs_CourseID)='" & Trim([Link]) & "'and trim(crs_semester)='"
& Trim([Link]) & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("Not Found")

Exit Sub

Else

[Link](j).SubItems(5) = rsSearch(5).VALUE

End If
If rsSearch(7).VALUE <> "" Then

[Link](j).SubItems(12) = rsSearch(13).VALUE

End If

j=j+1

[Link]

Wend

[Link] = j - 1

Exit Sub

End If

'****************************************

'*coursw with session8

If [Link] = 1 And [Link] = 0 And [Link] = 1 Then

'MsgBox ("Select course and semster first")

'Exit Sub

'Else

[Link]

j=1

str = "select *from tbl_batch_allow where trim(Crs_CourseID)='" & Trim([Link]) & "'and trim(std_session)= '" &
Trim([Link]) & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("Not Found")

Exit Sub

Else

[Link]

While [Link] = False

If rsSearch(0).VALUE <> "" Then

[Link](j) = rsSearch(0).VALUE

End If

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(1) = rsSearch(1).VALUE

End If

If rsSearch(2).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(2).VALUE

End If

If rsSearch(3).VALUE <> "" Then

[Link](j).SubItems(3) = rsSearch(3).VALUE

End If

[Link](j).SubItems(12) = rsSearch(13).VALUE

End If

j=j+1

[Link]

Wend

[Link] = j - 1

Exit Sub

End If
End If

'********************************************

If [Link] = 0 And [Link] = 0 And [Link] = 0 Then

MsgBox ("Select the option at first")

Exit Sub

Else

[Link]

j=1

str = "select *from tbl_batch_allow where trim(Crs_CourseID)='" & Trim([Link]) & "'and trim(crs_semester)='"
& Trim([Link]) & "'and trim(std_session)= '" & Trim([Link]) & "'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("Not Found")

Exit Sub

Else

[Link]

While [Link] = False

If rsSearch(0).VALUE <> "" Then

[Link](j) = rsSearch(0).VALUE

End If

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(1) = rsSearch(1).VALUE

End If

If rsSearch(2).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(2).VALUE

End If

[Link](j).SubItems(11) = rsSearch(12).VALUE

End If

If rsSearch(13).VALUE <> "" Then

[Link](j).SubItems(12) = rsSearch(13).VALUE

End If

j=j+1

[Link]

Wend
[Link] = j - 1

Exit Sub

End If

End Sub

Private Sub cmdost_Click()

[Link]

End Sub

Private Sub cmdsv_Click()

If [Link] = "" Then

MsgBox ("Select whether you are submit bio data or not")

Exit Sub

End If

If [Link] = 0 Then

MsgBox ("No record to save")

Exit Sub

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 [Link] <> 0 Then

For j = j To [Link]

If [Link](j).Checked = True Then

If [Link](1) <> "" Then

str = [Link](1)

[Link](3) = [Link](j).SubItems(1)

[Link](4) = [Link](j).SubItems(2)

[Link](5) = [Link](j).SubItems(3)

[Link](6) = [Link](j).SubItems(4)

[Link](7) = [Link](j).SubItems(5)

[Link](8) = [Link](j).SubItems(7)
[Link](9) = [Link](j).SubItems(8)

[Link](10) = [Link](j).SubItems(9)

[Link](11) = [Link](j).SubItems(10)

[Link](12) = [Link](j).SubItems(11)

[Link](13) = True

[Link](14) = Trim(com_name.Text)

[Link](15) = [Link]

If [Link] = "Submit" Then

cp(16).VALUE = True

Else

cp(16).VALUE = False

End If

[Link](17) = False

[Link](18) = False

[Link]

Else

'***********8

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_roll)='" & (str) & "'and trim(cumpus_no)='" &
Trim([Link]) & "'", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link](0) = Trim([Link])

[Link](1) = [Link](j1).Text

[Link](2) = [Link](j).Text

[Link](3) = [Link](j).SubItems(1)

[Link](4) = [Link](j).SubItems(2)

[Link](5) = [Link](j).SubItems(3)

[Link](6) = [Link](j).SubItems(4)

[Link](7) = [Link](j).SubItems(5)

[Link](8) = [Link](j).SubItems(7)
[Link](9) = [Link](j).SubItems(8)

[Link](10) = [Link](j).SubItems(9)

[Link](11) = [Link](j).SubItems(10)

[Link](12) = [Link](j).SubItems(11)

[Link](13) = True

[Link](14) = Trim(com_name.Text)

[Link](15) = [Link]

If [Link] = "Submit" Then

cp(16).VALUE = True

Else

cp(16).VALUE = False

End If

[Link](17) = False

[Link](18) = False

[Link]

'**************

End If

Else

str = [Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_roll)='" & (str) & "'and trim(cumpus_no)='" &
Trim([Link]) & "'", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link]
[Link](0) = Trim([Link])

[Link](1) = [Link](j1).Text

[Link](2) = [Link](j).Text

[Link](3) = [Link](j).SubItems(1)

[Link](4) = [Link](j).SubItems(2)

[Link](5) = [Link](j).SubItems(3)

[Link](6) = [Link](j).SubItems(4)

[Link](7) = [Link](j).SubItems(5)

[Link](8) = [Link](j).SubItems(7)

[Link](9) = [Link](j).SubItems(8)

[Link](10) = [Link](j).SubItems(9)

[Link](11) = [Link](j).SubItems(10)

[Link](12) = [Link](j).SubItems(11)

[Link](13) = True

[Link](14) = Trim(com_name.Text)

[Link](15) = [Link]

If [Link] = "Submit" Then

cp(16).VALUE = True

Else

cp(16).VALUE = False

End If

[Link](17) = False

[Link](18) = False

[Link]

Else

'***********8

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_roll)='" & (str) & "'and trim(cumpus_no)='" &
Trim([Link]) & "'", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link](0) = Trim([Link])

[Link](1) = [Link](j1).Text

[Link](2) = [Link](j).Text

[Link](3) = [Link](j).SubItems(1)

[Link](4) = [Link](j).SubItems(2)

[Link](5) = [Link](j).SubItems(3)

[Link](6) = [Link](j).SubItems(4)

[Link](7) = [Link](j).SubItems(5)

[Link](8) = [Link](j).SubItems(7)

[Link](9) = [Link](j).SubItems(8)

[Link](10) = [Link](j).SubItems(9)

[Link](11) = [Link](j).SubItems(10)

[Link](12) = [Link](j).SubItems(11)

[Link](13) = True

[Link](14) = Trim(com_name.Text)

[Link](15) = [Link]

If [Link] = "Submit" Then

cp(16).VALUE = True

Else

cp(16).VALUE = False

End If

[Link](17) = False

[Link](18) = False

[Link]

'**************

End If

j1 = j1 + 1

Else

End If

Next
MsgBox ("Records Update")

[Link]

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

Private Sub Form_Load()

f=0

total = 0

cm = 0

mx = 0

j=0

Call setdatabase

Set con = New [Link]

[Link] datastr

'*************************

com_name.clear

[Link] = Date

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select * from tbl_place_company where type=false", con, adOpenDynamic, adLockOptimistic

While [Link] = False

Wend
'MsgBox cm

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from qur_batch_allo", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While Not [Link]

mx = (mx + 1)

[Link]

Wend

'MsgBox (mx)

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from qur_fresh_addmission", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While Not [Link]

f = (f + 1)

[Link]

Wend

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from qur_outsider_std", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While Not [Link]

f1 = (f1 + 1)

[Link]

Wend

'MsgBox (f)
total = (mx + f + f1)

'MsgBox (total)

If cm = total Then

'MsgBox ("dd")

Exit Sub

Else

If [Link] = False Then [Link]

While Not [Link]

[Link]

[Link](0) = [Link](0)

[Link](1) = [Link](1)

[Link](2) = [Link](2)

[Link](3) = [Link](3)

[Link](4) = [Link](4)

[Link](5) = [Link](5)

[Link](6) = False

[Link](7) = ""

[Link](8) = [Link](6)

[Link](9) = [Link](7)
[Link](10) = [Link](10)

[Link](11) = [Link](9)

[Link](12) = [Link](8)

[Link](13) = [Link](11)

[Link]

Wend

[Link]

End If

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from qur_fresh_addmission", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While Not [Link]

[Link]

[Link](0) = [Link](0)

[Link](1) = ""

[Link](2) = [Link](1)

[Link](3) = [Link](2)

[Link](4) = [Link](3)

[Link](5) = [Link](4)

[Link](6) = False

[Link](7) = ""

[Link](8) = [Link](5)

[Link](9) = [Link](6)

[Link](10) = [Link](9)

[Link](11) = [Link](8)

[Link](12) = [Link](7)

[Link]

Wend

[Link]
'**************

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from qur_outsider_std", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While Not [Link]

[Link]

[Link](0) = "0"

[Link](1) = [Link](0)

[Link](2) = [Link](1)

[Link](3) = [Link](2)

[Link](9) = [Link](3)

[Link]

Wend

[Link]

'***********************

[Link] = False

[Link] = Date

End Sub

Private Sub Frame8_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub listdetails_Click()

If [Link] = False Then

[Link] = True

Else

[Link] = 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()

'[Link] = False

'[Link] = True

'Call clear2

Dim rsSearch As New [Link]

Dim item As Single

Dim list As ListItem

If IsEmpty(txtcid) Or txtcid = "" Then

'Call clear2

Exit Sub

End If

str = "select *from tbl_place_company where trim(Company_id) like'" & Trim([Link]) & "%'and type=false"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = True And [Link] = True Then

Exit Sub

End If

If [Link] = False Then [Link]

While [Link] = False

[Link] = rsSearch(0).VALUE

com_name.Text = rsSearch(2).VALUE

[Link] = rsSearch(3).VALUE
[Link]

Wend

End Sub

Private Sub txtcno_Change()

type=false"

'If [Link] = adStateOpen Then

'[Link]

'End If

'[Link] str, con, adOpenKeyset, adLockPessimistic

'If [Link] = True And [Link] = True Then

'MsgBox ("this companay is not comming")

'Exit Sub

'End If

'If [Link] = False Then [Link]

End If

str = "select *from tbl_batch_allow where trim(std_name) like'" & Trim([Link]) & "%'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = True Then

End If

Else

If [Link] = False Then

[Link]

End If

If [Link] = True Then

Else

With listdetails

While Not [Link]

End If

[Link]

Wend
End With

End If

Dim Counter, c

Counter = 0

For c = 1 To [Link]

Counter = Counter + 1

[Link] = Counter - 1

End Sub

Private Sub txtroll_Change()

[Link]

If [Link] = 1 And [Link] = 0 Then

MsgBox ("Diselect course at first")

Exit Sub

ElseIf [Link] = 1 And [Link] = 0 Then

MsgBox ("Diselect Sem at first")

Exit Sub

ElseIf [Link] = 1 And [Link] = 1 Then

MsgBox ("Diselect Course and Sem at first")

Exit Sub

End If

Dim item As Single

Dim list As ListItem

If IsEmpty(txtroll) Or txtroll = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_batch_allow where trim(std_RollNo) like'" & Trim([Link]) & "%'"

If [Link] = adStateOpen Then

[Link]
End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = True Then

End If

Else

If [Link] = False Then

[Link]

End If

If [Link] = True Then

Else

With listdetails

.[Link]

While Not [Link]

End If

[Link]

Wend

End With

End If

Dim Counter, c

Counter = 0

For c = 1 To [Link]

Counter = Counter + 1

[Link] = Counter - 1
End Sub

Public Sub clear()

[Link] = False

[Link] = ""

[Link] = 0

[Link] = ""

[Link] = 0

[Link] = ""

End Sub

Public Sub back()

[Link] = False

[Link] = True

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select * from tbl_place_company where trim(com_name)='" & Trim(com_name.Text) & "'and type= false", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

'MsgBox ("No record found")

Exit Sub

End If

While [Link] = False

[Link] = cl(0).VALUE

[Link] = cl(1).VALUE

[Link] = cl(3).VALUE

[Link]
Wend

End Sub

Public Sub id()

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

With lst

j1 = 1

For j = j To [Link]

If [Link](j).Checked = True Then

If j1 <= 9 Then

.[Link](j1) = "i" & 0 & 0 & 0 & 0 & j1

ElseIf j1 > 9 And j1 <= 99 Then

.[Link](j1) = "i" & 0 & 0 & 0 & j1

ElseIf j1 > 99 And j1 <= 999 Then

.[Link](j1) = "i" & 0 & 0 & j1

ElseIf j1 > 999 And j1 <= 9999 Then

.[Link](j1) = "i" & 0 & j1

ElseIf j1 > 9999 And j1 <= 99999 Then

.[Link](j1) = "i" & j1

ElseIf j1 > 99999 Then

.[Link](j1) = "i" & j1 + 1

End If

j1 = j1 + 1

Else

End If

Next
End With

'MsgBox ("deepak")

Exit Sub

Else

[Link]

j1 = 1

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student order by Interview_id", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

.[Link](j1) = "i" & str

ElseIf str >= 99999 Then

.[Link](j1) = "i" & str + 1

End If

j1 = j1 + 1

End If

End With

'[Link] = 0

Exit Sub

End If

End Sub

Company for Campus

Source code
Dim con As New [Link]

Dim rs As New [Link]

Dim rs1 As New [Link]

Dim bat As New [Link]

Dim rscourse As New [Link]

Dim tmp As New [Link]

Dim rsfin As New [Link]

Dim rssession1 As New [Link]

Dim rsSearch As New [Link]

Dim cl As New [Link]

Dim fa As New [Link]

Dim rsSearch1 As New [Link]

Dim irst As New [Link]

Dim ar As New [Link]

Dim ba As New [Link]

Dim cp As New [Link]

Dim j, str

Dim k

Private Sub Check1_Click()

If [Link] = 1 Then
For k = 1 To [Link]

[Link](k).Checked = True

Else

For k = 1 To [Link]

[Link](k).Checked = False

End If

End Sub

Private Sub chka1_Click()

End Sub

Private Sub cmdbk_Click()

frmStd_inter.Show

End Sub

Private Sub cmdok_Click()

[Link] = ""

Call data

End Sub

Private Sub cmds_Click()

If [Link] = "" Then

MsgBox ("select company name at first")

Exit Sub

End If
If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(Interview_id)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("This student did not fill interest form")

Exit Sub

End If

rsSearch(16).VALUE = True

[Link]

Call res

[Link] = ""

End Sub

Private Sub cmdsub_Click()

'**********************************

[Link]

End If

[Link] "select *from tbl_interested_student where trim(app_no)='" & (str) & "'", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

Exit Sub

End If

rs1(20).VALUE = True

[Link]

End If

[Link]

[Link] = ""

[Link] = 0

[Link] = ""

[Link]

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 :"

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

listof_select.Caption = ""

listof_select.Caption = "(List of all selected student :"

'***********************************

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_place_company where trim(comps_auto_no)='" & Trim([Link]) & "' ", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

rs1(2).VALUE = Trim([Link])

rs1(3).VALUE = [Link]

rs1(29).VALUE = "Held"

rs1(30).VALUE = True

[Link]

'Call list2

MsgBox ("records update")

End Sub

Private Sub Form_Load()

Call setdatabase

Set con = New [Link]

[Link] datastr

Set rs = New [Link]

Dim cm, mx, f, total

cm = 0

f=0

mx = 0

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select * from tbl_Course_Master", con, adOpenDynamic, adLockOptimistic

While [Link] = False

[Link] rscourse(2)

[Link]

Wend

If [Link] = adStateOpen Then

[Link]

End If

[Link] "delete *from tbl_std_selection_tbl", con, adOpenDynamic, adLockOptimistic

Dim j

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select * from tbl_Session order by crs_sessiondate desc", con, adOpenDynamic, adLockOptimistic

While [Link] = False

[Link] rssession1(0)

[Link]

Wend

[Link] = Date

End Sub

Private Sub TXTNAME_Change()

Dim rsSearch As New [Link]

Dim item As Single

Dim list As ListItem

If IsEmpty(txtname) Or txtname = "" Then

[Link]

Exit Sub

End If
str = "select *from tbl_batch_allow where trim(std_name) like'" & Trim([Link]) & "%'"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = True Then

End If

Else

If [Link] = False Then

[Link]

End If

If [Link] = True Then

Else

With ls1

.[Link]

While Not [Link]

Set list = .[Link](, , rsSearch(0))

If rsSearch(1) <> "" Then

[Link](1) = rsSearch(1)

Else

[Link](1) = ""

End If

If rsSearch(2) <> "" Then

Dim EX As New Application

Dim Book As Workbook

Dim Sheet As Worksheet

Set EX = CreateObject("[Link]")

Set Book = [Link]

Set Sheet = [Link](1)

With Sheet

[Link](1, 1) = "App_No"

[Link](1, 2) = "Interview Id"

[Link](1, 3) = "Roll No"

[Link](1, 4) = "Name"

[Link](1, 5) = "F'name"

[Link](1, 6) = "Course"

[Link](1, 7) = "Semester"

[Link](1, 8) = "Session"

[Link](1, 9) = "Mobile1"

[Link](1, 10) = "Mobile2"

i=1

For i = i To [Link]

[Link](i + 1, 1) = [Link](i).SubItems(1)

[Link](i + 1, 2) = [Link](i).SubItems(3)

[Link](i + 1, 3) = [Link](i).SubItems(2)

[Link](i + 1, 4) = [Link](i).SubItems(4)

[Link](i + 1, 5) = [Link](i).SubItems(5)

[Link](i + 1, 6) = [Link](i).SubItems(6)

[Link](i + 1, 7) = [Link](i).SubItems(7)

[Link](i + 1, 8) = [Link](i).SubItems(8)

[Link](i + 1, 9) = [Link](i).SubItems(9)

[Link](i + 1, 10) = [Link](i).SubItems(10)

[Link] = True

[Link] = 12

[Link]
End With

End Sub

Private Sub lblprn_Click()

Call prn1

End Sub

Private Sub lblprn1_Click()

Dim EX As New Application

Dim Book As Workbook

Dim Sheet As Worksheet

Set EX = CreateObject("[Link]")

Set Book = [Link]

Set Sheet = [Link](1)

With Sheet

[Link](1, 1) = "App_No"

[Link](1, 2) = "Interview Id"

[Link](1, 3) = "Roll No"

[Link](1, 4) = "Name"

[Link](1, 5) = "F'name"

[Link](1, 6) = "Course"

[Link](1, 7) = "Semester"

[Link](1, 8) = "Session"

[Link](1, 9) = "Mobile1"

[Link](1, 10) = "Mobile2"

i=1

For i = i To [Link]

[Link](i + 1, 1) = [Link](i).SubItems(3)

[Link](i + 1, 2) = [Link](i).SubItems(2)

[Link](i + 1, 3) = [Link](i).SubItems(4)

[Link](i + 1, 4) = [Link](i).SubItems(5)
[Link](i + 1, 5) = [Link](i).SubItems(6)

[Link](i + 1, 6) = [Link](i).SubItems(7)

[Link](i + 1, 7) = [Link](i).SubItems(8)

[Link](i + 1, 8) = [Link](i).SubItems(9)

[Link](i + 1, 9) = [Link](i).SubItems(10)

[Link](i + 1, 10) = [Link](i).SubItems(11)

[Link] = True

[Link] = 12

[Link]

End With

End Sub

Private Sub lblprn3_Click()

Dim EX As New Application

Dim Book As Workbook

Dim Sheet As Worksheet

Set EX = CreateObject("[Link]")

Set Book = [Link]

Set Sheet = [Link](1)

With Sheet

[Link](1, 1) = "App_No"

[Link](1, 2) = "Interview Id"

[Link](1, 3) = "Roll No"

[Link](1, 4) = "Name"

[Link](1, 5) = "F'name"

[Link](1, 6) = "Course"

[Link](1, 7) = "Semester"

[Link](1, 8) = "Session"

[Link](1, 9) = "Mobile1"
[Link](1, 10) = "Mobile2"

i=1

For i = i To [Link]

[Link](i + 1, 1) = [Link](i).SubItems(2)

[Link](i + 1, 2) = [Link](i).SubItems(1)

[Link](i + 1, 3) = [Link](i).SubItems(3)

[Link](i + 1, 4) = [Link](i).SubItems(4)

[Link](i + 1, 5) = [Link](i).SubItems(5)

[Link](i + 1, 6) = [Link](i).SubItems(6)

[Link](i + 1, 7) = [Link](i).SubItems(7)

[Link](i + 1, 8) = [Link](i).SubItems(8)

[Link](i + 1, 9) = [Link](i).SubItems(9)

[Link](i + 1, 10) = [Link](i).SubItems(10)

[Link] = True

[Link] = 12

[Link]

End With

End Sub

Private Sub lblprn4_Click()

Dim EX As New Application

Dim Book As Workbook

Dim Sheet As Worksheet

Set EX = CreateObject("[Link]")

Set Book = [Link]

Set Sheet = [Link](1)

With Sheet

[Link](1, 1) = "App_No"
[Link](1, 2) = "Interview Id"

[Link](1, 3) = "Roll No"

[Link](1, 4) = "Name"

[Link](1, 5) = "F'name"

[Link](1, 6) = "Course"

[Link](1, 7) = "Semester"

[Link](1, 8) = "Session"

[Link](1, 9) = "Mobile1"

[Link](1, 10) = "Mobile2"

i=1

For i = i To [Link]

[Link](i + 1, 1) = [Link](i).SubItems(2)

[Link](i + 1, 2) = [Link](i).SubItems(1)

[Link](i + 1, 3) = [Link](i).SubItems(3)

[Link](i + 1, 4) = [Link](i).SubItems(4)

[Link](i + 1, 5) = [Link](i).SubItems(5)

[Link](i + 1, 6) = [Link](i).SubItems(6)

[Link](i + 1, 7) = [Link](i).SubItems(7)

[Link](i + 1, 8) = [Link](i).SubItems(8)

[Link](i + 1, 9) = [Link](i).SubItems(9)

[Link](i + 1, 10) = [Link](i).SubItems(10)

[Link] = True

[Link] = 12

[Link]

End With

End Sub

Private Sub lblprn5_Click()

Dim EX As New Application

Dim Book As Workbook

Dim Sheet As Worksheet

Set EX = CreateObject("[Link]")

Set Book = [Link]

Set Sheet = [Link](1)

With Sheet

[Link](1, 1) = "App_No"

[Link](1, 2) = "Interview Id"

[Link](1, 3) = "Roll No"

[Link](1, 4) = "Name"

[Link](1, 5) = "F'name"

[Link](1, 6) = "Course"

[Link](1, 7) = "Semester"

[Link](1, 8) = "Session"

[Link](1, 9) = "Mobile1"

[Link](1, 10) = "Mobile2"

i=1

For i = i To [Link]

[Link](i + 1, 1) = [Link](i).SubItems(2)

[Link](i + 1, 2) = [Link](i).SubItems(1)

[Link](i + 1, 3) = [Link](i).SubItems(3)

[Link](i + 1, 4) = [Link](i).SubItems(4)

[Link](i + 1, 5) = [Link](i).SubItems(5)

[Link](i + 1, 6) = [Link](i).SubItems(6)

[Link](i + 1, 7) = [Link](i).SubItems(7)

[Link](i + 1, 8) = [Link](i).SubItems(8)

[Link](i + 1, 9) = [Link](i).SubItems(9)

[Link](i + 1, 10) = [Link](i).SubItems(10)

[Link] = True
[Link] = 15

[Link]

End With

End Sub

Private Sub listdetails_Click()

If [Link] = 0 Then

Exit Sub

End If

Dim eno

If [Link] = True Then

[Link] = False

eno = [Link](4)

If MsgBox(Space(5) & "You have to diselect" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res1

Else

[Link] = True

Exit Sub

End If

Else

[Link] = True

eno = [Link](4)

If MsgBox(Space(5) & " " & (eno) & "You have to submit bio data", vbYesNo, "O.A. System") = vbYes Then

Call res

Else

[Link] = False

Exit Sub

End If

End Sub

Private Sub lst1_Click()

If [Link] = 0 Then

Exit Sub

Else

Dim ctr

'[Link] = .Fields(3).VALUE

[Link] = .Fields(3).VALUE

End If

End With

Exit Sub

End If

End Sub

Private Sub lst2_Click()

If [Link] = 0 Then
Exit Sub

End If

Dim eno

If [Link] = True Then

[Link] = False

eno = [Link](5)

If MsgBox(Space(5) & "You have to diselect" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res3

Else

[Link] = True

Exit Sub

End If

Else

[Link] = True

eno = [Link](5)

If MsgBox(Space(5) & "You have to select" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res2

Else

[Link] = False

Exit Sub

End If

End Sub

Private Sub lst4_click()

If [Link] = 0 Then

Exit Sub

End If

Dim eno

If [Link] = True Then

[Link] = False
eno = [Link](4)

If MsgBox(Space(5) & "You have to diselect" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res7

Else

[Link] = True

Exit Sub

End If

Else

[Link] = True

eno = [Link](4)

If MsgBox(Space(5) & "You have to select" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res6

Else

[Link] = False

Exit Sub

End If

End Sub

Private Sub lst5_click()

If [Link] = 0 Then

Exit Sub

End If

If [Link] = 0 Then

Exit Sub

End If

Dim eno

If [Link] = True Then

[Link] = False

eno = [Link](5)

If MsgBox(Space(5) & "You have to diselect" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res5
Else

[Link] = True

Exit Sub

End If

Else

[Link] = True

eno = [Link](5)

If MsgBox(Space(5) & "You have to select" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res4

Else

[Link] = False

Exit Sub

End If

End Sub

Private Sub lst7_click()

'Dim eno

'If [Link] = True Then

'eno = [Link](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 = [Link](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

Private Sub lst6_click()

If [Link] = 0 Then

Exit Sub

End If

Dim eno

If [Link] = True Then

[Link] = False

eno = [Link](4)

If MsgBox(Space(5) & "You have to diselect" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res7a

Else

[Link] = True

Exit Sub

End If

Else

[Link] = True

eno = [Link](4)

If MsgBox(Space(5) & "You have to select" & " " & (eno), vbYesNo, "O.A. System") = vbYes Then

Call res6a

Else

[Link] = False

Exit Sub

End If

End Sub

Private Sub txtcid_Change()

Dim rsSearch As New [Link]

Dim item As Single

Dim list As ListItem

If IsEmpty(txtcid) Or txtcid = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_place_company where trim(Company_id) like'" & Trim([Link]) & "%'and type=false"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = True Then

End If

Else

If [Link] = False Then

[Link]

End If

If [Link] = True Then

Else

With lst1

.[Link]

j=1

While Not [Link]

.[Link](j) = j

If rsSearch(0) <> "" Then

.ListItems(j).SubItems(1) = (rsSearch(0))

End If

If rsSearch(1) <> "" Then

.ListItems(j).SubItems(2) = rsSearch(1)
Else

.ListItems(j).SubItems(2) = ""

End If

If rsSearch(2) <> "" Then

.ListItems(j).SubItems(3) = rsSearch(2)

Else

.ListItems(j).SubItems(3) = ""

End If

If rsSearch(3) <> "" Then

.ListItems(j).SubItems(4) = rsSearch(3)

Else

.ListItems(j).SubItems(4) = ""

End If

[Link]

Wend

End With

End If

End Sub

Private Sub txtcname_Change()

Dim rsSearch As New [Link]

Dim item As Single

Dim list As ListItem

If IsEmpty(txtcname) Or txtcname = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_place_company where trim(com_name) like'" & Trim([Link]) & "%'and type=false"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = True Then

End If

.ListItems(j).SubItems(4) = rsSearch(3)

Else

.ListItems(j).SubItems(4) = ""

End If

[Link]

Wend

End With

End If

End Sub

Private Sub txtcno_Change()

Dim rsSearch As New [Link]

Dim item As Single

Dim list As ListItem

If IsEmpty(txtcno) Or txtcno = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_place_company where trim(comps_auto_no) like'" & Trim([Link]) & "%'and type=false"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = True Then

End If

.ListItems(j).SubItems(4) = rsSearch(3)

Else

.ListItems(j).SubItems(4) = ""

End If

[Link]

Wend

End With

End If

.ListItems(j).SubItems(11) = rsSearch(12).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

[Link]

End With

Wend
[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

Call l1

End Sub

Private Sub txtsearch_Change()

[Link]

j=1

Dim item As Single

Dim list As ListItem

If IsEmpty(txtsearch) Or txtsearch = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_interested_student where trim(std_name) like'" & Trim([Link]) & "%'and
trim(cumpus_no)='" & Trim([Link]) & " ' and interested=true and submite_cv=true"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = False Then [Link]

While [Link] = False

With lst2

.[Link](j) = j

If rsSearch(16).VALUE = True Then

.ListItems(j).SubItems(1) = "Submit"

Else

.ListItems(j).SubItems(1) = "Not Submit"

End If

.ListItems(j).SubItems(8) = rsSearch(7).VALUE

Else

.ListItems(j).SubItems(8) = ""
End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(11) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

[Link]

End With

Wend

frmlist_in.Caption = ""

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()

[Link]

j=1

Dim item As Single

Dim list As ListItem

If IsEmpty(txtsearch1) Or txtsearch1 = "" Then

[Link]
Exit Sub

End If

str = "select *from tbl_interested_student where trim(std_name) like'" & Trim([Link]) & "%'and
trim(cumpus_no)='" & Trim([Link]) & " ' and interested=true and submite_cv=false"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = False Then [Link]

While [Link] = False

With listdetails

.[Link](j) = j

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(3).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(3).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(3) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(3) = ""

End If

If rsSearch(4).VALUE <> "" Then

.ListItems(j).SubItems(4) = rsSearch(4).VALUE

Else

.ListItems(j).SubItems(4) = ""

End If
If rsSearch(5).VALUE <> "" Then

.ListItems(j).SubItems(11) = rsSearch(12).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

'Call la1

End Sub

Public Sub subcv()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where and trim(comp_name)='" & Trim([Link]) & "'and
trim(compus_date)=#" & Trim(Format([Link], "mm/dd/yyyy")) & "# and submite_cv=true ", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

Exit Sub

End If

While [Link] = False

With lst4

.[Link](j) = j

.ListItems(j).SubItems(7) = rs(7).VALUE

Else

.ListItems(j).SubItems(7) = ""
End If

If rs(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rs(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rs(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rs(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rs(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rs(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

[Link]

j=j+1

End With

Wend

[Link] = "Attend Student are:" & "" & j - 1

End Sub

Public Sub back()

j=1

k=1

str = [Link](4)

For j = j To [Link]

If str = [Link](j).SubItems(4) Then

End If

If [Link] = False Then [Link]

rs(19).VALUE = True

[Link]

Call List4

Else

[Link] = False

If [Link] = adStateOpen Then

[Link]

End If
[Link] "select *from tbl_interested_student where trim(std_roll)='" & (str) & "'and trim(comp_name)='" &
Trim([Link]) & "'and trim(compus_date)=#" & Trim(Format([Link], "mm/dd/yyyy")) & "# and
interested=true ", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

rs(19).VALUE = False

[Link]

Call List4

Exit Sub

End If

Else

str = [Link](3)

If [Link] = False Then

[Link] = True

[Link] "select *from tbl_interested_student where trim(app_no)='" & (str) & "'and trim(comp_name)='" &
Trim([Link]) & "'and trim(compus_date)=#" & Trim(Format([Link], "mm/dd/yyyy")) & "# and
interested=true ", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

rs(19).VALUE = True

[Link]

Call List4

Exit Sub

[Link] "select *from tbl_std_selection_tbl", con, adOpenDynamic, adLockOptimistic

If [Link](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

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

rs(16).VALUE = True

[Link]

Else

Exit Sub

End If

Else

i=1

Dim nm

nm = [Link](5)

str = [Link](4)
For i = i To [Link]

If str = [Link](i).SubItems(3) Then

MsgBox (nm & " " & " you already atend the interview")

Exit Sub

End If

If [Link](4) <> "" Then

str = [Link](4)

If [Link] = False Then

[Link] = True

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

rs(17).VALUE = True

[Link]

Else

[Link] = False

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

rs(17).VALUE = False

[Link]

Exit Sub

End If

Else
str = [Link](3)

If [Link] = False Then

[Link] = True

If [Link] = False Then [Link]

rs(17).VALUE = True

[Link]

Exit Sub

Else

[Link] = False

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

rs(17).VALUE = False

[Link]

Exit Sub

End If

End Sub

Public Sub link()

If [Link] = adStateOpen Then

[Link]

End If
[Link] "select *from tbl_std_selection_tbl where type1=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

k=1

[Link]

If [Link] = False Then [Link]

[Link] = [Link] & " " & "(List of all attended student:"
[Link] = [Link] & " " & k - 1 & ")"

End Sub

Public Sub back2()

j=1

k=1

i=1

Dim nm

nm = [Link](4)

str = [Link](3)

For i = i To [Link]

If str = [Link](i).SubItems(3) Then

MsgBox (nm & " " & " you already selected")

Exit Sub

End If

If [Link] = adStateOpen Then

[Link]

End If

If [Link](3) <> "" Then

str = [Link](3)

If [Link] = False Then

[Link] = True

[Link] "select *from tbl_std_selection_tbl where trim(roll)='" & (str) & "'", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

tmp(10).VALUE = True

[Link]

Call link1

Else

[Link] = False

If [Link] = adStateOpen Then

[Link]
End If

[Link] "select *from tbl_std_selection_tbl where trim(roll)='" & (str) & "'", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

tmp(10).VALUE = False

[Link]

Call link1

End If

If [Link] = False Then [Link]

tmp(10).VALUE = False

[Link]

Call link1

End If
End If

End Sub

Public Sub link1()

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_std_selection_tbl where type=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

k=1

[Link]

'Call attend

While [Link] = False

[Link](k) = k

If tmp(0).VALUE <> "" Then

[Link](k).SubItems(1) = tmp(0)

Else

[Link](k).SubItems(1) = ""

End If

If tmp(1).VALUE <> "" Then

[Link](k).SubItems(2) = tmp(1)

Else

[Link](k).SubItems(2) = ""

End If

If tmp(2).VALUE <> "" Then

[Link](k).SubItems(3) = tmp(2)

Else

[Link](k).SubItems(3) = ""

End If

[Link](k).SubItems(10) = tmp(9)

Else

[Link](k).SubItems(10) = ""
End If

[Link]

k=k+1

Wend

listof_select.Caption = ""

listof_select.Caption = "(List of all selected student :"

listof_select.Caption = listof_select.Caption & "" & k - 1 & ")"

End Sub

Public Sub listp()

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_std_selection_tbl where type1=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

k=1

[Link]

'Call attend

If [Link] = False Then [Link]

End If

If tmp(9).VALUE <> "" Then

[Link](k).SubItems(10) = tmp(9)

Else

[Link](k).SubItems(10) = ""

End If

[Link]

k=k+1

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & k - 1 & ")"

End Sub

Public Sub listp1()

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_std_selection_tbl where type2=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

k=1

[Link]

'Call attend

If [Link] = False Then [Link]

While [Link] = False

[Link](k) = k

[Link](k).SubItems(7) = tmp(6)

Else

[Link](k).SubItems(7) = ""

End If
If tmp(7).VALUE <> "" Then

[Link](k).SubItems(8) = tmp(7)

Else

[Link](k).SubItems(8) = ""

End If

If tmp(8).VALUE <> "" Then

[Link](k).SubItems(9) = tmp(8)

Else

[Link](k).SubItems(9) = ""

End If

If tmp(9).VALUE <> "" Then

[Link](k).SubItems(10) = tmp(9)

Else

[Link](k).SubItems(10) = ""

End If

[Link]

k=k+1

Wend

listof_select.Caption = ""

listof_select.Caption = "(List of all selected student :"

listof_select.Caption = listof_select.Caption & "" & k - 1 & ")"

End Sub

Public Sub list2()

[Link] = 0

MsgBox ("h1")

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "delete *from tbl_std_selection_tbl", con, adOpenDynamic, adLockOptimistic

[Link] "select *from tbl_std_selection_tbl", con, adOpenDynamic, adLockOptimistic

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(comp_name)='" & Trim([Link]) & "'and
trim(compus_date)=#" & Trim(Format([Link], "mm/dd/yyyy")) & "# and interested=true and
submite_cv=false", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("Either company name wrong or date is wrong please try again")

[Link](j).SubItems(8) = rs(8).VALUE

tmp(7).VALUE = rs(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If
If rs(9).VALUE <> "" Then

[Link](j).SubItems(9) = rs(9).VALUE

tmp(8).VALUE = rs(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rs(10).VALUE <> "" Then

[Link](j).SubItems(10) = rs(10).VALUE

tmp(9).VALUE = rs(10).VALUE

tmp(10).VALUE = False

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = "(List of interested student :"

frmlist_in.Caption = frmlist_in.Caption & "" & j - 1 & ")"

End Sub

Public Sub prn1()

Dim EX As New Application

Dim Book As Workbook

Dim Sheet As Worksheet

Set EX = CreateObject("[Link]")

Set Book = [Link]

Set Sheet = [Link](1)

With Sheet

[Link](1, 1) = "App_No"
[Link](1, 2) = "Interview Id"

[Link](1, 3) = "Roll No"

[Link](1, 4) = "Name"

[Link](1, 5) = "F'name"

[Link](1, 6) = "Course"

[Link](1, 7) = "Semester"

[Link](1, 8) = "Session"

[Link](1, 9) = "Mobile1"

[Link](1, 10) = "Mobile2"

i=1

For i = i To [Link]

[Link](i + 1, 1) = [Link](i).SubItems(3)

[Link](i + 1, 2) = [Link](i).SubItems(2)

[Link](i + 1, 3) = [Link](i).SubItems(4)

[Link](i + 1, 4) = [Link](i).SubItems(5)

[Link](i + 1, 5) = [Link](i).SubItems(6)

[Link](i + 1, 6) = [Link](i).SubItems(7)

[Link](i + 1, 7) = [Link](i).SubItems(8)

[Link](i + 1, 8) = [Link](i).SubItems(9)

[Link](i + 1, 9) = [Link](i).SubItems(10)

[Link](i + 1, 10) = [Link](i).SubItems(11)

[Link] = True

[Link] = 12

[Link]

End With

[Link](j).SubItems(6) = rs(6).VALUE

Else

[Link](j).SubItems(6) = ""
End If

If rs(7).VALUE <> "" Then

[Link](j).SubItems(7) = rs(7).VALUE

Else

[Link](j).SubItems(7) = ""

End If

If rs(8).VALUE <> "" Then

[Link](j).SubItems(8) = rs(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rs(9).VALUE <> "" Then

[Link](j).SubItems(9) = rs(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rs(10).VALUE <> "" Then

[Link](j).SubItems(10) = rs(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = "(List of interested student :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

End Sub

Public Sub showall1()

Else

[Link](j).SubItems(6) = ""

End If
If rs(7).VALUE <> "" Then

[Link](j).SubItems(7) = rs(7).VALUE

Else

[Link](j).SubItems(7) = ""

End If

If rs(8).VALUE <> "" Then

[Link](j).SubItems(8) = rs(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rs(9).VALUE <> "" Then

[Link](j).SubItems(9) = rs(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rs(10).VALUE <> "" Then

[Link](j).SubItems(10) = rs(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student :"

listof_pre.Caption = listof_pre.Caption & " " & k - 1 & ")"

End Sub

Public Sub showall2()

j=1

While [Link] = False

[Link](j) = j
If rs(1).VALUE <> "" Then

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & k - 1 & ")"

End Sub

Public Sub res()

If [Link] = False Then [Link]

rs(16).VALUE = True

[Link]

Call data

'*****************************************

MsgBox ("Cv submited succesfully")

Exit Sub

End If

End Sub

'Public Sub stdcv()

'If [Link] = adStateOpen Then

'[Link]

'End If
'[Link] "select *from tbl_interested_student where trim(comp_name)='" & Trim([Link]) & "'and
trim(compus_date)=#" & Trim(Format([Link], "mm/dd/yyyy")) & "# and interested=true and
submite_cv=false", con, adOpenDynamic, adLockOptimistic

'If [Link] = False Then [Link]

'If [Link] And [Link] Then

'MsgBox ("Either company name wrong or date is wrong please try again")

'Exit Sub

'End If

'While [Link] = False

'[Link]

'[Link](j).SubItems(9) = rs(8).VALUE

'tmp(8).VALUE = rs(8).VALUE

'Else
'[Link](j).SubItems(9) = ""

'End If

'If rs(9).VALUE <> "" Then

'[Link](j).SubItems(10) = rs(9).VALUE

'tmp(9).VALUE = rs(9).VALUE

'Else

'[Link](j).SubItems(10) = ""

'End If

'If rs(10).VALUE <> "" Then

'[Link](j).SubItems(11) = rs(10).VALUE

'tmp(10).VALUE = rs(10).VALUE

'tmp(11).VALUE = False

'tmp(12).VALUE = False

'Else

'[Link](j).SubItems(11) = ""

'End If

'j = j + 1

'[Link]

'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

[Link]

If [Link] = adStateOpen Then

[Link]
End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "'and
trim(comp_name)='" & Trim([Link]) & "'and trim(compus_date)=#" & Trim(Format([Link],
"mm/dd/yyyy")) & "# and interested=true and submite_cv=true or std_cv=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

[Link](k).SubItems(5) = ""

End If
If rs(5).VALUE <> "" Then

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student :"

listof_pre.Caption = listof_pre.Caption & " " & k - 1 & ")"

End Sub

Public Sub c1()

[Link]

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(17).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

[Link](j) = j

If rsSearch(16).VALUE = True Then

[Link](j).SubItems(1) = "Submit"

Else

[Link](j).SubItems(1) = "Not Submit"

End If

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(1).VALUE

Else

[Link](j).SubItems(2) = ""

End If
If rsSearch(2).VALUE <> "" Then

'**********************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=false", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With listdetails

.[Link](j) = j
If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(11) = rsSearch(12).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

'***************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

'************************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(19).VALUE = True Then

'[Link](j).Checked = True

[Link](j).SubItems(6) = rsSearch(6).VALUE

Else

[Link](j).SubItems(6) = ""

End If

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

'***************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If
[Link] "select *from tbl_interested_student where trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and short_list=true and
type=false", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

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

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

[Link](j).SubItems(4) = ""

End If
If rsSearch(5).VALUE <> "" Then

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all Selected student:"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub

Public Sub c2()

[Link]

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(17).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

[Link](j) = j

If rsSearch(16).VALUE = True Then

[Link](j).SubItems(1) = "Submit"

Else

[Link](j).SubItems(1) = "Not Submit"

End If

[Link](j).SubItems(8) = rsSearch(7).VALUE

Else

[Link](j).SubItems(8) = ""

End If
If rsSearch(8).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(8).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = frmlist_in.Caption & " " & "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

'**********************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=false", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

Wend

[Link] = ""
[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

'****************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

[Link](j).SubItems(9) = rsSearch(8).VALUE

Else

[Link](j).SubItems(9) = ""
End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

'************************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

End If

If rsSearch(6).VALUE <> "" Then

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"
frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

'******************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(1) = rsSearch(1).VALUE

Else

[Link](j).SubItems(1) = ""

End If

If rsSearch(2).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(2).VALUE

Else

[Link](j).SubItems(2) = ""

End If

If rsSearch(3).VALUE <> "" Then

[Link](j).SubItems(3) = rsSearch(3).VALUE

Else

[Link](j).SubItems(3) = ""

End If

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else
[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all Selected student:"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

Exit Sub

End Sub

Public Sub c3()

[Link]

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "' and
trim(std_sem)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and
submite_cv=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(16).VALUE = True Then

[Link](j).SubItems(1) = "Submit"

Else

[Link](j).SubItems(1) = "Not Submit"

End If

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(1).VALUE

Else

[Link](j).SubItems(2) = ""

End If
If rsSearch(2).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

'**********************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "'and
trim(std_sem)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and
submite_cv=false", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

.ListItems(j).SubItems(6) = ""

End If
If rsSearch(7).VALUE <> "" Then

.ListItems(j).SubItems(7) = rsSearch(7).VALUE

Else

.ListItems(j).SubItems(7) = ""

End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

If rsSearch(12).VALUE <> "" Then

.ListItems(j).SubItems(11) = rsSearch(12).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"
[Link] = [Link] & " " & j - 1 & ")"

'************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If
If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

'************************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(1) = rsSearch(1).VALUE

Else

[Link](j).SubItems(1) = ""

End If

[Link](j).SubItems(8) = rsSearch(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If
If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

'***************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

[Link](j).SubItems(7) = rsSearch(7).VALUE

Else

[Link](j).SubItems(7) = ""

End If
If rsSearch(8).VALUE <> "" Then

[Link](j).SubItems(8) = rsSearch(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

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

[Link]

If [Link] = adStateOpen Then

[Link]

End Sub

Public Sub c4()

[Link]
j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "' and
trim(std_sem)='" & Trim([Link]) & "' and trim(std_session)='" & Trim([Link]) & "' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

j=j+1

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

'**********************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

If rsSearch(12).VALUE <> "" Then

.ListItems(j).SubItems(11) = rsSearch(12).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

'*******************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j
If rsSearch(16).VALUE = True Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

'************************************
j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]
Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

'***************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

End If

j=j+1

[Link]

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

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(1) = rsSearch(1).VALUE

Else

[Link](j).SubItems(1) = ""

End If

If rsSearch(2).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(2).VALUE

Else

[Link](j).SubItems(2) = ""

End If
If rsSearch(3).VALUE <> "" Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "'and
trim(std_session)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link](j).SubItems(7) = ""

End If
If rsSearch(7).VALUE <> "" Then

[Link](j).SubItems(8) = rsSearch(7).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rsSearch(8).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(8).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

'**********************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]
End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "' and
trim(std_session)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=false", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "' and
trim(std_session)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(16).VALUE = True Then

[Link](j).SubItems(1) = "Submit"

Else

[Link](j).SubItems(1) = "Not Submit"

End If

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(1).VALUE

Else

[Link](j).SubItems(2) = ""

End If

[Link](j).SubItems(9) = rsSearch(8).VALUE

Else

[Link](j).SubItems(9) = ""
End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

'************************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

[Link](j).SubItems(7) = rsSearch(7).VALUE

Else

[Link](j).SubItems(7) = ""
End If

If rsSearch(8).VALUE <> "" Then

[Link](j).SubItems(8) = rsSearch(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

'***************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

j=1

[Link]
If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub

Public Sub res1()

Exit Sub

End If

End Sub
Public Sub check()

If [Link] = 0 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call cc1

Exit Sub

End If

'*****************************************

If [Link] = 1 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call cc2

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call cc3

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call cc6

Exit Sub

End If

If [Link] = 0 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call cc7

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call cc8

Exit Sub

End If

'**************************

If [Link] = 1 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call cc4

Exit Sub
End If

'************************************

If [Link] = 1 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call cc5

Exit Sub

End If

End Sub

Public Sub res2()

If [Link] = False Then [Link]

rs(17).VALUE = True

[Link]
[Link]

Call check

'*****************************************

Exit Sub

End If

End Sub

Public Sub Check1()

If [Link] = 0 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call cc1a

Exit Sub

End If

'*****************************************

If [Link] = 1 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call cc2a

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call cc3a

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call cc6a

Exit Sub

End If

If [Link] = 0 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call cc7a

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call cc8a
Exit Sub

End If

'**************************

If [Link] = 1 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call cc4a

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call cc5a

Exit Sub

End If

End Sub

Public Sub paten1()

[Link]

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link]

While [Link] = False

[Link](j) = j

If rsSearch(16).VALUE = True Then

[Link](j).SubItems(1) = "Submit"

Else

[Link](j).SubItems(1) = "Not Submit"

End If

End If
[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link]

While [Link] = False

[Link](j) = j

If rsSearch(16).VALUE = True Then

[Link](j).SubItems(1) = "Submit"

Else

[Link](j).SubItems(1) = "Not Submit"

End If

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(1).VALUE

Else

[Link](j).SubItems(2) = ""

End If

If rsSearch(2).VALUE <> "" Then

[Link](j).SubItems(3) = rsSearch(2).VALUE

Else

[Link](j).SubItems(3) = ""

End If

If rsSearch(3).VALUE <> "" Then

[Link](j).SubItems(4) = rsSearch(3).VALUE

Else

[Link](j).SubItems(4) = ""

End If

If rsSearch(4).VALUE <> "" Then

[Link](j).SubItems(5) = rsSearch(4).VALUE

Else

[Link](j).SubItems(5) = ""

End If
If rsSearch(5).VALUE <> "" Then

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = frmlist_in.Caption & " " & "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

End Sub

Public Sub paten3()

[Link]

j=1

If [Link] = adStateOpen Then

[Link](j).SubItems(9) = rsSearch(8).VALUE

Else

[Link](j).SubItems(9) = ""
End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = frmlist_in.Caption & " " & "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

End Sub

Public Sub paten4()

[Link]

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & "' and
trim(std_sem)='" & Trim([Link]) & "'and trim(std_session)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link](j).SubItems(7) = ""

End If

If rsSearch(7).VALUE <> "" Then

End If

If rsSearch(3).VALUE <> "" Then

[Link](j).SubItems(4) = rsSearch(3).VALUE

Else

[Link](j).SubItems(4) = ""

End If
If rsSearch(4).VALUE <> "" Then

End Sub

Public Sub l1()

j=1

[Link]

str = "select *from tbl_interested_student where trim(std_roll) like'" & Trim([Link]) & "%'and trim(cumpus_no)='"
& Trim([Link]) & " 'and interested=true and submite_cv=true"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = False Then [Link]

If [Link] And [Link] Then

MsgBox ("No student has submited thier bio data")

Exit Sub

End If

While [Link] = False

With lst2

End If
If rsSearch(7).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(7).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(11) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

End With

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = frmlist_in.Caption & " " & "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

End Sub

Public Sub la1()

j=1

[Link]
str = "select *from tbl_interested_student where trim(std_name) like'" & Trim([Link]) & "%'and
trim(cumpus_no)='" & Trim([Link]) & " 'and interested=true and submite_cv=true"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = False Then [Link]

While [Link] = False

With lst2

[Link]

End With

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = frmlist_in.Caption & " " & "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

End Sub

Public Sub res3()

j=1

k=1

If [Link](4) <> "" Then

str = [Link](4)

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

rs(17).VALUE = False

[Link]

Call check

Else

str = [Link](3)

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(app_no)='" & (str) & "'and trim(cumpus_no)='" &
Trim([Link]) & "' and interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic
If [Link] = False Then [Link]

rs(17).VALUE = False

[Link]

Call check

'*****************************************

Exit Sub

End If

End Sub

Public Sub res4()

j=1

k=1

If [Link](4) <> "" Then

str = [Link](4)

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

rs(18).VALUE = True

[Link]

Call Check2

Else

str = [Link](3)

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(app_no)='" & (str) & "'and trim(cumpus_no)='" &
Trim([Link]) & "' and interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

rs(18).VALUE = True

[Link]

Call Check2

'*****************************************

Exit Sub

End If

End Sub

Public Sub res5()

j=1

k=1

If [Link](4) <> "" Then

str = [Link](4)

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

rs(18).VALUE = False

[Link]

Call Check2

Else

str = [Link](3)

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(app_no)='" & (str) & "'and trim(cumpus_no)='" &
Trim([Link]) & "' and interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

rs(18).VALUE = False

[Link]

Call Check2

'*****************************************

Exit Sub

End If

End Sub

Public Sub Check2()

If [Link] = 0 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call paten1a

Exit Sub

End If

If [Link] = 1 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call paten2a

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call paten6a

Exit Sub

End If

If [Link] = 0 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call paten7a

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call paten8a

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then
Call paten3a

Exit Sub

End If

'**************************

If [Link] = 1 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call paten4a

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call paten5a

Exit Sub

End If

End Sub

Public Sub paten1a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

Exit Sub

End Sub

Public Sub paten2a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link](j).SubItems(6) = ""

End If
If rsSearch(7).VALUE <> "" Then

[Link](j).SubItems(7) = rsSearch(7).VALUE

Else

[Link](j).SubItems(7) = ""

End If

If rsSearch(8).VALUE <> "" Then

[Link](j).SubItems(8) = rsSearch(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

Exit Sub

End Sub

Public Sub paten3a()

j=1

[Link]
If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(std_sem)='" & Trim([Link]) & "'and trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and
submite_cv=true and ph_interview=true and attend_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link] = [Link] & " " & j - 1 & ")"

Exit Sub

End Sub

Public Sub paten4a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(std_sem)='" & Trim([Link]) & "'and trim(std_session)='" & Trim([Link]) & "' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

Exit Sub

End Sub

Public Sub paten5a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(std_session)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(1) = rsSearch(1).VALUE

Else

[Link](j).SubItems(1) = ""

End If

[Link](j).SubItems(8) = rsSearch(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If
If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

Exit Sub

End Sub

Public Sub c6()

[Link]

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & "' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(16).VALUE = True Then

Else
[Link](j).SubItems(7) = ""

End If

If rsSearch(7).VALUE <> "" Then

[Link](j).SubItems(8) = rsSearch(7).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rsSearch(8).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(8).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

frmlist_in.Caption = ""

frmlist_in.Caption = "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

'**********************************

j=1

[Link]
If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & "' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=false", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

'************************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

End If

If rsSearch(8).VALUE <> "" Then

[Link](j).SubItems(8) = rsSearch(8).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

'***************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

If [Link] = False Then [Link]

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

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

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

[Link](j).SubItems(4) = ""

End If
If rsSearch(5).VALUE <> "" Then

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all Selected student:"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub

Public Sub c7()

[Link]

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_session)='" & Trim([Link]) & "' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(16).VALUE = True Then

[Link](j).SubItems(1) = "Submit"

Else

[Link](j).SubItems(1) = "Not Submit"

End If

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(1).VALUE

Else

[Link](j).SubItems(2) = ""

End If

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

'**********************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

With listdetails

.[Link](j) = j

.ListItems(j).SubItems(7) = rsSearch(7).VALUE

Else

.ListItems(j).SubItems(7) = ""
End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

If rsSearch(12).VALUE <> "" Then

.ListItems(j).SubItems(11) = rsSearch(12).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

'**********************

j=1

[Link]
If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

'************************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(1) = rsSearch(1).VALUE

Else

[Link](j).SubItems(1) = ""

End If

If rsSearch(2).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(2).VALUE

Else

[Link](j).SubItems(2) = ""

End If

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""
End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"

frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

'********************************8

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(1) = rsSearch(1).VALUE

Else

[Link](j).SubItems(1) = ""

End If

[Link](j).SubItems(8) = rsSearch(8).VALUE

Else
[Link](j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(9).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(10).VALUE

Else

[Link](j).SubItems(10) = ""

End If

j=j+1

[Link]

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

'***************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_session)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and type=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j

End If
[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & "' and
trim(std_session)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]
Wend

frmlist_in.Caption = ""

frmlist_in.Caption = "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

'**********************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & "' and
trim(std_session)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=false", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With listdetails

.[Link](j) = j

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(3).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(3).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(3) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(3) = ""

End If
If rsSearch(4).VALUE <> "" Then

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

'*******************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

[Link](j).SubItems(7) = ""

End If
If rsSearch(7).VALUE <> "" Then

[Link](j).SubItems(8) = rsSearch(7).VALUE

Else

[Link](j).SubItems(8) = ""

End If

If rsSearch(8).VALUE <> "" Then

[Link](j).SubItems(9) = rsSearch(8).VALUE

Else

[Link](j).SubItems(9) = ""

End If

If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

'************************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]
End If

If [Link] = False Then [Link]

[Link](j).SubItems(5) = ""

End If
If rsSearch(6).VALUE <> "" Then

'***************************

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

[Link](j).SubItems(4) = ""

End If
If rsSearch(5).VALUE <> "" Then

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

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

[Link](j).SubItems(3) = ""

End If
If rsSearch(4).VALUE <> "" Then

End Sub

Public Sub paten6()

[Link]

j=1

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_session)='" & Trim(combsession) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link]

While [Link] = False

[Link](j) = j

If rsSearch(16).VALUE = True Then

[Link](j).SubItems(1) = "Submit"

Else

[Link](j).SubItems(1) = "Not Submit"

End If

If rsSearch(1).VALUE <> "" Then

[Link](j).SubItems(2) = rsSearch(1).VALUE

Else

[Link](j).SubItems(2) = ""

End If

If rsSearch(2).VALUE <> "" Then

[Link](j).SubItems(3) = rsSearch(2).VALUE

Else

[Link](j).SubItems(3) = ""

End If

If rsSearch(3).VALUE <> "" Then

[Link](j).SubItems(4) = rsSearch(3).VALUE

Else

[Link](j).SubItems(4) = ""

End If

If rsSearch(4).VALUE <> "" Then

[Link](j).SubItems(5) = rsSearch(4).VALUE

Else

[Link](j).SubItems(5) = ""

End If

If rsSearch(5).VALUE <> "" Then

Wend
frmlist_in.Caption = ""

frmlist_in.Caption = frmlist_in.Caption & " " & "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

End Sub

Public Sub paten8()

[Link]

j=1

If [Link] = adStateOpen Then

frmlist_in.Caption = frmlist_in.Caption & " " & "(List of all interested student with cv :"

frmlist_in.Caption = frmlist_in.Caption & " " & j - 1 & ")"

End Sub

Public Sub data()

If [Link] = 0 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call c1

Exit Sub

End If

'*****************************************

If [Link] = 1 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call c2

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call c3

Exit Sub

End If
If [Link] = 0 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call c6

Exit Sub

End If

If [Link] = 0 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call c7

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call c8

Exit Sub

End If

'**************************

If [Link] = 1 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call c4

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call c5

Exit Sub

End If

End Sub

Public Sub Check4()

If [Link] = 0 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call c1

Exit Sub

End If

'*****************************************

If [Link] = 1 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call c2
Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call c3

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call c6

Exit Sub

End If

If [Link] = 0 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call c7

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call c8

Exit Sub

End If

'**************************

If [Link] = 1 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call c4

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call c5

Exit Sub

End If

End Sub
Public Sub nmsearch()

j=1

Dim item As Single

Dim list As ListItem

If IsEmpty(txtsearch1) Or txtsearch1 = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_interested_student where trim(std_name) like'" & Trim([Link]) & "%'and
trim(cumpus_no)='" & Trim([Link]) & " ' and interested=true and submite_cv=false"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = False Then [Link]

While [Link] = False

With listdetails

.[Link](j) = j

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(3).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(3).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""
End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

If rsSearch(12).VALUE <> "" Then

.ListItems(j).SubItems(11) = rsSearch(12).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If

j=j+1

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

End Sub

Private Sub txtsearch2_Change()

[Link]

j=1

Dim item As Single

Dim list As ListItem

If IsEmpty(txtsearch2) Or txtsearch2 = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_interested_student where trim(std_name) like'" & Trim([Link]) & "%'and
trim(cumpus_no)='" & Trim([Link]) & " ' and interested=true and submite_cv=true and ph_interview=true"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = False Then [Link]

While [Link] = False

With lst5

.[Link](j) = j

If rsSearch(16).VALUE = True Then

.ListItems(j).SubItems(1) = "Submit"

Else

.ListItems(j).SubItems(11) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(11) = ""

End If
j=j+1

[Link]

End With

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "( List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

End Sub

Private Sub txtsearch3_Change()

[Link]

j=1

Dim item As Single

Dim list As ListItem

If IsEmpty(txtsearch3) Or txtsearch3 = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_interested_student where trim(std_name) like'" & Trim([Link]) & "%'and
trim(cumpus_no)='" & Trim([Link]) & " ' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = False Then [Link]

While [Link] = False

With lst4

.[Link](j) = j

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "( List of all attended student:"

[Link] = [Link] & " " & j - 1 & ")"

End Sub

Private Sub txtsearch4_Change()

.[Link](j) = j

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

If rsSearch(3).VALUE <> "" Then

.ListItems(j).SubItems(3) = rsSearch(3).VALUE

Else

.ListItems(j).SubItems(3) = ""

End If

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else
.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"

MsgBox ("Diselect Course,Sem and session at first")

Exit Sub
End If

Dim item As Single

Dim list As ListItem

If IsEmpty(txtsname) Or txtsname = "" Then

[Link]

Exit Sub

End If

str = "select *from tbl_interested_student where trim(std_name) like'" & Trim([Link]) & "%'and
trim(cumpus_no)='" & Trim([Link]) & " 'and interested=true and submite_cv=false"

If [Link] = adStateOpen Then

[Link]

End If

[Link] str, con, adOpenKeyset, adLockPessimistic

If [Link] = False Then [Link]

While [Link] = False

With listdetails

.[Link](j) = j

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(3).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(3).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(3) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(3) = ""

End If
If rsSearch(4).VALUE <> "" Then

[Link]

End With

Wend

[Link] = ""

[Link] = [Link] & " " & "(List of all interested student without cv :"

[Link] = [Link] & " " & j - 1 & ")"

Call la1

End Sub

Public Sub res6()

If [Link] = False Then [Link]

rs(19).VALUE = True

[Link]

Call Check1

'*****************************************

Exit Sub

End If

End Sub

Public Sub res7()

j=1

k=1

If [Link](3) <> "" Then

Exit Sub

End If

End Sub

Public Sub paten6a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

[Link](j) = j
If rsSearch(1).VALUE <> "" Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_session)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link] = [Link] & " " & j - 1 & ")"

Exit Sub

End Sub

Public Sub paten8a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & "'and
trim(std_session)='" & Trim([Link]) & "' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

[Link](j).SubItems(3) = ""

End If
If rsSearch(4).VALUE <> "" Then

Exit Sub

End Sub

Public Sub cc1()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

End If
If rsSearch(7).VALUE <> "" Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If
If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc3()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(std_sem)='" & Trim([Link]) & " 'and trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and
submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

[Link](j) = j

Public Sub cc6()

j=1
[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else
[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc7()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_session)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

If rsSearch(7).VALUE <> "" Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & " 'and
trim(std_session)='" & Trim([Link]) & " 'and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc4()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(std_sem)='" & Trim([Link]) & " 'and trim(std_session)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

End If
If rsSearch(6).VALUE <> "" Then

End Sub

Public Sub cc5()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(std_session)='" & Trim([Link]) & " 'and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

'If rsSearch(18).VALUE = True Then

'[Link](j).Checked = True

'Else

'[Link](j).Checked = False

'End If

[Link](j).SubItems(9) = rsSearch(8).VALUE

Else

[Link](j).SubItems(9) = ""

End If
If rsSearch(9).VALUE <> "" Then

[Link](j).SubItems(10) = rsSearch(9).VALUE

Else

[Link](j).SubItems(10) = ""

End If

If rsSearch(10).VALUE <> "" Then

[Link](j).SubItems(11) = rsSearch(10).VALUE

Else

[Link](j).SubItems(11) = ""

End If

j=j+1

[Link]

Wend

listof_pre.Caption = ""

listof_pre.Caption = listof_pre.Caption & " " & "(List of all present student with cv:"

listof_pre.Caption = listof_pre.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc1a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

With lst6

.[Link](j) = j

.ListItems(j).SubItems(7) = rsSearch(7).VALUE

Else
[Link](j).SubItems(7) = ""

End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"

frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc2a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If
[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true and short_list=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

Else

.ListItems(j).SubItems(5) = ""

End If
If rsSearch(6).VALUE <> "" Then

.ListItems(j).SubItems(6) = rsSearch(6).VALUE

Else

.ListItems(j).SubItems(6) = ""

End If

If rsSearch(7).VALUE <> "" Then

.ListItems(j).SubItems(7) = rsSearch(7).VALUE

Else

[Link](j).SubItems(7) = ""

End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"
frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc3a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(std_sem)=' " & Trim([Link]) & " ' and trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and
submite_cv=true and ph_interview=true and attend_interview=true and short_list=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With lst6

.[Link](j) = j

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

If rsSearch(3).VALUE <> "" Then

.ListItems(j).SubItems(3) = rsSearch(3).VALUE

Else

.ListItems(j).SubItems(3) = ""

End If

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else
.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"

frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc6a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)=' " & Trim([Link]) & " ' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
short_list=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With lst6

.[Link](j) = j

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If
If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"

frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc7a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_session)=' " & Trim([Link]) & " ' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true and short_list=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link](j).SubItems(7) = ""

End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"

frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc8a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]
End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & " 'and
trim(std_session)=' " & Trim([Link]) & " ' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and short_list=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

[Link] "select *from tbl_interested_student where trim(std_course)=' " & Trim([Link]) & " ' and
trim(std_sem)='" & Trim([Link]) & " 'and trim(std_session)=' " & Trim([Link]) & " ' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true and short_list=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"

frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc5a()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)=' " & Trim([Link]) & " ' and
trim(std_session)=' " & Trim([Link]) & " ' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and short_list=true", con,
adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With lst6

.[Link](j) = j

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""
End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

frmshort_list.Caption = ""

frmshort_list.Caption = frmshort_list.Caption & " " & "(List of all Shot listed student:"

frmshort_list.Caption = frmshort_list.Caption & " " & j - 1 & ")"

End Sub

Public Sub res7a()

j=1

k=1

If [Link](3) <> "" Then

Exit Sub

End If

End Sub

Public Sub res6a()

j=1

k=1

If [Link](3) <> "" Then

str = [Link](3)

If [Link] = adStateOpen Then

[Link]

End If

rs(20).VALUE = True

[Link]

Call Check1a

Else

str = [Link](2)

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

rs(20).VALUE = True

[Link]

Call Check1a

'*****************************************

Exit Sub

End If

End Sub

Public Sub Check1a()

If [Link] = 0 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call cc1aa

Exit Sub

End If

'*****************************************

If [Link] = 1 And [Link] = 0 And [Link] = 0 And [Link] <> "" Then

Call cc2aa
Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call cc3aa

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 0 And [Link] <> "" Then

Call cc6aa

Exit Sub

End If

If [Link] = 0 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call cc7aa

Exit Sub

End If

If [Link] = 0 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call cc8aa

Exit Sub

End If

'**************************

If [Link] = 1 And [Link] = 1 And [Link] = 1 And [Link] <> "" Then

Call cc4aa

Exit Sub

End If

'************************************

If [Link] = 1 And [Link] = 0 And [Link] = 1 And [Link] <> "" Then

Call cc5aa

Exit Sub

End If

End Sub

Public Sub cc1aa()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

If [Link] = False Then [Link]

While [Link] = False

With lst3

.[Link](j) = j

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

If rsSearch(3).VALUE <> "" Then

.ListItems(j).SubItems(3) = rsSearch(3).VALUE

Else

.ListItems(j).SubItems(3) = ""

End If

If rsSearch(4).VALUE <> "" Then

.ListItems(j).SubItems(4) = rsSearch(4).VALUE

Else

.ListItems(j).SubItems(4) = ""

End If
If rsSearch(5).VALUE <> "" Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true and short_list=true and type=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With lst3

.[Link](j) = j

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else
.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all selected student :"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc3aa()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)='" & Trim([Link]) & " 'and
trim(std_sem)=' " & Trim([Link]) & " ' and trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and
submite_cv=true and ph_interview=true and attend_interview=true and type=true", con, adOpenDynamic,
adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With lst3

.[Link](j) = j

.ListItems(j).SubItems(7) = rsSearch(7).VALUE

Else

[Link](j).SubItems(7) = ""

End If
If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all selected student :"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc6aa()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

.ListItems(j).SubItems(6) = rsSearch(6).VALUE
Else

.ListItems(j).SubItems(6) = ""

End If

If rsSearch(7).VALUE <> "" Then

.ListItems(j).SubItems(7) = rsSearch(7).VALUE

Else

[Link](j).SubItems(7) = ""

End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all selected student :"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub
Public Sub cc7aa()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_session)=' " & Trim([Link]) & " ' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true and short_list=true and type=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With lst3

.[Link](j) = j

If rsSearch(1).VALUE <> "" Then

.ListItems(j).SubItems(1) = rsSearch(1).VALUE

Else

.ListItems(j).SubItems(1) = ""

End If

If rsSearch(2).VALUE <> "" Then

.ListItems(j).SubItems(2) = rsSearch(2).VALUE

Else

.ListItems(j).SubItems(2) = ""

End If

If rsSearch(3).VALUE <> "" Then

.ListItems(j).SubItems(3) = rsSearch(3).VALUE

Else

.ListItems(j).SubItems(3) = ""

End If

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If
j=j+1

[Link]

End With

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all selected student :"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc8aa()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_sem)='" & Trim([Link]) & " 'and
trim(std_session)=' " & Trim([Link]) & " ' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and short_list=true and
type=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all selected student :"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc4aa()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)=' " & Trim([Link]) & " ' and
trim(std_sem)='" & Trim([Link]) & " 'and trim(std_session)=' " & Trim([Link]) & " ' and
trim(cumpus_no)='" & Trim([Link]) & "' and interested=true and submite_cv=true and ph_interview=true and
attend_interview=true and short_list=true and type=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

While [Link] = False

With lst3

.[Link](j) = j

.ListItems(j).SubItems(7) = rsSearch(7).VALUE

Else

[Link](j).SubItems(7) = ""
End If

If rsSearch(8).VALUE <> "" Then

.ListItems(j).SubItems(8) = rsSearch(8).VALUE

Else

.ListItems(j).SubItems(8) = ""

End If

If rsSearch(9).VALUE <> "" Then

.ListItems(j).SubItems(9) = rsSearch(9).VALUE

Else

.ListItems(j).SubItems(9) = ""

End If

If rsSearch(10).VALUE <> "" Then

.ListItems(j).SubItems(10) = rsSearch(10).VALUE

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all selected student :"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

End Sub

Public Sub cc5aa()

j=1

[Link]

If [Link] = adStateOpen Then

[Link]

End If

[Link] "select *from tbl_interested_student where trim(std_course)=' " & Trim([Link]) & " ' and
trim(std_session)=' " & Trim([Link]) & " ' and trim(cumpus_no)='" & Trim([Link]) & "' and
interested=true and submite_cv=true and ph_interview=true and attend_interview=true and short_list=true and
type=true", con, adOpenDynamic, adLockOptimistic

If [Link] = False Then [Link]

Else

.ListItems(j).SubItems(10) = ""

End If

j=j+1

[Link]

End With

Wend

listof_select.Caption = ""

listof_select.Caption = listof_select.Caption & " " & "(List of all selected student :"

listof_select.Caption = listof_select.Caption & " " & j - 1 & ")"

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 [Link] 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

[Link] Analysis & Design Elis [Link]

Galgotia Publication (P) Ltd.

[Link] Information System & Design

McGraw Hills publication Ltd.

3. Manual of Existing System of The organization

4. Microsoft Access 2003

By:-Gerg Perry

[Link] of [Link]

-By Evangelos Petroutsos.

-By BPB Publication.

Advanced Hospital Management System
No ratings yet
Advanced Hospital Management System
32 pages
Employee Management System Overview
No ratings yet
Employee Management System Overview
40 pages
Ambo University IoT Patient Info System
No ratings yet
Ambo University IoT Patient Info System
75 pages
Online Society Tracking Project Report
No ratings yet
Online Society Tracking Project Report
187 pages
Patient Management System Overview
No ratings yet
Patient Management System Overview
68 pages
Employment Exchange Automation Software
No ratings yet
Employment Exchange Automation Software
265 pages
Console-Based Billing System Project Report
100% (1)
Console-Based Billing System Project Report
30 pages
Corporate HRM Information Scheduler: Submitted in Partial Fulfillment of The Requirement For The Award of Degree of
No ratings yet
Corporate HRM Information Scheduler: Submitted in Partial Fulfillment of The Requirement For The Award of Degree of
50 pages
HU Clinical Management System Project
No ratings yet
HU Clinical Management System Project
31 pages
Employee Management System Overview
No ratings yet
Employee Management System Overview
13 pages
GMBU Web-Based Clinic Management System
No ratings yet
GMBU Web-Based Clinic Management System
39 pages
Prison Management System Overview
No ratings yet
Prison Management System Overview
96 pages
Employee Self-Service System Overview
100% (2)
Employee Self-Service System Overview
37 pages
Hostel Management System Overview
33% (3)
Hostel Management System Overview
3 pages
Defense Administration System Overview
No ratings yet
Defense Administration System Overview
3 pages
Payroll Management System Report
No ratings yet
Payroll Management System Report
127 pages
Online Blood Donation Management System Report
No ratings yet
Online Blood Donation Management System Report
95 pages
NCC Management System Overview
No ratings yet
NCC Management System Overview
6 pages
Blood Donation Management System
0% (1)
Blood Donation Management System
114 pages
Documentation
No ratings yet
Documentation
48 pages
HU Clinical Management System Overview
No ratings yet
HU Clinical Management System Overview
43 pages
Automated Finance System for WKU
No ratings yet
Automated Finance System for WKU
110 pages
Fingerprint Attendance System Overview
No ratings yet
Fingerprint Attendance System Overview
60 pages
E-Housing Helping System Overview
No ratings yet
E-Housing Helping System Overview
26 pages
Online Academic Registration System
100% (1)
Online Academic Registration System
22 pages
Employee SRS
No ratings yet
Employee SRS
15 pages
Web-Based Water Supply Management System
No ratings yet
Web-Based Water Supply Management System
49 pages
Web-Based Patient Record System Proposal
No ratings yet
Web-Based Patient Record System Proposal
22 pages
Cafe Management System Project Report
No ratings yet
Cafe Management System Project Report
84 pages
Python Alert Reminder System Project
No ratings yet
Python Alert Reminder System Project
31 pages
Patient Data Management System Project
No ratings yet
Patient Data Management System Project
60 pages
Employee Leave 10
No ratings yet
Employee Leave 10
102 pages
Bale Zone Court Case Management System
No ratings yet
Bale Zone Court Case Management System
89 pages
Medical Store Management System Project
75% (4)
Medical Store Management System Project
33 pages
Online Book Trading Management System
100% (1)
Online Book Trading Management System
30 pages
Student Result Management System Report
No ratings yet
Student Result Management System Report
60 pages
Wedding Hall Management System Report
No ratings yet
Wedding Hall Management System Report
72 pages
Online Job Portal Project Report
100% (1)
Online Job Portal Project Report
108 pages
Patient Information System
40% (5)
Patient Information System
38 pages
Online Resume Building System Report
No ratings yet
Online Resume Building System Report
51 pages
Automated Patient Record System Design
No ratings yet
Automated Patient Record System Design
45 pages
Assosa University Online Exam SRS
No ratings yet
Assosa University Online Exam SRS
21 pages
Final Year Project Management System
No ratings yet
Final Year Project Management System
23 pages
Result Management System Project Overview
No ratings yet
Result Management System Project Overview
26 pages
Police Station Management System Overview
No ratings yet
Police Station Management System Overview
53 pages
Online Recruitment System Overview
No ratings yet
Online Recruitment System Overview
23 pages
Student Information Maintenance System
0% (1)
Student Information Maintenance System
4 pages
Web-Based Courier Management System
No ratings yet
Web-Based Courier Management System
5 pages
PHP Project Ideas with Abstracts
No ratings yet
PHP Project Ideas with Abstracts
42 pages
C# Exception Handling Guide
No ratings yet
C# Exception Handling Guide
49 pages
Nyeri County Hospital Management System
No ratings yet
Nyeri County Hospital Management System
5 pages
Criminal Record Management System Overview
No ratings yet
Criminal Record Management System Overview
2 pages
Staff Management System Project Report
No ratings yet
Staff Management System Project Report
60 pages
E-Healthcare Management System
100% (1)
E-Healthcare Management System
73 pages
Employee Management System Project Report
No ratings yet
Employee Management System Project Report
33 pages
Objectives of Office Automation System
No ratings yet
Objectives of Office Automation System
9 pages
Student Information System Overview
86% (59)
Student Information System Overview
110 pages
College Management System Design Overview
50% (2)
College Management System Design Overview
8 pages
Hospital Management System Overview
No ratings yet
Hospital Management System Overview
8 pages
College Management System Project Report
No ratings yet
College Management System Project Report
15 pages
Chromebook Keyboard Shortcuts Guide
No ratings yet
Chromebook Keyboard Shortcuts Guide
8 pages
Windows Shell Extensions Overview
No ratings yet
Windows Shell Extensions Overview
113 pages
Sims 4 Vehicle Liabilities Error Report
No ratings yet
Sims 4 Vehicle Liabilities Error Report
1 page
SCT Help: Metasys
100% (1)
SCT Help: Metasys
593 pages
Akhil Mittal's Professional Profile
No ratings yet
Akhil Mittal's Professional Profile
3 pages
Banking Database SQL Queries and DDL
No ratings yet
Banking Database SQL Queries and DDL
6 pages
Spring Boot Application Setup Guide
No ratings yet
Spring Boot Application Setup Guide
25 pages
Azure Certification Course Overview
No ratings yet
Azure Certification Course Overview
322 pages
ATM Management System Overview
100% (4)
ATM Management System Overview
22 pages
SIMOTION IT DIAG Functions Overview
No ratings yet
SIMOTION IT DIAG Functions Overview
3 pages
Problem Solving in Programming Phases
100% (2)
Problem Solving in Programming Phases
110 pages
Nethserver PDF
No ratings yet
Nethserver PDF
88 pages
Vim Cheat Sheet
No ratings yet
Vim Cheat Sheet
3 pages
MOUSE - Microsoft 4YH-00005
No ratings yet
MOUSE - Microsoft 4YH-00005
1 page
Custom .NET DLLs for Vijeo Citect 2015
No ratings yet
Custom .NET DLLs for Vijeo Citect 2015
34 pages
TIA Portal Video Tutorials Overview
No ratings yet
TIA Portal Video Tutorials Overview
2 pages
Canon iP2700 Reset Tool Guide
No ratings yet
Canon iP2700 Reset Tool Guide
6 pages
Android Logging and SDK Initialization
No ratings yet
Android Logging and SDK Initialization
5,854 pages
Scalability and Security in Cloud DBMS
No ratings yet
Scalability and Security in Cloud DBMS
7 pages
Understanding Hypertext and Its History
No ratings yet
Understanding Hypertext and Its History
10 pages
Full Stack Web Development Internship Report
No ratings yet
Full Stack Web Development Internship Report
13 pages
GVP College B.Tech Regulations & Syllabi
No ratings yet
GVP College B.Tech Regulations & Syllabi
64 pages
CMSV6 Active Security User Manual
No ratings yet
CMSV6 Active Security User Manual
221 pages
AstroHora Excel Installation Guide
No ratings yet
AstroHora Excel Installation Guide
9 pages
TPEditor V1.10 Manual
No ratings yet
TPEditor V1.10 Manual
100 pages
Generative AI in Software Development
No ratings yet
Generative AI in Software Development
16 pages
AIA Final Exam Study Guide
100% (1)
AIA Final Exam Study Guide
4 pages
Tanisha Khandelwal's Tech Profile
No ratings yet
Tanisha Khandelwal's Tech Profile
1 page
Sage ERP X3 Web Services Training Guide
No ratings yet
Sage ERP X3 Web Services Training Guide
1 page
Autocad Training Report by Anshul Saxena
No ratings yet
Autocad Training Report by Anshul Saxena
28 pages