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);
var
n1,n2,sal,t1,salt: real; begin
If DBNTransac.Text = '' then begin
MessageBox(Handle,
PChar('Tiene que Indicar el numero de Deposito'),
PChar(''),
MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
end
else begin
Banco.Fields[2].AsString:= 'Dep'; n1:= SumRet.Fields[0].AsFloat; n2:= SumDep.Fields[0].AsFloat; t1:= StrTofloat(DBDeposit.Text); sal:= n2 - n1; DBSalAnt.Text:= floatToStr(sal); salt:= (t1 + sal); Banco.Fields[8].AsFloat:= salt; Begin
Banco.Fields[3].AsDateTime:= DTP1.Date; Banco.Edit; Banco.Post; DBNTransac.Enabled := False;
DBDescrip.Enabled := False;
DBDeposit.Enabled:= False;
DBRetiros.Enabled := False;
DBSalAnt.Enabled:= False;
BDeposito.Visible:= False;
BRetiros.Visible:= False;
CBTipo.Text := ' ';
CBTipo.Enabled := False;
DBNavigator1.Enabled := False;
Banco.Active := False;
SumRet.Active := False;
SumDep.Active := False;
Banco.Active := True;
SumRet.Active := True;
SumDep.Active := True;
Banco.Last; 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