home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PV31-3.ZIP / EXAMPLES / EXAMPLE3 / EXAMPL3B.PVT < prev    next >
Encoding:
Text File  |  1991-02-01  |  2.0 KB  |  42 lines
  1.  
  2. insure3 DIALOG LOADONCALL MOVEABLE DISCARDABLE 10, 20, 266, 106
  3. STYLE WS_POPUP | DS_ABSALIGN | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_SIZEBOX | WS_THICKFRAME | WS_MAXIMIZEBOX
  4. BEGIN
  5.  /* Insure3ViewProc, , Demonstration app., @M@V,  */
  6.      CONTROL "", 1, "String", WS_CHILD | WS_BORDER, 102, 2, 150, 11  /*v3Name,  */
  7.      CONTROL "", 2, "String", WS_CHILD, 51, 11, 49, 10  /*v3Policy,  */
  8.      CONTROL "", 3, "Date", WS_CHILD | WS_BORDER, 52, 24, 35, 11  /*v3StartDate,StartDateFieldProc*/
  9.      CONTROL "", 4, "Date", WS_CHILD | WS_BORDER, 170, 24, 34, 11  /*v3EndDate,EndDateFieldProc*/
  10.      CONTROL "$0.00", 5, "Money", WS_CHILD | WS_BORDER, 52, 38, 42, 10  /*v3Coverage,  */
  11.      CONTROL "$0.00", 6, "Money", WS_CHILD | WS_BORDER, 170, 38, 43, 11  /*v3Premium,  */
  12.      CONTROL "  &Okay  ", 7, "Button", WS_CHILD | BS_PUSHBUTTON | BS_OKAY, 64, 56, 42, 16  /*v3Okay,  */
  13.      CONTROL "  &Cancel  ", 8, "Button", WS_CHILD | BS_PUSHBUTTON | BS_CANCEL, 146, 56, 45, 16  /*v3Cancel,  */
  14.      CONTROL "Policy Information For:", 0, "text", WS_CHILD, 9, 3, 0, 0
  15.      CONTROL "Policy No:", 0, "text", WS_CHILD, 9, 11, 0, 0
  16.      CONTROL "&Start Date:", 3, "text", WS_CHILD, 9, 25, 0, 0
  17.      CONTROL "&End Date:", 4, "text", WS_CHILD, 135, 26, 0, 0
  18.      CONTROL "&Coverage:", 5, "text", WS_CHILD, 10, 37, 0, 0
  19.      CONTROL "&Premium:", 6, "text", WS_CHILD, 136, 40, 0, 0
  20. END
  21.  
  22. /* Color Values and Validation strings */
  23. insure3 RCDATA LOADONCALL MOVEABLE DISCARDABLE
  24. BEGIN
  25. 4,
  26. 255, 0,255, -1,255, 0,0, -1,
  27. 0,
  28. 6,
  29. 1, "@PRT", 0,
  30. 2, "@PRT", 0,
  31. 3, "@MND, @MSG(Starting date must be entered) @ASCP@RNG(01/01/90,12/31/90) @MSG(Starting date must be within 1990), @VSCP)", 0,
  32. 4, "@MND, @MSG(Ending date must be entered) @ASCP", 0,
  33. 5, "@MND, @RNG(100000,), @MSG(Coverage must be for a minimun of 1,000 dollars), @VSCP", 0,
  34. 6, "@MND, @RNG(10000,), @MSG(Premium must be a minimun of 100 dollars), @VSCP", 0
  35. 0, /* Field Fonts */
  36. 0, /* Textfield Fonts */
  37. 0, /* Field Colors */
  38. 0, /* Text Field Colors */
  39. END
  40.  
  41.  
  42.