home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / SAMPLES1.PAK / NAMESRCH.WFM < prev    next >
Text File  |  1994-08-02  |  3KB  |  92 lines
  1. *******************************************************************************
  2. *  PROGRAM:      NameSrch.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         3/94
  7. *
  8. *  UPDATED:      5/94
  9. *
  10. *  VERSION:      dBASE FOR WINDOWS 5.0
  11. *
  12. *  DESCRIPTION:  This is a search form used by Nameinfo.wfm
  13. *
  14. *  PARAMETERS:   None
  15. *
  16. *  CALLS:        Buttons.cc  (Custom controls file)
  17. *                Names.qbe   (View of table)
  18. *
  19. *  USAGE:        DO NameSrch.wfm
  20. *
  21. *******************************************************************************
  22. set ldCheck off
  23. ** END HEADER -- do not remove this line*
  24. * Generated on 06/15/94
  25. *
  26. LOCAL f
  27. f = NEW NAMESRCHFORM()
  28. f.Open()
  29.  
  30. CLASS NAMESRCHFORM OF FORM
  31.    Set Procedure to Buttons.cc additive
  32.    this.Width =         31.67
  33.    this.Top =          1.62
  34.    this.Left =         66.52
  35.    this.Height =          9.09
  36.    this.Text = "Select Customer"
  37.    this.Minimize = .F.
  38.    this.Maximize = .F.
  39.    this.HelpFile = ""
  40.    this.HelpId = ""
  41.    this.OnOpen = CLASS::FORM_ONOPEN
  42.    this.OnClose = {;close procedure Buttons.cc}
  43.  
  44.    DEFINE BROWSE SEARCHBROWSE OF THIS;
  45.        PROPERTY;
  46.          Width         29.03,;
  47.          Top          0.52,;
  48.          Left          1.32,;
  49.          Height          6.57,;
  50.          FontBold .F.,;
  51.          OnOpen {;Go top},;
  52.          ColorNormal "N/W",;
  53.          ShowRecNo .F.
  54.  
  55.    DEFINE OKBUTTON SEARCHOKBUTTON OF THIS;
  56.        PROPERTY;
  57.          Width         14.11,;
  58.          Top          7.58,;
  59.          Left          1.32,;
  60.          OnClick {;form.Close()},;
  61.          Height          1.50
  62.  
  63.    DEFINE CANCELBUTTON SEARCHCANCELBUTTON OF THIS;
  64.        PROPERTY;
  65.          Group .F.,;
  66.          Width         14.11,;
  67.          Top          7.58,;
  68.          Left         15.84,;
  69.          OnClick CLASS::CancelSearch,;
  70.          Height          1.50
  71.  
  72.    ****************************************************************************
  73.    PROCEDURE FORM_ONOPEN
  74.    ****************************************************************************
  75.    if alias() <> "NAMES"
  76.       set view to names.qbe
  77.    endif
  78.    this.startRecord = recno()
  79.    this.searchBrowse.alias = "Names"
  80.    this.searchBrowse.fields = "FNAME\H='First Name',LNAME\H='Last Name'"
  81.  
  82.    ****************************************************************************
  83.    PROCEDURE CancelSearch
  84.    ****************************************************************************
  85.    go form.startRecord
  86.    form.Close()
  87.  
  88. ENDCLASS
  89.  
  90.  
  91.  
  92.