Programa (Mini Tutorial) novatos

[[Caral]]

Bueno un poquito de código, aquí es donde me corrigen los maestros del Club, con mucho gusto acepto sus criticas.
Empecemos:
Nos posicionamos en el form Banco y le damos doble clic, con esto no llevara a su evento OnFormCreate, en donde ponemos esto:
NOTA: El código esta explicado:

Código Delphi [-]
procedure TBanco.FormCreate(Sender: TObject);
begin
   DTP1.DateTime:= now; // inicio la fecha al dia de hoy
   Banco.Active := True; // activo la tabla
   Banco.Last;  // le indico que lea el ultimo registro
   SumRet.Active := True; // activo el query
   SumDep.Active := True; // activo el query
   // coloco el resultado de (SumDep - SumRet) en el edit
   ESalTot.Text := FloatToStr((SumDep.Fields[0].AsFloat) - SumRet.Fields[0].AsFloat);
   // establecemos los dbedits como desactivados
   DBNTransac.Enabled := False;
   DBDescrip.Enabled := False;
   DBRetiros.Enabled := False;
   DBDeposit.Enabled := False;
   DBSalAnt.Enabled := False;
   // Deshabilitamos el combobox
   CBTipo.Enabled:= False;
   // Deshabilitamos el navegador
   DBNavigator1.Enabled := False;
   // escondemos los botones, con esto evitamos cometer errores
   BRetiros.Visible := False;
   BDeposito.Visible := False;
end;

Ahora le damos doble clic al boton Cancelar, este es el evento OnClick, ponemos esto:

Código Delphi [-]
procedure TBanco.BcancelaClick(Sender: TObject);
begin
   Close; // cerramos el programa
end;

NOTA: Este código lo voy probando, osea que se puede cortar y pegar, sugiero escribirlo, se aprende mejor.
Seguimos con lo demás en el siguiente post.
Saludos

[[Caral]]

Vamos con dos partes mas:
Recordad que se cambio el caption a los botones asea el titulo, no me explique bien en el segundo post en ese punto, espero me lo disculpéis un dedazo.
El nombre (Name) de cada botón lo iré poniendo según se requiera entre paréntesis.
El botón Nueva Transacción (BNTrans):
En el evento OnClick:

Código Delphi [-]
procedure TBanco.BNTransClick(Sender: TObject);
begin
   // desactivo las tablas, esto es por si hemos hecho
   // alguna transaccion anterior
   Banco.Active := False;
   SumRet.Active := False;
   SumDep.Active := False;
   // confirmo que los botones estan escondidos
   BRetiros.Visible := False;
   BDeposito.Visible := False;
   // activo la tabla y querys
   Banco.Active := True;
   SumRet.Active := True;
   SumDep.Active := True;
   Banco.Last;
   // activo el combobox
   CBTipo.Enabled:= True;
   // activo el dbnavegator, con este ya se puede insertar un nuevo registro
   DBNavigator1.Enabled := True;
end;

Ahora el DBNavigator (DBNavigator1):
En el evento OnClick:

Código Delphi [-]
procedure TBanco.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
    // aqui vamos a definir el tipo de dato que se ingresa
    // para esto usaremos el combobox.
    case CBTipo.ItemIndex of
     0 : begin
         // activamos los dbedit
         DBNTransac.Enabled := True;
         DBDescrip.Enabled := True;
         DBRetiros.Enabled := True;
         DBDeposit.Enabled := False;
         // escondemos y presentamos
         DBRetiros.Visible:= true;
         DBDeposit.Visible:= False;
         end;
     1 : begin
         // activamos los dbedit
         DBNTransac.Enabled := True;
         DBDescrip.Enabled := True;
         DBDeposit.Enabled:= True;
         DBRetiros.Enabled := False;
         // escondemos y presentamos
         DBDeposit.Visible:= True;
         DBRetiros.Visible:= False;
         end;

end;

Bueno, ya se pueden hacer varias cosas con el programita pero todavía falta algo de camino, por ejemplo el calculo de ingresos (Depósitos) menos egresos (Retiros), ya casi vamos, ademas de los reportes.
Saludos

[[Caral]]

Vamos con otro componente:
El Combobox (CBTipo):
En el evento ONChange:

