Automated Database System For Government Establishment
Automated Database System For Government Establishment
Automated Database System For Government Establishment
1
ABSTRACT
solution to the existing problems, the project work researched into the
works automatically; it addresses all the lapses that cause hindrance to the
generation.
2
TABLE OF CONTENTS
Title
Dedication
Certification
Acknowledgement
Abstract
Table of contents
CHAPTER ONE
2.1 Introduction
3
CHAPTER TWO
CHAPTER THREE
3.1 Data
CHAPTER FOUR
4
4.1 System requirement
4.2 Manpower
4.6 Design
CHAPTER five
5.1 CONCLUSION
5.2 RECOMMENDATION
5.3 REFERENCE
5
CHAPTER ONE
1.1 INTRODUCTION
syndrome, this has the greatest thing this laxity in personal database
6
to give out desired incentives for the works, to help them put in their
smoothly.
fact that act information of worker s in the state is not known the
state faces the problem of how to provide incentives for its worker.
A lot of public money is been diverted into private purses due to the
records.
7
1.3 PURPOSE OF STUDY
randomly and give easy and tidy access to the stored record
of records automatically
8
1.5 SCOPE OF THE PROBLEM
ASSUMPTIONS
unit
learnt the ways of the world and having lost natural simplicity.
the globe.
9
CHAPTER TWO
comfort.
10
every establishment this detects tune of success in every
knows the size of its work force and how to maintain it for effective
Elizabeth is of the view that the best thing that could happen
can maintain. This is in its interest and also in the interest of the
11
the welfare package of workers; it equally gives room for prompt
to key in new records but always difficult to access and update the
12
something that provides evidence or information. In this case, the
13
Database is defined as an organize collection of related data
news. When the personnel records are well organized, it forms the
DBMS
DATABASE DIGRAM
DATABASE
14
George bode in his book, database management system, defined a
uncommon changes and unnecessary entry and update into the content of
very flexible.
working class citizens, the president or prime minister of a nation and other
the standard working class is within the age limit of 18 to 65 year- these are
the set of people that are allowed to participate in any form of service to
society (both man and woman) still have energy that can be applied to any
15
form of work in the society. The input of this class of people to a very
that… persons from the age of 18 and above are people to be given
this is for effective work input by the working class and enough test after
Mary McCeod, is of the view that any nation that pus the welfare of
its workers first is always growing rapidly amid all odds. If a nation is so
wise to think about the welfare of its workers first, such nation will be in
the limelight of growth and development among all societal odds. The
working force will tighten their belts and try very hard to put in their best
with out fear of favor. A nation that provides and takes very good care of
the people working out its economy always has its head raised among other
nations; this per se is the yard stick for measuring the standard of living
16
A good government always tries to close any gap that at any time
sharing their experience during workers industrial action will tell the public
that it is the most difficult time of any government of the world. If the
workers should stay off duty post for one day, the nation losses what it
cannot make up for in one week. The faith of every government is in the
17
CHAPTER THREE
obsolete and makes the work flow in project analysis and monitoring
look rigid. It wastes a lot of time and it does not generate accurate
computer parts and the problems of each unit were deleted. The
very rigid, it is very slow in processing and does not always generate
fields.
method for effective data collection for the progress of the work.
18
3.3 INTERVIEW METHOD
The researcher curved out time, visited the Pfizer plc and
interview answered.
19
3.5 INPU, PROCESS, OUTPUT ANALYSIS
INPUT ANALYSIS
From the details of the existing system the data entry is made
entry is very rigid and this makes update almost impossible. The
PHCN
Name-----------------------------------------------------------------------------------
Address----------------------------------------------------------------------------------
Age------------------------------------------Date of Birth----------------------------
Sex--------------------------------------------------------------------------------------
Home town----------------------------------------------------------------------------
L.G.A-----------------------------------------------------------------------------------
Nationality-----------------------------------------------------------------------------
a worker’s record, the clerk has to go through all the files packed in
the file cabinet searching for the special record and this takes a very
comprehensive, the output does not come as and when due. The
output is written out and typed manually. This makes the output
very untidy.
21
PHCN
EMPLOYEE NUMBER-----------------------------DATE----------------------
Salary-----------------------------------------------------------------------------------
Level ----------------------------------------------------------------------------------
Employees Name---------------------------------------------------------------------
Next of kin-----------------------------------------------------------------------------
DIRECTOR GENERAL
H.O.D
PROCESSES LIST
RETURNING OFFICER
DIRECTOR GENERAL
22
3.8.1 ORGANIZATIONAL CHART
DIRECTOR GENERAL
SENIOR STAFF
JUNIOR STAFF
CLERKS
fact that the current technological event has outgrown its services the
ii. The mode of storage by the existing system is not giving room for
23
iii. The actual value of the project are not ascertained
The new system gives actual project value and gives report on
24
CHAPTER FOUR
and Human resources the system is designed to use the best model
HARDWARE REQUIREMENTS
MEMORY : 64 MB
STORAGE : LOGB
NEYBOARD : ENRANCES
SOFTWARE REQUIREMENT
25
OPERATING SYSTEM – WINDOW 2000
flexible and easy to use with a lot of enhanced features which makes
work flow fast and very interesting. The new design is result
26
Both output modes is very comprehensive and guiding. The
Workers name
Address
Age
No, of children
Home town
L.G.A
State
Nationality
Level
Salary
Date of appointment
Date of employment
Department
Qualification
27
Worker name--------------------------------------------------------------------------
Age------------------------------------- Address---------------------------------
Sex------------------------------------- Level------------------------------------
State----------------------------------- Department------------------------------
Nationality---------------------------- Qualification----------------------------
4.5 INPUT SPECIFICATION AND DESIGN
Date--------------------------------------
The input to the new system is very flexible easy to supply
and very precise. The input accepts required records, enters it and
Address level
Age salary
28
No of children date of appointment
L.G.A Qualification
State.
WORKER’S NAME
ADDRESS
AGE LEVEL
SEX SALARY
L.G.A DEPARTMENT
STATE QUALIFICATION
NATIONALITY DATE
29
4.6 DESING
file name is project. Txt. The file was carefully organized under
field as designed.
STATE ST 10 CHARATER
NATIONALITY NT 10 CHARATER
30
LEVEL LL 6 NUMERIC
SALARY SY 12 NUMERIC
QUALIFICATION Q4 15 CHARATER
DOC
DOC
DOC
INPUT PROJECT
FOM KEYBOARD
31
START
CHAPTER FIVE
IMPLEMENTATION
This chapter discuses the testing and practical application of the new
design. The skeletal design was put to test by giving it a working time by
implementing the elements of the new design. The skeletal elements of the
CHOICE OF LANAGUAGE
PROGRAM DESIGN
During the program design, the entire system was broken down into
its constituent parts and each unit analyzed individually, detecting the
32
ENTRY
The entry module handles all forms of input entry through the input device;
it confers for correct input format and saves all accepted data
automatically.
UPDATE
LISTING
This module handles all forms of report display with accurate and
PSEUDOCODE
ENTRY
1. Accept records
33
6. Close all
7. Return
UPDATE
3. If it exist, Goto 6
5. Goto 8
11. Return
LISTING
3. If it exists Goto 6
34
4. Display records
5. Goto 7
6. Display record
FLOWCHART
A
START
ENTER RECORD
ENTRY
NO MAKE
ALL DATE
CORRECTION
CURRECT?
UPDATE YES
SAVE RECORDS
LIST
MORE
ENTRIES
NO
CLOSE ALL
EXIT
STOP RETUR
N 35
B
KEY IN RECORD
ID
CHECK FILE
NO
GOTO TEXT
DOES
RECORD EOF RECORD
EXIT
ACCEPT UPDATE
CHANGES
WRITE TO FILE
UPDATE
RETUR
N
36
C
ACCEPT
DISPLAY
FORMAT
CHECK FILE
DOES FORMAT
MATCH
RECORD
DISPLAY
NEXT
RECORD EOF
YES
CLOSE ALL
RETUR
N
37
SYSTEM FLOWCHART
DOC
DOC
DOC
INPUT RECORD
CONFIR RECORDS
PREPARE
RECORDS
FOR STORAGE
PROCESS STORED FILES
DISK
REPORT
DISPLAY RESULT OF
PROCESSING
38
CHAPTER SIX
6.1 DOCUMENTATION
The detail manual on how this new design should best be used
is discussed under this chapter. The new design runs under the
oriented software.
POINT PROGRAMS
memory.
CLICK OPEN
39
SPECIFY DRIVE A
SELECT PERSONNEL
CLICK OPEN
CLICK RUN
CLICK START
This loads the main menu of the now program designed into the
memory and is viewed through the screen. The new program is menu
driven and very interactive. It guides the user on the next step to follow at
all times.
The main menu has four options.
RECORD ENTRY
DELETE RECORD
UPDATE RECORD
REPORT
EXIT.
40
CHAPTER SEVEN
7.1 CONCLUSION
No nation of the world plays with its work force, for the fact
that the economy of any nation falls on the work force and any
neglect of the work force spite fire for national growth and
provision of welfare for the workers to boost their morale in the line
41
information maintained which is always very rigid and difficult to
effective.
7.2 RECOMMENDATION
management.
42
The management of the civil service commission is also
43
REFERENCES
Library,
Enugu. 1996.
1998
London, 1996.
44
SOURCE CODE
'pgbar.Value = 1
pgbar.Value = pgbar.Value + 1
Timer1.Enabled = False
Unload Me
Form2.Show
End If
End Sub
Unload Me
Form1.Show
End Sub
varResponse = InputBox("Enter your password in" & "order to enter this program")
Unload Me
MDIForm1.Show
Else
45
MsgBox "The password is not correct,please try again!"
End If
End Sub
Unload Me
End Sub
Text1 = "": Text2 = "": Text3 = "": Text5 = "": Text6 = "": Text7 = "": Text8 = "": Text9 = "": Text10 = "": Combo1 =
"": Text11 = "": Text12 = "": Combo3 = "": Combo4 = "":
Command6.Enabled = False
Command7.Enabled = True
Command3.Enabled = True
End Sub
rse.AddNew
rse!workersname = Text1.Text
rse!Hometown = Text3.Text
rse!Age= Combo1.Text
rse!Level = Combo2.Text
rse!Department = Combo3.Text
rse!children = Text4.Text
rse!Salary = Text5.Text
46
rse!lga = Text6.Text
rse!Dateofappointment = Text7.Text
rse!Dateofappointment = Text8.Text
rse!Nationality = Text10.Text
rse!Qualification = Tex11.Text
rse.Update
rse.Close
Command6.Enabled = True
Command7.Enabled = False
Command3.Enabled = False
End Sub
Combo2.Locked = True
'Combo3.Locked = True
Command6.Enabled = True
Command7.Enabled = False
Command3.Enabled = False
End Sub
47
Private Sub Image2_Click()
c.ShowOpen
Image1.Picture = LoadPicture(c.FileName)
End Sub
End Sub
key = KeyAscii
KeyAscii = 0
Case Else
End Select
End Sub
End Sub
key = KeyAscii
48
Case Asc("0") To Asc("9")
KeyAscii = 0
Case Else
End Select
End Sub
key = KeyAscii
KeyAscii = 0
Case Else
End Select
End Sub
key = KeyAscii
KeyAscii = 0
Case Else
End Select
49
End Sub
Set rse = dbase.OpenRecordset("select * from ailment where type of service='" & Text1.Text & "'")
Form7.lvwinfo.ListItems.Add , , rse.Fields("WorkersName").Value
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(1) = rse!WorkersName
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(2) = rse!Address
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(3) = rse!Children
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(4) = rse!HomeofTwon
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(5) = rse!Lga
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(6) = rse!State
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(7) = rse!Nationality
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(8) = rse!Level
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(9) = rse!Salary
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(10) = rse!DateofAppointment
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(12) = rse!Department
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(13) = rse!Qulification
rse.MoveNext
Loop
Form7.Show 1
End Sub
50
Private Sub Command2_Click()
Set rse = dbase.OpenRecordset("select * from ailment where WorkerName ='" & Text1.Text & "'")
Form7.lvwinfo.ListItems.Add , , rse.Fields("WorkersName").Value
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(1) = rse!Address
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(2) = rse!c-Age
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(3) = rse!s-Children
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(4) = rse!Hometown
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(5) = rse!lga
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(6) = rse!State
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(7) = rse!Nationality
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(8) = rse!Level
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(9) = rse!Salary
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(10) = rse!DateofAppointment
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(12) = rse!Department
rse.MoveNext
Loop
Form7.Show 1
End Sub
51
Set rse = dbase.OpenRecordset("select * from ailment where address='" & Text1.Text & "'")
Form7.lvwinfo.ListItems.Add , , rse.Fields("Address").Value
Form7.lvwinfo.ListItems.Add , , rse.Fields("WorkersName").Value
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(1) = rse!Address
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(2) = rse!c-Age
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(3) = rse!s-Children
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(4) = rse!Hometown
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(5) = rse!lga
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(6) = rse!State
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(7) = rse!Nationality
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(8) = rse!Level
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(9) = rse!Salary
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(10) = rse!DateofAppointment
Form7.lvwinfo.ListItems(Form7.lvwinfo.ListItems.Count).SubItems(12) = rse!Department
rse.MoveNext
Loop
Form7.Show 1
End Sub
52
Me.Left = (Screen.Width - Me.Width) / 2
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Text1 = ""
End Sub
Form3.Show
End Sub
rse.AddNew
rse!Comment = Text1.Text
rse!Time = Label3.Caption
rse.Update
rse.Close
Set rse = dbase.OpenRecordset("select * from Children where comment='" & Text1.Text & "'")
MDIForm1.lvwinfo.ListItems.Add , , rse.Fields("comment").Value
53
MDIForm1.lvwinfo.ListItems(MDIForm1.lvwinfo.ListItems.Count).SubItems(1) = rse!Time
rse.MoveNext
Loop
lvwinfo.Visible = True
End Sub
Text1 = ""
Text1.SetFocus
End Sub
Set rse = dbase.OpenRecordset("select * fromChildren where comment='" & Text1.Text & "'")
MDIForm1.lvwinfo.ListItems.Add , , rse.Fields("comment").Value
MDIForm1.lvwinfo.ListItems(MDIForm1.lvwinfo.ListItems.Count).SubItems(1) = rse!Time
rse.MoveNext
Loop
lvwinfo.Visible = True
End Sub
varResponse = InputBox("Enter your choice in" & "order to exit the program", "Are you sure you want to exit the
program?")
'Unload Me
54
End
Else
MsgBox "That means you are not ready to quit,please try again!"
End If
End Sub
Form4.Show
End Sub
Label4.Visible = False
End Sub
MDIForm1.Label4.Visible = True
End Sub
lvwinfo.Visible = False
'Text1.SetFocus
Label4.Visible = False
End Sub
DataReport2.Show
End Sub
55
DataReport3.Show
End Sub
End Sub
DataReport1.Show
End Sub
Form5.Show
End Sub
Label4.Caption = Text1.Text
End Sub
Label3.Caption = Time
End Sub
56