Отдел продаж
Рисунок 4.1 – Составляющие модуля «Отдел продаж»
оформление схемы
Рисунок 4.2- Структура базы данных отдела продаж
оформление рисунка
Рисунок 5.1 – Выбор продукции
Рисунок 5.2 – Оформление заводского заказа
оформление рисунка
Рисунок 5.3 – Подготовка данных к генерации договора
Приложение Л
Исходные тексты программного обеспечения
Модуль «Договора»
//******добавление нового договора*************
procedure TfmDog.btAddDogClick(Sender: TObject);
begin
if (edNomer.Text = '') or (edContact.Text = '')
then
begin
MessageDlg('Все поля должны быть заполнены!!!', mterror,
[mbOk], 0);
end
else
with ibTblDog do
begin
if lookup('ndog',edNomer.Text,'ndog') = edNomer.Text
then
begin
MessageDlg('Такая запись уже существует!!!', mterror,
[mbOk], 0);
last;
end
else
begin
spNDog.ExecProc;
insert;
FieldByName('nomer').Value:=
spNDog.ParamByName('ndog').Value;
FieldByName('ndog').AsString:=edNomer.Text;
FieldByName('data').AsDateTime:= StrToDate(edDate.Text);
FieldByName('datas').Value:= edDateS.Date;
FieldByName('Cont_l').AsString:= edContact.Text;
FieldByName('forma_r').AsString:=cbForm.Text;
FieldByName('pokup').AsInteger:=StrToInt(edCode.Text);
FieldByName('dlcont').AsString:=edDolzhn.Text;
FieldByName('otvetst').Value:=fmMain.id;
if edComment.Text <> '' then
FieldByName('comment').AsString:=edComment.Text;
post;
end;
end;
fmMain.ibMain.ApplyUpdates([ibTblDog]);
end;
//****************конец********************