|
aca t mando el archivo adjunto
pienso q tengo q agregar este codigo y chekear q dbgrid esta seleccionado:
procedure Tcodigo.BitBtn1Click(Sender: TObject);
var
cod: Integer;
desc: String;
begin
cod:= adotable1.fieldbyname('Código').Value;
desc:= adotable1.fieldbyname('Servicio').Value;
cod:= adotable2.fieldbyname('Código').Value;
desc:= adotable2.fieldbyname('Descripción').Value;
edit1.Text:=inttostr(cod);
edit2.Text:= desc;
end;
|