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

(DBEdit6.Text='') or(DBEdit4.Text='')or(DBEdit5.Text='')

or(DBEdit2.Text='') or (DBEdit3.Text='') or(DBEdit1.Text='')

or(DBEdit10.Text='') or(DBEdit1.Text='')

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

else

begin

DBEdit1.Enabled:=False; //Деактивация поля ввода информации

DBEdit2.Enabled:=False;//Деактивация поля ввода информации

DBEdit3.Enabled:=False;//Деактивация поля ввода информации

DBEdit4.Enabled:=False;//Деактивация поля ввода информации

DBEdit5.Enabled:=False;//Деактивация поля ввода информации

DBEdit6.Enabled:=False;//Деактивация поля ввода информации

DBEdit10.Enabled:=False;//Деактивация поля ввода информации

DBEdit11.Enabled:=False;//Деактивация поля ввода информации

DateTimePicker1.Enabled:=false;//Деактивация календаря

DateTimePicker2.Enabled:=false;//Деактивация календаря

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

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

SpeedButton3.Enabled:=False;//Деактивация кнопки

SpeedButton4.Enabled:=False; //Деактивация кнопки

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

DBEdit30.Text:=ComboBox1.Text; //Перенос значения

ComboBox1.Enabled:=False; //Деактивация поля ввода информации

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

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

dm.Mashiny.FieldByName('№_лиценз_карт').AsInteger:=dm.Lits_kart.FieldByName('№_лиценз_карт').AsInteger;

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

end;

end;