PBMiner

$PBExportHeader$jagman.sra
$PBExportComments$Generated Application Object
forward
global type jagman from application
end type
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global variables
n_connection gn_conn
Repository g_repository

end variables

global type jagman from application
string appname = "jagman"
boolean toolbartext = true
boolean toolbarusercontrol = false
end type
global jagman jagman

on jagman.create
appname="jagman"
message=create message
sqlca=create transaction
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on

on jagman.destroy
destroy(sqlca)
destroy(sqlda)
destroy(sqlsa)
destroy(error)
destroy(message)
end on

event open;Long ll_rc
String ls_host, ls_user, ls_pass

SetPointer(HourGlass!)

// create connection object
gn_conn = CREATE n_connection

// get connection values
ls_host = ProfileString("jagman.ini", "jaguar", "host", "localhost")
ls_user = ProfileString("jagman.ini", "jaguar", "user", "jagadmin")
ls_pass = ProfileString("jagman.ini", "jaguar", "pass", "")

// connect to jaguar server
If gn_conn.of_connect(ls_host, ls_user, ls_pass) Then
   // create instance of repository component
   ll_rc = gn_conn.CreateInstance(g_repository, "Jaguar/Repository")
   If ll_rc <> 0 Then
      MessageBox("CreateInstance failed!", gn_conn.of_errmsg(ll_rc))
      Return
   End If
   // open main window
   Open(w_main)
End If

end event

event close;If IsValid(g_repository) Then
   DESTROY g_repository
End If

If IsValid(gn_conn) Then
   gn_conn.of_disconnect()
   DESTROY gn_conn
End If

end event