procedure TFrmVehiculos.BtEditarClick(Sender: TObject);
begin
QryVehiculo.Active:=True;
TblVehiculo.Active:=True;
TblCliente2.Active:=True;
EdtFecha.Text:=DateToStr(Date);
EdtHora.Text:=TimeToStr(Time);
QryCliente2.SQL.Text:='select * from cliente where Cedula=:P1';
Qrycliente2.Params[0].AsString:=EdtCliente.Text;
QryCliente2.Active:=True;
if(QryCliente2.RecordCount>0)then
Begin
QryVehiculo.Edit;
QryVehiculo.FieldByName('Placa').Value:=EdtPlaca.Text;
QryVehiculo.FieldByName('Fecha').Value:=EdtFecha.Text;
QryVehiculo.FieldByName('Hora').Value:=EdtHora.Text;
QryVehiculo.FieldByName('Cedula_cliente').Value:=EdtCliente.Text;
QryVehiculo.FieldByName('Marca').Value:=EdtMarca.Text;
QryVehiculo.FieldByName('Modelo').Value:=EdtModelo.Text;
QryVehiculo.FieldByName('Clase').Value:=EdtClase.Text;
QryVehiculo.FieldByName('Color').Value:=EdtColor.Text;
QryVehiculo.Post;
MessageDlg('DATOS DEL VEHICULO ACTUALIZADOS',mtInformation,[mbOk],0);
LblVehiculo.Visible:=False;
LblPlaca.Visible:=False;
EdtPlaca.Visible:=False;
LblCliente.Visible:=False;
EdtCliente.Visible:=False;
Lblnombre.Visible:=False;
EdtNombre.Visible:=False;
LblApellido.Visible:=False;
EdtApellido.Visible:=False;
LblFecha.Visible:=False;
EdtFecha.Visible:=False;
LblFecha.Visible:=False;
EdtFecha.Visible:=False;
LblHora.Visible:=False;
EdtHora.Visible:=False;
LblMarca.Visible:=False;
EdtMarca.Visible:=False;
LblModelo.Visible:=False;
EdtModelo.Visible:=False;
LblClase.Visible:=False;
EdtClase.Visible:=False;
LblColor.Visible:=False;
EdtColor.Visible:=False;
BtEditar.Visible:=False;
BtBorrar.Visible:=False;
QryVehiculo.Active:=False;
QryCliente2.Active:=False;
TblCliente2.Active:=False;
TblVehiculo.Active:=False
End
else
MessageDlg('CLIENTE NO EXISTE, DEBE CREARLO',mtError,[mbOk],0);
end;