Ver Mensaje Individual
  #8  
Antiguo 14-06-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
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
Responder Con Cita