home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / window / pwez70 / formsamp.frm < prev    next >
Encoding:
Text File  |  1994-01-31  |  3.7 KB  |  138 lines
  1. REM ** DO NOT MODIFY THIS FILE UNLESS YOU READ FORMMAKE.DOC FIRST !!!  ****
  2. REM ** IF NOT MODIFIED PROPERLY IT WILL BE CORRUPTED FOR USE BY FORM MAKER 
  3.  
  4. '******************** CODE MUST BE SAVED AS TEXT ***************************
  5.  
  6. DECLARE SUB APRINT (NUMROWS%,TEXT$,ROW%,COLUMN%,ATTR%)
  7. '------------------------------------------------------------------------------
  8.  
  9. REM ---- THIS IS INPUT FIELD, BUTTON, MOUSE SELECT FIELD DATA
  10.  
  11. FORMSAMP.FRM.SETUPDATA:
  12.  
  13. DATA 12                   :REM NUMBER OF INPUT FIELDS
  14.  
  15.  REM FIELD DATA =
  16. 'TYPE,CODE,ROW,COLUMN,WIDTH,RESTRICT$,GOTO$,HOTCHARPOS,CURPOS,BRACKET
  17. 'TYPE = 1-ALPHA/NUM  2-NUM  3-DATE  4-BUTTON  5-MOUSE SELECT
  18. 'THE REM-FIELD NAME, FIELD_NAME  MUST PRECEED DATA FOR EACH FIELD.
  19.  
  20. REM-FIELD NAME, NAME        
  21. DATA 1,10007,7,22,25,"","N",0,0,0
  22.  
  23. REM-FIELD NAME, ADDRESS     
  24. DATA 1,10007,8,22,30,"","A",0,0,0
  25.  
  26. REM-FIELD NAME, CITY        
  27. DATA 1,10007,9,22,23,"","Y",0,0,0
  28.  
  29. REM-FIELD NAME, STATE       
  30. DATA 1,10017,9,52,2,"","T",0,0,0
  31.  
  32. REM-FIELD NAME, ZIP         
  33. DATA 2,10010,9,61,5,"","Z",0,0,0
  34.  
  35. REM-FIELD NAME, BIRTHDATE   
  36. DATA 3,10008,11,22,10,"","B",0,0,0
  37.  
  38. REM-FIELD NAME, SS1         
  39. DATA 1,11017,12,22,3,"1234567890","S",0,0,0
  40.  
  41. REM-FIELD NAME, SS2         
  42. DATA 1,11017,12,26,2,"1234567890","",0,0,0
  43.  
  44. REM-FIELD NAME, SS3         
  45. DATA 1,10017,12,29,4,"1234567890","",0,0,0
  46.  
  47. REM-FIELD NAME, OK          
  48. DATA 4,30007,15,17,10,"","O",5,5,1
  49.  
  50. REM-FIELD NAME, CANCEL      
  51. DATA 4,30007,15,53,10,"","C",3,3,1
  52.  
  53. REM-FIELD NAME, F1=HELP     
  54. DATA 5,30107,15,35,11,"","",0,0,0
  55.  
  56. '------------------------------------------------------------------------------
  57.  
  58. FORMSAMP.FRM.DISPLAYDATA:
  59. REM ----------- THIS IS THE WINDOW'S PARAMETERS AND DATE FORMAT -----------------
  60.  
  61.  REM WINDOW / DATE DATA =
  62. 'TOP_ROW, LEFT_COLUMN, WIDTH, ROWS, BORDER, DATEFORMAT ( 10 OR 8 )
  63.  
  64. DATA 3,9,62,15,41,10,9999
  65.  
  66. '------------------------------------------------------------------------------
  67.  
  68. REM ------- THIS IS THE WINDOW'S LABELS (TEXT ) PARAMETERS ------
  69.  
  70. DATA 11                   :REM NUMBER OF INPUT FIELDS
  71.  
  72.  REM LABEL DATA =
  73. 'ROW, COLUMN, TEXT, HOT_CHAR_POSITION, CHECK ( ALWAYS 9999 )
  74.  
  75. DATA 4,30,"Personal Information",0,9999
  76.  
  77. DATA 7,11,"Name.......",1,9999
  78.  
  79. DATA 8,11,"Address....",1,9999
  80.  
  81. DATA 9,11,"City.......",4,9999
  82.  
  83. DATA 9,46,"State:",2,9999
  84.  
  85. DATA 9,57,"Zip:",1,9999
  86.  
  87. DATA 11,11,"Birth date.",1,9999
  88.  
  89. DATA 12,11,"SS #.......",1,9999
  90.  
  91. DATA 12,25,"-",0,9999
  92.  
  93. DATA 12,28,"-",0,9999
  94.  
  95. DATA 11,34,"( Format MUST = DD-MM-YYYY )",0,9999
  96.  
  97. '------------------------------------------------------------------------------
  98.  
  99. SUB FORMSAMP.FRM.SETUP(S%, BCOL%, TAC%, TMAC%, BAC%, BMAC%, MAC%)
  100.  
  101.   RESTORE FORMSAMP.FRM.SETUPDATA
  102.   READ NUMINPT%
  103.   FOR X%=1 TO NUMINPT%
  104.     READ FLDTYPE%
  105.     SELECT CASE FLDTYPE%
  106.        CASE 5
  107.           MACTCOL% = MAC%
  108.        CASE 4
  109.           MACTCOL% = BAC%
  110.           ACTCOL% = BMAC%
  111.        CASE ELSE
  112.           MACTCOL% = TAC%
  113.           ACTCOL% = TMAC%
  114.     END SELECT
  115.     READ CD%, R%, C%, W%, R$, G$, HP%, CP%, BRK%
  116.     CALL MAKEFIELD (S%,X%,CD%,R%,C%,W%,BCOL%,ACTCOL%,MACTCOL%,R$,G$,HP%,CP%,BRK%)
  117.   NEXT
  118.  
  119. END SUB
  120.  
  121.  
  122. SUB FORMSAMP.FRM.DISPLAY(W%, FCOL%, HCOL%)
  123.  
  124.   RESTORE FORMSAMP.FRM.DISPLAYDATA
  125.   READ FORMTR%, FORMLC%, FORMWIDE%, FORMROWS%, FORMBORDER%, DATEFORMAT%, JUNK%
  126.   CALL MAKEWIND (W%,"", FORMTR%, FORMLC%, FORMWIDE%, FORMROWS%, FCOL%, FORMBORDER%)
  127.   READ NUMTEXT%
  128.   FOR X%=1 TO NUMTEXT%
  129.      READ TEXTTR%, TEXTLC%, TEXT$, HOTPOS%, JUNK%
  130.      IF HOTPOS% > 0 AND HCOL% > 0 THEN
  131.         CALL PRINTWHOT (TEXT$, TEXTTR%-FORMTR% ,TEXTLC% - FORMLC%, HOTPOS%, HCOL%)
  132.      ELSE
  133.         CALL APRINT (1, TEXT$, TEXTTR% , TEXTLC%, FCOL%)
  134.      END IF
  135.   NEXT
  136.  
  137. END SUB
  138.