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

if sg.Selection.Top<>sg.RowCount-1 then

begin

Form2.Caption:='Редактировать';

for i:=1 to 4 do

TEdit(Form2.FindComponent('Edit'+IntToStr(i))).text:=sg.cells[i-1,sg.selection.top];

if form2.showmodal=mrOk then

begin

{ Помещаем в таблицу данные }

sg.Cells[0, sg.selection.top]:=Form2.Edit1.Text;

sg.Cells[1, sg.selection.top]:=Form2.Edit2.Text;

sg.Cells[2, sg.selection.top]:=Form2.Edit3.Text;

sg.Cells[3, sg.selection.top]:=Form2.Edit4.Text;

sg.Cells[4, sg.selection.top]:=IntToStr(CalcComiss(sg.selection.top));

end;

end;

end;

procedure TForm1.N11Click(Sender: TObject);

var summ:integer; //Общий доход за этот месяц

kom:integer; //Комиссионные выплаты

z:integer; //Доход с вычетом комиссионных выплат

days:integer; //Дней в этом месяце

i,j,k:integer; //Вспомогательные переменные

begin

case StrToInt(copy(DateToStr(Date),4,2)) of //Проверяем какой щас месяц

1,3,5,7,8,10,12:days:=31; // если месяц 1,3,5,7,8,10,12 то дней в месяце 31

2: days:=28; // если месяц 2 то дней в месяце 28

else days:=30; // иначе в месяце 30 дней

end;

summ:=0; //Общим доходам за этот месяц присваеваем ноль