PHARMACY

MANAGEMENT
SYSTEM
+
 CONTENTS OF TABLE

 PROJECT OUTLINE
 ABOUT PROJECT
 PROBLEM DESCRIPTION
 FRONT END (VB 6.0)
 BACK END (MS ACCESS)
 FUTURE ENHANCEMENT

 HARDWARE/SOFTWARE SPECIFICATION
 OBJECTIVE ACHIEVED SUCCESSFULLY
 ENVIRONMENT NECESSARY TO RUN THE PROJECT
 SYSTEM ANALYSIS
 SYSTEM PLANNING & DESIGN
 TESTING OF PROJECT
 CONCLUSION
 BIBLIOGRAPHY
 REFERENCES
 SOFT COPY ON CD
ABOUT PROJECT

THIS PROJECT CAN MANAGE ALL MEDICINE DETAILS AND

RATE LIST AFTER SELLING IT GENERATE ELECTRONIC BILL FOR
CUSTOMER.

I WOULD LIKE TO EXTEND MY SINCERE THANKS TO

DIRECTOR OF COLLEGE” WHO MADE AVAILABLE ALL POSSIBLE
RESOURCES NECESSARY FOR MY PROJECT. FURTHER I WOULD
LIKE TO GIVE REGARDS TWHO HAD GIVEN THEIR KIND TIME
TOWARDS MY PROJECT. FINALLY I WOULD GIVE MY WHOLE
HEARTED THANKS FOR PROVIDING ALL NECESSARY REQUIRED
DATA FOR THE PROJECT.
ABSTRACT

This project can manage all medicine details and rate list after selling it
and generate electronic bill for the customer .The purpose of Medical
Store Management System is to automate the existing manual system
by the help of computerized equipment’s and full-fledged computer
software, fulfilling their requirements, so that their valuable
data/information can be stored for a longer period with easy accessing
and manipulation of the same. The required software and hardware are
easily available and easy to work with. Basically the project describes
how to manage for good performance and better services for the
clients.

The application contain following modules:

1. Mdimainfrm (MDI FORM)

2. User_login (Login Form)
3. Splash (Loading screen form)
4. Cat (Category Details Form)
5. Item (Item Details Form)
6. frmEmpDetails (Employee Details Form)
7. frmEmpAtt ( Employee Attendance Form)
8. frmPurchaseOrder ( Medicine Sale Form)
9. ExpSearch (Search Expired Medicine Form)
10. Form1 ( Date Picker For Bill Reports)
11. Frmrep1 ( Date Picker For Attendance Reports)
12. Module1 (Module.bas)
13. Dataenvironment1 (Dataenvironment.dsr)
14. Datareport1 (Attendance Report)
15. Datareport2 (Employee Report)
16. Datareport3(Stock Report)
17. Datareport4 (BIll Report)
18. Datareport5 (Expired Medicine Report)
 The application does following tasks:
1. Admin should be able to login to the system with own password.
2. Insert,Delete,Update Medicine records
3. Insert, Delete, Update employee records.
4. Compute the Attendance of each employee.
5. Able to make medical bills for the customer
6. Able to search for expired medicines
7. View reports of employee
8. View reports of Stock
9. View reports of attendance of Employees
10. View reports of Medical bills of customer
11. View reports of Expired Medicines

MEDICAL SHOP MANAGEMENT

LOGIN FORM

LOADING FORM

MDI FORM (MENU)

MASTER DETAILS EMPLOYEE DETAILS TRANSACTION VIEW REPORTS

CATEGORY ENTRY EMP DETAILS SALE MEDICINE EMP REPORT

ITEM DETAILS EMP ATTENDANCE SEARCH EXPIRED ATTENDANCE REPORT

MEDICINE

STOCK REPORT

BILL REPORT

EXPIRED MEDICINE
REPORT
FRONT END TOOL

*MICROSOFT VISUAL BASIC 6.0

BACK END TOOL

*MICROSOFT ACCESS 2007

SOFTWARE REQUIREMENTS

