19. procedure TProdat11.Button9Click – Поиск по базе данных
procedure TProdat11.Button9Click(Sender: TObject);
begin
begin
if Edit35.Text='' then
begin
Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit42.Text+edit40.Text+edit36.Text;//Занесение информации в текстовое поле
end;
end;
begin
if Edit36.Text='' then
begin
Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit35.Text+edit40.Text+edit43.Text;//Занесение информации в текстовое поле
end;
end;
begin
if (Edit35.Text='') and (Edit36.Text='') then
begin
Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit42.Text+edit40.Text+edit43.Text;//Занесение информации в текстовое поле
end;
end;
begin
if (Edit35.Text<>'') and (Edit36.Text<>'') then
begin
Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit35.Text+edit40.Text+edit36.Text;//Занесение информации в текстовое поле
end;
end;
ListBox2.Items.Strings[2]:=Edit41.Text;//Изменения значения
Memo2.Lines:=ListBox2.Items;//Занесение информации
dm.ADOQTovar.Close;//Закрытие таблицы ADOQTovar
dm.ADOQTovar.SQL.Clear;//Очистка SQL таблицы ADOQTovar
dm.ADOQTovar.SQL.Assign(Memo2.Lines);//Занесение информации в SQL таблицы ADOQTovar
dm.ADOQTovar.Open;//Открытие таблицы ADOQTovar
end;
20. procedure TProdat11.Button15Click – Процедура формирования списка фирм изготовителей товара
procedure TProdat11.Button15Click(Sender: TObject);
var dfg,g:integer;
begin
dm.FirmIzg.Close;//Закрытие таблицы FirmIzg
dm.FirmIzg.Open;//Открытие таблицы FirmIzg
DBComboBox1.Items.Clear;//Очистка компонента
DBComboBox2.Items.Clear;//Очистка компонента
ComboBox1.Items.Clear;//Очистка компонента
dfg:=0;//Обнуление переменной
dm.FirmIzg.First;//Переход к первой записи в таблице FirmIzg
dm.Tovar1.First;//Переход к первой записи в таблице Tovar1
DBComboBox1.Items.Add(DBComboBox1.Text);//Занесение информации в компонент
begin
for g:=1 to dm.FirmIzg.RecordCount do
begin
if DBComboBox1.Text<>DBComboBox1.Items.Strings[dfg] then
begin
DBComboBox1.Items.Add((DBComboBox1.Text));//Занесение информации в компонент
dfg:=dfg+1;//Увеличение переменной
dm.FirmIzg.Next;//Переход к следующей записи в таблице FirmIzg
dm.Tovar1.Next;//Переход к следующей записи в таблице Tovar1
end
else
begin
dm.FirmIzg.Next;//Переход к следующей записи в таблице FirmIzg
dm.Tovar1.Next;//Переход к следующей записи в таблице Tovar1
end;
end;
dm.FirmIzg.First;//Переход к первой записи в таблице FirmIzg
dm.Tovar1.First;//Переход к первой записи в таблице Tovar1
Memo5.Lines:=DBComboBox1.Items;//Занесение информации
end;
dm.FirmIzg.Close;//Закрытие таблицы FirmIzg
DBComboBox2.Items:=DBComboBox1.Items;//Занесение информации
ComboBox1.Items:=DBComboBox1.Items;//Занесение информации
end;
2. Руководство оператора
2.1 Назначение программы
Данная программа, разработанная на тему "Информационно-справочная система продавца-консультанта компьютерного салона", предназначена для увеличения скорости и повышения качества обслуживания клиентов компьютерного салона или магазина. При использовании данного программного продукта исключается необходимость заполнения в ручную большего количества бумаг, произведения сложных математических действий (о итоговой сумме покупки, скидке предоставляемой клиенту, в процентном представлении). Благодаря имеющемуся в программе поиску, можно быстро и удобно найти любую необходимую информацию, хранящуюся в базе данных. Так же программа предоставляет визуальное отображение выбранного (заказанного) товара, и позволяет удалить его, задать скидку на определенный или на весь товар и также отменить её. При возникновении, каких либо проблем с работой в данном программном обеспечении пользователь (продавец) всегда может воспользоваться справкой по работе с программой и найти выход из любой возникшей проблемы. Помимо всего вышеперечисленного так же можно в любой момент изменить, удалить и добавить данные о клиентах, продавцах, товаре. Также программа выводит гарантийный талон на проданный товар и позволяет выводить отчёты о проданном и заканчивающемся товаре.
2.2 Условия выполнения программы
Программа, разработанная на тему "Информационно-справочная система продавца-консультанта компьютерного салона", имеет не большие системные требования. Поэтому она будет работать практически на любом компьютере. Для обеспечения нормальной работоспособности программы необходимо иметь компьютер с конфигурацией не ниже перечисленной:
- Процессор – Pentium 2 и выше;
- Оперативная память - 64 Мб;
- Свободное место на диске – 50 Мб;
- Монитор "17’’;
- Клавиатура;
- Мышь;
- Принтер.
Данная программа работает под управлением семейства операционных систем Windows. При этом для нормальной работы данного программного обеспечения, на компьютере должно быть установлен пакет Microsoft Office (не ниже 2000).
Установка данной программы осуществляется путем копирования файлов программы: Комп салон.mdb и Kompsalon.exe в папку созданную на любом диске.
... *100% Результаты анализа динамики рентабельности позволяют сделать вывод о том, что к 2006 году предприятие повысило уровень рентабельности бизнеса. 2.2 Анализ системы управления персоналом в ООО «Евросеть-Санкт-Петербург» Проанализируем кадровую политику салона. Штатное расписание представлено в таблице 21. Таблица 21 - Штатное расписание салона «Евросеть» на Садовой ул.,33 ...
... я хотела бы посвятить именно приемному отделению ТК «Жуковка». Я считаю, что будет вполне целесообразно разработать и внедрить на данном предприятии автоматизированную информационную систему планирования сбыта, что в свою очередь ускорит и существенно облегчит работу приемного отделения ТК «Жуковка». План-схема приемного отделения и структура работы службы приема и размещения ТК «Жуковка» ...
... анализ его производственной деятельности отсутствуют. Оценка экономического состояния проводится по фактическим данным, когда повлиять на них уже нельзя. 2.3 Проблемы организации управленческого учета в ГК “Салоны связи” и возможные пути их решения Руководитель предприятия, желающий иметь полную и достоверную финансовую информацию о своём бизнесе, а также экономист, обеспечивающий своего ...
... с потребителями в контактной зоне. Контактная зона (зона видимости) – общая сфера, окружающая заказчиков (клиентов) в период нахождения их на предприятии сервиса. Особенностью сервисной деятельности является коммуникативное взаимодействие, общение с потребителями. К числу основных составляющих феномена общения относят три взаимосвязанные стороны общения: коммуникативную, интерактивную и ...
0 комментариев