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

8. procedureTSerNom.Edit2KeyPress – Ограничение вводимой информаци

procedure TSerNom.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

case key of

#13 : ;//Принажатие Enter переноскурсора

#8 : ;//Стереть символ слева Backspace

#145: ;//Верхний опостроф

'0'..'9': ;//Только англиские булвы

' ' : //Пробел

else key:=chr(0);//Иначеничего

end;

end;

9. procedureTProdat11.BitBtn6Click – Выбор товара и запрос на применение установленной скидки

procedure TProdat11.BitBtn6Click(Sender: TObject);

var z,z1,a1,a2,v:integer;

begin

begin

if Prodat11.Edit24.Text='' then

begin

Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле

end;

end;

begin

if Prodat11.Edit24.Text<>'0' then

begin //Вывод сообщения

if MessageDlg('Оставить скидку на товар?',

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

Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле

end;