home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 2.ddi / DBFAST.ACT < prev    next >
Encoding:
Text File  |  1993-08-31  |  1.8 KB  |  134 lines
  1. *: THECODE,'The List Box Description',0=no form/1=internal form/2=external form 
  2. *: Make sure ACTIONS=xx gets updated when you add or delete actions
  3. @ACTIONS=20
  4. UNDEF,'Undefined',0
  5. OPENDLG,'Popup Window',1
  6. OPENRPT,'Report',1
  7. CODE,'dbCode',1
  8. DOPRG,'Do dbProgram',2
  9. CHAIN,'Do dbChain',2
  10. DOPROC,'Do dbProcedure',2
  11. DOUDF,'User Function',2
  12. DODLL,'DLL function',2
  13. GOTOP,'Top of File',0
  14. GONEXT,'Next Record',0
  15. GOPREV,'Prev Record',0
  16. GOBOT,'Bottom of File',0
  17. NEWREC,'Add New Record',0
  18. EDITREC,'Edit Record',0
  19. UNPEND,'Undo New Record',0
  20. DISCARD,'Discard Changes',0
  21. DELREC,'Delete Record',0
  22. QUIT,'Quit Immediately',0
  23. EXIT,'Exit Program',0
  24. <<END>>
  25.  
  26. @UNDEF
  27. WARNING('Action: <<THE_NAME>>','Action is undefined',387)
  28. <<END>>
  29.  
  30. @OPENDLG
  31. DO <<NEXTPROC>>
  32. <<END>>
  33.  
  34. @OPENRPT
  35. DO <<NEXTPROC>>
  36. <<END>>
  37.  
  38. @DOPRG
  39. DO <<NEXTPROC>>
  40. <<END>>
  41.  
  42. @DOPROC
  43. DO <<NEXTPROC>>
  44. <<END>>
  45.  
  46. @DOUDF
  47. <<NEXTPROC>>
  48. <<END>>
  49.  
  50. @DODLL
  51. <<NEXTPROC>>
  52. <<END>>
  53.  
  54. @CHAIN
  55. CHAIN <<NEXTPROC>>
  56. <<END>>
  57.  
  58. @QUIT
  59. COMMIT
  60. *: Set sAction to empty to QUIT the program
  61. sAction = ''
  62. QUIT
  63. <<END>>
  64.  
  65. @EXIT
  66. COMMIT
  67. *: Set sAction to empty to EXIT the program
  68. sAction = ''
  69. <<END>>
  70.  
  71. @GOTOP
  72. GOTO TOP
  73. UPDATE GETS
  74. UPDATE CONTROL ALL
  75. <<END>>
  76.  
  77. @GOBOT
  78. GOTO BOTTOM
  79. UPDATE GETS
  80. UPDATE CONTROL ALL
  81. <<END>>
  82.  
  83. @GONEXT
  84. SKIP
  85. IF EOF()
  86.   GOTO BOTTOM
  87. ENDIF   
  88. UPDATE GETS
  89. UPDATE CONTROL ALL
  90. <<END>>
  91.  
  92. @GOPREV
  93. SKIP -1
  94. IF BOF()
  95.   GOTO TOP
  96. ENDIF   
  97. UPDATE GETS
  98. UPDATE CONTROL ALL
  99. <<END>>
  100.  
  101. @DELREC
  102. DELETE
  103. UPDATE GETS
  104. UPDATE CONTROL ALL
  105. <<END>>
  106.  
  107. @NEWREC
  108. APPEND BLANK
  109. UPDATE GETS
  110. UPDATE CONTROL ALL
  111. <<END>>
  112.  
  113. @EDITREC
  114. CONFIRM("Editing a record")
  115. UPDATE GETS
  116. UPDATE CONTROL ALL
  117. <<END>>
  118.  
  119. @UNPEND
  120. UNPEND
  121. UPDATE GETS
  122. UPDATE CONTROL ALL
  123. <<END>>
  124.  
  125. @DISCARD
  126. GOTO CURRENT
  127. UPDATE GETS
  128. UPDATE CONTROL ALL
  129. <<END>>
  130.  
  131. @CODE
  132. <<DO OTHER>>
  133. <<END>>
  134.