home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / VBPXEN.ZIP / CUSTEDIT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-10-07  |  6.0 KB  |  159 lines
  1. custedit
  2. Customer View/Edit
  3. Form1
  4. ButtonFind
  5. custnumber
  6. Label1
  7. Number:
  8. lastname
  9. ButtonPrior
  10. &Prior
  11. ButtonNext
  12. &Next
  13. Label2
  14. Last name:
  15.     firstname
  16. Label3
  17. First name:
  18. ButtonFirst
  19. &First
  20. ButtonLast
  21. &Last
  22. address
  23. Label4
  24. Address:
  25. ButtonEdit
  26. &Edit
  27. Label5
  28. City:
  29. Label6
  30.     ButtonNew
  31. Label7
  32. Tapes out:
  33.     tapes_out
  34. Label8
  35. YTD Spent:
  36. total_spent
  37. ButtonOK
  38. ButtonCancel
  39. &Cancel
  40. ButtonDelete
  41. &Delete
  42. ButtonDone
  43. E&xIt
  44. Text1_Change
  45. ButtonFirst_Clicki
  46. GetCustomerRecW
  47. DBFIRST
  48. custnumber
  49. custrecN
  50.     custnumer
  51. custlastname
  52. lastname
  53. custfirstname
  54.     firstnameC
  55. ButtonDone_Click*
  56. custedit
  57. FieldsToForm
  58. DB_OKa
  59. ButtonNext_Clickv
  60. DBNEXT
  61. ButtonPrior_Click
  62. DBPRIOR
  63. ButtonLast_Click
  64. last4
  65. DBLASTB
  66. ButtonEdit_Click
  67. DoEditMode
  68. ButtonFirst{
  69. visible
  70. FALSE
  71. ButtonNext
  72. ButtonPriorx
  73. Button&
  74. ButtonLastV
  75. ButtonEdit<
  76. ButtonDone
  77. ButtonOK
  78. TURE%
  79. ButtonCancel
  80.     iEditMode,
  81.     iViewMode
  82. DoViewMode
  83. ButtonOK_Click|
  84. ButtonCancel_ClickL
  85.     UpdateRec
  86. CUSTOMER_TABLE
  87. Form_Click
  88. Form_LinkClose
  89. @    Form_Load
  90. addressa
  91. FormToFields
  92. ButtonDelete,
  93. UpdateCustomerRec
  94. ButtonFind
  95.     ButtonNew
  96. ButtonFind_Click
  97. DBKEY$
  98. DBKEYED>
  99. ButtonNew_Click
  100. SetEditMode
  101.     EDIT_MODE
  102. ADD_MODE
  103.     VIEW_MODE
  104. modeP
  105. enabled
  106. iMode.
  107. numvalue
  108. blankcustrecT
  109. AddCustomerRec
  110. ButtonDelete_Click
  111. DeleteCustomerRec
  112. savecustrec
  113. MB_OKCANCEL
  114. IDCANCEL
  115. VIEWMODE
  116. custnumber_Change8
  117. MB_ICONQUESTION
  118. GetCustomerRecForUpdate
  119.     UnlockRec
  120. MousePointerE
  121. POINTER_HOURGLASS
  122. POINTER_DEFAULT
  123. screen
  124.     tapes_out
  125. caption
  126. total_spentZ
  127. ButtonFirst_Click
  128. ButtonDone_Click
  129. FieldsToForm
  130. ButtonNext_Click
  131. ButtonPrior_Click
  132. ButtonLast_Click
  133. ButtonEdit_Click
  134.   Move the fields to the form againa
  135.   In a network environment, someone could have
  136.   changed the record since last time is was showns
  137. ButtonOK_Click
  138.   Assume if one of these failed, a message was
  139.   already displayed as part of the function.
  140.   What to do if the add or update failed?i
  141.   For now invoke the CANCEL routine as thoughh
  142.   the user clicked the cancel button.s
  143.   Return to view mode 
  144. ButtonCancel_Click
  145. Form_Load
  146. FormToFields
  147. ButtonFind_Click
  148. SetEditMode
  149.   If a record was locked, unlock itt
  150.   this may already have been done,
  151.   but make the function call again to be safe...
  152.   Set global value as mode indicator
  153. ButtonNew_Click
  154. ButtonDelete_Click
  155.   check if user pressed OK or CANCEL
  156. OK to delete?"
  157. DELETE
  158. Delete failed, code: "
  159.