VISUAL BASIC 6.0

Visual basic 6.0 can run in many operating systems –

*Windows 2000
*Windows XP
*Windows vista
*2003 server
*Windows 7 to 11 (both 64 bit or 32 bit)

MICROSOFT ACCESS 2007

*Operating system –Windows XP with Service Pack 2 OR

GREATER
*Server -Windows Server 2003 With Service Pack 1 And Later
Versions Of Windows
HARDWARE REQUIREMENTS

VISUAL BASIC 6.0

HARDWARE COMPONENTS REQUIREMENTS

PROCESSOR Pentium-III or above, 600 MHz
RAM 256 MB or above
DISK SPACE 900 MB
VIDEO 800x600,256 color resolution minimum
CD-DRIVE If You Are Using CD Drive For Installation

MICROSOFT ACCESS 2007

HARDWARE COMPONENTS REQUIREMENTS

PROCESSOR 500 Mhz or above
RAM 256 MB or above
DISK SPACE 14 MB
VIDEO 1024x768
DRIVE CD-ROM OR DVD Drive
SYSTEM PLANNING
FEASIBILITY STUDY:-

An initial investigation terminates in a proposal that determines whether

an alternative system is feasible. Feasibility study can be categorized into three
major parts: -

(1) TECHNICAL FEASIBILITY:-

 The proposed system has technical capacity of required to hold the

data.
 This project is efficient and responds quickly for various enquires
regardless
 Of number of locations.
 The system proposed could be expanded easily and Efficiency,
whenever required.

(2) OPERATING FEASIBILITY STUDY:-

The management of the organization has a fully supported us

to bring up the project and the data security in this project provided
by setting up the password procedure so that only the authorized
user can access the system.
 (3) OUR PROJECT IS ECONOMICAL FEASIBLE AS:-

* It has computerized paper works and also is reduced to large

extent
* With the help of this project single person is now available to do
the tasks of 5 to 7 persons.
* Due to processing speed of then Computer, we can extract
desired information’s in a fraction of second.

All stages of asoftware process status quo, problem definition, technical

development, and
solution integration coexist simultaneously
at some level of detail.
design and analysis. Information engineering encompasses requirements
gathering at the strategic business level and at the business area level.

Software requirements analysis. The requirements gathering process is

intensified and focused specifically on software. To understand the nature of
the program(s) to be built, the software engineer ("analyst") must understand
the information domain
for the software, as well as required function, behavior, performance,and
interface. Requirements for both the system and the software are documented
and reviewed with the customer.

Design. Software design is actually a multistep process that focuses on four

distinct
attributes of a program: data structure, software architecture, interface
representations,
and procedural (algorithmic) detail. The design process translates requirements
into a representation of the software that can be assessed for quality before
coding begins. Like requirements, the design is documented and becomes part
of the software
configuration.

Code generation. The design must be translated into a machine-readable

form.The code generation step performs this task. If design is performed in a
detailed manner,code generation can be accomplished mechanistically.
Testing. Once code has been generated, program testing begins. The testing
process focuses on the logical internals of the software, ensuring that all
statements have been tested, and on the functional externals; that is,
conducting tests to uncover errors and ensure that defined input will produce
actual results that agree with required results.

Implementation. Software will undoubtedly undergo change after it is

delivered to the customer (a possible exception is embedded software). Change
will occur because errors have been encountered, because the software must be
adapted to accommodate changes in its external environment (e.g., a change
required because of a new operating system or peripheral device), or because
the customer requires functional or performance enhancements. Software
support/maintenance reapplies each of the preceding phases to an existing

program rather than a new one.

FIG. SDLC PHASE
DFD
ER DIAGRAM
DATA DICTIONARY
CATEGORY TABLE

EMP DETAILS TABLE

EMP ATTENDENCE TABLE
SALES TABLE
SCREEN LAYOUTS
LOGIN FORM

