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

DM.Mater_sredst.Post; // Сохранение материальных средств

case n of

1:begin Otchet_nakladnaya.QRLabel33.Caption:='1';

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

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

Otchet_nakladnaya.QRLabel36.Caption:=DBEdit21.Text;end;// Перенос значения

2:begin Otchet_nakladnaya.QRLabel37.Caption:=inttostr(n);

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

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

Otchet_nakladnaya.QRLabel46.Caption:=DBEdit21.Text;end;// Перенос значения

3:begin Otchet_nakladnaya.QRLabel38.Caption:=inttostr(n);

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

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

Otchet_nakladnaya.QRLabel47.Caption:=DBEdit21.Text;end;// Перенос значения

4:begin Otchet_nakladnaya.QRLabel39.Caption:=inttostr(n);

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

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

Otchet_nakladnaya.QRLabel48.Caption:=DBEdit21.Text; end;// Перенос значения

end;

ShowMessage('Данные о товаре сохранены'); //вывод сообщения

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

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

ComboBox4.Enabled:=False;

Edit5.SetFocus;

end;

end;

procedure TTransportnyi.SpeedButton11Click – процедура сохранения информации о накладной и о поездке:

procedure TTransportnyi.SpeedButton11Click(Sender: TObject);

begin