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;
... *100% Результаты анализа динамики рентабельности позволяют сделать вывод о том, что к 2006 году предприятие повысило уровень рентабельности бизнеса. 2.2 Анализ системы управления персоналом в ООО «Евросеть-Санкт-Петербург» Проанализируем кадровую политику салона. Штатное расписание представлено в таблице 21. Таблица 21 - Штатное расписание салона «Евросеть» на Садовой ул.,33 ...
... я хотела бы посвятить именно приемному отделению ТК «Жуковка». Я считаю, что будет вполне целесообразно разработать и внедрить на данном предприятии автоматизированную информационную систему планирования сбыта, что в свою очередь ускорит и существенно облегчит работу приемного отделения ТК «Жуковка». План-схема приемного отделения и структура работы службы приема и размещения ТК «Жуковка» ...
... анализ его производственной деятельности отсутствуют. Оценка экономического состояния проводится по фактическим данным, когда повлиять на них уже нельзя. 2.3 Проблемы организации управленческого учета в ГК “Салоны связи” и возможные пути их решения Руководитель предприятия, желающий иметь полную и достоверную финансовую информацию о своём бизнесе, а также экономист, обеспечивающий своего ...
... с потребителями в контактной зоне. Контактная зона (зона видимости) – общая сфера, окружающая заказчиков (клиентов) в период нахождения их на предприятии сервиса. Особенностью сервисной деятельности является коммуникативное взаимодействие, общение с потребителями. К числу основных составляющих феномена общения относят три взаимосвязанные стороны общения: коммуникативную, интерактивную и ...
0 комментариев