Código Delphi [-]
procedure TBanco.CBTipoChange(Sender: TObject);
begin
    // Aqui activamos y desactivamos opciones
    case CBTipo.ItemIndex of
     0 : begin
        BDeposito.Visible:= False; // escondemos el boton deposito (BDeposito)
        BRetiros.Visible:= True; // hacemos visible el boton retiros (BRetiros)
        CBTipo.Enabled:= False; // Deshabilitamos  el combobox, evitamos errores
        DBNavigator1.Enabled:= True; // avilitamos el navegador
         end;
     1 : begin
        BRetiros.Visible:= False; // Escondemos el boton retiros (BRetiros)
        BDeposito.Visible:= True; // Hacemos visible el boton deposito (BDeposito)
        CBTipo.Enabled:= False; // Deshabilitamos  el combobox, evitamos errores
        DBNavigator1.Enabled:= True; // avilitamos el navegador
         end;
end;
end;

Este lo puse solito por que vienen los grandes, depósitos y retiros.
Saludos

[[Caral]]

Aquí vamos con el primero, es realmente facil.
NOTA: Tanto para depositos como para los retiros en este estamos usando dos botones, escondiéndolos de vez en cuando, esto se puede hacer con un solo boton o de muchas maneras mas, en este caso lo hago así en recordatorio de como aprendí, bueno sigo aprendiendo, pero tómenlo en cuenta.
Boton Depositos, (BDeposito):

