Scribd
Upload
941 views11 pages

Ooad Project

This document contains source code snippets from various forms that make up a hospital management system project created in Visual Basic. The forms include a login form, main form, appointment form, patient list, ward allocation, list of medicines, billing, about us, and exit forms. Each form code handles events like button clicks to open other forms, add/delete records from databases, and print bills.

Uploaded by

Mayur Kabra
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
941 views11 pages

Ooad Project

This document contains source code snippets from various forms that make up a hospital management system project created in Visual Basic. The forms include a login form, main form, appointment form, patient list, ward allocation, list of medicines, billing, about us, and exit forms. Each form code handles events like button clicks to open other forms, add/delete records from databases, and print bills.

Uploaded by

Mayur Kabra
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 11

Object Oriented Analysis & Design

Project Topic:

Hospital Management System


By :

Mayur Kabra Roll No: 16 Anchal Katyal Roll No: 19 Prajacta Khopkar Roll No:22

Login Form

Private Sub cmdCancel_Click() LoginSucceeded = False [Link] End Sub Private Sub cmdOK_Click() If txtPassword = "1234" Then LoginSucceeded = True [Link] [Link] Else MsgBox "Invalid Password, try again!", , "Login" [Link] SendKeys "{Home}+{End}" End If End Sub

Main Form

Private Sub About_Click() About_us.Show End Sub Private Sub Allocate_Ward_Click() [Link] End Sub Private Sub Appointment_Click() [Link] End Sub Private Sub Exit_Click() If MsgBox("Do you really want to exit?", vbYesNo, "PAM Hospital Management System") = vbYes Then Unload Main End If End Sub Private Sub List_of_medicines_Click() [Link] End Sub Private Sub Patient_List_Click() [Link] End Sub Private Sub Print_Bill_Click() [Link] End Sub

Appointment Form

Private Sub Command1_Click() [Link] [Link]!patient_name = [Link] [Link]!contact_no = [Link] [Link]!blood_group = [Link] [Link]!remarks = [Link] [Link]!consulting = [Link] [Link] End Sub Private Sub Command2_Click() [Link] = "" [Link] = "" [Link] = "" [Link] = "" End Sub

Patient List

Ward Allocation

Private Sub go_Click() Dim x As String x = [Link] Dim y As String y = [Link] Dim z As String z = [Link] [Link] [Link] [Link]!room_no = x [Link]!room_type = y [Link]!allocated_to = z [Link] End Sub

List Of Medicines

Billing

Private Sub print_Click() PrintForm End Sub

About Us

Private Sub cmdOK_Click() Unload Me End Sub

Exit

Private Sub Exit_Click() If MsgBox("Do you really want to exit?", vbYesNo, "PAM Hospital Management System") = vbYes Then Unload Main End If End Sub

You might also like