Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #81  
Antiguo 07-03-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Comentamos algunas cosas más de los módulos con los que hemos trabajado hoy, en primer lugar en el DM hemos añadido elñ procedimiento


Código Delphi [-]
//------------------------------------------------------------------------------
//***************************************************[ MiControlDeErrores ]*****
//   Ds   Es el datasource a conectar
//   Unidad    LA unidad desde el que la llamamos
//   Apartado  El apartado
//   E    La  exception producida
//------------------------------------------------------------------------------
begin
   MessageBeep(1000);
   ShowMessage('Se ha producido un error y el proceso no se ha podido terminar   Unidad:[ '+Unidad+']   Modulo:[ '+Apartado+' ]' + Chr(13) + Chr(13)

             + 'Clase de error: ' + E.ClassName + Chr(13) + Chr(13)
             + 'Mensaje del error:' + E.Message+Chr(13) + Chr(13)
             + '    '+Chr(13) + Chr(13)
             + 'El proceso ha quedado interrumpido');
  if Ds.DataSet.State in [dsEdit,dsInsert] then DS.DataSet.Cancel;
  DM.IBT.RollbackRetaining;    //Donde IBT es el nombre de su Ibtrasaction, con ruta
end;

Que ya vimos y también vimos como se usaba en Unidades en procedimientos como el de bajas siendo la linea de llamada del código

Código Delphi [-]
DM.MiControlDeErrores(Dsprincipal,'UUnidades','Baja',E);

Lo bueno es que el mismo código, incluso podría substituir parte del código de todos los botones confirmar o en mucho de ellos


En clientes hay una parte que ha cambiado en el formulario y no se mostro, esta es en el panel botonera 2, os pongo una imagen



Como veis ahora podemos buscar por tres campos con el locate, no es el mejor método y de hecho suelo usar pantallas de búsqueda, pero para el tutorial creo que es suficiente, veamos dos trozos de código relacionados con este cambio

Código Delphi [-]
//------------------------------------------------------------------------------
//***********************************************[ ejecutamos la búsqueda ]*****
//------------------------------------------------------------------------------
begin
   case RadioGroup1.ItemIndex of
     0SPrincipal.DataSet.Locate('NOMBRE',Edit1.Text,[loCaseInsensitive,loPartialKey]);
     1SPrincipal.DataSet.Locate('DIRECCION',Edit1.Text,[loCaseInsensitive,loPartialKey]);
     2SPrincipal.DataSet.Locate('DOCUMENTO',Edit1.Text,[loCaseInsensitive,loPartialKey]);
   end;
end;

El primero es cuando le damos a buscar, por lo que miramos que elemento del RadioGroup esta seleccionado para saber por que buscamos

Código Delphi [-]
procedure TFClientes.RadioGroup1Click(Sender: TObject);
begin
    case RadioGroup1.ItemIndex of
       0:Label9.Caption:='Nombre';
       1:Label9.Caption:='Dirección';
       2:Label9.Caption:='Nº de documento';
    end;
end;



El segundo es para que cuando pulsamos en el Radiogroup nos identifique antes del edit por que campo buscamos



Creo que esto es todo por esta semana, si veis algo me dicen, seguro que hay fallos ya que estoy haciendo el tutorial según lo voy explicando. Buen fin de semana a todos
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #82  
Antiguo 28-03-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Después de 2 semanas en las que no he podido dedicarme al tutorial, volvemos no con mucho tiempo, pero entre hoy y mañana espero sacar el módulo de Alquiler y los que este lleva adosados.

Para ello vamos a ver el modulo Uvernotas



Y como su código es pequeño lo subo aquí también

Código Delphi [-]
unit Uvernota;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;

type
  TFvernota = class(TForm)
    Panel1: TPanel;
    SBSalir: TSpeedButton;
    Memo1: TMemo;
    procedure SBSalirClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fvernota: TFvernota;

implementation

{$R *.dfm}

procedure TFvernota.SBSalirClick(Sender: TObject);
//------------------------------------------------------------------------------
//**************************************************************[ SBSalir ]*****
//------------------------------------------------------------------------------
begin
  Close;
end;

end.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #83  
Antiguo 28-03-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Bien ahora vamos a mostrar los campos de búsqueda , para ello añadimos a nuestro módulo DM una nueva variable que llamaremos varSBusqueda de tipo string

empecemos por buscar clientes



el código en https://gist.github.com/anonymous/8816e6d0705a950e7047


Y nada que comentar sobre este ya que lo haré en el siguiente
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #84  
Antiguo 28-03-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Módulo de buscar unidad



el código en https://gist.github.com/anonymous/da4c9a74ad43969ef4ab

Bueno de este apartado podremos ver la búsqueda activa con un radiogrup, para seleccionar el campo de búsqueda. Este tiene un botón de búsqueda, pero se podría modificar haciéndolo más efectivo usando el onchange del edit.

