Programa de gestión desde 0

[[José Luis Garcí]]

La gestión de rutas



su código en https://gist.github.com/anonymous/6200819

[[José Luis Garcí]]

Un cambio en el modulo de crear rutas en el botón buscar

ActQuery(IbqbusDoc,'SELECT * FROM DOCUMENTOS WHERE (((NUMERORUTA < '+QuotedStr('1')+') AND (NUMERORUTA <> '+QuotedStr('-1')+')) OR (NUMERORUTA IS NULL)) AND (DOCUMENTOS.FECHA BETWEEN '+
QuotedStr(Cambiafecha(DateTimePicker1.Date))+' AND '+QuotedStr(Cambiafecha(DateTimePicker2.Date))+
') ORDER BY DOCUMENTOS.NUMERODOCUMENTO',True,True,False);

[[José Luis Garcí]]

Si no estoy equivocado, me quedan dos módulos, sobre las comisiones, el menú, que será muy básico y comentaros que otras opciones puse en mi programa y listo, tutorial terminado, no diremos que he tardado mucho ?

[[José Luis Garcí]]

Aquí sigo dando el coñazo, vamos con el módulo de pago de comisiones



y como siempre el código en https://gist.github.com/anonymous/6203848

[[José Luis Garcí]]

Vamos con el módulo de gestión de comisiones



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

[[José Luis Garcí]]

Y de los apartados el último, el menú



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

como podéis ver no hay un Splash, de entrada ni una petición de usuario inicial, pero si he puesto



ya que en cuanto suba los archivos, no tendréis información para acceder, lo explico en el código de dicho botón

Código Delphi [-]
procedure TFMenu.SpeedButtonBC2Click(Sender: TObject);
//------------------------------------------------------------------------------
//*******************************************************[ ENTRADA DIRECTA ]****
// Este botón será desactivado al terminar el programa
//------------------------------------------------------------------------------
begin //Realmente lo uso cuando estoy haciendo un programa, para no tener que
      //pasar por la ventana de usuarios, luego siempre lo elimino
   Usuario:='José Luis';
   Nivel:=9;
   VarSClaveUSuario:='231068';
   ALStatusBar1.Panels[1].Text:='Usuario [ '+Usuario+' ]-['+IntToStr(nivel)+']';
end;

[[José Luis Garcí]]

Realmente en los menús añado más cosas y los hago un poco diferentes, pero sin usar otros componentes y no liando más la cosa, de todas maneras os pongo una pantalla del programa que monte originalmente para que veáis de que hablo



Seguro que en el presente tutorial hay bugs y alguna pantalla que no he mostrado o código que se me ha olvidado, todo ello lo encontrareis en los fuentes, que dentro de muy poco subire