Ver Mensaje Individual
  #3  
Antiguo 21-03-2017
Dergon Dergon is offline
Miembro
 
Registrado: nov 2015
Posts: 38
Reputación: 0
Dergon Va por buen camino
Código Delphi [-]
procedure Tfrmcliente.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var 
  ultcod:Integer; //variable de conteo
begin
  if dm_dados.ds_cliente.State in [dsinsert] then 
  begin
    tbl_auxiliar_cliente.Open;
    tbl_auxiliar_cliente.Last; 
    ultcod:=tbl_auxiliar_clienteCLI_CODIGO.Value + 1;
    dm_dados.tbl_clienteCLI_CODIGO.Value:=ultcod;
    tbl_auxiliar_cliente.Close;
    DBEdit2.SetFocus;
    dm_dados.tbl_clienteCLI_FOTO.Value:='C:\Estoque\iconos\sem_imagem.jpg';
    foto.Picture.LoadFromFile(dm_dados.tbl_clienteCLI_FOTO.Value);
  end
  else
    FOTO.Picture.LoadFromFile(dm_dados.tbl_clienteCLI_FOTO.Value);
end;
este es el codigo en la hora de usar el dbnavigator el busca directamente la foto,si voy en siguiente registro,o anterior registro funciona ok,pero si seleciono directamente el cliente en mi dbgrid el no muda la foto,en cual evento puedo colocar el codigo que busca la imagen,en los eventos del dbgrid.

Última edición por ecfisa fecha: 22-03-2017 a las 18:15:13. Razón: Agregar etiquetas [delphi][/delphi]
Responder Con Cita