dBASE onLine Training
The Hands-on Project

Michael Nuwer
November 11, 2002

Session 8
The Startup Program 
Setup.PRG
   _app.speedbar  := true
   _app.statusBar := true
   set design on

   set procedure to START.PRG additive
   set procedure to PetsMain.mnu additive 
  
   set procedure to :FormControls:seeker.cc  additive
   set procedure to :ReportControls:report.cc  additive
   set procedure to myControlsPets.cc additive
   set procedure to CustomReportControls.cc additive

   set procedure to CustomerAndPets.wfm additive
   set procedure to VisitEntry.wfm additive

   set procedure to DailyVisits.rep additive
   set procedure to petStatements.rep additive
   set procedure to Customer.rep additive
   set procedure to petStatus.rep additive
   set procedure to petsReport.rep additive
   

Start.PRG
   local app, f
   set talk off
   set procedure to GenericMDIApp.cc additive
   app = new PetClinicApp()
   app.open()
   f = new CustomerAndPetsForm()
   app.rootmenu.openForm(f)
   return 
   
   class PetClinicApp of GenericMDIApp()      
      this.FrameWinText = "The dBASE Pet Clinic"
      this.MenuClassName = "PetsMainMenu"
   endclass
Proceed to the next part of the Hands-on Project
Go to the Table of Contents

The Legal Stuff: This document is part of the dBASE onLine Training Program created by Michael J. Nuwer. This material is copyright © 2001-2002, by Michael J. Nuwer. dBASE, dBASE Plus, dBASE SE and dB2K are copyrighted, trademarked, etc., by dBASE, Inc., the BDE (Borland Database Engine) and BDE Administrator are copyrighted, trademarked and all that by Borland Software. This document may not be posted elsewhere without the explicit permission of the author, who retains all rights to the document.