Hospital Management

HOSPITAL MANAGEMENT

PROBLEM DESCRIPTION:

     This project is all about hospital and its management.  This project is to manage the employees including doctors, patients, wards and Hospital services provided in a renounced Hospital.  This program also provides immediate accessories needed while the hospital management.  This also provides the landmark of hospital, where it is located.  This complex project has the scope of adding new employees doctors admitting outpatients, fixing appointments etc.  This project also displays the services provided to outpatient.

INTERFACES:

o   Welcome interface

o   Login interface

o   MDI main interface

o   Application interface

o   Doctor interface

o   Employees interface

o   Ward interface

o   Outpatient interface

o   Services interface 

            WELCOME INTERFACE:

                        In welcome interface, it includes just a progressing, intimates that the administrator is getting in the management program.

            LOGIN INTERFACE:

                        In login interface, we provide authorization to the user getting in.   

            MDI MAIN INTERFACE:

                        The multiple document interface, provides base screen for all management program actions present in the management program.  It contains menu bar which list the manipulation forms for management. 

            APPLICATION INTERFACE:

                        Application interface provides the basic accessories that is required for certain essential operations.

            DOCTOR INTERFACE:

                        This interface provides us the facilities such as viewing doctor's details including his/her id, qualification and specialization, address etc..  It also display the list of doctors present in various departments. We can search a doctor by his id and then view his details. This interface alsor provides us the facility to add new doctors in.

            EMPLOYEES INTERFACE:

                    This interface provides us the facilities such as viewing employee's details including his/her id, qualification, address etc..  It also display the list of employees present in various departments. We can search an employee by his id and then view his details. This interface also provides us the facility to add new employees in.

            WARD INTERFACE:

                        This interface provides us the details about wards and the habited patients in those wards.

            OUTPATIENT INTERFACE:

                        This interface provides us the information about the outpatients, what for they are in, appointments with doctor, bill details, time they are in etc..

            SERVICES INTERFACE:

                        This interface provides us the information about the services present in that hospital, which time they are scheduled to be open, and the incharge administrator.

FUNCTIONAL CAPABILITIES:

     The basic functionalities of this hospital management system are:

            1.This provides the easy way of management to the administrator.

2.Highly user defined.

            3.The details about doctors, employees, patients can be maintained and managed in an easy manner due to presence of database.

PERFORMANCE LEVEL:

     Performance wise this system provide the opportunity to the user(administrator) to manage the details about doctors, employees, patients in a great user defined manner. Apart from management it also entertains the user. It also provides the basic accessories to the user(administrator).  This project is completely user friendly.

DATA STRUCTURES:

     The data related to various fields are aligned in the database in the form of tables. Oracle is used in the form of database.  All the details of the management system are maintained in the database and can be accessed when required.

SAFETY:

            1. A person can login, only when he/she enters a correct username and password, except, the new user who can register himself/ herself.  

RELIABILITY:

     Reliability is highly concerned with user satisfaction.  As per reliability is concerned, it provides cent percent user satisfaction. It meets all the possible requirements of the user.  The data are secured and thus provides more reliability.

SECURITY AND PRIVACY:

     Proper security and privacy policy has been used to build this project.  Authentication is the basic motive to precede the further processes.  Corruption of database and software is not possible by any means.

QUALITY:

     The most user friendly software, visual basic is used to build this project.  This software is checked for its working in exceptional conditions.  The various features used in this projet enhances the quality of the project.  Each and every module individually serves its purpose and ultimately provides a quality product.

LIMITATIONS AND CONSTRAINTS:

     Apart from all the quality features, the loss of data in database affects the whole system. Also visual basic is not a proper platform to work with, when compared to other software in this upcoming technology trends.

LOGIN FORM

LOGIN FORM CODING:

Private Sub Form_Load()

Call ShockwaveFlash1.LoadMovie(0, "C:\Documents and Settings\friends\Desktop\J.swf")

End Sub

Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)

End Sub

Private Sub Command1_Click()

If Trim(Text1.Text) = "care4u" And Trim(Text2.Text) = "admin" Then

MDIMain.Show

Else

MsgBox "Invalid username or password"

End If

End Sub

MDIFORM:

MDI FORM CODING:

Private Sub app_Click()

applications.Show

End Sub

Private Sub doc_Click()

doctors.Show

End Sub

Private Sub enp_Click()

employees.Show

End Sub

Private Sub Exit_Click()

End

End Sub

Private Sub logoff_Click()

login.Show

End Sub

Private Sub out_Click()

outpatient.Show

End Sub

Private Sub Service_Click()

services.Show

End Sub

Private Sub Timer1_Timer()

StatusBar1.Panels(1).Text = Time

StatusBar1.Panels(2).Text = Date

End Sub

Private Sub ward_Click()

warddetails.Show

End Sub

ADD DOCTOR FORM:

ADD DOCTOR CODING:

Option Explicit

Dim Cn As ADODB.Connection

Private Conn As String

Dim Rs As ADODB.Recordset

Private Sub Command1_Click()

Rs.AddNew

Command1.Visible = False

Command2.Visible = True

End Sub

Private Sub Command2_Click()

Rs(0) = Val(Text1.Text)

Rs(1) = Text2.Text

Rs(2) = Combo1.Text

Rs(3) = Text3.Text

Rs(4) = Text4.Text

Rs(5) = Combo2.Text

Rs(6) = Text5.Text

Rs(7) = Val(Text6.Text)

Rs(8) = Val(Text7.Text)

Rs.Update

Command2.Visible = False

Command1.Visible = True

End Sub

'##ModelId=3E46266C011B