SPLASH FORM
MDI FORM
CATEGORY FORM
ITEM DETAILS FORM
EMPLOYEE FORM
EMPLOYEE ATTENDENCE FORM
EXPIRY MEDICINE FORM
REPORT
SOURCE CODE
 LOGIN FORM

Private Sub Command1_Click()

If UCase(TXTUSER.Text) = "M" And UCase(TXTPASSWORD.Text) = "M" Then
Unload Me
MsgBox "WELCOME ", vbInformation
splash.Show
Else
If UCase(TXTUSER.Text) <> "CABLE" Then
MsgBox "INVALID USER NAME"
TXTUSER.Text = ""
TXTUSER.SetFocus
Else
MsgBox "INVALID PASSWORD"
TXTPASSWORD.Text = ""
TXTPASSWORD.SetFocus
End If
End If
End Sub

Private Sub Command2_Click()

End
End Sub
SPLASH FORM

Private Sub Timer1_Timer()

If ProgressBar1.Value > 97 Then
mdimain.Show
Unload Me
Timer1.Enabled = False
End If

ProgressBar1.Value = ProgressBar1.Value + 1
Label10.Caption = ProgressBar1.Value & "%"

End Sub

MDI FORM

Private Sub M1_Click()

FRMAREA_FORM.Show
End Sub

Private Sub M2_Click()

FRMCONNECTION_FORM.Show
End Sub

Private Sub M3_Click()

FRMEMP_FORM.Show
End Sub

Private Sub M4_Click()

FRMCUSTOMER_FORM.Show
End Sub

Private Sub M5_Click()

FRMREGISTRATION_FORM.Show
End Sub

Private Sub M6_Click()

FRMDISCONNECT_FORM.Show
End Sub

Private Sub M7_Click()

FRMREPORT_FORM.Show
End Sub

Private Sub M8_Click()

End
End SubEnd If
End Sub

Private Sub Combo5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
Combo6.SetFocus
End If
End Sub

Private Sub Combo6_Click()

If Combo6.Text = "" Then
MsgBox "plz select a subject"
Combo6.SetFocus
Exit Sub
End If

If rs.State = 1 Then rs.Close

rs.Open "select * from MARKS where branch='" & Combo4.Text & "' and sem="
& Val(Combo1.Text) & " and sec='" & Combo2.Text & "' and cttype='" &
Combo5.Text & "' and subname ='" & Combo6.Text & "'", con, adOpenKeyset,
adLockOptimistic, adCmdText
If rs.RecordCount > 0 Then
MsgBox "Marks already entered"
Exit Sub
End If

If rs.State = 1 Then rs.Close

rs.Open "select * from marks", con, adOpenKeyset, adLockOptimistic,
adCmdText
CATEGORY FORM
Private Sub Command1_Click()
Call TXTCLEAR
If rs.State = 1 Then rs.Close
sql = "select * from AREADB"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
txtid.Text = rs.RecordCount + 1
End Sub

Private Sub Command2_Click()

If Trim(txtid.Text) = "" Then
MsgBox "Plz Enter Id", vbInformation
txtid.SetFocus
Exit Sub
End If

If Trim(txtname.Text) = "" Then

MsgBox "Plz Enter Name", vbInformation
txtname.SetFocus
Exit Sub
End If

If rs.State = 1 Then rs.Close

sql = "insert into AREADB values(" & txtid.Text & ",'" & txtname.Text &
"')"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
MsgBox "Record Inserted"
Call TXTCLEAR
Call list_fill
End Sub

Private Sub Command3_Click()

If Trim(txtid.Text) = "" Then
MsgBox "Plz Enter Id", vbInformation
txtid.SetFocus
Exit Sub
End If

If Trim(txtname.Text) = "" Then

MsgBox "Plz Enter Name", vbInformation
txtname.SetFocus
Exit Sub
End If

If rs.State = 1 Then rs.Close

sql = "update AREADB set AREA_NAME='" & txtname.Text & "' where ID=" &
txtid.Text & ""
rs.Open sql, con, adOpenKeyset, adLockPessimistic
MsgBox "Record Updated"
Call TXTCLEAR
End Sub

