Gridcontrol woes

***************************************************
* Class Browser modifications by Arto Toikka 2005 *
* =============================================== *
*                                                 *
* Mode 2                                          *
* View Code generated: 05/23/09                   *
***************************************************
 
PUBLIC oform
oform=NEWOBJECT("form1")
oform.Show(1)
 
DEFINE CLASS form1 AS form
	Height = 292
	Width = 375
	Caption = "Form1"
 
	ADD OBJECT grid1 AS grid_1
	ADD OBJECT command1 AS commandbutton_1
	ADD OBJECT command2 AS commandbutton_2
 
	PROCEDURE Load
		Create Cursor curOrderquantities (qtyord I, qtyreq I)
		For i = 1 to 10
		   Insert into curOrderquantities values (i, i*10)
		EndFor
		Go Top
 
		Set Multilocks on
		CursorSetProp("Buffering",5,"curOrderquantities")
	ENDPROC
ENDDEFINE
 
DEFINE CLASS grid_1 AS grid
	ColumnCount = 0
	DeleteMark = .F.
	Height = 228
	Left = 12
	Top = 12
	Width = 348
 
	PROCEDURE Init()
	    This.MemberClassLibrary = 'c:\my\vfp\tests\validate.prg'
	    This.MemberClass = 'column_1'
	    This.ColumnCount = 1
	    
	    This.Columns(1).header1.caption = "#entered"
	    This.Columns(1).CurrentControl = 'Text_1'
 
	    This.MemberClassLibrary = ''
	    This.MemberClass = ''
	    This.ColumnCount = 2
	    
	    This.columns(2).header1.caption = "#maximum"
	    This.columns(2).readonly = .T. 
	    
	    This.RecordSource = 'curOrderquantities'
	    This.RecordSourceType = 1
	ENDPROC
EndDefine
 
Define Class column_1 as Column
   Add Object Text_1 as textbox_1
EndDefine 
 
DEFINE CLASS textbox_1 AS textbox
	PROCEDURE Valid
		If This.Value > curOrderquantities.qtyreq
		   This.Value = Oldval("curOrderquantities.qtyord")
		EndIf 
	ENDPROC
ENDDEFINE
 
DEFINE CLASS commandbutton_1 AS commandbutton
	Top = 252
	Left = 180
	Height = 27
	Width = 84
	Caption = "Revert"
 
	PROCEDURE Click
		TableRevert(.T.,"curOrderquantities")
		Thisform.Refresh()
	ENDPROC
ENDDEFINE
 
DEFINE CLASS commandbutton_2 AS commandbutton
	Top = 252
	Left = 276
	Height = 27
	Width = 84
	Caption = "Save"
 
	PROCEDURE Click
		TableUpdate(.T.,.F.,"curOrderquantities")
		Thisform.Refresh()
	ENDPROC
ENDDEFINE

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98: