home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PV31-3.ZIP / EXAMPLES / EXAMPLE4 / CUSTOMER.PVT < prev    next >
Encoding:
Text File  |  1991-02-01  |  1.8 KB  |  43 lines
  1.  
  2. Customer DIALOG LOADONCALL MOVEABLE DISCARDABLE 0, 0, 268, 216
  3. STYLE WS_CHILD | WS_VISIBLE
  4. BEGIN
  5.  /* Exam4aViewProc, Customer, Customer Data Entry Screen */
  6.      CONTROL "", 1, "String", WS_CHILD | WS_BORDER, 77, 15, 109, 10  /*,*/
  7.      CONTROL "", 2, "String", WS_CHILD | WS_BORDER, 77, 28, 36, 10  /*CustId,*/
  8.      CONTROL "", 3, "String", WS_CHILD | WS_BORDER, 174, 28, 66, 11  /*CustPhone,*/
  9.      CONTROL "", 4, "String", WS_CHILD | WS_BORDER, 50, 62, 104, 11  /*CustAddr1,*/
  10.      CONTROL "", 5, "String", WS_CHILD | WS_BORDER, 49, 76, 121, 11  /*CustAddr2,*/
  11.      CONTROL "", 6, "String", WS_CHILD | WS_BORDER, 49, 90, 75, 11  /*CustCity,*/
  12.      CONTROL "", 7, "String", WS_CHILD | WS_BORDER, 153, 91, 15, 10  /*CustState,*/
  13.      CONTROL "", 8, "String", WS_CHILD | WS_BORDER, 206, 90, 26, 11  /*CustZip,*/
  14.      CONTROL "Customer &Name:", 1, "text", WS_CHILD, 12, 17, 0, 0
  15.      CONTROL "Customer &Id:", 2, "text", WS_CHILD, 28, 29, 0, 0
  16.      CONTROL "Customer &Address", 4, "text", WS_CHILD, 10, 51, 0, 0
  17.      CONTROL "Address2:", 0, "text", WS_CHILD, 9, 78, 0, 0
  18.      CONTROL "&City:", 6, "text", WS_CHILD, 28, 92, 0, 0
  19.      CONTROL "&State:", 7, "text", WS_CHILD, 130, 92, 0, 0
  20.      CONTROL "&Zipcode:", 8, "text", WS_CHILD, 172, 92, 0, 0
  21.      CONTROL "Address1:", 0, "text", WS_CHILD, 10, 64, 0, 0
  22.      CONTROL "&Telephone:", 3, "text", WS_CHILD, 132, 30, 0, 0
  23. END
  24.  
  25. /* Color Values and Validation strings */
  26. Customer RCDATA LOADONCALL MOVEABLE DISCARDABLE
  27. BEGIN
  28. 0,
  29. 5,
  30. 1, "@MND @MSG(Please Enter Customer Name)", 0,
  31. 2, "@NUM @MND @MSG(Please Enter Customer Number)", 0,
  32. 3, "@NUM @MASK((***)***-****)", 0,
  33. 7, "@MND @TBL(State.tab)@DISPLAY(1)@POS(0,0,40,0);", 0,
  34. 8, "@NUM", 0
  35. 1, /* Field Fonts */
  36. 3, 15, "System", 0
  37. 0, /* Textfield Fonts */
  38. 0, /* Field Colors */
  39. 0, /* Text Field Colors */
  40. END
  41.  
  42.  
  43.