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

ShowMessage('В данный момент нет свободных машин'); //Вывод сообщения

if (DBEdit26.Text='') and (DBEdit27.Text='') then

ShowMessage('В данный момент нет свободных водителей'); //Вывод сообщения

s:=0;//Обнуление счетчика

DBEdit15.Clear; //Очистка поля ввода информации

DBEdit14.Clear; //Очистка поля ввода информации

DBEdit13.Clear;//Очистка поля ввода информации

DBEdit31.Text:='false'; // Занесение текста в поле ввода информации

DM.Dann_nakladn.Insert;// Заполнение таблицы Данные накладной

DM.Mater_sredst.Insert; // Заполнение таблицы материальные средства

DM.Poezdki.Insert; // Заполнение таблицы материальные средства

DBEdit24.Text:=DateToStr(date); //Вывод даты

DBEdit19.Text:=DBEdit27.Text; //Перенесение значения

Label50.Caption:=DBEdit35.Text;//Перенос значения

n:=1; //Установка четчика

Edit1.Enabled:=true;//Активация по