home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / oncmd.zip / DEMODATA.PRG < prev    next >
Text File  |  1996-02-14  |  3KB  |  148 lines
  1. #include special.inc
  2. setwin( 1, 1, 28, 79 )
  3. system( 7001, 'Data Entry' )
  4. private i,b,c,count,q
  5. reg = 'b/w'
  6. hig = 'b/w+'
  7. inv = 'w/b'
  8. #define SF_COMBO 12
  9. #define SF_DROP 13
  10.  
  11. set color to ®
  12.  
  13. declare b[ 10 ], c[ 10 ]
  14. for i = 1 to 10 
  15.   b[ i ] = ltrim( str( i ) )
  16.   c[ i ] = ltrim( str( i ) )
  17. next    
  18. listchoice=4
  19.  
  20. count = 0
  21. rad = 3
  22. clk = 'Around'
  23. tri = 2
  24. lst = 2
  25. lst2 = 'Fourth'
  26. chk = .t.
  27.  
  28. set fullread on
  29.  
  30. @ 0.5,1 say "Demonstration of Field Types" font "Helvetica Bold",15 color "l/wu"
  31.  
  32. @ 2.2, 5 say 'Radio: ' get rad picture ;
  33.   '@*RN   O~ne  ;  T~wo  ;  T~hree  ;  ~Four  ;  F~ive  ' ;
  34.   valid valfun( rad ) size 1.5,12
  35.  
  36. @ 2,25 say 'Button:' get clk picture ;
  37.   '@*N  ~Over ; ~Under ; ~Around ; ~Through ' ;
  38.   valid valfun(  clk ) size 1.75,10,.25
  39.  
  40. SET DELIMITERS ON
  41. SET CONFIRM OFF
  42. store space(30) to s1
  43.   @10,5 say 'Text 1: ' get s1 size 1,10 valid valfun( s1 ) 
  44.  
  45. SET DELIMITERS OFF
  46.  
  47. s2 = 'This is a default string'
  48. @11.5,5 say 'Text 2: ' get s2 size 1,28 picture '@K' ;
  49.  valid valfun( s2 )
  50. @12.5,13 say 'Field will be blanked out when first character entered.' font 'Helvetica',7
  51.  
  52. SET DELIMITERS ON
  53. n1 = -123456.789
  54. @14,5 say 'Number: ' get n1 pict;
  55.   '@$ 9999,999,999.99-'  valid valfun( n1 )
  56.  
  57. n2=150
  58. @ 15.5,4 say 'Spinner: '
  59. @15.9,13 get n2 SPINNER 1,1,200;
  60.   picture '@K' valid valfun( n2 )
  61. @ 15.5,30 say '(1-200 by 1)'
  62.  
  63. n3=0
  64. tbl = { 0.5, ' Min', 3, 'Mid', 6, 'Max ' }
  65. @ 17.3,2 say 'Slider: '
  66. @17,11 get n3 SLIDER 1,0,7 from tbl size 2,32;
  67.   picture '@K' valid valfun( n3 ) color b/w
  68.  
  69. s3 = 'This is a text field (30)' + chr(13) + ;
  70.      'with a second line'
  71. @20,3 say 'Multi Line: ' get s3 size 3.3,30 valid valfun( s3 )
  72.  
  73. set color to r/b
  74. @1.5,45.5 to 24,78 double clear
  75.  
  76. set color to w/b
  77. @10.1,47 to 19.25,71.5
  78.  
  79. @ 2,48 say 'Three-Way:' get tri picture ;
  80.   '@*3 Yes/No/Maybe';
  81.   valid valfun( tri ) size 1,17
  82.  
  83. @ 3.75,48 say 'Check-Box:' get chk picture ;
  84.   '@*C True/False';
  85.   valid valfun ( chk ) size 1,14
  86.  
  87. @5.5, 52.25 say 'List.' get listchoice from c picture ;
  88.   '@&' valid valfun( listchoice ) size 4,12
  89.  
  90. @10.5,51.75 say  'Combo.' get lst from b picture '@~';
  91.   valid valfun( lst ) size 5,5
  92.  
  93. @15.5, 47.75 say 'Drop Down.' get lst picture ;
  94.   '@^N First;Second;Third;Fourth;Fifth;Sixth';
  95.   valid valfun( lst ) size 5,10
  96.  
  97. @20.5, 47 say 'Drop Down2.' get lst2 picture ;
  98.   '@^N First;Second;Third;Fourth;Fifth;Sixth';
  99.   valid valfun( lst2 ) size 5,10
  100.  
  101. set color to ®
  102. q = .f.
  103. @22,4 get q picture '@* ~Quit' size 3,8 
  104.  
  105. do while .t.
  106.    read save
  107.    if msgbox('Termination Selected', 'Are you sure?',4) = 6
  108.       exit
  109.    endif
  110. enddo
  111.  
  112. clear gets
  113. return
  114.  
  115. **********************************************************
  116. func quitfun
  117. return .t.
  118.  
  119. func valfun
  120. para s
  121.     
  122.     if otype( s ) = 'N'
  123.         p = str( s, 12, 2 )
  124.     else
  125.         if ( otype( s ) = 'L' )
  126.             p = iif( s, 'TRUE' , 'FALSE' )
  127.         else
  128.             if otype( s ) = 'U'
  129.                 p = '***UNDEFINED***'
  130.             else
  131.                 p = trim(s)
  132.             endif
  133.         endif
  134.     endif
  135.                 
  136.     @ 25,1 say 'Entered field=(' + ltrim(str(lastfield())) + ') type=('+otype(s)+')' + ' Data=(' + p + ')' + space( 50 )
  137.     COUNT = COUNT +1 
  138. *
  139. * The Combo & 1st dropdown share the same variable
  140. *
  141.     if lastfield() = SF_COMBO
  142.         showgets( SF_DROP )
  143.     endif
  144.     if lastfield() = SF_DROP
  145.         showgets( SF_COMBO )
  146.     endif
  147.     return .t.
  148.