También en la rejilla usamos el color para poder visualizar la disponibilidad de la unidad o si esta esta bloqueada, bien por estar vendida o perdida. esto también seria mejorable añadiendo un checkbox para que nos mostrase solo las disponibles o sea DISPONIBLE=S, VENDIDA=N y PERDIDA=N.

Mejoras que podemos hacer, pues por ejemplo quitar los grids de Género y Formato y añadir dos DBText que nos lo pusiera directamente

Por cierto en los títulos de género y formato tenemos unos timagen que nos permiten desplazarnos por los grids.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #85  
Antiguo 28-03-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Ya por último por hoy os pongo como va quedando el módulo de Alquiler donde implantaremos todos estos módulos comentados hoy, mañana intentare seguir un saludo a todos.

__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #86  
Antiguo 28-03-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Responder Con Cita
  #87  
Antiguo 30-03-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Como ayer no pude seguir he buscado un rato hoy para no atrasarme más, os pongo el módulo de buscar alquiler



Y el código en https://gist.github.com/anonymous/9dc334b3215f17e3b3e7

Primero decir que el módulo no lo he probado ya que no esta terminado el de alquileres, segundo que en este he usado alguno de los sistemas ya comentados anteriormente, por lo que tenéis búsquedas según escribimos en el apartado de buscar por el nombre de cliente, el botón de búsqueda con un selector (El checkbox) permitiéndonos usar una sentencia SQL u otra según nos interese.

Por hoy poco más, en estos días seguiré introduciendo poco a poco este módulo de alquiler, pero estoy bastante liado corrigiendo mi sexta novela, que espero poder presentar a concurso en los próximos meses
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #88  
Antiguo 12-04-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Primero pediros disculpas por la tardanza en continuar, no es que me haya olvidado, pero debo terminar algunas cosas así que en una o dos semanas espero volver a seguir con el tútorial
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #89  
Antiguo 12-04-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Gracias, un trabajo excelente, como siempre.
Responder Con Cita
  #90  
Antiguo 13-04-2015
Avatar de pacopenin
pacopenin pacopenin is offline
Miembro
 
Registrado: sep 2010
Ubicación: Asturias
Posts: 382
Poder: 14
pacopenin Va por buen camino
A tu ritmo. Yo encuentro cosas interesantes e ideas. Siempre se aprende,
__________________
http://www.gestionportable.com
Responder Con Cita
  #91  
Antiguo 13-04-2015
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Lo que han dicho más arriba: a tu ritmo. A mi también me faltan horas para terminar mis cosas, y por eso nunca termino de publicar nada.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
  #92  
Antiguo 02-05-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Hola compañeros, después de bastante tiempo hoy os pongo los módulos que aunque no terminados del todo,, ya son operativos, lo explico en los siguientes apartados



El código en https://gist.github.com/anonymous/1bc04234219363a1f84b


Este móduilo está operativo, salvando algunas pequeñas cosas sin importancía
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #93  
Antiguo 02-05-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
El módulo de cobros del alquiler



y el código en https://gist.github.com/anonymous/dfa67e52da10d41bacb6

Esté módulo aunque operativo no esta terminado, ya que nos queda controlar los cobros con recargo, que ya veremos más adelante
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #94  
Antiguo 02-05-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
el módulo de búsqueda



y el código en https://gist.github.com/anonymous/f0b647626dc108c10889

Que ha ido cambiando adaptandose a las necesidades
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #95  
Antiguo 02-05-2015
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 22
José Luis Garcí Va camino a la fama
Algunas cosas a tener en cuenta.

1-Como hemos dicho usamos componentes estandar en delphi, por lo que normalmente uso los míos que me reducen bastante el código

2-No he usado procedures ni funciones para reducir este por lo que hay métodos que se repiten, , si los usáramos se menguaría bastante el código

3-Por diversos motivos he estado un poco liado para el tutorial y no se cuanto tiempo más estaré así, pero os aseguro que en cuanto pueda seguire con él

4-Además del tiempo sin centrarme en él ando un poco despistado. También estoy descentrado por otros motivos, espero estar pronto a pleno rendimiento y seguir colaborando.

5-A lo largo del tutorial he encontrado cosas a subsanar como el campo RECARGO que esta como RACARGO y falta de campos que he ido subsanando con el campo LIBRE de cada tabla, espero os hagáis cargo y si estáis emperezando los subsanéis para que os queden mejor

Espero estar pronto nuevamente con el tutorial y explicar diversos sistemas. De todas maneras estaré por aquí, así que si se os plantea alguna duda intentare responderlas.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #96  
Antiguo 02-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Obtener fotograma de video. Video Finish rabata2001 Varios 0 07-05-2014 13:02:30
segundo video tutorial delphi cacu La Taberna 4 21-02-2012 15:30:26
Video Tutorial Delphi Para Novatos cacu Varios 4 22-11-2011 08:41:30
crear video tutorial glrjola Varios 7 28-04-2011 13:08:56
Video Tutorial para instalar Apache + MySQL + PHP desde 0 !!! Hagen PHP 0 07-02-2007 13:57:45


La franja horaria es GMT +2. Ahora son las 07:16:26.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi