Visual Basic 4 Power Pack

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / schedvbx / samples.z / APPTLIST.FRM (.txt) next >

Wrap

Visual Basic Form | 1995-03-14 | 8.2 KB | 199 lines

ApptsListForm Appointments Form15 Doctors Delete &Delete E&xit Panel3D1 SSPanel# ExamRoom Patient ApptNumber ApptNumber ApptDuration ApptTime Reason Notes Label3 Appt. Duration: Label2 Appt. Time: Label1 Patient: Label5 Exam Room: Label7 Reason for Visit: Label10 Notes: ApptList Label12 Appointments: Label11 Doctor: Exit_Click DoctorListForm ApptsListForm @ Form_Load DoctorsFormn SchedVBX1 ResMax Doctors ResNameO BarsMax ExamRooms BarName ExamRoom@ ListIndex8 Doctors_Change Doctors_ClickL ApptList TBMax( TBResource TBUser1 TBBeg Patients Recordset PatientListForm PatList Patientq ApptList_Click0 LookupCriteria iIndex9 PatNumber+ NoMatch| PatientName AddressM StateQ PhoneHome PhoneWork InsuranceCompany PrimaryDoc Status Notes ItemData ListCount Appts_ ApptTime ApptDuration TBDur TBBar Reason LoadApptList+ LoadPatList Screen MousePointerg sOriginalDurFormat DefaultDurationFormat ApptNumber Patient_Change Patient_Click atientNameF Patient_LostFocus iApptListIndex iPatient sPatientName sUser4 Delete_Click TBUser2\ ApptTime_Change DocNumber ResUser2 PhoneOffices ApptTime_LostFocus ApptDuration_ChangeE ApptDuration_LostFocus TBEnd ExamRoom_Change Reason_Change TBUser3 Reason_LostFocus Notes_Change Notes_LostFocus @ Add_Click iResult SchedVBXAddResource LoadDocListu DocList Apptss SchedVBXAddTimeBlock iSelDoctor iDoctor ResDelete iSelAppt elete iAppt TBDelete ExamRoom_LostFocus SetBarText SnapToHalfHour Add_Click get next TimeBlock # from Schedule/VBX add blank TimeBlock to Schedule/VBX 1 Hour add record to Appts Table in database Appointment Number Doctor Number Patient Number Begin Reason for Visit Exam Room Notes ApptDuration_LostFocus update Schedule/VBX control with new time %H Hours %M Mins update database with new time ApptList_Click Position Appointment Table Datacontrol to this record [Appointment Number] = Warning - that Appointment was not found in the Appointments table! Patient Number %H Hours %M Mins Reason for Visit Notes ApptTime_LostFocus update Schedule/VBX control with new time update database with new time Begin Delete_Click No Appointment Selected Change pointer to hourglass. delete the Appointment Record [Appointment Number] = Return pointer to normal. Warning - that Appointment was not found in the Appointments table! Next, move all "Appointment Number"s down to matchp [Appointment Number] > Appointment Number Appointment Number Remove the TimeBlock from Schedule/VBXs Reload List Return pointer to normal. Doctors_Click fill appt listo ExamRoom_LostFocus update Schedule/VBX control with new time Exit_Click Form_Load fill Doctors combo box fill Exam Room combo box Load Patient combo box from Patients Table select first doctor in list LoadApptList fill appt list Notes_LostFocus update database with new time Notes Patient_LostFocus update patient database Patient Number get patient name from Patients tablet [Patient Number] = update Schedule/VBX TimeBlock valuesi reload appointment list Reason_LostFocus update Schedule/VBX control with new time update database with new time Reason for Visit