Jump to content


Photo

Tutorial vídeo club


  • Please log in to reply
67 replies to this topic

#61 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 posts
  • LocationEspaña

Posted 07 March 2015 - 07:35 AM

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


[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;[/DELPHI]

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

[DELPHI]DM.MiControlDeErrores(Dsprincipal,'UUnidades','Baja',E);[/DELPHI]

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

Imagen Enviada

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

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

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

[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;
[/DELPHI]



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
  • 0

#62 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 posts
  • LocationEspaña

Posted 30 March 2015 - 07:04 AM

Bueno pues aquí os pongo lo que he continuado haciendo mientras el club ha estado de mantenimiento, esta todo agrupado, con separadores, perdonad la vagancía

 

[1]---------------------------------------
 
 
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
 
150328114655741955.jpg
 
Y como su código es pequeño lo subo aquí también
 
[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.
[/DELPHI]
 
[2]---------------------------------------------------------------
 
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
 
150328013020563624.jpg
 
 
 
Y nada que comentar sobre este ya que lo haré en el siguiente
 
 
[3]---------------------------------------------------------------
 
Módulo de buscar unidad
 
15032801333746992.jpg
 
 
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.
 
 
[4]---------------------------------------------------------------
 
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.
 
150328014422848100.jpg
 
[5]---------------------------------------------------------------
 
Como ayer no pude seguir he buscado un rato hoy para no atrasarme más, os pongo el módulo de buscar alquiler
 
150330014055734381.jpg
 
 
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

  • 1

#63 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 posts
  • LocationEspaña

Posted 12 April 2015 - 02:51 AM

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


  • 0

#64 poliburro

poliburro

    Advanced Member

  • Administrador
  • 4945 posts
  • LocationMéxico

Posted 13 April 2015 - 08:00 AM

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

 

Estaremos pendientes amigo.


  • 0

#65 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 posts
  • LocationEspaña

Posted 02 May 2015 - 08:01 AM

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
 
150502040040921701.jpg
 
 
 
Este móduilo está operativo, salvando algunas pequeñas cosas sin importancía

  • 0

#66 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 posts
  • LocationEspaña

Posted 02 May 2015 - 08:04 AM

El módulo de cobros del alquiler
 
150502040411515919.jpg
 
 
Esté módulo aunque operativo no esta terminado, ya que nos queda controlar los cobros con recargo, que ya veremos más adelante

  • 0

#67 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 posts
  • LocationEspaña

Posted 02 May 2015 - 08:06 AM

el módulo de búsqueda
 
150502040706714248.jpg
 
 
Que ha ido cambiando adaptandose a las necesidades

  • 0

#68 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 posts
  • LocationEspaña

Posted 02 May 2015 - 08:14 AM

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.

  • 1




IP.Board spam blocked by CleanTalk.