14.       procedure TProdat11.BitBtn21Click – отмена добавления записи в таблицу "товар"

procedure TProdat11.BitBtn21Click(Sender: TObject);

begin

Button21.Visible:=True;

DBComboBox2.Enabled:=False;

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

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

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

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

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

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

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

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

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

BitBtn19.Visible:=False;//Скрытие кнопки

BitBtn20.Visible:=False;//Скрытие кнопки

BitBtn21.Visible:=False;//Скрытие кнопки

DBNavigator2.BtnClick(nbCancel);//Отмена действия в базе данных

DBEdit9.ReadOnly:=True;//Запрещение изменения записи

DBComboBox1.ReadOnly:=True;//Запрещение изменения записи

DBEdit11.ReadOnly:=True;//Запрещение изменения записи

DBEdit12.ReadOnly:=True;//Запрещение изменения записи

DBEdit13.ReadOnly:=True;//Запрещение изменения записи

DBEdit14.ReadOnly:=True;//Запрещение изменения записи

DBEdit15.ReadOnly:=true;//Запрещение изменения записи

DBGrid2.Enabled:=True;

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

CheckBox2.Checked:=False;//Изменение значения компонента

end;

15.       procedure TProdat11.BitBtn42Click – Удаление информации о осуществленной продаже

procedure TProdat11.BitBtn42Click(Sender: TObject);

var z:integer;

begin

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

Edit17.Text:=DBEdit29.Text;//Занесение информации в текстовое поле

begin

for z:=1 to dm.Prodazi.RecordCount do

begin

if Edit17.Text=dm.Prodazi.FieldByName('№ продажи').AsString then

begin

DBNavigator8.BtnClick(nbDelete);//Удаление записи

ShowMessage('Запись сейчас будет удалена');//Вывод сообщения

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

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

end

else

dm.Prodazi.Next;//Переход к следующей записи в таблице Prodazi

end;

end;

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

end;

16.       procedure TProdat11.BitBtn48Click – Удаление записи из таблици "Заказ"

procedure TProdat11.BitBtn48Click(Sender: TObject);

begin

begin

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

begin

dm.ADOZacaz.Delete;//Удаление записи из таблицы ADOZacaz

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

end;

begin

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

begin

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

Prodat11.Panel6.Visible:=False;//Скрытие панели

Prodat11.GroupBox8.Visible:=False;//Скрытие компонента

end;

end;

end;

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

end;

17.       procedure TProdat11.BitBtn53Click – Расчет стоимости всего выбранного товара

procedure TProdat11.BitBtn53Click(Sender: TObject);

var q,w:integer;

begin

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

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

for q:=1 to dm.ADOZacaz.RecordCount do

begin

w:=w+StrToInt(dm.ADOZacaz.FieldByName('Итого').AsString);//Присвоение значения переменной

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

end;

Prodat11.Label20.Caption:=IntToStr(w)+' рублей';//Присвоение значения надписи

end;

18.       procedure TProdat11.BitBtn49Click – Отмена применения скидки

procedure TProdat11.BitBtn49Click(Sender: TObject);

var m1,m2,m3,a,d,po:integer;

begin

begin

if Prodat11.Edit24.Text='' then

begin

Prodat11.Edit24.Text:='0';//Занесение значение в текстовое поле

end;

end;

begin

d:=StrToInt(Edit24.Text);//Задание значения переменной

if d>100 then

begin

Edit24.Text:='100';//Занесение значение в текстовое поле

end;

end;

dm.ADOZacaz.Edit;//Разрешение редактирования записи в таблице ADOZacaz

DM.ADOZacaz.FieldByName('Льготы').AsString:=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);

dm.ADOZacaz.Post;//Применение информации

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

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

end;


Информация о работе «Справочная система продавца–консультанта компьютерного салона»
Раздел: Информатика, программирование
Количество знаков с пробелами: 75624
Количество таблиц: 8
Количество изображений: 23

Похожие работы

Скачать
179928
38
8

...  *100% Результаты анализа динамики рентабельности позволяют сделать вывод о том, что к 2006 году предприятие повысило уровень рентабельности бизнеса.   2.2 Анализ системы управления персоналом в ООО «Евросеть-Санкт-Петербург» Проанализируем кадровую политику салона. Штатное расписание представлено в таблице 21. Таблица 21 - Штатное расписание салона «Евросеть» на Садовой ул.,33 ...

Скачать
165827
10
4

... я хотела бы посвятить именно приемному отделению ТК «Жуковка». Я считаю, что будет вполне целесообразно разработать и внедрить на данном предприятии автоматизированную информационную систему планирования сбыта, что в свою очередь ускорит и существенно облегчит работу приемного отделения ТК «Жуковка». План-схема приемного отделения и структура работы службы приема и размещения ТК «Жуковка» ...

Скачать
57681
0
0

... анализ его производственной деятельности отсутствуют. Оценка экономического состояния проводится по фактическим данным, когда повлиять на них уже нельзя. 2.3 Проблемы организации управленческого учета в ГК “Салоны связи” и возможные пути их решения Руководитель предприятия, желающий иметь полную и достоверную финансовую информацию о своём бизнесе, а также экономист, обеспечивающий своего ...

Скачать
589353
11
76

... с потребителями в контактной зоне. Контактная зона (зона видимости) – общая сфера, окружающая заказчиков (клиентов) в период нахождения их на предприятии сервиса. Особенностью сервисной деятельности является коммуникативное взаимодействие, общение с потребителями. К числу основных составляющих феномена общения относят три взаимосвязанные стороны общения: коммуникативную, интерактивную и ...

0 комментариев


Наверх