Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to create a form based on class?
Message
De
04/11/1999 22:15:09
 
 
À
04/11/1999 22:10:33
Jane Marie Ocampo
Innovision Systems International
Manila, Philippines
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00287309
Message ID:
00287321
Vues:
23
Hi Jane,

FWIW, This may also be tedious to write every time, I use a wrapper for my CREATE FORM statements with shortened identifiers, ie:
LPARAM cType
local cLib

DO CASE
	CASE LEFT(UPPER(cType),1)='P'
		cType= 'processform'
		cLib = 'framework\libs\aforms'
	CASE LEFT(UPPER(cType),1)='V'
		cType= 'viewingform'
		cLib = 'framework\libs\aforms'
	CASE LEFT(UPPER(cType),1)='D'
		cType= 'dataentryform'
		cLib = 'framework\libs\aforms'
	CASE LEFT(UPPER(cType),1)='L'
		cType= 'lookup'
		cLib = 'framework\libs\aforms'
ENDCASE
CREATE FORM ? AS (cType) FROM (cLib) NOWAIT
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform