Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Trying to create a class
Message
From
27/11/2001 15:43:47
 
 
To
27/11/2001 15:32:20
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00586547
Message ID:
00586614
Views:
11
This message has been marked as a message which has helped to the initial question of the thread.
Michael,

Here is a smaller example. Paste this into a .PRG file, and run it from within VFP.
local ox
ox = createobject("lineTrans")

ox.cEmployee = "Fred Flintstone"
ox.save()
release ox

define class lineTrans as line
	Height = 17
	Width = 100
	cclient = ("")
	cdescription = ("")
	*--Service Code
	cservice = ("")
	*--Billing Amount
	namount = 0.00
	nrate = 0.00
	*--The employee who did the work
	cemployee = ("")
	*--Date of service
	ddate = {}
	*--Hours worked
	nhours = 0.00
	Name = "timetrans"

	procedure save
		* put additional code in here
		? "the record has been saved (not really!)"
	endproc

enddefine
Steve Gibson
Previous
Reply
Map
View

Click here to load this message in the networking platform