Private Sub list_fill()

List1.Clear
If rs.State = 1 Then rs.Close
sql = "select * from AREADB"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
For I = 0 To rs.RecordCount - 1
List1.AddItem (rs(0))
rs.MoveNext
NextSA
SALE FORM
Private Sub Command1_Click()
Call TXTCLEAR
If rs.State = 1 Then rs.Close
sql = "select * from CUSTOMER"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
txtid.Text = rs.RecordCount + 1
End Sub

Private Sub Command2_Click()

If Trim(txtid.Text) = "" Then
MsgBox "Plz Enter Id", vbInformation
txtid.SetFocus
Exit Sub
End If
If Trim(txtname.Text) = "" Then
MsgBox "Plz Enter Name", vbInformation
txtname.SetFocus
Exit Sub
End If
If Trim(txtaddress.Text) = "" Then
MsgBox "Plz Enter dealerAddress", vbInformation
txtaddress.SetFocus
Exit Sub
End If

If Trim(txtph_no.Text) = "" Then

MsgBox "Plz Enter phone no.", vbInformation
txtph_no.SetFocus
Exit Sub
End If

If Trim(txtsalary.Text) = "" Then

MsgBox "Plz Enter salary.", vbInformation
txtsalary.SetFocus
Exit Sub
End If

If rs.State = 1 Then rs.Close

sql = "insert into CUSTOMER values(" & txtid.Text & ",'" & txtname.Text &
"','" & txtaddress.Text & "','" & txtph_no.Text & "','" & txtsalary.Text &
"',#" & DTPicker1.Value & "#)"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
MsgBox "Record Inserted"
Call TXTCLEAR
Call list_fill
End Sub

Exit Sub
End If

If rs.State = 1 Then rs.Close

sql = "update CUSTOMER set CUST_NAME='" & txtname.Text & "',ADDRESS='" &
txtaddress.Text & "',PHNO='" & txtph_no.Text & "',AREA_CODE='" &
txtsalary.Text & "',DOJ=#" & DTPicker1.Value & "# where ID=" & txtid.Text
End Sub
REPORT

Private Sub Command1_Click()

Call TXTCLEAR
If rs.State = 1 Then rs.Close
sql = "select * from REGISTRATION"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
Text1.Text = rs.RecordCount + 1
End Sub

Private Sub Command2_Click()

If Trim(txtid.Text) = "" Then
MsgBox "Plz Enter Id", vbInformation
txtid.SetFocus
Exit Sub
End If
If Trim(txtname.Text) = "" Then
MsgBox "Plz Enter Name", vbInformation
txtname.SetFocus
Exit Sub
End If
If Trim(txtaddress.Text) = "" Then
MsgBox "Plz Enter dealerAddress", vbInformation
txtaddress.SetFocus
Exit Sub
End If

If Trim(txtph_no.Text) = "" Then

MsgBox "Plz Enter phone no.", vbInformation
txtph_no.SetFocus
Exit Sub
End If

If Trim(txtsalary.Text) = "" Then

MsgBox "Plz Enter salary.", vbInformation
txtsalary.SetFocus
Exit Sub
End If

If rs.State = 1 Then rs.Close

sql = "insert into REGISTRATION values(" & Text1.Text & "," & txtid.Text & ",'" &
txtname.Text & "','" & txtaddress.Text & "','" & txtph_no.Text & "','" & txtsalary.Text & "',#" &
DTPicker1.Value & "#)"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
MsgBox "Record Inserted"
Call TXTCLEAR
Call list_fill
End Sub
SALES REPORT

Private Sub Command2_Click()

DR_AREA.Show
End Sub

Private Sub Command3_Click()

DR_EMP.Show
End Sub

Private Sub Command5_Click()

DR_CUSTOMER.Show
End Sub

Private Sub Command7_Click()

DR_REGISTRATION.Show
End Sub

Private Sub Form_Load()

