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

procedure TAdmin_Mashin.VyhodClick(Sender: TObject);

begin

if MessageDlg('Вы действительно хотите выйти из программы?', // вывод сообщения

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Application.Terminate; //закрытие программы

end;

procedure TAdmin_Mashin.FormMouseMove – процедура изменения стиля надписи:

procedure TAdmin_Mashin.FormMouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);

begin

Pereregistratsiya.Font.Color:=$00AD9612; //Изменение цвета надписи

SpeedButton2.Font.Size:=10; //Изменение размера шрифта надписи

SpeedButton2.Font.Style:=[fsBold,fsItalic]; //Изменение стиля надписи

SpeedButton1.Font.Size:=10; //Изменение размера шрифта надписи

SpeedButton1.Font.Style:=[fsBold,fsItalic]; //Изменение стиля надписи

SpeedButton9.Font.Size:=10;//Изменение размера шрифта надписи

SpeedButton9.Font.Style:=[fsBold,fsItalic]; //Изменение стиля надписи

SpeedButton3.Font.Size:=10;//Изменение размера шрифта надписи

SpeedButton3.Font.Style:=[fsBold,fsItalic]; //Изменение стиля надписи

SpeedButton4.Font.Size:=10;//Изменение размера шрифта надписи

SpeedButton4.Font.Style:=[fsBold,fsItalic];//Изменение стиля надписи

end;

Файл Transportnyi_f.pas

procedure TTransportnyi.SpeedButton7Click – процедура заполнения лицензионной карточки

procedure TTransportnyi.SpeedButton7Click(Sender: TObject);

begin

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

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

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