Private Sub Command3_Click()

Rs.Delete

End Sub

'##ModelId=3E46266C0128

Private Sub Command4_Click()

Unload Me

End Sub

'##ModelId=3E46266C0129

Private Sub Command5_Click()

Dim i As Integer

Dim a As Integer

a = 0

i = InputBox("enter the id to be searched")

Rs.MoveFirst

While Not Rs.EOF

If i = Rs(0) Then

a = 1

Text1.Text = Rs(0)

  Text2.Text = Rs(1)

 Combo1.Text = Rs(2)

 Text3.Text = Rs(3)

 Text4.Text = Rs(4)

 Combo2.Text = Rs(5)

 Text5.Text = Rs(6)

Text6.Text = Rs(7)

Text7.Text = Rs(8)

Else

Rs.MoveNext

End If

Wend

If a = 0 Then

MsgBox ("enter a valid id")

End If

End Sub

'##ModelId=3E46266C0138

Private Sub Form_Load()

Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"

       Set Cn = New ADODB.Connection

       With Cn

         .ConnectionString = Conn

         .CursorLocation = adUseClient

         .Open

       End With

    Set Rs = New ADODB.Recordset

    Rs.Open "adddoctors", Cn, adOpenDynamic, adLockOptimistic, adCmdTable

Set DataGrid1.DataSource = Rs

Command2.Visible = False

Exit Sub

End Sub

SERVICES FORM:

SERVICES FORM CODING:

Option Explicit

' Form Diposit

Dim Cn As ADODB.Connection

Private Conn As String

Dim Rs As ADODB.Recordset

Private Sub Label1_Click()

Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"

       Set Cn = New ADODB.Connection

       With Cn

         .ConnectionString = Conn

         .CursorLocation = adUseClient

         .Open

       End With

    Set Rs = New ADODB.Recordset

    Rs.Open "services", Cn, adOpenDynamic, adLockOptimistic, adCmdTable

End Sub

APPLICATION FORM:

APPLICATION FORM CODING:

Private Sub Command1_Click()

Shell "Notepad.exe", vbNormalFocus

End Sub

Private Sub Command2_Click()

Shell "calc.exe", vbNormalFocus

End Sub

Private Sub Command3_Click()

MsgBox "Sure you want to log off"

login.Show

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Form_Load()

Label7.Caption = Time

Label8.Caption = Date

End Sub

ADD OUTPATIENT FORM:

ADD OUTPATIENT FORM CODING:

Private Sub Command1_Click()

Rs.AddNew

Command1.Visible = False

Command2.Visible = True

End Sub

Private Sub Command2_Click()

Rs(0) = Text1.Text

Rs(1) = Combo1.Text

Rs(2) = Text2.Text

Rs(3) = Combo2.Text

Rs(4) = Val(Text3.Text)

Rs(5) = Val(Text4.Text)

Rs(6) = Val(Text5.Text)

Rs(7) = Val(Text6.Text)

Rs(8) = Combo3.Text

Rs.Update

Command2.Visible = False

Command1.Visible = True

End Sub

Private Sub Command3_Click()

rz.Delete

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Form_Load()

Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"

       Set Cn = New ADODB.Connection

       With Cn

         .ConnectionString = Conn

         .CursorLocation = adUseClient

         .Open

       End With

    Set Rs = New ADODB.Recordset    

    Rs.Open "Ward Details", Cn, adOpenDynamic, adLockOptimistic, adCmdTable   

    Set DataGrid1.DataSource = Rs

Command2.Visible = False

Exit Sub

End Sub

Private Sub Command5_Click()

Form9.Show

End Sub

WARD DETAILS FORM:

WARD DETAILS FORM CODING:

Option Explicit

Dim Cn As ADODB.Connection

Private Conn As String

Dim Rs As ADODB.Recordset

Private Sub Label1_Click()

Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"

       Set Cn = New ADODB.Connection

       With Cn

         .ConnectionString = Conn

         .CursorLocation = adUseClient

         .Open

       End With

    Set Rs = New ADODB.Recordset

    Rs.Open "Ward Details", Cn, adOpenDynamic, adLockOptimistic, adCmdTable

End Sub

EMPLOYEES DETAILS FORM :

EMPLOYEES DETAILS FORM CODING:

Option Explicit

Dim Cn As ADODB.Connection

Private Conn As String

Dim Rs As ADODB.Recordset

Private Sub Command1_Click()

Rs.AddNew

Command1.Visible = False

Command2.Visible = True

End Sub

Private Sub Command2_Click()

Rs(0) = Val(Text1.Text)

Rs(1) = Text2.Text

Rs(2) = Combo1.Text

Rs(3) = Text3.Text

Rs(4) = Combo2.Text

Rs(5) = Combo3.Text

Rs(6) = Val(Text4.Text)

Rs(7) = Text5.Text

Rs(8) = Text6.Text

Rs(9) = Val(Text7.Text)

Rs.Update

Command2.Visible = False

Command1.Visible = True

End Sub

Private Sub Command3_Click()

Rs.Delete

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Form_Load()

Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"

       Set Cn = New ADODB.Connection

       With Cn

         .ConnectionString = Conn

         .CursorLocation = adUseClient

         .Open

       End With

    Set Rs = New ADODB.Recordset

    Rs.Open "employee", Cn, adOpenDynamic, adLockOptimistic, adCmdTable

    Set DataGrid1.DataSource = Rs

Command2.Visible = False

Set DataGrid1.DataSource = Rs

End Sub

CONCLUSION:

                   The Visual Basic project for Hospital Management was completed successfully and executed using oracle database connection. This system was tested and proved for bug free project.