home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SAMPLES / SUITE / DW08_S2.APR / SCRIPT / ApproachDoc / Employee / Body / btnID.s (.txt) < prev    next >
Null Bytes Alternating  |  1996-10-27  |  4KB  |  51 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  5.  
  6. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7.  
  8. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9. Private Sub BindEvents(Byval Objectname_ As String)
  10.     Static Source As BUTTON
  11.     Set Source = Bind(Objectname_)
  12.     On Event Click From Source Call Click
  13. End Sub
  14.  
  15. '++LotusScript Development Environment:2:2:Click:1:12
  16. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  17. 'Click event for the btnID object.
  18. 'Applies the Find and Sort objects to the DocWindow 
  19. 'using the FindSort method.  It prompts the user to enter 
  20. 'an employee's ID number and starts searching after the 
  21. 'user enters the info.    
  22. ' * RUNTIME DEPENDENCIES
  23. ' * Files: The main table for the current .APR must have
  24. ' * fields named "ID", "Last", and "First".
  25.     
  26.     'Create a DocWindow object.
  27.     Dim MyDocWin As DocWindow
  28.     'Retrieve the active DocWindow.
  29.     Set MyDocWin = CurrentApplication.ActiveDocWindow
  30.     'Create a Table object.
  31.     Dim  MyTable As String
  32.     'Retrieve the name of the main table for the view.
  33.     MyTable = CurrentDocument.Tables(0).TableName
  34.     
  35. 'Collect user input for the find condition and create the find.
  36.     Dim Criteria As String            'Stores the user input
  37.      'Prompt user to enter employee's ID number
  38.     Criteria = Inputbox$("Enter employee's 5-digit ID:", , ,300,300)
  39.     'Create new instance of Find object with user's input
  40.     Dim FindID As New Find (MyTable & ".ID", Criteria)
  41.     'Create new instance of Sort object, sorted by last name
  42.     'The constant LtsSortAscending indicates the sort direction.
  43.     Dim MySort As New Sort (MyTable & ".Last", LTSSORTASCENDING) 
  44.     'Also sort by first name in ascending order.
  45.     Call MySort.Add (MyTable & ".First", LTSSORTASCENDING)
  46.     
  47. 'Start the find/sort.
  48.     'Add error handling here to check for finds that return no records.
  49.     Call MyDocWin.FindSort (FindID, MySort)
  50.     
  51. End Sub    'Click event for btnID