Автор: Пользователь скрыл имя, 22 Февраля 2012 в 14:22, курсовая работа
Целью же данного курсового проекта стала автоматизация расчета будущей стоимости платежей, значений текущих вкладов и займов на основе постоянной процентной ставки. Для решения поставленной задачи был разработан программный продукт, который производит следующие действия:
ВВЕДЕНИЕ 3
1 РАСЧЕТ БУДУЩЕЙ СТОИМОСТИ ПЛАТЕЖЕЙ 4
1.1 Общие понятия 4
1.2 Расчет будущей стоимости денег по простым процентам 5
1.3 Расчет будущей стоимости денег по сложным процентам 6
1.4 Сущность дисконтирования 8
2 ОПИСАНИЕ ПРОЕКТНЫХ РЕШЕНИЙ 10
2.1 Обоснование разработки 10
2.2 Концептуальное описание задачи 10
2.3 Разработка проектных решений по созданию информационной базы 10
2.4 Разработка проектных решений по программному обеспечению 11
2.4.1 Разработка алгоритма работы программы 11
2.4.2 Руководство пользователя 11
2.4.3 Описание контрольного примера 15
ЗАКЛЮЧЕНИЕ 17
СПИСОК ЛИТЕРАТУРЫ 18
ПРИЛОЖЕНИЕ A Схема алгоритма задачи 19
ПРИЛОЖЕНИЕ Б Отчет 20
ПРИЛОЖЕНИЕ В Код 21
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(
var
access:variant;
begin
try
Access := CreateOleObject('Access.
except
Access := CreateOleObject('Access.
End;
Access.Visible:=True;
Access.OpenCurrentDatabase('
Access.DoCmd.OpenReport('
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
Form7.Hide;
end;
end.