FoxPro/Visual FoxPro - ayuda con mis botones

hola que tal amigos espero me puedan ayudar, tengo una gran duda

tengo varios formularios el cual cada uno de ellos tiene cun cuadro combinado un grid
y sus cuadros de texto

mi combo contiene varias tablas como 10
el cual al elegir una de ellas me refleja en mi drid lo que contiene la labla y psteriormente al dar clic en el grid me refleja los datos en mis cuadros de texto
como por ejemplo

la tabla de tubos contiene los campos nombre, tipo, marca, preiotubo,preciometro
y esto los refleja posteriormente a mi text1,text2,text3,text4,text5
ya si sucesivamente si mi tabla tiene solo 2 campos solo aparecen 2 cuadros de texto

mi pregunta es la siguiente como aplicar mis botones de nuevo, modificar eliminar y buscar ya que yo creo que debemos tomar en cuenta los nombre de las tblas de cada una para que desde mis cuadro de texto lo pueda hacer dependiendo de mis tablas ya que de ellas dependen los cuador de texto, es decir mis campos

alguien me puede ayudar en este caso
tengo un codigo del boton nuevo, buscar,eliminar
pero estos solo son para una sola tabla y para los cuadros de texto igual

se los mustro pero ayudenme porfavor yo se que todos ustedes on demaciado inteligentes y buena nda por eso confio siempre con ustedes
pero estos codigos solo se refieren a una sola tabla y yo tengo varias o si no sirve eso que me pueden recomendar espero su respuesta

MODIFICAR
if thisform.command6.captionfiltered="modificar"
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.f.
thisform.command4.enabled=.f.
thisform.command5.enabled=.f.
thisform.command7.enabled=.f.
thisform.command8.enabled=.f.
thisform.txtNombre.enabled=.t.
thisform.txtcolor.enabled=.t.
thisform.txttamaño.enabled=.t.
thisform.txtnomemp.enabled=.t.
thisform.txttipoformula.enabled=.t.
thisform.command6.captionfiltered="guardar"
else
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
thisform.command5.enabled=.t.
thisform.command7.enabled=.t.
thisform.command8.enabled=.t.
thisform.txtNombre.enabled=.f.
thisform.txtcolor.enabled=.f.
thisform.txttamaño.enabled=.f.
thisform.txtnomemp.enabled=.f.
thisform.txttipoformula.enabled=.f.
thisform.command6.captionfiltered="modificar"
endif
thisform.refresh

BUSCAR
locate for rtrim(nombre)=rtrim(thisform.buscar.text)
thisform.refresh

NUEVO
private contador
if thisform.command6.captionfiltered="nuevo"
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.f.
thisform.command4.enabled=.f.
thisform.command5.enabled=.f.
thisform.command7.enabled=.f.
thisform.txtnomemp.enabled=.t.
thisform.txtapellido.enabled=.t.
thisform.txttelefono.enabled=.t.
thisform.txtsalario.enabled=.t.
thisform.txthoradeentrada.enabled=.t.
thisform.txthoradesalida.enabled=.t.
thisform.command6.captionfiltered="guardar"
go bottom
thisform.refresh
contador=thisform.txtClave_emp.value
contador=contador+1
append blank
thisform.txtClave_emp.value=contador
thisform.refresh
else
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
thisform.command5.enabled=.t.
thisform.command7.enabled=.t.
thisform.txtnomemp .enabled=.f.
thisform.txtapellido.enabled=.f.
thisform.txtdireccion.enabled=.f.
thisform.txttelefono.enabled=.f.
thisform.txtsalario.enabled=.f.
thisform.txthoradeentrada.enabled=.f.
thisform.txthoradesalida.enabled=.f.
thisform.command6.captionfiltered="nuevo"
endif
thisform.refresh

ELIMINAR
desicionfiltered=messagebox("el registro se eliminara permanentemente esta seguro?",4+16+256,"eliminar registro")
if desicion
delete
pack
thisform.refresh
endif

Podria hacer algo como esto (Un boton Nuevo quedaria asi)

private contador,mitabla &&OJO
mitabla = Thisform.grid1.recordsource &&OJO
if thisform.command6.captionfiltered="nuevo"
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.f.
thisform.command4.enabled=.f.
thisform.command5.enabled=.f.
thisform.command7.enabled=.f.
thisform.txtnomemp.enabled=.t.
thisform.txtapellido.enabled=.t.
thisform.txttelefono.enabled=.t.
thisform.txtsalario.enabled=.t.
thisform.txthoradeentrada.enabled=.t.
thisform.txthoradesalida.enabled=.t.
thisform.command6.captionfiltered="guardar"
SELECT &mitabla &&OJO
go bottom
thisform.refresh
contador=thisform.txtClave_emp.value
contador=contador+1
append blank
thisform.txtClave_emp.value=contador
thisform.refresh

disculpa se me olvido decirte que mis tablas son con campos de tipo caracter numero y monetario
en este casop se trata de una ferreteria

y en mis tablas algunas no tienen claves y si las tienen pero estas se ingresan manueralmen ta ya quw estas dependen del producto , es dicir que que so son de tipo caracter y en el caso d el boton nuevo pues se esta refiriendo a la clave donde va incrementando donde dice
contador = contador + 1 esto nos dice que se va a incrementar pero yo no tengo un campo con clave en la mayoria asi que eso no me sirviria el contador en mi caso que puedo hacer