File: wpfapp01.sra
Size: 1688
Date: Sun, 25 Sep 2011 20:51:01 +0200
$PBExportHeader$wpfapp01.sra
forward
global type wpfapp01 from Application
end type
global Transaction sqlca
global DynamicDescriptionArea sqlda
global DynamicStagingArea sqlsa
global Error error
global Message message
end forward

global type wpfapp01 from Application
string AppName = "wpfapp01"
end type
global wpfapp01 wpfapp01

on wpfapp01.create
sqlca=create Transaction
sqlda=create DynamicDescriptionArea
sqlsa=create DynamicStagingArea
error=create Error
message=create Message
end on

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

event Open;// Profile EAS Demo DB V125
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=EAS Demo DB V125;UID=dba;PWD=sql"

connect using sqlca;

open (w_window)
end event
  • Application wpfapp01(sra)