inputbox a campo de una tabla

[miguelgalindo87]

saludos a todos tengo una duda que codigo me pueden recomendar para asignar la entrada de un inputbox a un campo en especifico de una tabla en paradox7, uso delphi 7

muchas gracias

[ecfisa]

Hola miguelgalindo87 y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

En cuanto a tu consulta, la forma más simple es usando un TDBEdit, pero también podes hacerlo con un TEDit.

Un ejemplo simple con un Edit:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  DataSet.Append; // o edit si se está modificando
  DataSet.FieldByName('Nombre_De_Tu_Campo').AsString:= Edit1.Text;
  ...
end;

Saludos.

[miguelgalindo87]

muchas gracias y realmente no lei la guia...pero en serio seria muy util utilizando el inputbox, pienso que haria que se viese mas sofisticado mi programa no crees?

[ecfisa]

Hola.

Bueno, depende de la cantidad de campos que deba ingresar el usuario... Si son muchos quizá se agobie de tanta ventana emergente.

Con un InputBox:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  DataSet.Append;
  s:= InputBox('Ingrese el campo','Campo','');
  if s <> '' then
    DataSet.FieldByName('Nombre_De_Tu_Campo').AsString:= s;
end;

Saludos.

[miguelgalindo87]

muchisimas gracias por tu tiempo y por ayudarme en serio lo necesitaba...ahora una pregunta tonta...sabes que estoy tambien programando el boton de busqueda y me gustaria hacerlo con el inputbox en ese caso que sentencia uso? es que me da error. Dice incompatibles types: array and string...

esta es la sentencia que estoy usando

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
table1.Append;
valor:=inputbox('buscar','ingrese codigo',' ');
table1.FindKey(valor);

end;
en serio muchisisiismas gracias (estoy comenzando con delphi)

[Casimiro Notevi]

Por favor, tal y como te ha comentado el compañero ecfisa, lee nuestra guía de estilo, gracias.

Y recuerda poner los tags al código fuente, ejemplo:



Gracias

[ecfisa]

Hola miguelgalindo87.

Ya Casimiro te avisó de las etiquetas, así que vamos a la consulta

Yo haría:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Valor: string;
begin
  Valor:= InputBox('buscar','ingrese codigo','');
  if Valor <> '' then
    Table1.Locate('Campo_A_Buscar', Valor, []);
  ...
end;

Saludos.

Edito: Sé que pareceremos pesados, pero al principio es lógico que por desconocimiento cometas algunos errores y es nuestra función marcártelos, así que tengámonos mutua paciencia...

Por ejemplo, esta nueva pregunta debería ir en un nuevo hilo.