home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / schedvbx / samples.z / DOCLIST.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-03-14  |  5.5 KB  |  132 lines
  1. DoctorListForm
  2. Doctors
  3. Form15V
  4. Delete
  5. &Delete
  6. E&xit
  7. Panel3D1
  8. SSPanel#
  9.     DocNumber
  10.     DocNumber
  11.     PhoneHome
  12. PhoneOffice
  13. DoctorsName
  14. Label3
  15. Phone - Home:
  16. Label2
  17. Phone - Office:
  18. Label1
  19. Doctor's Name:
  20. DocList
  21. @    Form_LoadE
  22. DoctorsForm
  23.     SchedVBX1
  24. ResMaxi
  25. DocList
  26. ResName
  27. DocList_Click
  28. iIndexf
  29.     Selection(
  30.     ListIndexP
  31. DoctorsName
  32.     HomePhone
  33. ResUser1
  34. OfficePhone
  35. ResUser25
  36.     PhoneHome0
  37. PhoneOffice
  38. DocIndex
  39. DoctorsName_Change
  40. DoctorsName_LostFocus
  41. LoadDocList
  42. DocListForm8
  43. Reset
  44. DoctorListFormP
  45. DoctorsListForm
  46. Exit_Click
  47. @    Add_Click
  48. Delete_Click
  49.     ResDelete
  50. Doctors 
  51. LookupCriteria`
  52. Patients
  53. iPatient
  54.     Recordset
  55. NoMatch
  56. sPatientNamet
  57. Appts
  58. iDoctor
  59. ApptsPatients
  60. Appointments
  61. first
  62. iSelDoctor
  63.     HourGlass
  64. Screen
  65. MousePointer
  66. Remove
  67. Doctor
  68. DocIndex_Change%
  69.     DocNumber
  70. iSelDoc[
  71. PhoneHome_Changeq
  72. PhoneHome_LostFocus
  73. PhoneOffice_Change
  74. PhoneOffice_LostFocus
  75. SchedVBX
  76. iResult
  77. SchedVBXAddResource
  78. sName
  79. sPhoneOffice
  80. sPhoneHome
  81. LoadPatList
  82. PatList
  83. iPatientNum
  84. iDoctorNum
  85. Add_Click
  86.  get next Resource # from Schedule/VBX
  87.  add blank resource to Schedule/VBX=
  88.  add record to Doctors Table in database
  89. Doctor Number
  90. Phone-Home
  91. Phone-Office
  92. Delete_Click
  93. No Doctor Selected
  94.  Change pointer to hourglass.d
  95.  First, check for exiting appointments for this Doctor
  96. [Doctor Number] = 
  97.  Return pointer to normal.
  98. Warning - that Doctor has Appointments! - Delete Appointments first.
  99.  Now, delete the Doctor Record
  100. [Doctor Number] = 
  101.  Return pointer to normal.
  102. Warning - that Doctor was not found in the Doctors table!
  103.  Next, move all "Doctor Number"s down to match
  104. [Doctor Number] > 
  105. Doctor Number
  106. Doctor Number
  107.  Finally, move all "Doctor Number"s in Appts Table down to match
  108. [Doctor Number] > 
  109. Doctor Number
  110. Doctor Number
  111.  Remove the Resource from Schedule/VBX
  112.  Reload List
  113.  Return pointer to normal.
  114. DocList_Click
  115.  Position Doctors Table Datacontrol to this record
  116. [Doctor Number] = 
  117. Warning - that Doctor was not found in the Doctors table!
  118. DoctorsName_LostFocus
  119.  update Schedule/VBX control with new name
  120.  update database with new name
  121. Exit_Click
  122. Form_Load
  123. LoadDocList
  124. PhoneHome_LostFocus
  125.  update Schedule/VBX control with new name
  126.  update database with new name
  127. Phone-Home
  128. PhoneOffice_LostFocus
  129.  update Schedule/VBX control with new name
  130.  update database with new name
  131. Phone-Office
  132.