home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / SMASTERS / APPROACH / SCHEDULE.MPR / SCRIPT / ApproachDoc / Reservation.s (.txt) < prev    next >
Encoding:
Null Bytes Alternating  |  1997-01-09  |  2.6 KB  |  35 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Switchto(Source As Form, View As VIEW)
  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 FORM
  11.     Set Source = Bind(Objectname_)
  12.     On Event Switchto From Source Call Switchto
  13. End Sub
  14.  
  15. '++LotusScript Development Environment:2:2:Switchto:1:12
  16. Sub Switchto(Source As Form, View As VIEW)
  17. ' Switcho event for the Reservation view
  18. ' FIlls boxes in the Reservation view using values from global variables.
  19. ' The Reservation view appears as a dialog box.
  20.     
  21.     ' Set values for text boxes, field boxes, and drop-down boxes
  22.     ' on the body of the Reservation view.
  23.     currentview.body.fbxReservedBy.text = ""
  24.     currentview.body.ddbEnd.text = ""
  25.     currentview.body.fbxNotes.text = ""
  26.     currentview.body.fbxDate.text = GlobDateDisplay    
  27.     currentview.body.ddbStart.text = GlobStartTime
  28.     currentview.body.ddbEnd.text = ""
  29.     currentview.body.ddbRoom.setlist rooms
  30.     currentview.body.ddbRoom.text = GlobRoom
  31.     
  32.     ' Set the focus, the location of the cursor, in the first field on the view
  33.     currentview.body.fbxReservedBy.setfocus
  34.     
  35. End Sub        ' Switcho event for the Reservation view