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
Banco.Active := False;
SumRet.Active := False;
SumDep.Active := False;
BRetiros.Visible := False;
BDeposito.Visible := False;
Banco.Active := True;
SumRet.Active := True;
SumDep.Active := True;
Banco.Last;
CBTipo.Enabled:= True;
DBNavigator1.Enabled := True;
end;
Ahora el DBNavigator (DBNavigator1):
En el evento OnClick:
Código Delphi
[-]
procedure TBanco.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
case CBTipo.ItemIndex of
0 : begin
DBNTransac.Enabled := True;
DBDescrip.Enabled := True;
DBRetiros.Enabled := True;
DBDeposit.Enabled := False;
DBRetiros.Visible:= true;
DBDeposit.Visible:= False;
end;
1 : begin
DBNTransac.Enabled := True;
DBDescrip.Enabled := True;
DBDeposit.Enabled:= True;
DBRetiros.Enabled := False;
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