home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 2.ddi / MAINWIN.DFT < prev    next >
Encoding:
Text File  |  1993-08-31  |  3.0 KB  |  184 lines
  1. *:
  2. *: MAINWIN.DFT - dBFast Main Window Template File
  3. *:
  4. *:     Project: <<PROJECT_NAME>>
  5. *:
  6. *:     Program: <<PROG_NAME>>
  7. *: Description: <<DESC>>
  8. *:      Author: <<AUTHOR>>
  9. *:    Copyright <<COPYRITE>>
  10. *:
  11.  
  12. <<DO WHILE DLLS>>
  13. <<DECLARE_DLL>>
  14. <<ENDDO>>
  15.  
  16. SET PROCEDURE TO <<PROG_NAME>>
  17.  
  18. <<DO WHILE PROC_LIBS>>
  19. SET PROCEDURE TO <<PROC_LIB>> && Set user procedure file
  20. <<ENDDO>>
  21.  
  22. SET DELETED ON
  23. SET CONFIRM ON
  24.  
  25. SET EVENTMSK TO 159
  26.  
  27. SET READ VIDEO TO 240
  28.  
  29. <<SCREEN_COLOR>>
  30.  
  31. <<SET_FONTS>>
  32.  
  33. IF .NOT. EMPTY("<<TITLE>>")
  34.   SET WINDOW TITLE TO "<<TITLE>>"
  35. ENDIF
  36.  
  37. SET CURSOR TO WAIT
  38.  
  39. STORE 0  TO nTheMenu, nTheOption, nTheKey
  40. STORE '' TO sTheWindow, sTheButton
  41. <<MEM_VARS>>
  42.  
  43. <<DO WHILE DATAFILES>>
  44. IF FILE("<<DATAFILE>>.DBF")
  45.   SELECT <<WORKAREA>>
  46.   USE <<DATAFILE>>
  47.   <<IF INDEXES>>
  48.   SET INDEX TO <<INDEXES>>
  49.   <<ENDIF>>
  50.   <<IF FIELDLIST>>
  51.   SET FIELDS TO <<FIELDLIST>>
  52.   SET FIELDS ON
  53.   <<ENDIF>>
  54.   <<IF FILTER>>
  55.   SET FILTER TO <<FILTER>>
  56.   <<ENDIF>>
  57. ELSE
  58.   WARNING(csNoDataFile,"<<DATAFILE>>",387)
  59.   RETURN
  60. ENDIF
  61. <<ENDDO>>
  62.  
  63. <<DO WHILE RELATIONS>>
  64. SELECT <<REL_FROM>>
  65. <<DO WHILE LINKS>>
  66.   SET RELATION TO <<REL_EXP>> INTO <<REL_TO>>
  67. <<ENDDO>>
  68. <<ENDDO>>
  69.  
  70. SELECT 1
  71.  
  72. <<DO BEFORE>>
  73.  
  74. <<DO WHILE CONTROLS>>
  75. <<CREATE CONTROL>>
  76. <<ENDDO>>
  77.  
  78. *: Init sAction to something so it is not empty
  79. sAction = '?'
  80.  
  81. SET CURSOR TO ARROW
  82.  
  83. DO WHILE .NOT. EMPTY(sAction)
  84.  
  85.   DO <<PROG_NAME>>_Calcs
  86.   
  87.   UPDATE CONTROL ALL
  88.   UPDATE GETS
  89.  
  90.   READ SAVE
  91.   
  92.   nEvent     = Event()
  93.   nTheRow    = MROW()
  94.   nTheCol    = MCOL()
  95.   nTheMenu   = HMENU()
  96.   nTheOption = VMENU()
  97.   nTheKey    = LASTKEY()
  98.   sTheButton = BUTTON()
  99.   
  100.   sAction = <<PROG_NAME>>_Translate(nEvent)
  101.   DO <<PROG_NAME>>_Action
  102. ENDDO
  103.  
  104. sAction = '?'
  105.  
  106. <<DO AFTER>>
  107.  
  108. RETURN
  109.  
  110.  
  111. *****************************
  112. FUNCTION <<PROG_NAME>>_Translate()
  113. *****************************
  114. PARAMETER nTheEvent
  115. PRIVATE sTheAction
  116.  
  117.   sTheAction = ' '
  118.   DO CASE
  119.      CASE nTheEvent = eClose
  120.         sTheAction = 'CLOSE'
  121.  
  122. <<IF KEYS>>
  123.      CASE nTheEvent = eKybd
  124.         DO CASE
  125.   <<DO WHILE KEYS>>
  126.           CASE ExactMatch(nTheKey, <<THE_KEY>>)
  127.              sTheAction = '<<THE_NAME>>'
  128.   <<ENDDO>>
  129.         ENDCASE
  130. <<ENDIF>>
  131.  
  132. <<IF BUTTONS>>
  133.      CASE nTheEvent = eButton
  134.         DO CASE
  135.   <<DO WHILE BUTTONS>>
  136.           CASE ExactMatch(sTheButton, '<<THE_NAME>>')
  137.              sTheAction = '<<THE_NAME>>'
  138.   <<ENDDO>>
  139.         ENDCASE
  140. <<ENDIF>>
  141.  
  142.      OTHERWISE
  143.         sTheAction = '?'
  144.   ENDCASE
  145. RETURN(sTheAction)
  146.  
  147.  
  148. *************************
  149. PROCEDURE <<PROG_NAME>>_Action
  150. *************************
  151.  
  152.   DO CASE
  153.      CASE sAction = 'CLOSE'
  154.         sAction = ''
  155.  
  156. <<DO WHILE ACTIONS>>
  157.      CASE ExactMatch(sAction, '<<THE_NAME>>')
  158.         <<DO ACTION>>
  159. <<ENDDO>>
  160.   ENDCASE
  161. RETURN
  162.  
  163.  
  164. *************************
  165. PROCEDURE <<PROG_NAME>>_Calcs
  166. *************************
  167.  
  168. <<DO WHILE CALC_FIELDS>>
  169.   <<CREATE CALC_FIELD>>
  170. <<ENDDO>>
  171. RETURN
  172.  
  173.  
  174. *************************
  175. FUNCTION ExactMatch()
  176. *************************
  177. PARAMETERS sVar1, sVar2
  178.  
  179.     lReturn = .F.
  180.     SET EXACT ON
  181.     lReturn = (sVar1 = sVar2)
  182.     SET EXACT OFF
  183. RETURN(lReturn)
  184.