home *** CD-ROM | disk | FTP | other *** search
- *******************************************************************************
- * PROGRAM: Contact.wfm
- *
- * WRITTEN BY: Borland Samples Group
- *
- * DATE: 5/93
- *
- * UPDATED: 7/94
- *
- * REVISION: $Revision: 2.50 $
- *
- * VERSION: dBASE FOR WINDOWS 5.0
- *
- * DESCRIPTION: The form in this file displays a list of companies and
- * lets you view the contacts for those companies in a separate
- * form. It contains a listbox of company names, 3 radiobuttons
- * indicating the company's type, and pushbuttons that allow you
- * to see the form with contacts for the currently hightlighted
- * company or leave the contact form.
- *
- * PARAMETERS: None
- *
- * CALLS: Buttons.cc (Custom controls file)
- * Contact.qbe (View of tables)
- *
- * USAGE: DO Contact.wfm
- *
- *******************************************************************************
- create session
- set talk off
- set ldCheck off
-
- ** END HEADER -- do not remove this line*
- * Generated on 05/10/94
- *
- LOCAL f
- f = NEW CONTACTFORM()
- f.Open()
-
- CLASS CONTACTFORM OF FORM
- Set Procedure to Buttons.cc additive
- this.OnClose = CLASS::FORM_ONCLOSE
- this.MousePointer = 1
- this.View = "CONTACT.QBE"
- this.Text = "Contact"
- this.Width = 69.12
- this.Top = 0.70
- this.Left = 6.77
- this.Height = 18.44
- this.Minimize = .F.
- this.Maximize = .F.
- this.HelpFile = ""
- this.HelpId = ""
-
- DEFINE RECTANGLE TYPE_RECTANGLE OF THIS;
- PROPERTY;
- BorderStyle 2,;
- MousePointer 0,;
- ColorNormal "N/W",;
- Text "",;
- Height 2.20,;
- Width 34.31,;
- Top 1.93,;
- Left 33.66,;
- Border .T.
-
- DEFINE TEXT LISTTEXT OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "b/w",;
- Text "Company Name:",;
- Width 30.35,;
- Top 0.83,;
- Left 1.32,;
- Height 1.10,;
- Border .F.
-
- DEFINE LISTBOX COMPANYLIST OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "N/W*",;
- Width 31.67,;
- Top 1.99,;
- Left 0.83,;
- Height 10.05,;
- DataSource "FIELD COMPANY->COMPANY",;
- ColorHighLight "W+/B",;
- ID 800
-
- DEFINE TEXT TYPETEXT OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "b/w",;
- Text "Company Type:",;
- Width 34.31,;
- Top 0.83,;
- Left 33.66,;
- Height 1.10,;
- Border .F.
-
- DEFINE RADIOBUTTON COMPANYTYPE1 OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "N/W",;
- Text "OEM",;
- Width 9.24,;
- Top 2.20,;
- Left 34.98,;
- Height 1.66,;
- DataLink "COMPANY->TYPE"
-
- DEFINE RADIOBUTTON COMPANYTYPE2 OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "N/W",;
- Text "ISV",;
- Width 9.24,;
- Top 2.20,;
- Left 46.19,;
- Height 1.66,;
- Group .F.,;
- DataLink "COMPANY->TYPE"
-
- DEFINE RADIOBUTTON COMPANYTYPE3 OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "N/W",;
- Text "VAR",;
- Width 9.90,;
- Top 2.20,;
- Left 56.75,;
- Height 1.66,;
- Group .F.,;
- DataLink "COMPANY->TYPE"
-
- DEFINE TEXT CONTACTTEXT OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "b/w",;
- Text "Contact:",;
- Width 19.80,;
- Top 12.67,;
- Left 1.32,;
- Height 1.10,;
- Border .F.
-
- DEFINE ENTRYFIELD CONTACTENTRY OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "B/W*",;
- Width 31.02,;
- Top 13.77,;
- Left 1.32,;
- Height 1.37,;
- Border .T.,;
- ColorHighLight "B+/W*",;
- DataLink "CONTACT->CONTACT"
-
- DEFINE TEXT NOTESTEXT OF THIS;
- PROPERTY;
- MousePointer 0,;
- ColorNormal "b/w",;
- Text "Notes:",;
- Width 11.88,;
- Top 4.96,;
- Left 33.66,;
- Height 1.10,;
- Border .F.
-
- DEFINE EDITOR EDITNOTES OF THIS;
- PROPERTY;
- Wrap .T.,;
- MousePointer 0,;
- ColorNormal "N/W*",;
- Width 34.31,;
- Top 6.06,;
- Left 33.66,;
- Height 9.08,;
- ScrollBar 1,;
- DataLink "CONTACT->NOTES",;
- Border .T.,;
- FontBold .F.,;
- TabStop .T.
-
- DEFINE CLOSEBUTTON CONTACTCLOSEBUTTON OF THIS;
- PROPERTY;
- Width 14.11,;
- Top 15.97,;
- Left 27.56,;
- Height 1.50
-
- PROCEDURE FORM_ONCLOSE
- close procedure Buttons.cc
- ENDCLASS
-
-
-
-
-
-
-
-
-
-