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

Файл Admin_Mashin_f.pas

procedure TAdmin_Mashin.SpeedButton9Click – процедура изменения информации о машине:

procedure TAdmin_Mashin.SpeedButton9Click(Sender: TObject);

begin

DateTimePicker1.Date:=strtodate(DBEdit6.Text);

DateTimePicker2.Date:=strtodate(DBEdit4.Text);

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

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

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

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

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

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

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

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

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

DateTimePicker1.Enabled:=true;

DateTimePicker2.Enabled:=true;

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

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

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

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

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

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

DM.Lits_kart.Edit;//Изменение строки в таблице

DM.Mashiny.Edit;//Изменение строки в таблице

end;

procedure TAdmin_Mashin.SpeedButton4Click – процедура сохранения информации в таблицу «Машины»:

procedure TAdmin_Mashin.SpeedButton4Click(Sender: TObject);

begin