mas ayuda!!!!
gRACIAS POR responder, ese tema ya lo solucione gracias a ustedes, ahora tengo que validar los campos,
*nombre(campo clave)(LETRAS)
*capital(LETRAS)
*poblacion(NUMEROS)
*area(NUMEROS)
*densidad(NUMEROS)
YO EN VISUAL LO HACIA ASI, EN DELPHI COMO ES?
Private Sub c_devuelto_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then c_devuelto2.SetFocus
cadena = "0123456789" + Chr(8) 'chr(8) = delete, es decir admitimos borrar
If InStr(cadena, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
MUCHAS GRACIAS Y POR FAVOR SIGANME AYUDANDOME
|