home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / SAMPLES1.PAK / CONTACT.WFM < prev    next >
Encoding:
Text File  |  1994-08-02  |  5.4 KB  |  204 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Contact.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         5/93
  7. *
  8. *  UPDATED:      7/94
  9. *
  10. *  REVISION:     $Revision:   2.50  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *  DESCRIPTION:  The form in this file displays a list of companies and
  15. *                lets you view the contacts for those companies in a separate
  16. *                form.  It contains a listbox of company names, 3 radiobuttons
  17. *                indicating the company's type, and pushbuttons that allow you
  18. *                to see the form with contacts for the currently hightlighted
  19. *                company or leave the contact form.
  20. *
  21. *  PARAMETERS:   None
  22. *
  23. *  CALLS:        Buttons.cc      (Custom controls file)
  24. *                Contact.qbe     (View of tables)
  25. *
  26. *  USAGE:        DO Contact.wfm
  27. *
  28. *******************************************************************************
  29. create session
  30. set talk off
  31. set ldCheck off
  32.  
  33. ** END HEADER -- do not remove this line*
  34. * Generated on 05/10/94
  35. *
  36. LOCAL f
  37. f = NEW CONTACTFORM()
  38. f.Open()
  39.  
  40. CLASS CONTACTFORM OF FORM
  41.    Set Procedure to Buttons.cc additive
  42.    this.OnClose = CLASS::FORM_ONCLOSE
  43.    this.MousePointer =          1
  44.    this.View = "CONTACT.QBE"
  45.    this.Text = "Contact"
  46.    this.Width =         69.12
  47.    this.Top =          0.70
  48.    this.Left =          6.77
  49.    this.Height =         18.44
  50.    this.Minimize = .F.
  51.    this.Maximize = .F.
  52.    this.HelpFile = ""
  53.    this.HelpId = ""
  54.  
  55.    DEFINE RECTANGLE TYPE_RECTANGLE OF THIS;
  56.        PROPERTY;
  57.          BorderStyle          2,;
  58.          MousePointer          0,;
  59.          ColorNormal "N/W",;
  60.          Text "",;
  61.          Height          2.20,;
  62.          Width         34.31,;
  63.          Top          1.93,;
  64.          Left         33.66,;
  65.          Border .T.
  66.  
  67.    DEFINE TEXT LISTTEXT OF THIS;
  68.        PROPERTY;
  69.          MousePointer          0,;
  70.          ColorNormal "b/w",;
  71.          Text "Company Name:",;
  72.          Width         30.35,;
  73.          Top          0.83,;
  74.          Left          1.32,;
  75.          Height          1.10,;
  76.          Border .F.
  77.  
  78.    DEFINE LISTBOX COMPANYLIST OF THIS;
  79.        PROPERTY;
  80.          MousePointer          0,;
  81.          ColorNormal "N/W*",;
  82.          Width         31.67,;
  83.          Top          1.99,;
  84.          Left          0.83,;
  85.          Height          10.05,;
  86.          DataSource "FIELD COMPANY->COMPANY",;
  87.          ColorHighLight "W+/B",;
  88.          ID        800
  89.  
  90.    DEFINE TEXT TYPETEXT OF THIS;
  91.        PROPERTY;
  92.          MousePointer          0,;
  93.          ColorNormal "b/w",;
  94.          Text "Company Type:",;
  95.          Width         34.31,;
  96.          Top          0.83,;
  97.          Left         33.66,;
  98.          Height          1.10,;
  99.          Border .F.
  100.  
  101.    DEFINE RADIOBUTTON COMPANYTYPE1 OF THIS;
  102.        PROPERTY;
  103.          MousePointer          0,;
  104.          ColorNormal "N/W",;
  105.          Text "OEM",;
  106.          Width          9.24,;
  107.          Top          2.20,;
  108.          Left         34.98,;
  109.          Height          1.66,;
  110.          DataLink "COMPANY->TYPE"
  111.  
  112.    DEFINE RADIOBUTTON COMPANYTYPE2 OF THIS;
  113.        PROPERTY;
  114.          MousePointer          0,;
  115.          ColorNormal "N/W",;
  116.          Text "ISV",;
  117.          Width          9.24,;
  118.          Top          2.20,;
  119.          Left         46.19,;
  120.          Height          1.66,;
  121.          Group .F.,;
  122.          DataLink "COMPANY->TYPE"
  123.  
  124.    DEFINE RADIOBUTTON COMPANYTYPE3 OF THIS;
  125.        PROPERTY;
  126.          MousePointer          0,;
  127.          ColorNormal "N/W",;
  128.          Text "VAR",;
  129.          Width          9.90,;
  130.          Top          2.20,;
  131.          Left         56.75,;
  132.          Height          1.66,;
  133.          Group .F.,;
  134.          DataLink "COMPANY->TYPE"
  135.  
  136.    DEFINE TEXT CONTACTTEXT OF THIS;
  137.        PROPERTY;
  138.          MousePointer          0,;
  139.          ColorNormal "b/w",;
  140.          Text "Contact:",;
  141.          Width         19.80,;
  142.          Top         12.67,;
  143.          Left          1.32,;
  144.          Height          1.10,;
  145.          Border .F.
  146.  
  147.    DEFINE ENTRYFIELD CONTACTENTRY OF THIS;
  148.        PROPERTY;
  149.          MousePointer          0,;
  150.          ColorNormal "B/W*",;
  151.          Width         31.02,;
  152.          Top         13.77,;
  153.          Left          1.32,;
  154.          Height          1.37,;
  155.          Border .T.,;
  156.          ColorHighLight "B+/W*",;
  157.          DataLink "CONTACT->CONTACT"
  158.  
  159.    DEFINE TEXT NOTESTEXT OF THIS;
  160.        PROPERTY;
  161.          MousePointer          0,;
  162.          ColorNormal "b/w",;
  163.          Text "Notes:",;
  164.          Width          11.88,;
  165.          Top          4.96,;
  166.          Left         33.66,;
  167.          Height          1.10,;
  168.          Border .F.
  169.  
  170.    DEFINE EDITOR EDITNOTES OF THIS;
  171.        PROPERTY;
  172.          Wrap .T.,;
  173.          MousePointer          0,;
  174.          ColorNormal "N/W*",;
  175.          Width         34.31,;
  176.          Top          6.06,;
  177.          Left         33.66,;
  178.          Height          9.08,;
  179.          ScrollBar          1,;
  180.          DataLink "CONTACT->NOTES",;
  181.          Border .T.,;
  182.          FontBold .F.,;
  183.          TabStop .T.
  184.  
  185.    DEFINE CLOSEBUTTON CONTACTCLOSEBUTTON OF THIS;
  186.        PROPERTY;
  187.          Width         14.11,;
  188.          Top         15.97,;
  189.          Left         27.56,;
  190.          Height          1.50
  191.  
  192.    PROCEDURE FORM_ONCLOSE
  193.    close procedure Buttons.cc
  194. ENDCLASS
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.