Курсовая работа: Разработка базы данных

Procedure SaveBD; // Сохранение Базы

end;

var

Form1: TForm1;

God: integer; // Нынешний год

implementation

uses Unit2, Unit3;

{$R *.dfm}

function CalcComiss(index:integer):integer; // Подсчет комиссионных

// по номеру продавца в таблице

var year,dohod:integer;

begin

Result:=0; // Изначально комиссионные = 0

with form1.sg do

begin

year:=StrToInt(Cells[2,index]); // Узнаем год приема на работу

Dohod:=StrToInt(Cells[3,index]); // И средний доход за день

end;

if god-year>=10 then // Если продавец работает 10 лет и больше

Result:=Result+1; // Добавляем 1%

if Dohod>=1000 then // Если еще и продает на сумму 1000 или больше

Result:=Result+6 else // то добавляем 6%

Result:=Result+5; // Если же нет, то 5%

end;

procedure TForm1.SaveBD;

var I:integer;

s:TStringList;

begin

S:=TStringList.Create; // Создаем Список строк