home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / ORDER.PER < prev    next >
Encoding:
Text File  |  1989-12-08  |  1.8 KB  |  62 lines
  1. DATABASE stores
  2.  
  3. SCREEN
  4. {
  5.  
  6.                               ORDER FORM
  7. -----------------------------------------------------------------------------
  8.                   Customer Number:  [f000       ]
  9.  
  10.    First Name:  [f001           ]    Last Name:  [f002           ]
  11.       Address:  [f003                ]
  12.                 [f004                ]
  13.          City:  [f005           ]    State:  [a0]    Zip:  [f006 ]
  14.     Telephone:  [f007              ]
  15. -----------------------------------------------------------------------------
  16.  Order No: [f008       ]   Order Date: [f009      ]   Ship Date: [f010      ] 
  17.  
  18. Item No.  Stock No.  Code    Description    Quantity    Price       Total
  19.  
  20. [f011  ]  [f012  ]  [a1 ] [f013           ] [f014  ] [f015     ] [f016       ]
  21. [f011  ]  [f012  ]  [a1 ] [f013           ] [f014  ] [f015     ] [f016       ]
  22. [f011  ]  [f012  ]  [a1 ] [f013           ] [f014  ] [f015     ] [f016       ]
  23. [f011  ]  [f012  ]  [a1 ] [f013           ] [f014  ] [f015     ] [f016       ]
  24. -----------------------------------------------------------------------------
  25. }
  26. END
  27.  
  28. TABLES
  29. customer
  30. orders
  31. items
  32. stock
  33.  
  34. ATTRIBUTES
  35. f000 = customer.customer_num; 
  36. f001 = customer.fname;
  37. f002 = customer.lname;
  38. f003 = customer.address1;
  39. f004 = customer.address2;
  40. f005 = customer.city;
  41. a0 = customer.state;
  42. f006 = customer.zipcode;
  43. f007 = customer.phone;
  44.  
  45. f008 = orders.order_num;
  46. f009 = orders.order_date;
  47. f010 = orders.ship_date;
  48.  
  49. f011 = items.item_num, NOENTRY;
  50. f012 = items.stock_num;
  51. a1 = items.manu_code;
  52. f013 = stock.description, NOENTRY;
  53. f014 = items.quantity;
  54. f015 = stock.unit_price, NOENTRY;
  55. f016 = items.total_price, NOENTRY;
  56. END
  57.  
  58. INSTRUCTIONS
  59. SCREEN RECORD s_items[4] (item_num, stock_num, manu_code, description, 
  60.     quantity, unit_price, total_price)
  61. END
  62.