Código Delphi [-]
procedure TBanco.BDepositoClick(Sender: TObject);
  // hay otras maneras de hacer esto, por ejemplo con campos calculados
  // en este minitutorial lo hare con variables, son faciles de entender
    var
    n1,n2,sal,t1,salt: real; // estas las usaremos para hacer los calculos
 begin
   If DBNTransac.Text = '' then // aqui envio un mensaje si esta vacio el dbdeit
   begin
   MessageBox(Handle,
             PChar('Tiene que Indicar el numero de Deposito'),
             PChar(''),
             MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
   end
   else // de lo contrario hago lo que sigue
   begin
    Banco.Fields[2].AsString:= 'Dep'; //Con esto le coloco la palabra Dep.
    n1:= SumRet.Fields[0].AsFloat; // aqui se le asigna el valor a n1 Retiros
    n2:= SumDep.Fields[0].AsFloat; // aqui se le asigna el valor a n2 depositos
    t1:= StrTofloat(DBDeposit.Text); // aqui se le asigna el valor a t1 DBDeposito
    sal:= n2 - n1; // aqui se hace la primera operacion y se asigna a sal
    DBSalAnt.Text:= floatToStr(sal); // aqui se indica que sal = a DBSalAnt
    salt:= (t1 + sal);  // aqui se hace la segunda operacion y se asigna a salt
    Banco.Fields[8].AsFloat:= salt; // aqui le doy el valor de salt
    Begin
    Banco.Fields[3].AsDateTime:= DTP1.Date; // establezco la fecha
    Banco.Edit; // edito la tabla
    Banco.Post; // guardo los resultados
    // Deshabilitamos los dbdeit
    DBNTransac.Enabled := False;
    DBDescrip.Enabled := False;
    DBDeposit.Enabled:= False;
    DBRetiros.Enabled := False;
    DBSalAnt.Enabled:= False;
    // escondemos los botones
    BDeposito.Visible:= False;
    BRetiros.Visible:= False;
    // colocamos el combobox vacio y lo deshabilitamos
    CBTipo.Text := ' ';
    CBTipo.Enabled := False;
    // deshabilitamos el navegador
    DBNavigator1.Enabled := False;
    // cerramos las tablas, o las desactivamos
    Banco.Active := False;
    SumRet.Active := False;
    SumDep.Active := False;
    // abrimos de nuevo las tablas, con esto se actualizan
    Banco.Active := True;
    SumRet.Active := True;
    SumDep.Active := True;
    Banco.Last; // vemos el ultimo registro
    // colocamos el nuevo resultado en el edit
    ESalTot.Text := FloatToStr((SumDep.Fields[0].AsFloat) - SumRet.Fields[0].AsFloat);
    end;
       end;
           end;

Ya podeis entrar cifras y probar, el boton de retiros es practicamente el mismo codigo, aun asi lo colocare.
Saludos

[[Caral]]

Aqui sigo, no se si alguien estará siguiendo este minitutorial, pero la intención es lo que cuenta.
Ya se hizo el código del botón depósitos, ahora necesitamos el botón retiros o Cheques.
Como dije en el post anterior, estos códigos son casi idénticos, casi, vamos a poner el código de este botón y fijaros en las sutiles diferencias, de echo copie y pegue el código del botón depósitos y solo le cambie estas diferencias, revisad lo y las encontrareis.
Botón Cheques (BRetiros):

Código Delphi [-]
procedure TBanco.BRetirosClick(Sender: TObject);
  // hay otras maneras de hacer esto, por ejemplo con campos calculados
  // en este minitutorial lo hare con variables, son faciles de entender
    var
    n1,n2,sal,t1,salt: real; // estas las usaremos para hacer los calculos
 begin
   If DBNTransac.Text = '' then // aqui envio un mensaje si esta vacio el dbdeit
   begin
   MessageBox(Handle,
             PChar('Tiene que Indicar el numero de Cheque'),
             PChar(''),
             MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
   end
   else // de lo contrario hago lo que sigue
   begin
    Banco.Fields[2].AsString:= 'Che'; //Con esto le coloco la palabra Che.
    n1:= SumRet.Fields[0].AsFloat; // aqui se le asigna el valor a n1 Retiros
    n2:= SumDep.Fields[0].AsFloat; // aqui se le asigna el valor a n2 depositos
    t1:= StrTofloat(DBRetiros.Text); // aqui se le asigna el valor a t1 DBRetiros
    sal:= n2 - n1; // aqui se hace la primera operacion y se asigna a sal
    DBSalAnt.Text:= floatToStr(sal); // aqui se indica que sal = a DBSalAnt
    salt:= (sal - t1);  // aqui se hace la segunda operacion y se asigna a salt
    Banco.Fields[8].AsFloat:= salt; // aqui le doy el valor de salt
    Begin
    Banco.Fields[3].AsDateTime:= DTP1.Date; // establezco la fecha
    Banco.Edit; // edito la tabla
    Banco.Post; // guardo los resultados
    // Deshabilitamos los dbdeit
    DBNTransac.Enabled := False;
    DBDescrip.Enabled := False;
    DBDeposit.Enabled:= False;
    DBRetiros.Enabled := False;
    DBSalAnt.Enabled:= False;
    // escondemos los botones
    BDeposito.Visible:= False;
    BRetiros.Visible:= False;
    // colocamos el combobox vacio y lo deshabilitamos
    CBTipo.Text := ' ';
    CBTipo.Enabled := False;
    // deshabilitamos el navegador
    DBNavigator1.Enabled := False;
    // cerramos las tablas, o las desactivamos
    Banco.Active := False;
    SumRet.Active := False;
    SumDep.Active := False;
    // abrimos de nuevo las tablas, con esto se actualizan
    Banco.Active := True;
    SumRet.Active := True;
    SumDep.Active := True;
    Banco.Last; // vemos el ultimo registro
    // colocamos el nuevo resultado en el edit
    ESalTot.Text := FloatToStr((SumDep.Fields[0].AsFloat) - SumRet.Fields[0].AsFloat);
    end;
       end;

end;

Como veis son casi exactos.
Ya podéis ingresar depósitos y hacer retiros (cheques), hasta aquí va funcionando bien, espero os sirva de algo.
Saludos

[[Caral]]

Ya que tenemos el programa funcionando seguro no queremos que ingrese alguien sin autorización, pues vamos a hacer el login.
Primero vamos a File, New, Form.
Colocamos en el:
1- AdoQuery (ADLogin).
2- Edit
EUsuario
EClave
2- botones
BtnOk
BtnCancel
Y sus respectivos label indicativos.
Quedaria algo asi:


Lo guardamos con el nombre Flogin y el unit UFlogin.
Ahora para llamar a esta pantalla, le hacemos unos ligeros cambios al form Banco.
En el evento Onformcreate de este añadimos en la primera linea el siguiente codigo, quedaria asi:

Código Delphi [-]
procedure TBanco.FormCreate(Sender: TObject);
begin
    // Muestra la pantalla de Login
   FLogin:=TFLogin.Create(self);
   try
   FLogin.ShowModal;
   finally
   FLogin.Free;
   end;

   DTP1.DateTime:= now; // inicio la fecha al dia de hoy
   Banco.Active := True; // activo la tabla
   Banco.Last;  // le indico que lea el ultimo registro
   SumRet.Active := True; // activo el query
   SumDep.Active := True; // activo el query
   // coloco el resultado de (SumDep - SumRet) en el edit
   ESalTot.Text := FloatToStr((SumDep.Fields[0].AsFloat) - SumRet.Fields[0].AsFloat);
   // establecemos los dbedits como desactivados
   DBNTransac.Enabled := False;
   DBDescrip.Enabled := False;
   DBRetiros.Enabled := False;
   DBDeposit.Enabled := False;
   DBSalAnt.Enabled := False;
   // Deshabilitamos el combobox
   CBTipo.Enabled:= False;
   // Deshabilitamos el navegador
   DBNavigator1.Enabled := False;
   // escondemos los botones, con esto evitamos cometer errores
   BRetiros.Visible := False;
   BDeposito.Visible := False;
end;

Esto le indica al programa que busque el loguin.
Ahora en el evento OnformShow de este mismo (Banco):

Código Delphi [-]
procedure TBanco.FormShow(Sender: TObject);
begin
    If not LoginOK then Close;
end;

Esta indicacion es para que si no esta autorizado no se conecte.

Vamos al form (FLogin):
Siguiendo los mismos pasos que en los ADoquery que tenemos en el form Banco, vamos a clocar esta sentencia sql en el string de ADLogin:

Código SQL [-]
SELECT CodUsuario, Nombre, Clave  FROM Usuarios WHERE
Nombre = nom

Demosle doble clic a FLogin, en el evento OnCreate:

Código Delphi [-]
procedure TFLogin.FormCreate(Sender: TObject);
begin
   Cuenta := 0;
   Usuario := '';
   Nombre := '';
end;

Lo que sigue sera en los eventos OnClick. de los botones.
Demosle doble clic al boton Cancelar:

Código Delphi [-]
procedure TFLogin.BtnCancelClick(Sender: TObject);
begin
   LoginOK := False;
   Close;
end;

Demosle doble clic al boton OK:

Código Delphi [-]
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
   LoginOK := False;
   ADLogin.Parameters.ParamByName('nom').Value:= EUsuario.Text;
   ADLogin.Active:= True;
   EUsuario.Text:= ADLogin.Fields[1].AsString;
   If ADLogin.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       EUsuario.Text := '';
       EClave.Text := '';
       ADLogin.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If ADLoginClave.AsString = EClave.Text then
        Begin
          // Usuario := AdoQuery1CodUsuario.AsString;
           LoginOk := True;
           Nombre := ADLoginNombre.AsString;
           ADLogin.Active := False;
           Close;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EClave.Text := '';
           ADLogin.Active := False;
           If Cuenta = 3 then Close;
         end;

end;

Vamos a colocar unas variables, aqui:

Código Delphi [-]

var
  FLogin: TFLogin;
  Cuenta : integer;
  Usuario, Nombre : String;
  LoginOK : boolean;

implementation

Este no le he querido comentar mucho para que os familiaricéis con el código, asi aprendemos mejor.
Ahora abrid la tabla, colocar un usuario y clave y probad el programa.
Saludos

[[Caral]]

Bueno ahora lo que queda es hacer un par de reportes y listo, para eso haré alguno que otro cambio.
Para que esto no se haga mas grande he decidido hacer los ligeros cambios y colocarlo, en esta dirección: http://terawiki.clubdelphi.com/Delph...niTutorial.zip
El programa se llama (Caral-MiniTutorial. zip)
Este contiene todo el código ademas de la base de datos.
Espero os sirva y le saquéis provecho.
Saludos y suerte

[fsolispa]

hola, tengo un problema muy similar solo que trabajo con delphi 2010 y mysql, a delphi le instale los componentes de zeoslib, todo trabaja muy bien, solo que quiero utilizar los datos del nombre de usuario y contraseña para que con una tabla pueda activar o desactivar opciones del menu principal, actualmente utilizo el loginprompt en "true".

1.- ¿hay forma de poder rescatar esa información para lo que lo quiero.?
2.- ¿debo hacer un procedimiento similar al tuyo para poder tener esa información?

Espero que la explicación sea entendible, gracias de antemano