Курсовая работа: Справочная система продавца–консультанта компьютерного салона

begin //Вывод соответствующего сообщения

if MessageDlg('Вы хотите выйти из программы?',

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

Application.Terminate;//Закрытиеприложения

end;

sernom.pas

5. procedureTSerNom.BitBtn2Click – Процедура отказа от продажи товара

procedure TSerNom.BitBtn2Click(Sender: TObject);

begin

Prodat11.Enabled:=True;

Prodat11.Refresh;//Обновлениеформы Prodat11

sernom1.Edit1.Clear;//Очистка текстового поля

sernom1.Hide;//Закрытие формы sernom1

dm.ADOZacaz.First;//Переход к первой записи в таблице ADOZacaz

Prodat11.Refresh;//Обновлениеформы Prodat11

begin

if dm.ADOZacaz.FieldByName('№ товара').AsString<>'' then

begin

Prodat11.DBGrid12.Visible:=True;//Появлениекомпонента

Prodat11.DBGrid13.Visible:=True;//Появлениекомпонента

Prodat11.Panel6.Visible:=True;//Появлениекомпонента

End;

Prodat11.Button16.Click;//Нажатиекнопки

end;

Prodat11.Button16.Click;//Нажатиекнопки

end;

6. procedureTSerNom.BitBtn1Click – Процедура сохранения серийного номера, и пересчета скидки на товар

procedure TSerNom.BitBtn1Click(Sender: TObject);

var m1, m2, m3,po,w,p,p2,a,d:Integer;