If rs.State = 1 Then rs.Close
sql = "select * from AREADB"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
For I = 0 To rs.RecordCount - 1
Combo1.AddItem (rs(0))
rs.MoveNext
Next

If rs.State = 1 Then rs.Close

sql = "select * from EMPDB"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
For I = 0 To rs.RecordCount - 1
Combo2.AddItem (rs(0))
rs.MoveNext
Next

If rs.State = 1 Then rs.Close

sql = "select * from CUSTOMER"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
For I = 0 To rs.RecordCount - 1
Combo3.AddItem (rs(0))
rs.MoveNext
Next

If rs.State = 1 Then rs.Close

sql = "select * from REGISTRATION"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
For I = 0 To rs.RecordCount - 1
Combo4.AddItem (rs(0))
 RATE LIST REPORT

Private Sub Command1_Click()

If Combo4.Text = "" Then
MsgBox "plz seslect branch"
Exit Sub
End If
If DataEnvironment1.rsCommand1.State = 1 Then
DataEnvironment1.rsCommand1.Close
DataEnvironment1.rsCommand1.Filter = "branch ='" & Combo4.Text & "'"
Students_List.Show
End Sub

Private Sub Form_Load()

If rs.State = 1 Then rs.Close
rs.Open "select bname from branch", con, adOpenKeyset, adLockOptimistic,
adCmdText
Combo4.Clear
While Not rs.EOF
Combo4.AddItem rs(0)
rs.MoveNext
Wend
End Sub

Report2

Private Sub Combo1_Click()

If Combo2.Text = "" Then
MsgBox "please select section", vbInformation
Combo2.SetFocus
Exit Sub

End If

End Sub

Private Sub Combo4_Click()

If rs.State = 1 Then rs.Close
rs.Open "select Sections from branch where bname='" & Combo4.Text & "'",
con, adOpenKeyset, adLockOptimistic, adCmdText
Combo2.Clear
For i = 65 To 65 + Val(rs(0))
Combo2.AddItem Chr(i)
Next

If rs.State = 1 Then rs.Close

rs.Open "select Semester from branch where bname='" & Combo4.Text & "'",
con, adOpenKeyset, adLockOptimistic, adCmdText
Combo1.Clear
For i = 1 To Val(rs(0))
Combo1.AddItem i
Next

End Sub

Private Sub Command1_Click()

If DataEnvironment1.rsCommand2.State = 1 Then
DataEnvironment1.rsCommand2.Close
LIMITATIONS
 LIMITATION OF THE SYSTEM

The complete application is based on Microsoft visual basic 6.0

as Front- End Tool & Data Base is a MS Access that behaves as back – End
for the applications. Both the tools are efficient for these applications. Some
problems arise when we enhance the scope of the system that is mentioned
below.

The limitation behind visual basic 6.0 is that when we connect

visual basic with MS Access, it is sometimes inconsistent because of
incompatibility between Microsoft and MS Access and also when we use the
MS Access Personal Edition, database must be started before operating on the
software.
 CONCLUSION

Now days computerizations of existing manual system is going on a

large scale because of the versatility, speed, accuracy and diligence it offers to its
users. Computers provide practical means to organize things systematically and
economically in the organization the use of computers for managing transactions;
information processing and preparation of reports can prove to be a blessing.
The project is discussion is an attempt to attain all the above said
objectives. Its development was mean to replace the manual system and to achieve
the goal to maximum accuracy and most efficiently. But like every other system
might process faults to its credits and has its own limitation. Neglecting these few
negations, the project can be called a stepping stone to automate processes in
organizations.
 BIBLIOGRAPHY

References are always needed for the development of any System /

Software development. Through the system development life cycle, I refer the
following books and manuals for related sources.

Book Name Author Name

The Complete Reference Visual Basic 6 Tata McGraw Hill

Informatics Practices Sumita Arora

Visual Programming Black Book Steven Holzner

Other than these books I referred some sites and eBooks also.

URL’s:-

www.freecomputerbooks.com
www.bigbanyantree.com
www.forumempire.com