Procedure TProdat11.BitBtn9Click – Процедура отказа от продажи и удаления всей временной информации

11.       procedure TProdat11.BitBtn9Click – Процедура отказа от продажи и удаления всей временной информации

procedure TProdat11.BitBtn9Click(Sender: TObject);

var i:integer;

begin

Prodat11.GroupBox7.Enabled:=True;

Prodat11.Button2.Enabled:=True;

Prodat11.Button3.Enabled:=True;

Prodat11.Button4.Enabled:=True;

Prodat11.Button5.Enabled:=True;

Prodat11.Button6.Enabled:=True;

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

dm.ADOQZViv.SQL.Clear;//Очистка запроса в таблице ADOQZViv

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

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

begin

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

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

end;

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

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

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

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

Prodat11.DBGrid12.Enabled:=False;

Prodat11.DBGrid13.Enabled:=False;

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

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

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

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

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

Prodat11.GroupBox7.Enabled:=True;

Prodat11.Button2.Enabled:=True;

Prodat11.Button3.Enabled:=True;

Prodat11.Button4.Enabled:=True;

Prodat11.Button5.Enabled:=True;

Prodat11.Button6.Enabled:=True;

end;

12.       procedure TProdat11.BitBtn12Click – добавление информации о сотрудниках в базу данных

procedure TProdat11.BitBtn12Click(Sender: TObject);

begin

Button21.Visible:=false;

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

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

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

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

DBComboBox2.Enabled:=True;

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

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

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

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

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

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

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

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

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

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

DBEdit9.ReadOnly:=False;//Разрешение изменения записи

DBComboBox1.ReadOnly:=False;//Разрешение изменения записи

DBEdit11.ReadOnly:=False;//Разрешение изменения записи

DBEdit12.ReadOnly:=False;//Разрешение изменения записи

DBEdit13.ReadOnly:=False;//Разрешение изменения записи

DBEdit14.ReadOnly:=False;//Разрешение изменения записи

DBEdit15.ReadOnly:=False;//Разрешение изменения записи

DBEdit9.SetFocus;//Курсор находится в данном текстовом поле

DBNavigator2.BtnClick(nbInsert);//Добавление строки в базу данных

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

BitBtn20.Enabled:=False;

BitBtn19.Enabled:=False;

end;

13.       procedure TProdat11.BitBtn14Click – Изменение информации о сотрудниках

procedure TProdat11.BitBtn14Click(Sender: TObject);

begin

Button21.Visible:=False;

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

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

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

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

DBGrid2.Enabled:=False;

DBComboBox2.Enabled:=True;

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

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

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

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

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

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

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

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

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

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

DBEdit9.ReadOnly:=False;//Разрешение изменения записи

DBComboBox1.ReadOnly:=False;//Разрешение изменения записи

DBEdit11.ReadOnly:=False;//Разрешение изменения записи

DBEdit12.ReadOnly:=False;//Разрешение изменения записи

DBEdit13.ReadOnly:=False;//Разрешение изменения записи

DBEdit14.ReadOnly:=False;//Разрешение изменения записи

DBEdit15.ReadOnly:=False;//Разрешение изменения записи

DBEdit9.SetFocus;//Курсор находится в данном текстовом поле

DBNavigator2.BtnClick(nbEdit);//Изменение информации

BitBtn20.Enabled:=False;

BitBtn19.Enabled:=False;

end;

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

Инновации в сфере управления персоналом на примере ООО "Евросеть Санкт-Петербург"

Скачать

179928

38

8

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

Разработка автоматизированной информационной системы планирования работы

Скачать

165827

10

4

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

Проблемы организации управленческого учета на предприятии

Скачать

57681

0

0

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

Сервисная деятельность

Скачать

589353

11

76

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