Курсовая работа: Информационная система менеджера по работе с клиентами

begin

Edit4.Text:=InputBox('Ввод данных','Введите количество товара','1'); // проверка колличества товара

if StrToInt(Edit4.Text)>DataModule1.Uslugi_Table2.FieldByName('К-во').AsInteger then

begin

ShowMessage('Товара не хватает, введите меньшее число!'); // вывод сообщения

Button8.Click; // нажатие кнопки

end

else

begin

//Изменение колличества товара

DataModule1.Uslugi_Table2.Edit;// изменение записи

DataModule1.Uslugi_Table2.FieldByName('№_накладной').AsString:=DBEdit4.Text;

DataModule1.Uslugi_Table2.FieldByName('К-во').AsInteger:=DataModule1.Uslugi_Table2.FieldByName('К-во').AsInteger-StrToInt(Edit4.Text);

DataModule1.Uslugi_Table2.Post;// сохранение записи

Edit5.Text:=IntToStr(StrToInt(Edit4.Text) * StrToInt(DBEdit5 .Text));

//Заполнение таблици заказ

DataModule1.Zakaz_Table1.Insert;

DataModule1.Zakaz_Table1.FieldByName('№_продавца').AsString:='1';

DataModule1.Zakaz_Table1.FieldByName('№_клиента').AsString:=DataModule1.Klient_Table1.FieldByName('Номер_п/п').AsString;

DataModule1.Zakaz_Table1.FieldByName('№_услуги').AsString:=DataModule1.Uslugi_Table2.FieldByName('Номер_п/п').AsString;

DataModule1.Zakaz_Table1.FieldByName('№_накладной').AsString:=DBEdit4.Text;

DataModule1.Zakaz_Table1.FieldByName('Колличество').AsString:=Edit4.Text;

DataModule1.Zakaz_Table1.FieldByName('Сумма').AsString:=Edit5.Text;

DataModule1.Zakaz_Table1.Post;

Button9.Enabled:=true;

///////////////////////////////////////////////////////

DataModule1.ADOTable1.Active:=false;

DataModule1.ADOTable1.Active:=true;

DataModule1.ADOTable1.Filtered:=False; //Деактивация фильтра