#include "CDXDBE.CH" #include "COLLAT.CH" #include "COMMON.CH" #include "DBFDBE.CH" #include "DBSTRUCT.CH" #include "DLL.CH" #include "DMLB.CH" #include "ERROR.CH" #include "FILEIO.CH" #include "FONT.CH" #include "FOXDBE.CH" #include "INKEY.CH" #define CRLF chr(13)+chr(10) FUNCTION _register( oPackage ) LOCAL oDlg LOCAL oList LOCAL oStat LOCAL oStat2 oPackage:registerForm( "INTRO_TESTAJAX" ) oPackage:registerForm( "STUFF_CUSTOMER" ) oPackage:registerForm( "STUFF_PRODUCT" ) oPackage:registerForm( "NOTDEF" ) oPackage:registerForm( "SAVE_TESTAJAX" ) RETURN .T. FUNCTION _version() RETURN "Version 2.5" FUNCTION _Copyright() RETURN "Graphical Database Programs, (c) 2008. All rights reserved." FUNCTION INTRO_TESTAJAX( oHtml, oContext ) LOCAL aCountries := { "", "England", "France", "Germany", "USA" } LOCAL n LOCAL cId LOCAL cValue oHtml:put( strtran( doctype(), "$1$", procname())) oHtml:put([]) oHtml:put([]) oHtml:put([
]) oHtml:put([