Информационная система менеджера по работе с клиентами (стр. 3 из 4)
Edit1.ReadOnly:=true; // деактивацияполяввода
end;
end;
7. procedure TGlavnaya_.Button11Click – Процедура расчета цены продажи товара
procedure TGlavnaya_.Button11Click(Sender: TObject);
begin
if (DBEdit7.Text='') or (Edit1.Text='') or (DBEdit11.Text='')
or(Edit2.Text='')
then
ShowMessage('Заполните все поля') // Вывод сообщения
Else
begin
DBText1.Caption:=Edit1.Text; // переносзначения
DataModule1.Uslugi_Table2.FieldByName('К-во').AsString:=DBText1.Caption;;
Edit1.Text:='0';
Edit3.Text:=IntToStr(((strtoint(DBEdit11.Text))* (strtoint(Edit2.Text))) div (strtoint('100')) );
DBEdit9.Text:=IntToStr((strtoint(Edit3.Text))+(strtoint(DBEdit11.Text)));
DataModule1.Uslugi_Table2.Post;
Button13.Enabled:=true; //активациякнопки
Button14.Enabled:=true; //активациякнопки
Button10.Enabled:=true; //активациякнопки
Button15.Enabled:=true; //активациякнопки
Button21.Visible:=true; // отображениекнопки
Button21.Enabled:=false; //деактивациякнопки
Button11.Visible:=false; // скрытиекнопки
Button11.Enabled:=false; //деактивациякнопки
Button12.Enabled:=false; //деактивациякнопки
DBEdit7.Enabled:=false; //деактивацияполяввода
Edit1.ReadOnly:=true; //деактивацияполяввода
DBEdit11.ReadOnly:=true; //деактивацияполяввода
Edit2.ReadOnly:=true; //деактивацияполяввода
end;
end;
8. procedureTGlavnaya_.Button8Click – процедура выбора услуг из списка
procedure TGlavnaya_.Button8Click(Sender: TObject);
begin
Edit4.Text:=InputBox('Ввод данных','Введите количество товара','1'); // проверка колличества товара
if StrToInt(Edit4.Text)>DataModule1.Uslugi_Table2.FieldByName('К-во').AsInteger then
begin
ShowMessage('Товара не хватает, введите меньшее число!'); // вывод сообщения
Button8.Click; // нажатие кнопки
end
else
begin
//Изменение колличества товара
DataModule1.Uslugi_Table2.Edit;// изменение записи
DataModule1.Uslugi_Table2.FieldByName('№_накладной').AsString:=DBEdit4.Text;
DataModule1.Uslugi_Table2.FieldByName('К-во').AsInteger:=DataModule1.Uslugi_Table2.FieldByName('К-во').AsInteger-StrToInt(Edit4.Text);
DataModule1.Uslugi_Table2.Post;// сохранение записи
Edit5.Text:=IntToStr(StrToInt(Edit4.Text) * StrToInt(DBEdit5 .Text));
//Заполнение таблици заказ
DataModule1.Zakaz_Table1.Insert;
DataModule1.Zakaz_Table1.FieldByName('№_продавца').AsString:='1';
DataModule1.Zakaz_Table1.FieldByName('№_клиента').AsString:=DataModule1.Klient_Table1.FieldByName('Номер_п/п').AsString;
DataModule1.Zakaz_Table1.FieldByName('№_услуги').AsString:=DataModule1.Uslugi_Table2.FieldByName('Номер_п/п').AsString;
DataModule1.Zakaz_Table1.FieldByName('№_накладной').AsString:=DBEdit4.Text;
DataModule1.Zakaz_Table1.FieldByName('Колличество').AsString:=Edit4.Text;
DataModule1.Zakaz_Table1.FieldByName('Сумма').AsString:=Edit5.Text;
DataModule1.Zakaz_Table1.Post;
Button9.Enabled:=true;
///////////////////////////////////////////////////////
DataModule1.ADOTable1.Active:=false;
DataModule1.ADOTable1.Active:=true;
DataModule1.ADOTable1.Filtered:=False; //Деактивация фильтра
DataModule1.ADOTable1.Filter:='№_накладной='+Edit6.Text;// //Задание фильтра
DataModule1.ADOTable1.Filtered:=True; //Активация фильтра
end;
End;
ФайлZastavka.pas
1. procedure TZastavka_.Button1Click - процедура проверки правильности ввода пароля.
procedure TZastavka_.Button1Click(Sender: TObject);
begin
if MaskEdit1.Text='' then // проверка заполненности полей
begin
ShowMessage('Введите пароль'); // вывод сообщения
MaskEdit1.SetFocus end else
if MaskEdit1.Text<>DataModule1.ProdavetsTable1.FieldByName('Пароль').AsString then // проверкапароля
begin
ShowMessage('Ошибочный пароль'); // вывод сообщения
MaskEdit1.Clear; // очистка поля ввода
MaskEdit1.SetFocusendelse// установка курсора
begin
MaskEdit1.Clear; // очисткаполяввода
Zastavka_.Hide; // скрытие формы
Glavnaya_.Show; // отображение формы
end;
end;
3. РУКОВОДСТВО ОПЕРАТОРА
3.1Назначение программы
Информационная система предназначена для автоматизации рабочего места менеджера по работе с клиентами фирмы, оказывающей ритуальные услуги. То есть она позволяет многократно облегчить труд менеджера: уменьшить количество времени, занимаемое при оформлении различной документации, повысить скорость и качество обслуживания клиентов фирмы и своевременную выдачу накладной.
3.2 Условия выполнения программы
Для внедрения программы "Ритуал" и её нормального функционирования необходимо наличие следующей материальной базы: персональный компьютер со следующими системными требованиями:
1. IBM- совместимый процессор (IntelPentium 1 и выше);
2. объем оперативной памяти не менее 64 МВ;
3. Свободное место на диске – 50 Мб и более;
4. CD-ROM;
5. Операционная система Windows 98 и выше;
6. монитор SVGA (рекомендуемая диагональ не менее 15 дюймов для комфортной работы с экранными формами) — должен отвечать стандарту безопасности, иметь пониженную радиацию и построчное формирование изображения;
7. клавиатура, имеющая 101/102-клавишную раскладку русских и латинских символов;
8. манипулятор типа "мышь" 2-, 3-кнопочный совместимый по стандарту с Serial Mouse.
Данная программа работает под управлением семейства операционных систем Windows. Также на компьютере должно быть установлено ПО MSOffice(не ниже 2000).
Установка данной программы осуществляется путем копирования файлов программы: Baza.mdb и Ritual.exe в папку созданную на любом из локальных дисков.
3.3 Выполнение программы
Для установки информационной системы менеджера по работе с клиентами фирмы, оказывающей ритуальные услуги на персональный компьютер необходимо:
1. Поместить диск с программой в привод CD-ROM;
2. Скопировать на жесткий диск папку "Программа";
3. Найти файл "База.mdb" находящийся в папке "Дистрибутив";
4. Кликнуть контекстной клавишей мыши на данном файле и выбрать опцию "свойства";
5. В открывшемся окне "Свойства" в разделе атрибуты снять галочку в свойстве "Только чтение".
6. Нажать кнопку "OK".
После выполнения всех выше указанных действий программа готова к работе.
Запуск программы происходит путем запуска файла Ritual.exe. На экране появляется окно проверки прав доступа к программе. Окно проверки прав представлено в виде рисунка 13 (Приложение 10).
Для перехода к главному окну программы необходимо ввести корректный пароль и нажать кнопку "Войти"
На главной форме расположены три вкладки работы с системой и кнопка выхода из программы.
Первой по умолчанию запускается вкладка "Продать"
Вкладка "Продать" представлена в виде рисунка 14 (Приложение 10).
Здесь можно распечатать прайс-лист с информацией об услугах и ценах, так же на этой вкладке осуществляется управление клиентами фирмы, заполнение данных накладной, и регистрируется новый заказ.
При переходе на вкладку "Приход материалов", открывается доступ к редактированию информации о товаре, хранящемся на складе. На этой вкладке можно вводить информацию как о вновь поступившем товаре, так и изменять количество товара, уже имеющегося на складе. Вкладка "Приход материалов" представлена в виде рисунка 15 (Приложение 10).
При переходе на вкладку "Пароль" становиться возможным изменить пароль доступа к программе, посредством нажатия кнопки "Изменить". Вкладка "Пароль" представлена в виде рисунка 16 (Приложение 10).
Для выхода из программы необходимо нажать кнопку "Выход", расположенную в нижнем, левом углу окна.
3.4 Сообщения оператору
В процессе работы с программой могут выводиться следующие сообщения.
Если в процессе заполнения регистрации не были заполнены все текстовые поля или при занесении данных о покупателе на вкладке "Продать", то выводится сообщение:
Если при входе в программу был введен не верный пароль, будет выведено следующее сообщение:
При выборе количества товара большего, чем имеется на складе, на вкладке "Продать" выводится сообщение:
В результате проведенной работы был выполнен разбор программы, взятой за основу для облегчения использования системы потенциальным работником фирмы по оказанию ритуальных услуг. Разработана схема потоков данных и проведено их описание. На основании подготовленной схемы потоков данных разработана концептуальная модель базы данных сущностей и датологическая модель базы данных. Проведена нормализация таблиц базы данных. С использованием возможностей по созданию проверочной схемы связей таблиц СУБД Access создана нормализованная схема данных.
Произведен выбор системы программирования и разработаны формы пользовательского интерфейса и отчетов, основные невизуальные компоненты представлены в виде спецификаций. Наиболее загруженная форма имеет пояснительные выноски. Выполнена блок-схема загрузки форм программы с описанием основных функциональных кнопок.
Разработана подробная инструкция пользователя с рисунками форм и текстового описания их применения в условиях эксплуатации.
В результате проведенной работы была создана информационная система менеджера по работе с клиентами фирмы, оказывающей ритуальные услуги.
Требования технического задания выполнены в полном объёме.
ИСТОЧНИКИ, ИСПОЛЬЗОВАННЫЕ ПРИ РАЗРАБОТКЕ
1. В. Понамарев "Базы данных в Delphi 7. Самоучитель", СПб.: Питер, 2003г.
2. С.И.Бобровский "Delphi 7. Учебный курс", СПб.: Питер, 2005г.
3. Электронный учебник "DelphiWorld", версия 5.0, 2002-2003г.
4. Т.Карпова "Базы данных: модели, разработка, реализация", СПб.: Питер, 2001г.
5. А.Я. Архангельский "Программирование в Delphi 7" – М, ООО "Бином-Пресс", 2005г. – 1152л.
6. Лекционный материал по предмету "Разработка и эксплуатация автоматизированных информационных систем";
7. Электронный учебник "Delphi v6.0 Book";
8. Электронный учебник "Delphi v7.0 Book";
9. Гофман В.Э., Хомоменко А.Д. "Delphi 6" – СПб., БХВ-Петербург, 2002. – 1152л.
10. Статья 25 "Закон о защите прав потребителей".
ПРИЛОЖЕНИЯ
Приложение 1.
Рисунок 1: Типовая схема организации.
Приложение 2
Рисунок 2: Форма "Главная (продать)".
