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

dm.ADOZacaz.FieldByName('Идентифик_номер').AsString:=sernom1.Edit1.Text;//Занесение информации в таблицу ADOZacaz

dm.ADOZacaz.FieldByName('Стоимость').AsString:=Prodat11.DBEdit6.Text;//Занесение информации в таблицу ADOZacaz

dm.ADOZacaz.FieldByName('Льготы').AsString:=Prodat11.Edit24.Text;//Занесение информации в таблицу ADOZacaz

m1:=0;//Обнуление переменной

m1:=StrToInt(dm.ADOZacaz.FieldByName('Стоимость').AsString);

m2:=1;//Задание значения переменной

m3:=0;//Обнуление переменной

m3:=StrToInt(dm.ADOZacaz.FieldByName('Льготы').AsString);//Задание значения переменной

begin

if m3=0 then

begin

po:=m1*m2;//Задание значения переменной

end

else

begin

a:=m1*m2;//Задание значения переменной

po:=a-(a*m3 div 100);//Задание значения переменной

end;

end;

dm.ADOZacaz.FieldByName('Итого').AsString:=IntToStr(po);//Занесение информации в таблицу ADOZacaz

dm.ADOZacaz.Post;//Сохранение занесённой информации в таблице ADOZacaz

Prodat11.colvtov:=Prodat11.colvtov-1;//Задание значения переменной

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

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

Prodat11.BitBtn7.Visible:=True;//Появлениекнопки

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

Prodat11.BitBtn9.Visible:=True;//Появлениекнопки

Prodat11.SpeedButton1.Visible:=true;//Появлениекнопки

Prodat11.SpeedButton2.Visible:=true;//Появлениекнопки