LOCAL oform as Form 
oForm = CREATEOBJECT("prueba")
oform.Visible = .T. 
READ EVENTS 
**************************************************
*-- Class:        prueba (c:\program files\microsoft visual foxpro 7\prueba.vcx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   10/22/02 11:18:00 AM
*
DEFINE CLASS prueba AS form


	Top = 104
	Left = 116
	Height = 268
	Width = 375
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT list1 AS listbox WITH ;
		FontName = "Courier New", ;
		ColumnCount = 3, ;
		Value = 1, ;
		Height = 121, ;
		ColumnLines = .F., ;
		Left = 36, ;
		TabIndex = 2, ;
		Top = 36, ;
		Width = 313, ;
		Name = "List1"
		visible = .t.


	ADD OBJECT label1 AS label WITH ;
		Caption = "Id #         FirstName                 LastName", ;
		Height = 17, ;
		Left = 36, ;
		Top = 20, ;
		Width = 310, ;
		TabIndex = 1, ;
		Name = "Label1"
		visible = .t.

	ADD OBJECT txtfirstname AS textbox WITH ;
		Height = 23, ;
		Left = 155, ;
		TabIndex = 3, ;
		Top = 165, ;
		Width = 149, ;
		Name = "txtFirstName"
        visible = .t.

	ADD OBJECT txtlastname AS textbox WITH ;
		Height = 23, ;
		Left = 155, ;
		TabIndex = 4, ;
		Top = 193, ;
		Width = 149, ;
		Name = "txtLastName"
        visible = .t.

	ADD OBJECT lblfirstname AS label WITH ;
		Caption = "First Name", ;
		Height = 17, ;
		Left = 84, ;
		Top = 168, ;
		Width = 66, ;
		TabIndex = 5, ;
		Name = "lblFirstName"
		visible = .t.

	ADD OBJECT lbllastname AS label WITH ;
		Caption = "Last Name", ;
		Height = 17, ;
		Left = 83, ;
		Top = 197, ;
		Width = 66, ;
		TabIndex = 6, ;
		Name = "lblLastName"
		visible = .t.

	ADD OBJECT cmdsave AS commandbutton WITH ;
		Top = 194, ;
		Left = 310, ;
		Height = 24, ;
		Width = 43, ;
		Caption = "Save", ;
		TabIndex = 7, ;
		Name = "cmdSave"
		visible = .t.

	ADD OBJECT cmdexit AS commandbutton WITH ;
		Top = 237, ;
		Left = 150, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Exit", ;
		TabIndex = 8, ;
		Name = "cmdExit"
		visible = .t.

	PROCEDURE QueryUnload
		this.cmdExit.Click 
	ENDPROC

	PROCEDURE txtFirstName.Init 
		this.Value = MyEmployeeTable.FirstName
	ENDPROC 
	PROCEDURE txtLastName.Init 
		this.Value = MyEmployeeTable.LastName
	ENDPROC 

	PROCEDURE list1.Init
		CREATE CURSOR myEmployeetable (EmployeeId c(6), FirstName C(15), LastName c(15))
		INSERT INTO myEmployeetable VALUES ([001],[Doug],[Amstrong])
		INSERT INTO myEmployeetable VALUES ([002],[Allan],[Spencer])
		INSERT INTO myEmployeetable VALUES ([003],[Jhon],[Dougett])

		WITH This
			.RowSourceType= 2 
			.RowSource = "MyEmployeetable"
			GO TOP 
			*.InteractiveChange 
		ENDWITH 
	ENDPROC
	
	PROCEDURE list1.InteractiveChange
		thisform.txtFirstName.Value = MyEmployeeTable.FirstName
		thisform.txtLastName.Value 	= MyEmployeeTable.LastName
	ENDPROC


	


	PROCEDURE cmdsave.Click
		WITH Thisform
			replace myEmployeeTable.Firstname 	WITH .txtFirstName.Value 
			replace myEmployeeTable.Lastname 	WITH .txtLastName.Value 
			.list1.Requery 
		ENDWITH 
	ENDPROC


	PROCEDURE cmdexit.Click
		thisform.Release 
		CLEAR EVENTS 
	ENDPROC


ENDDEFINE
*
*-- EndDefine: prueba
**************************************************

DO WHILE .T.
      ME.Work()
ENDDO