49108 (608929), страница 5
Текст из файла (страница 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;
-
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;
-
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;
-
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;
-
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;
-
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;
-
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;
-
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;
-
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;
-
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 Выполнение программы