home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / VBPXEN.ZIP / RETURN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-10-07  |  2.8 KB  |  80 lines
  1. ReturnForm
  2. Return
  3. Form1
  4. Label2
  5. Tape number:
  6. tapenumber
  7.     tapetitle
  8. Label1
  9.     Customer:
  10. custnumber
  11. custname
  12. ButtonOK
  13. ButtonCancel
  14. &Cancel
  15. custnumber_Change
  16. custnumber_LostFocus
  17. GetCustomerRec
  18. DBKEYED
  19. custnumber
  20. custname
  21. custrec
  22. customer,
  23. tapenumber_Change
  24. tapenumber_LostFocus
  25. GetItemRec%
  26. tapenumbero
  27.     tapetitleD
  28. itemrece
  29. itemdesc
  30. caption!
  31. custname_Click
  32. lastnameU
  33.     firstname
  34. thename
  35. TheFullName
  36. ButtonCancel_Clickv
  37. checkout7
  38. ButtonOK_Click
  39. itemnumber
  40. there
  41.     tapes_out
  42. UpdateCustomerRecT
  43.     iNumTapes
  44. Command1_Click
  45. ButtonExit_Click
  46. DB_OKY
  47. apetitle
  48. screen
  49. MousePointer
  50. POINTER_HOURGLASS
  51. POINTER_DEFAULT
  52. Form_Click
  53. @    Form_Load
  54. custnum
  55. UpdateItemRec
  56. inout_code
  57. itemfee
  58. inout)
  59. MB_ICONEXLAMATION
  60. Lest?
  61. MB_ICONEXCLAMATION
  62. MB_ICONINFORMATION
  63. MB_ICONINFORMATIONElse
  64. savecustnum
  65. GetCustRec
  66. custnumber_Click
  67. returnform
  68. getcwd
  69. tapenumber_LostFocus
  70. ButtonCancel_Click
  71. ButtonOK_Click
  72.   Get the tape and updatep
  73. Tape not on database
  74. Tape not out
  75.   Change tape status to IN and blank custnum
  76.   Get the customer again and update as quickly
  77.   as possible.  Should lock it, but requires more code
  78.   Clear the screen for the next return
  79. Form_Load
  80.