49108 (Справочная система продавца–консультанта компьютерного салона), страница 5

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;

1. 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;

1. 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;

1. 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;

1. 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;

1. 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;

1. 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;

1. 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;

1. 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;

1. 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 в папку созданную на любом диске.

2.3 Выполнение программы