Дипломная работа: Проект разработки программы для фирмы-перевозчика

(DBEdit15.Text='') or(DBEdit14.Text='')or(DBEdit13.Text='')

or(DBEdit16.Text='') or (DBEdit17.Text='') or(DBEdit18.Text='')

or(DBEdit19.Text='') or(DBEdit24.Text='')or(DBEdit20.Text='')

or(DBEdit21.Text='') or (DBEdit22.Text='') or(DBEdit23.Text='')

or(DBEdit27.Text='') or(DBEdit28.Text='')

then ShowMessage('Заполните все поля')// вывод сообщения

else

begin

SpeedButton14.Enabled:=True; //Активация кнопки

DM.Poezdki.FieldByName('№_накладной').AsString:=DBEdit23.Text; // Сохранение информации в базу

DM.Poezdki.FieldByName('Ид_№_машины').AsString:=DBEdit29.Text; // Сохранение информации в базу

DM.Poezdki.FieldByName('Ид_№_водителя').AsString:=DBEdit26.Text; // Сохранение информации в базу

DM.Poezdki.FieldByName('Ид_№_клиента').AsString:=DM.ADOQuery1.FieldByName('Ид_№_клиента').AsString;// Сохранение информации в базу

DM.Poezdki.Post; // Сохранение данных в таблице поездки

DM.Mashiny.Edit; //Изменение статуса выбранной машины

DM.Mashiny.FieldByName('Статус').AsString:=DBEdit31.Text; // Изменение статуса машины

DM.Mashiny.Post; // Сохранение данных в таблице машины

DM.Voditeli.Edit; //Изменение статуса выбранного водителя

DM.Voditeli.FieldByName('Статус').AsString:=DBEdit31.Text; // Изменение статуса водителя

DM.Voditeli.Post; // Сохранение данных в таблице водители

Otchet_nakladnaya.QRLabel9.Caption:=DBEdit17.Text; // Перенос значения

Otchet_nakladnaya.QRLabel49.Caption:=IntToStr(n); // Перенос значения

Otchet_nakladnaya.QuickRep1.Preview;// просмотр формы отчета

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

DM.Mashiny.Filter:='Статус=True'; //Задание фильтра

DM.Mashiny.Filtered:=True; //Активация фильтра

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

DM.Voditeli.Filter:='Статус=True' ;//Задание фильтра;

DM.Voditeli.Filtered:=True;//Деактивация фильтра