home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / schedvbx / samples.z / EXAMLIST.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-03-19  |  6.0 KB  |  158 lines
  1. ExamListForm
  2. Examination Rooms
  3. Form15G
  4.     CMDialog1
  5. CommonDialog
  6. ExamList
  7. Panel3D1
  8. SSPanel
  9. Color
  10. &Color
  11. ExamRoom
  12. ExamNumber
  13. ExamNumber
  14. ColorShape
  15. Label1
  16. Exam Room:
  17. E&xit
  18. Delete
  19. &Delete
  20. Exit_Click'
  21. DoctorListFormJ
  22. ExamListForm
  23. Color_Click
  24.     CMDialog1
  25. Action
  26. Color"
  27. ColorShapeV
  28.     BackColor
  29. Flags
  30. CC_RGBINIT
  31. @    Form_Load
  32. LoadDocList
  33. LoadExamList
  34. DocListX
  35. DoctorsForm9
  36.     SchedVBX10
  37. ResMax
  38. ResName%
  39. ExamLists
  40. BarsMax
  41. BarName
  42. ExamList_ClickB
  43. LookupCriteria
  44. iIndex
  45.     ListIndexc
  46.     DocNumber
  47. Textb
  48. DoctorsName
  49.     PhoneHomeX
  50. ResUser1
  51. PhoneOffice
  52. ResUser2>
  53. Doctors
  54.     Recordsetg
  55. NoMatch
  56. ExamNumbero
  57. ExamName
  58. ExamRoom
  59. BarColor
  60.     ExamRooms
  61. ExamRoom_ChangeY
  62. iDoctorNum6
  63. @    Add_Click
  64. iResult
  65. SchedVBXAddResource
  66. sNameK
  67. iSize
  68. iOffset
  69. lColor
  70. iPattern
  71. SCHED_BARPATTERN_NONE
  72. iAdjustable2
  73. SCHED_BARADJUSTABLE_FULL
  74. iTextPos
  75. SCHED_BARTEXTPOS_INSIDECENTERF
  76. iTextField0
  77. SCHED_BARTEXTFIELD_TBUSER4
  78. sTextFormat
  79.     iTextClip
  80. lFontColor
  81.     sFontName
  82.     iFontSize
  83.     iFontBold
  84. iFontItalic
  85. iBegSymbol
  86. SCHED_SYM_NONE?
  87. iBegType
  88. SCHED_SYMTYPE_SOLIDe
  89.     lBegColor
  90. iBegSize
  91. iBegOffsetN
  92. iEndSymbol
  93. iEndType
  94.     lEndColor
  95. iEndSize
  96. iEndOffset
  97. SchedVBXAddBar'
  98. ExamRoom_LostFocus
  99. Delete_Click
  100. iSelDoctor
  101. Screen
  102. MousePointer
  103. Appts
  104. iDoctor
  105.     ResDelete
  106. iSelExamr
  107. TBMax
  108. TBBar
  109.     iExamRoom
  110. Redraw
  111.     BarDelete
  112.     lBarColor
  113. ExamRoom_GotFocus
  114. Add_Click
  115.  get next Bar # from Schedule/VBXB
  116.  add blank bar to Schedule/VBX
  117.  add record to Exam Rooms Table in databaseV
  118. Exam Room Number
  119. Color
  120. Color_Click
  121.  get exam room #
  122. Select an Exam Room first.
  123.  call common dialog for color selectionl
  124.  update Schedule/VBX control with new color
  125.  update database with new color
  126. Color
  127. Delete_Click
  128. No Exam Room Selected
  129.  Change pointer to hourglass.e
  130.  First, check for exiting appointments with this Exam Room
  131.  Return pointer to normal.
  132. Warning - that Exam Room has been assigned to Appointments! - Delete Appointments first.
  133.  Now, delete the Exam Room Record 
  134. [Exam Room Number] = 
  135.  Return pointer to normal.
  136. Warning - that Exam Room was not found in the Exam Rooms table!
  137.  Next, move all "Exam Room"s down to match
  138. [Exam Room Number] > 
  139. Exam Room Number
  140. Exam Room Number
  141.  Finally, move all "Exam Room"s in TimeBlocks down to matchs
  142.  Remove the Bar from Schedule/VBXB
  143.  Reload List
  144.  Return pointer to normal.
  145. ExamList_Click
  146.  Position ExamRooms Table Datacontrol to this record
  147. [Exam Room Number] = 
  148. Warning - that Exam Room was not found in the Exam Rooms table!
  149. ExamRoom_GotFocus
  150.  get exam room #
  151. Select an Exam Room first.
  152. ExamRoom_LostFocus
  153.  update Schedule/VBX control with new name
  154.  update database with new name
  155. Exit_Click
  156. Form_Load
  157. LoadExamList
  158.