Автоматизация расчета будущей стоимости платежей, значений текущих вкладов и займов

    RadioButton4: TRadioButton;

    RadioButton5: TRadioButton;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

implementation

 

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var  p, f, i, n : double;

 

begin

 

  f:=  StrToFloat(Edit1.Text);

  i:=  StrToFloat(Edit2.Text);

  n:=  StrToFloat(Edit3.Text);

 

    if RadioButton1.Checked

    then begin

    p:= f/(1+n*i/100)

    end

else

    if RadioButton2.Checked

    then begin

    p:= f/(1+(n*2)*(i/2)/100)

    end

else

    if RadioButton3.Checked

    then begin

    p:= f/(1+(n*4)*(i/4)/100)

    end

else

    if RadioButton4.Checked

    then begin

    p:= f/(1+(n*12)*(i/12)/100)

    end

else

    if RadioButton5.Checked

    then begin

    p:= f/(1+(n*365)*(i/365)/100)

    end;

    p := round(p * 100 + 0.5) / 100;

 

    Label6.Caption:= FloatToStr(p);

end;

 

procedure TForm4.Button2Click(Sender: TObject);

begin

      Form4.Hide;

end;

 

end.

 

Unit7. Форма Отчет

 

unit Unit7;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB,

  StdCtrls, ShellAPI, ComObj, DBTables, Buttons, OleServer, AccessXP;

 

type

  TForm7 = class(TForm)

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    SpeedButton1: TSpeedButton;

    AccessReport1: TAccessReport;

    Button1: TButton;

    Label1: TLabel;

    procedure SpeedButton1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form7: TForm7;

 

implementation

 

{$R *.dfm}

 

procedure TForm7.SpeedButton1Click(Sender: TObject);

var

access:variant;

begin

try

Access := CreateOleObject('Access.Application');

except

 Access := CreateOleObject('Access.Application');

End;

 Access.Visible:=True;

 Access.OpenCurrentDatabase('D:\курсавик+access\cost.mdb',True);

 Access.DoCmd.OpenReport('cost', acViewPreview, EmptyParam, EmptyParam);

 end;

 

procedure TForm7.Button1Click(Sender: TObject);

begin

Form7.Hide;

end;

 

end.