VB Assignment Clinic Appointment

by - January 09, 2014


This form is Patient Information for staff to enter patients details such as patient id, patient name, patient gender, patient ic, patient contact no and patient email. Besides that, we set few button at the bottom for easy way to key in record, delete record or switch to other page. Those buttons such as Main, delete record, add record, save record, search record and proceed to appointment form button. It’s useful because we can proceed to next form or switch back to that form easily. The advantage that we design this form is to reduce data redundancy and save time. It can avoid our database appear repeated data.


This is a complete report that show all patients information such as patient id, patient name, patient gender, patient contact no, patient email. The advantage come out of this report is for staff to view their clinic have how many patient.


This form is Staff Information for staff to enter staff details such as staff id, staff name, staff gender, staff ic, staff contact no and staff email. The advantage that we design this form is to reduce data redundancy and save time. It can avoid our database appear repeated data


This report complete to show staff detail such as staff id, staff name, staff contact no, staff email. The advantage come out of this report is easy for clinic keep track staff. For example, some emergency case needs immediacy calling staff come back clinic


This form is about Patient Appointment. We can enter a unique appointment code, patient id, staff id, appointment date and appointment reason. At the same time, we use combo box in Staff ID, so that when adding new staff the system will automatically update on Appointment form. The advantage come out with this form is measure appointment time with no collision happens


This report clearly list out all the staff and every day of patient appointment such as staff id, patient id, appointment id, appointment date, appointment reason. The advantage come out of this report is for staff to explicitly view their appointment at which date and the patient appointment reason

Sample VB code showing appointment in dialog :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        PrintDialog1.Document = PrintDocument1
        PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings
        PrintDialog1.AllowSomePages = True
        If PrintDialog1.ShowDialog = DialogResult.OK Then
            PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
            PrintDocument1.Print()
        End If
    End Sub

You May Also Like

0 comments