//AB/ Project Customer Website
//AB/ Object prj is a WebApp_Project
    //AB/ Set Size to 87 82
    //AB/ Set ProjectName to "Customer Website"
    //AB/ Set ProjectFileName to "WebApp.src"

//AB-IgnoreStart
Use AllWebAppClasses.pkg

// Register all objects
Register_Object oWebApp
//AB-IgnoreEnd


//AB-StoreTopStart
Use cSQLconnect.pkg
Use cApplication.pkg

Object oApplication Is a cMyApplication
    Set psProduct To "SQLWebAppError"
    Set psVersion To "Rev.: 1.0"
End_Object    // oApplication

Object oSQLconnect is a cSQLconnect
  Set psServerName     To   "127.0.0.1"
  Set psUserName       To   "sa"   
  Set psPassword       To   ""
  Set psDataBase       To   "dbo"
  Set psDriverName     To   "sql_drv"
  Set pbTrusted        To   false
  Set pbUseDatabaseINT To   false
  
  Send doLoginServer
End_Object // oSQLconnect  


//AB-StoreTopEnd

//AB-IgnoreStart
Use cMyWebApp.pkg
//AB-IgnoreEnd

Object oWebApp is a cMyWebApp

    //AB-StoreTopStart
    //AB-StoreTopEnd

    //AB/ Set Location to 25 7
    //AB/ Set Size to 28 35
    //AB-ViewStart
    //AB-ViewEnd

    //AB-StoreStart
    Procedure OnAttachProcess

      Send LoginIfDisconnected Of (oSQLconnect(Self))   
      Forward Send OnAttachProcess
    End_Procedure // OnAttachProcess
    
    Procedure OnDetachProcess
      Send AbortIfDisconnected Of (oSQLconnect(Self))   
      Forward Send OnDetachProcess
    End_Procedure // OnDetachProcess
    //AB-StoreEnd

End_Object    // oWebApp


//AB-StoreStart

Send StartWebApp Of oWebApp
//AB-StoreEnd

//AB/ End_Object    // prj
