CHAPTER -1
1
INTRODUCTION INTRODUCTION TO PROJECT
This project is developed to fulfill the requirements of any information regarding the boarder living in Government Girls Hostel , VGC Mandi. This project is very helpful to keep record of student personal information as well as their other important details like Academic records etc. The future scope of this project is very bright because if any authorized person wants to get information about the boarder who has lived in the hostel can be easily sort out. There are also some other benefits of this project. For example, if any boarder is found faulty then fault can be corrected by giving information to the parents or guardians. This project is very easy to user and simply editing the record does the maintenance of the records. The project is secured by providing it with password and access level for security purposes so that this software is used properly and can be accessed by the authorized user only who knows the password.
2
INTRODUCTION INTRODUCTION TO PROJECT
This project is developed to fulfill the requirements of any information regarding the boarder living in Government Girls Hostel , VGC Mandi. This project is very helpful to keep record of student personal information as well as their other important details like Academic records etc. The future scope of this project is very bright because if any authorized person wants to get information about the boarder who has lived in the hostel can be easily sort out. There are also some other benefits of this project. For example, if any boarder is found faulty then fault can be corrected by giving information to the parents or guardians. This project is very easy to user and simply editing the record does the maintenance of the records. The project is secured by providing it with password and access level for security purposes so that this software is used properly and can be accessed by the authorized user only who knows the password.
2
OBJECTIVES The main objectives of this project
Safety of Time and Data Faster Management of hostel‟s tasks Lower Information Costs Create transparency To Make Complex tasks easy Provide data Security Satisfy everyone‟s Demands Sort out of information about the girl living in hostel
3
NEED OF PROJECT
1. This program is used by various hostel management committees, where information regarding the various boarders, their batches, academic record etc needs to be maintained. 2. Which will be user friendly. 3. Which will restrict the user from accessing other user‟s data. 4. Which will help the user in viewing his data and privileges. 5. Which will help the administrator to handle all changes. 6. In which further additions can be made without changing its design drastically. 7. Which would restrict the server traffic.
4
SELECTION OF SOFTWARE FOR DESIGN In this section to develop the proposed system whatever is the software needed must be described here. In this project we use the following Softwares: Microsoft Visual Basic.NET MS-Access
5
CHAPTER – 2
6
SYSTEM DEVELOPMENT LIFE CYCLE
System development is a process, which started when system development personnel feel that a new system or an improvement in the existing system is required. Software development life cycle is a sequence of activities carried out by analyst, designer and user to develop and implement of an information system.
ANALYST:
An analyst studies the requirements of a customer or user and defines the problem domain. He identifies need of an organization to determine how people method and computer technology can best accomplish improvement of the business.
DESIGNER:
A designer designs a system in terms of structure of the database, screens, forms and reports. He also determines the hardware and software requirements for the development of the system.
USER:
User is the one who uses the system
7
ACTIVITIES OF SDLC Recognition of needs Feasibility study Analysis Designing Coding Testing Implementation Post Implementation and Maintenance
RECOGNITION OF NEED
Recognition of need is a kind of document generated by a user and problem statement is a written document that will tell software developer what to develop.
FEASIBILITY STUDY:
In this phase, we access whether or not a project should be undertaken. This stage involves defining the problem and fixing up its boundaries.
REQUIREMENT ANALYSIS:
In this phase the user requirement are studied and analyzed. The technical development team works with the customer and system end users to identify the various requirements related to the system to be developed. 8
DESIGNING:
This is the phase where new system is designed according to the needs of the user. In this phase the specification of each and every component of the project is laid down.
CODING:
This is the phase where system is actually developed. The system design is coded in some suitable programming language in this phase.
TESTING:
In this phase, the system is judged for all its worth. During this phase, the developed system is reviewed against each and every customer requirement specification.
IMPLEMENTATION:
This is the phase in which the development system is handed over to the client. The old system is dispensed, new system is put into operation for use and all personnel are trained to
manage
and
maintain
9
the
new
system.
POST IMPLEMENTATION AND MAINTENANCE
It is the last phase of system development life cycle. Implementation is the stage of a project during which theory is turned into practice. During this phase, all the programs of the system are loaded into user‟s computer. Maintenance is necessary to eliminate errors in the system during its working life and to tune the system to any variations in its working environment. It has been seen that there are always some errors found in the system that must be noted and corrected.
10
CHAPTER -3
11
BRIEF DESCRIPTION OF SYSTEM DEVELOPMENT LIFE CYCLE
RECOGNITION OF NEED The basic of the project is recognition of needs for improving an information system or a procedure. Thus the first step in SDLC is the recognition of needs whose purpose is to evaluate the project request, it is collection of information that helps the committee members to evaluate the merit of the project request and to make an informed judgment about the feasibility of the proposed project.
PROBLEM STATEMENT
Problem statement was to design a module:
Which will be user friendly?
Which will restrict the user from accessing other user‟s data?
Which will help the user in viewing his data and privileges?
Which will help the administrator to handle all changes?
In which further additions can be made without changing its design drastically.
Which would restrict the server traffic?
12
Another problem was that the data should be accessed from the server and accordingly changes should be made on the data in the server only.
FUNCTIONS TO BE PROVIDED
The various features that the proposed system will possess will be:
The system will be user friendly and completely menudriven so that users shall have no problem in using all the options provided.
The system will be efficient and fast in response by careful programming
FEASIBILITY STUDY An important outcome in the preliminary investigation is to determine that the system requested is feasible. Three key considerations involved in feasibility analysis. TECHNICAL ECONOMIC OPERATIONAL
We determine the performance and cost effectiveness of the proposed system and constraints, it is recommended in feasibility report.
13
Technical feasibility
There are number of technical issues which generally raised during the feasibility stages of investigation which are as follows: Does the necessary technology exist to do what is
suggested? Does the proposed equipment have the technical capacity
to hold the data required to use the new system? Can the system be upgraded if developed? Are there technical guarantees of accuracy, reliability,
ease of access and data security? The proposed system is technically feasible because visual basic 6.0 on windows 98 on client and MS Access on the server are compatible and support the program and database design quite efficiently.
Economic Feasibility
Also referred to as cost benefit analysis, is the most frequently used method for evaluating the effectiveness of a proposed system. The focus is to determine the benefits and savings that are expected from proposed system and compared them with cost. if benefit outweigh cost then the decision is made and implement the system. Our proposed system needs only a few software‟s and printer along with a few computer operators. Keeping in a 14
view the long-term benefits provided by this proposed system, these inputs costs are minimum.
Operational Feasibility
Operational feasibility is mainly related to human organizations and political aspects. The points to be considered: What changes will be brought with a system? What organizational structures are disturbed? What new skills, if not; can they be trained in due course
of time? Our proposed system is aimed to simplify the job without bringing much change in way of working of existing system.
REQUIREMENT ANALYSIS
It is the detail study of the various operations performed by the system and their relationship with in & outside the organization. The key question is: What must be done to solve the problem?
Tools used in analysis are DFD, interviews, onsite observations & questionnaires. Training, experience & common sense are required for the collection of information needed to the analysis. System analysis is the fact finding followed by analysis of the facts. Data analysis is also considered a pre requisite condition for cost/benefit analysis. System analyst is a 15
person who conducts the system study and identifies the activities and objectives, formulate the set of roles to achieve the objects. His main activities are system analysis is the fact finding followed by analysis of the facts. Data analysis is also considering a pre-requisite condition for cost/benefit analysis. Requirement analysis plays an essential role in the SDLC. One of the most difficult aspects of program development is in getting both the customer & developers to understand what each of them is trying to say. The techniques, which we have used for requirement gathering for the present project, are interviews and observations. First of all we interviewed “INSTITUTE” and requested details about the present project by asking various questions.
What is the purpose behind developing the present software?
What all functioning he intends to get in the purposed software?
What all the benefits he intends to get in the purposed software?
Next , we personally observed their working for 3-4 days to get a clear cut idea of how they work in their daily routine and their present style of work with regard to maintenance of records.
16
SOFTWARE REQUIREMENTS SPECIFICATION
Software requirement and specification is a document that completely describes what the proposed software should do without describing how the software does it. The basic goal of the requirement phase is to produce the SRS, which describes the complete complex behavior of the proposed software‟s forces the other to identify the requirements. Hence the main advantages are:
An SRS establish the basis for agreement between the
client and supplier on what the software product will do. An SRS provides a reference for validation of the final
product. A high quality SRS is a pre-requisite to high-quality
software. A high quality SRS reduces the development cost.
SOFTWARE REQUIREMENTS Front end- vb.net Back end- MS-Access
17
HARDWARE REQUIREMENTS Processor Pentium 4 or Higher. Monitor: - Color Monitor Having Pixel Setting
(800*600), True colors. Hard Disk: - 80GB or more RAM: - 512MB RAM or more Floppy Disk Drive: - 1.44 Mouse Keyboard. Printer
DESIGNING The most creative and challenging phase of the system development life cycle is system design. The term design describes a final system and the process by which it is developed, i.e. we have moved from logical to physical aspect of life cycle, the key question in case of designing is “How the problem should be solved?”
The
first step is to determine how the output is to
produced and in what format. Samples of input and output are also presented. The second step is Input data and the master files have to be designed to meet the requirement of the and an impact of the system on the organization are document and evaluated by the management. 18
A lot of factor are taken into consideration while preparing a good system design which includes performance analysis , security and control , system prototyping , designing user interface , design documentation and reviews etc. In the context of present project, great care and attention has been provided to ensure proper security, password have been use to restrict access only to the authorized user. Moreover, In order to make the software easy to use, a user interface that is very much user friendly has been used with a lot of useful tips displayed while feeding and retrieving information.
19
CHAPTER -4
20
Data Flow Diagram (DFD)
Data Flow Diagram is another tool use to describe the design specification. It is also a Pictorial representation of data flow. The only difference between Flowchart and the Data Flow Diagram is that DFD show only the flow of data not the actual procedure or coding to perform that function. On the other hand Flowchart Show the actual calculation to perform the task.
The different symbol use in DFD are: -
SQUARE:
Describe the Source and Destination of data or information. The Source Must is written in ca ital letters.
BUBBLE:
A Circle used to show the Process. These can be number of process in a program. Each process must be assign a suitable number
21
OPEN RECTANGLE:
An Open Rectangle Used to describe the stora e of database
ARROWS AND LINES:
Arrow Used to shoe the flow of Data . A DFD can be drawn from top to bottom or from left to right.
SOME COVENTIONS WHILE DRAWING DFDs:
All external files should always be shown in the DFD as
labeled straight line. The need for multiple dataflow by the process is
represented by „*‟ between the dataflow. Similarly the „or‟ relationship is represented by „+‟ between the data flows. DFD should not represent procedural information. So,
while drawing a DFD. One must not involve in the procedural details.
22
CONSTRUCTING THE DFDs:
Several rules of thumb are used in drawing DFDs: Processes should be named and numbered for easy
reference. Each name should be representative of the process. The direction of flow is from top to bottom and from
left to right. The names of data stores, sources and destination are
written in capital letter. Process and data flow names have the first letter of each word capitalized. Work your way consistently from the inputs to the
output or vice -versa. Never try to show control logic like loops or
decisions. Label each arrow with proper data elements. Input and output should be carefully identified. Make use of star and plus operations to show
sufficient details in the data flow graph.
23
CHAPTER-5
24
PHOTO GALLERY
SPLASH WINDOW
25
LOGIN SCREEN
26
WELCOME TO HOSTEL MANAGEMENT SYSTEM WINDOW
27
MAIN WINDOW SCREEN
28
APPLICATION FORM OF HOSTEL ADMISSION WINDOW
29
ROOM ALLOTMENT TO STUDENT SCREEN
30
HOSTEL FEE RECEIPT SCREEN
31
32
STUDENTS REPORT WINDOW
33
HOSTEL INFORMATION WINDOW
34
CHAPTER - 6
35
SOURCE CODING
SPLASH WINDOW Public Class splash Private Sub splash_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress login.Show() Me.Close() End Sub
LOG IN SCREEN Public Class Login Dim ctr As Integer Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load getconnected() TextBox2.PasswordChar = "*" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String str = " select * from users where userid='" & TextBox1.Text & "' and pwd='" & TextBox2.Text & "'" cn.open() scommand(str) If dr.read() Then MsgBox("WELCOME TO HOSTEL MANAGEMENT SYSTEM") Form1.Show() Me.Close() Else ctr += 1 If ctr < 3 Then MsgBox("Either username or passward is wrong!! Try Again", MsgBoxStyle.Information) Else MsgBox("Unauthorised user !! Now Exiting", MsgBoxStyle.Critical) End End If End If cn.close() End Sub End Class
36
MAIN WINDOW SCREEN Public Class Form1 Private Sub CreateNewLoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateNewLoginToolStripMenuItem.Click NewLogin.MdiParent = Me NewLogin.Show() End Sub Private Sub ChangePasswordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePasswordToolStripMenuItem.Click ChangePassword.MdiParent = Me ChangePassword.Show() End Sub Private Sub ExitApplicationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitApplicationToolStripMenuItem.Click If MsgBox("Do you really want to Exit", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then End End If End Sub Private Sub NewStudentApplicationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewStudentApplicationToolStripMenuItem.Click Students.MdiParent = Me Students.Show() End Sub Private Sub AllotmentOfRoomsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllotmentOfRoomsToolStripMenuItem.Click RoomAllotment.MdiParent = Me RoomAllotment.Show() End Sub Private Sub ReceiveHostelChargesEtcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReceiveHostelChargesEtcToolStripMenuItem.Click HostelFeeReceipt.MdiParent = Me HostelFeeReceipt.Show() End Sub
37
Private Sub ViewStudentsRoomsReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewStudentsRoomsReportToolStripMenuItem.Click StudentRooms.MdiParent = Me StudentRooms.Show() End Sub Private Sub HostelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HostelToolStripMenuItem.Click HostelInfo.MdiParent = Me HostelInfo.Show() End Sub End Class
APPLICATION FORM Public Class Students Dim str As String Private Sub Students_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized getconnected() fillList() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click str = "insert into studentDetails values('" & TextBox1.Text & "','" & TextBox2.Text & "'," If RadioButton1.Checked Then str = str & "'Old','" Else str = str & "'Fresh','" End If str = str & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "'," If RadioButton3.Checked Then str = str & "'Yes','" Else str = str & "'No','" End If str = str & TextBox6.Text & "','" & TextBox7.Text & "'," If RadioButton5.Checked Then str = str & "'Married'," ElseIf RadioButton6.Checked Then
38
str = str & "'Unmarried'," Else str = str & "'Divorced'," End If If RadioButton8.Checked Then str = str & "'Cubical','" Else str = str & "'Domitary','" End If str = str & TextBox8.Text & "','" & TextBox9.Text & "')" Dcommand(str) MsgBox("Successfully Database") clearform() fillList() End Sub Private Sub clearform() TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() TextBox7.Clear() TextBox8.Clear() TextBox9.Clear() RadioButton1.Checked RadioButton2.Checked RadioButton3.Checked RadioButton4.Checked RadioButton5.Checked RadioButton6.Checked RadioButton7.Checked RadioButton8.Checked RadioButton9.Checked
Added details to the
= = = = = = = = =
False False False False False False False False False
End Sub Private Sub fillList() ListBox1.Items.Clear() str = "select * from StudentDetails" cn.Open() scommand(str) While dr.Read ListBox1.Items.Add(dr(1) & "/" & dr(3) & "/" & dr(0)) End While cn.Close() End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged On Error GoTo xx Dim n As Integer n = InStr(ListBox1.SelectedItem, "/")
39
n -= 1 str = Mid(ListBox1.SelectedItem, 1, n) str = "select * from studentdetails where CRollNo='" & str & "'" cn.Open() scommand(str) If dr.Read Then TextBox1.Text = dr(0) TextBox2.Text = dr(1) If dr(2) = "Old" Then RadioButton1.Checked = True Else RadioButton2.Checked = True End If TextBox3.Text = dr(3) TextBox4.Text = dr(4) TextBox5.Text = dr(5) If dr(6) = "Yes" Then RadioButton3.Checked = True Else RadioButton4.Checked = True End If TextBox6.Text = dr(7) TextBox7.Text = dr(8) If dr(9) = "Married" Then RadioButton5.Checked = True ElseIf dr(9) = "Unmarried" Then RadioButton6.Checked = True Else RadioButton7.Checked = True End If If dr(10) = "Cubical" Then RadioButton8.Checked = True Else RadioButton9.Checked = True End If TextBox8.Text = dr(11) TextBox9.Text = dr(12) End If PictureBox1.Load("D:\HostelManagement\images\" & dr(3) & ".jpg") cn.Close() Exit Sub xx: cn.Close() PictureBox1.Load("D:\HostelManagement\images\na.jpg") End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click str = "delete from studentDetails where CRollNo='" & TextBox2.Text & "'" Dcommand(str) MsgBox("Record removed")
40
clearform() fillList() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click str = "update studentDetails set class='" & TextBox1.Text & "', Sname='" & TextBox3.Text & "', FatherName='" & TextBox4.Text & "', Address='" & TextBox5.Text & "',LRollNo='" & TextBox6.Text & "', LClass='" & TextBox7.Text & "', AdmDate='" & TextBox8.Text & "', AppDate='" & TextBox9.Text & "'," If RadioButton1.Checked Then str = str & "AdmType='Old'," Else str = str & "AdmType='Fresh'," End If If RadioButton3.Checked Then str = str & "Category='Yes'," Else str = str & "Category='No'," End If If RadioButton8.Checked Then str = str & "RType='Cubical'," Else str = str & "RType='Domitary'," End If If RadioButton5.Checked Then str = str & "Marital='Married' " ElseIf RadioButton6.Checked Then str = str & "Marital='Unmarried' " Else str = str & "Marital='Divorsed' " End If str = str & " where CRollNo='" & TextBox2.Text & "'" Dcommand(str) MsgBox("Changed Successfully") clearform() fillList() End Sub
ROOM ALLOTMENT FORM Public Class RoomAllotment Dim str As String Private Sub RoomAllotment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized getconnected()
41
Button3.Enabled = False End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click str = "Select * from RoomAllot where RollNo='" & TextBox1.Text & "'" cn.Open() scommand(str) If dr.Read Then MsgBox(dr(1) & " Already allotted to the Student") cn.Close() clearForm() Else cn.Close() str = "Select * from StudentDetails where CRollNo='" & TextBox1.Text & "'" cn.Open() scommand(str) If dr.Read Then TextBox2.Text = dr(0) TextBox3.Text = dr(3) TextBox4.Text = dr(4) TextBox5.Text = dr(5) TextBox6.Text = dr(12) TextBox7.Text = dr(10) Else MsgBox("Cannot find the record ! plz check the roll no ") clearForm() End If End If cn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click fillList() End Sub Private Sub FillList() ListBox1.Items.Clear() str = "Select * from beds where stts='Available'" cn.Open() scommand(str) While dr.Read ListBox1.Items.Add(dr(1) & "/" & dr(0)) End While cn.Close() End Sub
42
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim n As Integer, bno As String n = InStr(ListBox1.SelectedItem, "/") n -= 1 bno = Mid(ListBox1.SelectedItem, 1, n) str = "insert into RoomAllot values('" & TextBox1.Text & "','" & bno & "','" & TextBox8.Text & "')" Dcommand(str) str = "Update beds set stts='Not Available' where BedNo='" & bno & "'" Dcommand(str) MsgBox("Allotment of Bed Done") clearForm() FillList() End Sub Private Sub clearForm() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Button3.Enabled = True End Sub End Class
HOSTEL FEE RECEIPT Public Class HostelFeeReceipt Dim Str As String Private Sub HostelFeeReceipt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized getconnected() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Str = "Select * from FeeReceipt where RollNo='" & TextBox1.Text & "'" cn.Open()
43
scommand(Str) If dr.Read Then MsgBox("Already Received all dues from the Student") cn.Close() clearForm() Else cn.Close() Str = "Select * from StudentDetails where CRollNo='" & TextBox1.Text & "'" cn.Open() scommand(Str) If dr.Read Then TextBox2.Text = dr(0) TextBox3.Text = dr(3) TextBox4.Text = dr(4) TextBox5.Text = dr(5) cn.Close() Str = "Select * from RoomAllot where RollNo='" & TextBox1.Text & "'" cn.Open() scommand(Str) If dr.Read Then TextBox6.Text = dr(1) cn.Close() Else MsgBox("Before Accepting Fee ! first Allot a Seat to the Student") clearForm() cn.Close() End If Else MsgBox("No student details found ! First Fill up admission form for the student") cn.Close() clearForm() End If End If cn.Close() End Sub Private Sub clearForm() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" TextBox11.Text = "" DataGridView1.Rows.Clear() End Sub
44
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Str = "Select * from HostelCharges" cn.Open() scommand(Str) Dim x As Integer x = 0 While dr.Read And x < 13 DataGridView1.Rows.Insert(x, dr(0), dr(1)) x += 1 End While TextBox9.Text = dr(1) dr.Read() TextBox10.Text = dr(1) cn.Close() AutoRNo() End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub TextBox9_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged TextBox11.Text = Val(TextBox9.Text) + Val(TextBox10.Text) End Sub
Private Sub TextBox10_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged TextBox11.Text = Val(TextBox9.Text) + Val(TextBox10.Text) End Sub Private Sub AutoRNo() Dim num As Integer Str = "select top 1 * from Feereceipt order by RcptNo desc" cn.Open() scommand(Str) If dr.Read Then Str = dr(0) num = Mid(Str, 2, 3) num += 1 If num < 10 Then Str = "R00" & num ElseIf num < 100 Then Str = "R0" & num
45
ElseIf num < 10 Then Str = "R" & num End If Else Str = "R001" End If cn.Close() TextBox7.Text = Str End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Str = "insert into FeeReceipt values('" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox1.Text & "'," & TextBox11.Text & ")" Dcommand(Str) MsgBox("Fee Received ") rno = TextBox7.Text clearForm() FeeReport.MdiParent = Form1 FeeReport.Show() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Close() End Sub End Class
STUDENT REPORT Public Class FeeReport Private Sub FeeReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized Dim cr As New FeeRcpt cr.RecordSelectionFormula = "{FeeReceipt.rcptNo}='" & rno & "'" CRV1.ReportSource = cr CRV1.Refresh()
End Sub End Class
46
CONCLUSIONS
1. This project requires a programmer, costly hardware and more data security options are to be applied. 2. The database can be easily trapped if the data base is not secure under the control of DBA. 3. Centralized control is must. 4. If it is used properly, it can give accurate results with speedy process. 5. It can reduce the paper work, staff requirements and threats to the data security.
47
