Ver Mensaje Individual
  #5  
Antiguo 11-09-2008
lKinGl lKinGl is offline
Miembro
 
Registrado: ago 2007
Posts: 333
Reputación: 19
lKinGl Va por buen camino
disculpa caro pero no te entiendo nada jeje disculpa mi ignorancia pero cuando coloco el locaseinsensitive no me corre el programa

este es el codigo que tengo en mi aplicacion

Código Delphi [-]
procedure TForm17.ComboBox1Change(Sender: TObject);
begin
if form1.Table7.Locate('cod_prov',ComboBox1.Text,[locaseinsensitive]) then
  begin
    edit1.Text:=form1.Table7.FieldValues['nom_prov'];
    edit2.Text:=form1.Table7.FieldValues['observacion'];
    edit4.Text:=form1.Table7.FieldValues['hor_pla'];
    edit3.Text:=form1.Table7.FieldValues['gro_pla'];
    SpinEdit1.MaxValue:=form1.Table7.FieldValues['can1'];
    edit5.Text:=form1.Table7.FieldValues['can2'];
    BitBtn1.Enabled:=true;
    BitBtn7.Enabled:=true;
    BitBtn8.Enabled:=true;
  end
  else
  begin
    Application.MessageBox('Erro Grave','');
    exit;
  end;
end;

gracias adelantadas

Última edición por lKinGl fecha: 11-09-2008 a las 02:47:46.
Responder Con Cita