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

Otchet_po_lits_kart.QRLabel11.Caption:= DBEdit2.Text;// Перенос значения

Otchet_po_lits_kart.QRLabel12.Caption:= DBEdit1.Text;// Перенос значения

Otchet_po_lits_kart.QRLabel14.Caption:= Administrirovanie.Edit1.Text;//

Перенос значения

Otchet_po_lits_kart.QuickRep1.Preview; //Просмотр отчета

end;

procedure TTransportnyi.SpeedButton15Click – процедура проверки свободного места в машине:

procedure TTransportnyi.SpeedButton15Click(Sender: TObject);

begin

if n=4 then ShowMessage('В машине больше нет свободного места') //вывод сообщения

else begin

DBEdit20.SetFocus; //установка курсора

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

DBEdit23.Text:=DBEdit25.Text;//перенос значения

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

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

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

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

ComboBox4.Text:=''; // Очистка поля ввода

end;

end;

procedure TTransportnyi.SpeedButton13Click – процедура создания накладной

procedure TTransportnyi.SpeedButton13Click(Sender: TObject);

begin

if

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

or(DBEdit23.Text='')

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

else