Реферат: Базы данных торговой фирмы

public

{ Public declarations }

Procedure LoadBD; //Загрузка Базы

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

end;

var

Form1: TForm1;

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

implementation

uses Unit2;

{$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;