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 / DOCTORS.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-03-19 | 24.6 KB | 698 lines

DoctorsForm Doctor's Appointments Form15 DocPick DocPick ExamRoom ExamRoom BarTextPhone SSCommand Phone Small Fonts BarTextReason SSCommand Reason Small Fonts BarTextName SSCommand Patient Small Fonts BarTextNone SSCommand No Text Small Fonts Tomorrow SSCommand Tomorrow Small Fonts NextAvail SSCommand Next Avail Small Fonts NextWeek SSCommand Next Week Small Fonts NowButton SSCommand Small Fonts Hour4 SSCommand 4 Hrs Small Fonts Hour3 SSCommand 3 Hrs Small Fonts Hour1 SSCommand 1 Hour Small Fonts Hour2 SSCommand 2 Hrs Small Fonts Panel3D1 SSPanel Panel3D1! ( PatNumber PatNumber Reason SSPanel Doctor SSPanel WorkPhone SSPanel HomePhone SSPanel ApptTime SSPanel PatientName SSPanel Panel3D2 SSPanel Appointment! SchedVBX1 SchedVBX SchedVBX1 INTLSHORTDATE INTLTIME' %D %lds %H %lhs %M %lns) 5Arial Arial ?Arial Arial INTLSHORTDATE INTLTIMEORed Bar Green Bar Yellow Bar Black Bar White Bar Purple Bar Bright Red Bar Bright Blue Bar ZArial Arial Arial Arial Arial Arial Arial Arial oArial z\nDoctor \nAppts INTLSHORTDATE INTLTIME %H Hours %M Mins Appt\nBeg Appt\nDuration Patient\nName Reason\nFor Visit Arial Legend %k (%d %t) Page %p ReasonLabel Reason for Visit: DoctorLabel Doctor: WorkPhoneLabel Work Phone: HomePhoneLabel Home Phone: ApptTimeLabel Appt Time: PatientNameLabel Patient: DragAppt SSCommand Drag to Appt MS Serif IIIII DragAppt wwwwwwwwwwp wwwwwwwwwwp Patients% DOCTORS.MDB Patients Patients Appts% DOCTORS.MDB Appointments Appts ExamRooms% DOCTORS.MDB ExamRooms ExamRooms Doctors% DOCTORS.MDB Doctors Doctors Line1 mnuTables Tables mnuDoctors Doctors mnuPatients Patients mnuExamRooms ExamRooms mnuAppts Appointments mnuCleanup Cleanup mnuClearExamRooms Clear Exam Room Assignments mnuHelp Command1_Click SchedVBX1) BarsDialog SchedVBX1_DisplayModeChangedb DisplayMode Picture1_Click Picture5_Click Picture5_DragDrop Source Control, Picture5_DragOver State DragIcon SchedVBX1_MouseDown Button- Shift SchedVBX1PointToResource DragMode~ SchedVBXPointToResource Screen0 TwipsPerPixelX TwipsPerPixelY SchedVBX1_DragOver SchedVBXPointToBar= iPointOnBar SchedVBX1_BarMidSingleClick} TimeBlock BarAdjustable ResBarDefault SCHED_BARADJUSTABLE_NONE iBar} @ Form_Load Form_Activate TBResource+ TBBeg TBEnd ResName SCHED_BARADJUSTABLE_FULL SchedVBX TBBare Meetings Meeting MeetingFormV picDropIcone picDragIconw picBaeDropIcon picBarDropIconS picBarDragIcon Redraw! RedrawNoPaint SchedVBX1_MouseUp SchedVBX1_DragDrop Picture6_Click? Picture6_DragOver Picture3_ClickN MeetingInfo_Clickd MeetingInfo_DragOver% MeetingNotes_Click, MeetingNotes_DragOverg Trash_Click@ Trash_DragOver Picture2_Click sTime iResource LegendSelection iResult SchedVBXPointToTime TBMaxK iNextTB TBNextEmptyF VacationDescForm\ VacDesc Text[ User1 User2 SchedVBXAddTimeBlock Trash_DragDrop iNumberOfRoomsv Rooms Recordset RecordCount ResMax iRecN iRoom iNumberOfBarsZ BarsMax2 BarNameg BarSize2 iSize iOffset lColor iPattern iAdjustable iTextPoso iTextField iTextPosition TextFormat' bTextClips lFontColor FontName iFontSize@ bFontBold bFontItalic iBegSymbol& iBegType lBegColor iBegSize[ iBegOffset iEndSymbolg iEndType+ lEndColor iEndSize iEndOffset PASCAL+ export loadds SchedVBXAddBar iIndex LPCSTR szName< iSizePercent iOffsetPercent szTextFormat iTextClipL szFontName^ iFontSizePercentn iFontBold iFontItalicn iBegSizePercent iBegOffsetPercent iEndSizePercent iEndOffsetPercent sFontName sTextFormat| sBarName V_NULLC mnuRooms_Click3 RoomForm Rooms_Validate[ Action Savey ResUser1 RoomListFormq mnuDepartments_Click DepartmentListForm mnuMeetings_Click MeetingsListForm MeetingListForm RoomName RoomLocation ValtypeV ConferenceRoomQ conferenceRoomForm> ListIndexE Picture4_Click8 TSMinor SCHED_DAY SCHED_DISPLAYMODE_RESOURCE Width7 VacationForm Height ConferenceRoomView_Click SCHED_HOURS TSMinorFormat Form_Resizen SCHED_HOUR MonthlyView_Click SCHED_DISPLAYMODE_MONTHLYHORZ WeeklyView_ClickO SCHED_DISPLAYMODE_WEEKLYVERT% DailyView_Click SCHED_DISPLAYMODE_DAILYVERT SCHED_YEAR iNumberOfTBs iNumberOfMeetings@ iMeeting MeetingName TBUser1 Contact TBUser2 Equip TBUser35 iRoomNumber SchedVBX1_TBChanged) RoomNumber FindCriteria NoMatcho ResLineHeight SCHED_BARTEXTFIELD_TBUSER1 ResFontSizePercent MeetingsList TBDelete/ Database TBDurb enceRoomForm BarTextField SCHED_BARTEXTFIELD_NONEx MeetingNotes_DragDropN MeetingEditForm TBNumber MeetingBeg@ MeetingDur Notes MeetingNotesForm MeetingDescription MeetingInfo_DragDrop? MeetingInfoFormz DescriptionL Begins Duration DefaultDateTimeFormat defaultl dates DefDateFormat TSNumMinorTicks TSDateTimeBeg ViewDate TSDateTimeView SchedVBX1_BarDoubleClick yearsb TSMajorFontOrient SCHED SCHED_FONTORIENT_DOWN6 BegDate EndDate TSDateTimeEnd TSMajorFontSizePercentP TSMinorFontSizePercent TSSize TSSizeToTickU TSMajorPercent SCHED_DISPLAYMODE_YEARHORA EndSelects TBUser4 Doctors ExamRooms ExamDoctorsV iNumberOfDocs" Name< sRoomName/ sLocation= SchedVBXAddResource sName/ sPhoneOfficeH sPhoneHome SCHED_BARPATTERN_NONE iiResult iFontS SCHED_BARTEXTPOS_INSIDECENTERT SCHED_SYM_NONE SCHED_SYMTYPE_SOLID iExamRoomb Appointments iNumAppts iApptK iDoctor8 iPatient sEnd% sReasonH sNotes sDescription sContactR sEquip sPatientNamev Patients LookupCriteria mnuDoctors_Click Appts5 DoctorsForm iNumberOfExamRooms[ iNumberOfAppts SCHED_BARADJUSTABLE_BEG Frame3D1_DragDrop Command3D2_Click^ Hour4_Click Hour6V Font3D Hour4J Hour8| Hour12m Hour6_Click Hour2_Click Hour2 Hour8_Click Command3D6_ClickS Now_Click dFont Tomorrow NextWeek NextAvail NextWeek_Click0 Tomorrow_Click NextAvail_Click DateVarf TimeVar MessageBox6 Format^ NewDate NowButton_Clicks NowButton TimeDateVar sDateTimeFormat ViewTimeC TimeAdd sUser4 Patient_Click PatientTime_Click SCHED_BARTEXTFIELD_TBUSER4 sOldFormat PatientPhone_Click PatientReason_Clickz sPhoneR Patient PatientReasonj PatientTime PatientPhone$ Label5_Click Panel3D1_DragDrop Panel3D3_DragDropf SchedVBX1_BarSingleClick) CaptionW ApptTime sOldDefault sHomePhone sWorkPhone) HomePhone sHomePhoneSchedVBX1 WorkPhoneM Doctor Reason PatientName SchedVBX1_BarRightSingleClick mnuExamRoomList Visiblem Index* Visisble6 RoomList ExamRoom mnuHelp_Click SchedVBX1_CellDoubleClick DoctorInfox DoctorInfoFormC PhoneHomew PhoneOffice ResUser2 DoctorsName DocList DocListForm DoctorsListForm DoctorListForm mnuPatients_Clickg PatientListForm LoadTimeBlocksW MousePointer mnuExamRooms_Clickz PatientName_DragDrop? PatientName_Click PatientName_DblClick` ExamListForm PatientInfoForm octorInfoForm} InfoForm PatNumber Address PhoneWorkv InsuranceCompany PrimaryDoc Status InsuranceCo mnuAppts_Clickh ApptsListFormj SetBarTextO BarTextClip checkZ legend PatApptForm DragAppt_Click PatListV Patientst` ApptDuration BarTextNone_Click BarTextNone BarTextPatientG BarTextReasonQ BarTextPhone$ BarTextName_Click; BarTextReason_Click BarTextPhone_Click BarTextName SCHED_BARTEXTPOS_INSIDELEFT PatientNone SnapToHalfHour ApptNum sOriginalDurFormat DefaultDurationFormat SchedVBXa mnuClearExamRooms_Click- DocHelpForm Hour1 Hour38 Hour1_Click Hour3_Click Form_Unload Cancel iYesNo ID_YESNO IDYES ApptList ItemData ApptNumber IDYESNO< MB_YESNO SchedVBXFindFreeTimeBlock SchedVBXFindFreeTimeBlockDeclareG lpBeg lpDur ExamPickFormc DocPickForm DocPick iValidTimeFound iHourq iDayOfWeek iDayWeek tBegString iDocPick ExamRooms_Validate BarTextName_Click BarTextNone_Click BarTextPhone_Click BarTextReason_Click DragAppt_Click Drag this button to a point on the schedule to create a patient appointment. Form_Load Change pointer to hourglass.B load doctors from database int Sched/VBX Resources array Phone-Office Phone-Home load exam rooms database into the Sched/VBX Bars arrayy always setup at least one room - unassigned Not Assigned Yet Color load appointments table into timeblocks in Sched/VBXr Form_Resize Resize the Schedule/VBX control based on new form sizeR If DoctorsForm.Width > 85 Then SchedVBX1.Width = DoctorsForm.Width - 85e End If If DoctorsForm.Height > 1150 ThenW SchedVBX1.Height = DoctorsForm.Height - 1150 End If Form_Unload Do you want to save Examination Room assignments? Position Appointment Table Datacontrol to this record [Appointment Number] = Exam Room Hour1_Click Hour2_Click Hour3_Click Hour4_Click mnuAppts_Click mnuClearExamRooms_Click mnuDoctors_Click mnuExamRooms_Click mnuHelp_Click mnuPatients_Click NextAvail_Click 30 Mins take zero terminator off of returned time string check to see if new time is weekend or outside work hours NextWeek_Click save current DefaultDateTimeFormat set to return time only INTLTIME get view time of primary timescale- set back original DefaultDateTimeFormat mm/dd/yy NowButton_Click PatientName_DblClick position Patients datacontrol to correct record [Patient Number] = Warning - that Patient was not found in the Patients table! Phone-Home Phone-Work Insurance Company Primary Doctor Status Notes SchedVBX1_BarDoubleClick Load Patient list from Patients Table Load Primary Doctor ComboList %H Hours %M Mins get notes from database table [Appointment Number] = Warning - that Appointment was not found in the Appointments table! Notes Return pointer to normal. SchedVBX1_BarRightSingleClick SchedVBX1_BarSingleClick INTLTIME get patient record from Patients table [Patient Number] = Phone-Home Phone-Work get doctor record from Doctors table [Doctor Number] = SchedVBX1_CellDoubleClick SchedVBX1_DragDrop Change pointer to hourglass.t convert drag/drop coordinates from twips to pixelsC get resource # of coord from Schedule/VBX DLL CallC if coord not on resource, abort dragdrop get date/time of coord from Schedule/VBX into sTime Load Patient list from Patients Table Load Primary Doctor ComboList 30 Mins Return pointer to normal. SchedVBX1_MouseDown bardrag.ico SchedVBX1_TBChanged update appointment table in database find record in appointment tableb [Appointment Number] = Warning! No Appointment record found in database. add appointment to database Doctor Number Begin Tomorrow_Click save current DefaultDateTimeFormatm set to return time only INTLTIME get view time of primary timescalem set back original DefaultDateTimeFormat mm/dd/yy