Оглавление
Введение
1. Основная часть
1.1 Назначение и область применения
1.2 Технические характеристики
1.2.1 Постановка задачи
1.2.2 Описание и обоснование входныхи выходных данных
1.2.3 Информационная модель и ееописание
1.2.4 Описание и обоснование выбора состава технических ипрограммных средств
1.2.5 Описание алгоритма программы
1.2.6 Описание функциональных точек
2. Руководство оператора
2.1 Назначение программы2.2Условия выполнения программы
2.3 Выполнение программы
2.4 Сообщения оператору
3. Ожидаемые технико–экономическиепоказатели
Заключение
Источники, использованные приразработке
ВВЕДЕНИЕ
Последнее время всёбольше места в нашей жизни занимает компьютер. Современное общество невозможнопредставить себе без компьютера. Он является частью людской жизни, при помощьюкоторого человек может общаться с другими людьми, узнаёт новости и другуюнемаловажную информацию различного рода.
Но одной из важных задачкомпьютера является обработка, управление, хранение информации и выдача её попервому требованию пользователя. Программноеобеспечение разработано на тему: «Информационно справочная системапродавца компьютерного салона». Основным назначением программы являетсяавтоматизация рабочего места продавца компьютерного салона, с целью увеличенияскорости и повышения качества обслуживания клиентов, обратившихся в данныйсалон. При использовании данного программного продукта исключаетсянеобходимость заполнения в ручную большего количества различной бумажнойдокументации, произведения сложных математических действий (об итоговой суммепокупки, скидке предоставляемой клиенту, в процентном представлении, котораяможет предоставляться как на один или несколько, так и на весь выбранныйтовар). Также это программное обеспечение позволяет производить поиск товаровна складе по базе данных, заносить данные о привезенном на склад товаре,регулировать количество товара на складе после осуществления продажи. Данноепрограммное обеспечение предоставляет справку по работе с программой, ипозволяет осуществлять различного рода манипуляции (добавление, изменение, иудаление) продавцов, и клиентов.
Программа имеетинтуитивно понятный и эргономичный интерфейс, несложный при овладении навыкамиработы с программой, что сокращает времени обучения работы с программой.
При разработке ИСрешаются следующие задачи:
- Исследованиепредметной области;
- Выделениесущностей;
- Установка связеймежду сущностями;
- Построениедиаграммы потоков данных, концептуальной и датологической модели;
- Выбор средствареализации клиентской части ИС;
- Разработка базыданных ИС в Microsoft Office Access;
1. ОСНОВНАЯ ЧАСТЬ
1.1 Назначение и областьприменения
В настоящий моментвремени на территории нашей страны существует огромное множество различныхфирм, магазинов, оптовых баз, и других организаций, нуждающихся в программномобеспечении, которое будет полностью или частично автоматизировать трудпродавца, выполняя за него различной сложности математические расчеты, заполняябланки первичных документов и многое другое.
Основными целямиразработки системы могут служить:
- сокращение времени обработки входнойинформации и получения результатных показателей;
- повышение степени достоверностивыходной информации;
- снижение трудоемкости и количестваошибок при решении задачи.
В программе должны бытьреализованы следующие функции:
- ввод или выбор изимеющихся исходных данных клиента при оформлении покупки;
- расчет стоимостипокупки;
- принятие наработу новых продавцов;
- увольнение сработы продавцов;
- изменение данныхпродавца;
- ввод и сохранениеданных о купленном товаре;
- ввод и сохранениеданных о гарантийном талоне;
- выводгарантийного талона на печать;
- вывод информациио проданном товаре на печать;
- вывод информациио заканчивающемся товаре на печать;
- предоставлениесправки о работе программы;
- регистрацияпоступившего товара на складе;
- изменение количестватовара в базе данных после оформления покупки;
- удаление из базыданных информации о проданных товарах.
Выполнение перечисленныхфункций осуществлено следующим образом:
1. автоматизацияввода данных первичной информации в базу данных с использованием экранных форм:
-окно заполнения формы продажи товара,изменения информации о товаре в базе данных, сохранения (удаления) информации опродавцах и клиентах;
-окно ввода серийного номера назаказанный товар;
2. выдача справочнойинформации:
- справка о работепрограммы;
3. отчеты,формируемые в результате выполнения программы:
- формированиегарантийного талона;
- формированиесписка проданного товара;
- формированиесписка заканчивающегося товара.
Программа разработана натему: «Информационно-справочная система продавца-консультантакомпьютерного салона». Она предназначена для облегчения трудапродавца-консультанта компьютерного салона или магазина. То есть данныйпрограммный продукт при помощи поиска и быстрого вывода на печать необходимойинформации, позволяет увеличить скорость и качество обслуживания клиента(покупателя), что также немаловажно.
При разработке типовойсхемы организации был выявлен следующий штат сотрудников, который включает всебя: директора; работника отдела кадров и продавцов-консультантов, входящих вотдел продаж.
В должностные обязанностидиректора входит:
- организациятекущего и перспективного планирования деятельности салона;
- проведениерекламных компаний по ознакомлению населения об условиях предоставления услугсалоном;
- разработкунеобходимой методической документации;
- осуществлениеконтроля качества за процессом оказания услуг;
- обеспечениесвоевременного составления установленной отчетной документации, и так далее.
Типовая схемакомпьютерного салона представлена в виде схемы (Рис. 1)
/>
Рисунок 1. Типовая схемаорганизации.
Свои профессиональныеобязанности директор компьютерного салона выполняет, взаимодействуя соследующим подразделениями фирмы:
Подразделениякомпьютерного салона, с которыми взаимодействует директор (Таблица 1)
Таблица 1. Подразделениякомпьютерного салона, с которыми взаимодействует директор.Подразделение фирмы Информационные процессы Отдел кадров - передача информации о сотрудниках; Отдел продаж - передача информации о осуществленных продажах; Бухгалтерия
- передача информации о рабочих днях сотрудников
- начисление заработной платы
- учет материальных ценностей на складе
Разрабатываемаяинформационно справочная система предназначена для автоматизации труда продавцакомпьютерного салона. При организации работы компьютерного салона важнымфактором является мобильная, квалифицированная работа сотрудников, способныхорганизовать процесс обслуживания клиентов как можно быстрее и качественней.
В обязанности продавцавходят следующие функции:
- контрольпоступивших на склад товаров;
- подготовкастатистической информации о продажах по требованиям директора;
- регистрацияклиентов обратившихся в салон;
- заполнениегарантийных талонов;
- создание итоговойдокументации по продажам.
При обращении клиента в фирмупроисходит регистрация его личных данных, или же выбор уже имеющихся в базеданных. Обычно в компьютерных салонах используется программное обеспечение Microsoft Office, которое имеет следующие характеристики:
- вся информациянаходится и хранится в текстовых файлах формата Word и в электронных таблицах Excel;
- сбораналитической информации производится путем анализа информации, хранящейся набумажных носителях;
- контроль за поступлениеми убытием товара на складе осуществляется путем регистрации информации набумажных носителях;
Все выше перечисленныенедостатки позволяют сделать вывод о необходимости автоматизации труда продавцакомпьютерного салона. Целью использования вычислительной техники являетсяустранение всех вышеперечисленных недостатков, а так же автоматизация обработкии анализа первичной и промежуточной информации и представление итоговойинформации в виде отчетов.
При использованиипрограммы, разработанной на тему «Информационно-справочная системапродавца-консультанта компьютерного салона», увеличивается качество искорость обслуживания клиентов салона. Это обусловлено тем, что данныйпрограммный продукт предоставляет возможность быстрого поиска необходимойинформации, такой как: товар, хранящийся на складе; продавцах, работающих всалоне; данные о проданном товаре и клиентах, которые приобрели товар.Организация такого поиска во много раз увеличивает скорость работы продавца,ведь при его использовании можно найти нужные данные всего за несколько секунд,а при нахождении такой немаловажной информации на бумажном носителе, можетпотребоваться длительный промежуток времени. Также программа позволяет быстроизменить любые данные о товаре, клиентах (покупателях), и продавцах, что такжеприводит к уменьшению потери времени. При осуществлении продажи товара,продавцу обычно приходится оформлять гарантийный талон, заносить в него всюнеобходимую информацию, а при использовании данного программного продуктагарантийный талон формируется автоматически, что исключает возникновения различного рода ошибок при его составлении и продавцуостаётся только распечатать его.
Работа продавцакомпьютерного салона – это процесс, происходящий во времени, который можноразделить на последовательные этапы:
- выбор продавца;
- поиск нужноготовара;
- формированиесписка товаров;
- оформление документовклиента;
- оформлениепродажи;
- выдачагарантийного талона;
В каждом этапе происходятинформационные процессы, которые сведены в таблицу:
Информационныепроцессы этапов представлены в виде таблицы (Таблица 2).
Таблица 2.Информационные процессы этаповЭтап Информационные процессы 1. выбор продавца - ввод данных продавца происходит при входе в программу; 2. поиск нужного товара - поиск товара на складе посредством побуквенного ввода названия товара, фирмы изготовителя или цене в поле поиска; 3. формирование списка товаров - вывод выбранных товаров в отдельную таблицу; 4. оформление документов клиента
- ввод личных данных клиента, или выбор из уже имеющихся клиентов;
- сохранение информации в базу данных; 5. оформление продажи
- выбор количества продаваемого товара;
- ввод серийного номера товара
- изменение количества товара на складе; 6. выдача гарантийного талона
- формирование гарантийного талона;
- выдача гарантийного талона;
1.2 Техническиехарактеристики
1.2.1 Постановка задачи
В данном программномпродукте автоматизированы следующие математические вычисления:
Расчёт скидки на товар — выполнен по формуле:
D = а*в-( а*в*с / 100)
где:
а – цена товара;
в – количество товара;
с – скидка на товар, впроцентах;
D– цена товара со скидкой.
Расчет стоимости товароводного типа:
S = K*C
где:
S – сумма товара;
K – количество товара;
C – цена 1 единицы товара;
Расчет общей стоимостивсех купленных товаров :
S1 = C1 + С2 + Сn
где:
S1 – сумма покупки;
Сn – стоимость товаров одного вида;
В данном программномобеспечении в качестве первичной информации используется данные о:
Продавцах
Товаре
В начале вводитсяинформация о продавцах с помощью формы регистрация. Форма «регистрация»представлена в виде рисунка (Рис.2)
/>
Рисунок 2. Форма «Регистрация»
После поступления насклад нового товара производится его регистрация в базе данных при помощи вводаинформации на главной форме программы. Главная форма программы представлена ввиде рисунка (Рис. 3).
/>
Рисунок 3. Форма «Главнаяформа программы»
Первичная информация опродавцах хранится в таблице «Продавец» базы данных. И имеетследующие поля:
- № продавца
- Фамилия
- Имя
- Отчество
- Разряд
- Паспортные данные
- Адрес
- Телефон
- Образование
- Пароль
Первичная информация отоваре хранится в таблице «Товар» базы данных. И имеет следующиеполя:
- № товара
- Название
- ФирмаИзготовитель
- Модель
- Характеристики
1.2.2 Описание иобоснование входных и выходных данных
Данные о перечнеформ входной информации находятся в таблице (Таблица 3).
Таблица 3.Перечень форм ввода входной информации№ п/п Название формы проекта Номер рисунка />/>
1.
Главная форма программы
Главная форма программы
Рисунок 4
Рисунок 5
/>
Рисунок 4. Форма «ГлавнаяФома программы» с видом информации о клиентах
/>
Рисунок 5. Форма «ГлавнаяФома программы» с видом информации о товаре
Данные о перечне формформирования выходной информации находятся в таблице (Таблица 4).
Таблица 4.Перечень форм формирования выходной информации.№ п/п Название формы проекта Номер рисунка />/>
1.
Главная форма программы
Серийный номер
Рисунок 6
Рисунок 7
/>/>
/>
Рисунок 6. Форма «ГлавнаяФома программы» с видом информации о выбранном товаре
/>
Рисунок 7. Форма «Серийныйномер»
Данные о перечне формформирования отчетов находятся (Таблица 5).
Таблица 5.Перечень форм формирования отчетов.№ п/п Название формы проекта Номер рисунка />/>
1. Гарантийный талон Рисунок 8 2. Список заканчивающегося товара Рисунок 9 3. Отчет о проданном товаре Рисунок 10
/>/>
/>
Рисунок 8. Форма «Гарантийныйталон»
/>
Рисунок 9. Форма «Списокзаканчивающегося товара»
/>
Рисунок 10. Форма «Отчето проданном товаре»
Схема взаимосвязипрограммных модулей и информационных хранилищ (Рис. 11).
/>
Рисунок 11. Схемавзаимосвязи программных модулей и информационных хранилищ
1.2.3 Информационнаямодель и ее описание
Проведя анализ предметнойобласти путем изучения вышеперечисленной информации, были выявлены следующиевнешние сущности:
- Покупатель;
- Продавец.
Накопителями данныхявляются:
- Покупатель;
- Покупка товара;
- Заказ;
- Продавец;
- Продажа;
- Товар.
Информационная системаразбита на пять логических подсистем:
- система заказов;
- система продаж;
- системарегистрации продавцов;
- системарегистрации покупателей;
- системарегистрации товара.
Потоки данныхпредставлены в виде схемы и подробного словесного описания (Рис. 12)
/>
Рисунок 12. Диаграммапотоков данных
Запрос на регистрацию:
1. Запрос нарегистрацию;
2. Обращение к базеданных на наличие продавца;
3. Ответ на запрос;
4. Разрешение входав систему;
Запрос на привоз товара:
5. Запрос нарегистрацию товара;
6. Запрос продавцана регистрацию товара;
7. Добавление товарав базу данных;
8. Информациясистеме регистрации товара о добавлении товара в базу данных;
9. Информацияпродавцу о добавлении товара в базу данных;
10. Отчёт позаканчивающемуся товару;
Запрос на наличие товара:
11. Запрос покупателяк продавцу на продажу товара;
12. Запрос продавца ксистеме продаж на продажу товара;
13. Запрос к базеданных на продажу товара;
14. Получениесистемой продаж информации о товаре;
15. Получениепродавцом информации о товаре;
16. Получениепокупателем информации о товаре;
Выбор и покупка:
17. Запрос покупателяк продавцу на выбор товара;
18. Запрос продавца ксистеме продаж на выбор товара;
19. Запрос системойпродаж на выбор товара;
20. Получениесистемой продаж информации о выбранном товаре;
21. Получениепродавцом информации о выбранном товаре;
Регистрация заказчика ипокупка:
22. Предложениерегистрации покупателю;
23. Регистрационныеданные покупателя;
24. Заполнениеинформации о покупателе;
25. Регистрацияпокупки и покупателя;
26. Отчёт орегистрации покупателя;
27. Отчёт орегистрации покупки;
28. Отчёт покупателюо покупке товара.
Запрос на оформлениезаказа:
29. Запрос покупателяк продавцу на заказ товара;
30. Запрос продавца ксистеме заказов на заказ товара;
31. Запрос системойзаказов на добавление заказа;
32. Получениесистемой заказов информации о добавлении заказа;
33. Получениепродавцом информации от системы заказов о добавленном заказе;
34. Получениепокупателем информации от продавца о заказе.
На этапе анализанеобходимо провести подробное исследование: будущих функциональных возможностейразрабатываемой системы; информации, необходимой для их выполнения. Поэтомуособое внимание было уделено полноте информации и поиску противоречивой,дублирующей или неиспользуемой информации. После того как была проведенанормализация таблицы «Товар» и «Новый товар» былиобъединены в одну: «Товар».
Каждая сущность имеетбольшое количество атрибутов, но, проанализировав все требования к системе ипроведя детализацию хранилищ данных, будущую модель можно представить в видесвязанных между собой отношениями сущностей:
1. Покупатель:
- № покупателя;
- Фамилия;
- Имя;
- Отчество;
- Адрес;
- Телефон.
2. Заказ:
- Код;
- №товара;
- Идентификационныйномер;
- Стоимость;
- Льготы;
- Итого.
3. Продавец:
- № продавца;
- Фамилия;
- Имя;
- Отчество;
- Разряд;
- Паспортныеданные;
- Адрес;
- Телефон;
- Образование.
4. Продажа:
- № продажи;
- № покупателя;
- № продавца;
- № товара;
- Дата;
- Цена покупки;
- Серийный номер;
- Количество;
- Скидка %;
- Общая стоимость;
- Гарантийныйталон.
5. Товар:
- № товара;
- Название;
- ФирмаИзготовитель;
- Характеристики;
- Модель;
- Цена;
- Гарантия;
- Количество.
В результате полученнаямодель данных графически представлена в виде инфологической модели,представленной в виде рисунка (Рис.13).
/>
Рисунок 13. Инфологическаямодель базы данных
На основе разработаннойинфологической модели строится датологическая модель данных. Наиболееприемлемой для дальнейшей разработки является реляционная модель данныхпредставленная в виде рисунка (Рис.14).
/>
Рисунок 14. Датологическаямодель базы данных
1.2.4 Описание иобоснование выбора состава технических и программных средств
Для реализации базыданных была использована система управления базами данных Microsoft Office Access, входящая в состав стандартного набора Microsoft Office. Microsoft Office Access предоставляет методы удобногоуправления данными за счет упрощения создания и применения схем и таблицстилей. Microsoft Access позволяет легко описывать и доставлять сложные,структурированные данные в любое или из любого приложения стандартным,совместимым способом. Microsoft Office Access имеет интерфейс, характерный для Windows-приложений и относится к системам,ориентированным на пользователя, что позволяет легко выполнять основные действияс базой данных, не прибегая к программированию. Данное программное обеспечениеприменяется для организаций с относительно небольшим объемом данных.
Сама информационнаясистема реализована в среде разработки приложений Delphi. В основе идеологии Delphi лежит технология визуального проектирования иметодология объектно-ориентированного программирования. Для представленияпрограмм в Delphi используется разработанный Borland язык Object Pascal, в основе которого лежит Turbo Pascal.
В основе Delphi лежит концепция быстрого создания приложений (RAD -Rapid Application Development). Основной составляющей средыбыстрого создания приложений является технология, получившая название Two Ways Tools. Это значит, что при размещении или изменениикомпонента в какой-либо форме, соответствующая программа автоматическидополняется и модифицируется. И наоборот, все изменения, которые вносятся впрограмму при разработке приложения, автоматически отражаются на функциональныхсвойствах компонентов формы.
Среда разработки приложенийDelphi предоставляет программисту широкиевозможности создания интерфейса пользователя и большой выбор компонентов,входящих в стандартный набор, с помощью которых можно создавать приложениядостаточно высокого уровня сложности. Средапрограммирования обладает всеми возможностями современных систем управлениябазами данных и имеет встроенную поддержку языка структурированных запросов SQL.
Схемы загрузки формпредставлены в виде рисунка (Рис.15).
/>
Схема загрузкиформы регистрация
/>
Выбор кнопки«Продолжить».
/>
Выбор кнопки«Товар».
/>
Выбор кнопки«Добавить запись».
/>
Выбор кнопки«Выход».
1.2.5 Описание алгоритмапрограммы
Алгоритм работы программыпредставлен в виде блок-схемы, которая демонстрирует кнопки вызова форм. После запускафайла «Kompsalon.exe» на экране монитора выводится форма «Регистрация».Сначала на ней появляется заставка, с описанием темы дипломного проекта иинформация о разработчике данного программного продукта, но через 5 секунд онапропадает. После чего появляются компоненты регистрации продавцов.
На форме «Регистрация»находится две кнопки:
«Выход», всоответствии с названием эта кнопка приводит к закрытию приложения;
«Продолжить»,при нажатии на неё программа автоматически сверяет данные продавца, и еслиданные введены неправильно или не совпадают с данными имеющихся продавцов, тоавтоматически на форме (окне) программы появляется надпись: «Данныепродавца неверны! Попробуйте повторить регистрацию».
Если же программа принажатии на кнопку «Продолжить» введённые продавцом данные призаполнении регистрации, были успешно проняты, то запускается форма «Главнаяформа программы». Она является главной и на ней происходят все основныеоперации.
Сначала на ней появляютсякнопки «Справка» и «Выход», а также раздел «Выбортаблицы», в котором, по сути объединены кнопки: «Продажа товара»,«Товар», «Сотрудники», «Клиенты», «Продажи».
При нажатии на «Справка»- открывается форма «Справка». Здесь непосредственно представленоописание о разработчике программы и о работе с программой.
Кнопка «Выход»,приводит к закрытию программы. При этом если же она будет нажата, программаспросит пользователя, хочет ли он выйти или нет.
Раздел «Выбортаблицы», состоит из нескольких кнопок, при нажатии на любую из нихпоявляется подраздел, который содержит в себе такие основные элементы как:кнопки управления базой данных, непосредственно саму таблицу и окно поиска:
«Сотрудники»,здесь предоставляется возможность редактировать, добавлять и удалять информациюо продавцах;
«Продажи»,позволяет редактировать, добавлять и удалять информацию о продажах. Так же вэтом разделе при помощи кнопки «Вывести на печать» можно вывести напечать список проданных товаров. Причём, благодаря функции поиска можновыводить не только всю информацию, но и ту, которая необходима.
«Клиенты»,позволяет редактировать, добавлять и удалять информацию о клиентах (покупателяхтовара);
«Товар»,позволяет редактировать, добавлять и удалять информацию о товаре. Здесь, так жерасположена кнопка «Вывести список заканчивающегося товара», онавыводит на печать тот товар, количество которого на складе осталось меньшедесяти единиц;
«Продажа товара»,в этом подразделе происходит выбор и продажа товара. При помощи функции поискапродавец без труда может найти необходимый клиенту (заказчику) товар и выбратьего, нажав на кнопку «Выбрать товар». При нажатии открывается форма(окно) «Серийный номер». На ней размещены кнопки «Отмена» и«Продолжить». Также она выводит информацию о количестве данноготовара на складе и количестве уже выбранного товара, непосредственно здесь жепроисходит и запрос о выборе количества товара. Кнопка «Отмена»приводит к закрытию форы «Серийный номер», а при нажатии на «Продолжить»появляется текстовая область, в которую необходимо ввести серийный номервыбираемого изделия и опять нажать на «Продолжить». Как тольковведённое количество товара закончится (для каждого будет введён свой серийныйномер) форма закроется. Одновременно с закрытием «Серийный номер» наформе «Главная форма программы» появляется таблица с выбраннымтоваром и подраздел «Выбор товара», в котором можно удалить выбранныйтовар, задать скидку как на один так и на весь на товар, отменить скидку как наодин так и на весь товар.
Кнопка «Отменитьпродажу» приводит к отмене продажи, то есть происходит отмена продажи иочистка списка выбранного товара.
Кнопка «Закончитьвыбор» открывает раздел регистрации клиента (покупателя). Здесь можноввести данные о новом покупателе, а можно выбрать из уже зарегистрированных.Кнопка «Отмена» возвращает к выбору товара, «Продолжить»приводит к показу информации о клиенте и продавце.
Далее появляется кнопка «Продатьтовар». При нажатии на неё происходит продажа выбранного товара.Появляется сообщение, которое говорит о том, что товар продан и выводитсягарантийный талон.
Схема вызова формпрограммы представлена на рисунке (Рис.16).
/>
Рисунок 16. Схема вызоваформ программы
1.2.6 Описаниефункциональных точек
В проекте используется 8форм, 29 невизуальных компонентов и 20 основных процедур обработки событий,которые в совокупности предназначены для автоматизации обслуживания клиентовкомпьютерного салона. Все невизуальные компоненты находятся на форме «DM». Форма «DM» представлена на рисунке (Рис.17).
Каждый из этихкомпонентов выполняет свою определённую функцию. Например, компоненты сназваниями: Tovar1, Prodavez, Klienti, Prodazi,ADOZacaz, ADOGart, FirmIzg,Reg1, ADOQTovar, ADOQSotrydniki, ADOQKlienti, ADOQZaprosProdazi, ADOQZViv, ADOQZacTovar, ADOQGaranti — используются для подключениятаблиц из базы данных «Комп салон».
Компоненты: DSTovar1, DSKlienti, DSZacaz, DSProdavez, DSProdazi, DSGart, FirmIzg1,DSTovar, DSSotrydniki, DSQklienti, DSZaprosProdazi, DSViv, DSZacTovar – используются для вывода информации из базы данных в таблицы.
/>
Рисунок 17. Форма «DM»
Reg2.pas
1. procedure Edit1KeyPress – процедура перехода между полями ввода по нажатию Enter
procedureTReg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then //нажатие Enter
edit2.SetFocus;//Переходна следующую строку при нажатии Enter
end;
2. procedureTReg.BitBtn2Click – процедура нажатияна кнопкупродолжить
procedureTReg.BitBtn2Click(Sender: TObject);
var f:integer;
begin
if(edit1.text='') or (edit2.text='') or (edit3.text='') or (edit6.text='')then
begin //выводсоответствующего сообщния
messagedlg('ПОЖАЛУЙСТОЗАПОЛНИТЕ ВСЕ ПОЛЯ!!! ',mterror,[mbok],0);
end else
begin
for f:=1 toDM.Reg1.RecordCount do
begin
if (edit1.textDM.Reg1.FieldByName('Фамилия').AsString) or(edit2.textDM.Reg1.FieldByName('Имя').AsString) or (edit3.textDM.Reg1.FieldByName('Отчество').AsString) or(edit6.textDM.Reg1.FieldByName('Пароль').AsString) then
begin
DM.Reg1.Next;//Переход кследующеё строке
Label1.Visible:=False;//Скрытиенадписи
Label6.Visible:=True;//Появлениенадписи
end
else
begin
reg.Hide;//Закрытие формы reg
Prodat11.Show;//Открытие формы Prodat11
end;
3. procedure TReg.Timer1Timer – процедура скрытия заставки
procedureTReg.Timer1Timer(Sender: TObject);
begin
Panel1.Visible:=False;//Скрытие панели
Reg.Caption:='Регистрация';//Заданиезаголовка формы
Label1.Visible:=True;//Появлениенадписи
Label2.Visible:=True;//Появлениенадписи
Label3.Visible:=True;//Появлениенадписи
Label4.Visible:=True;//Появлениенадписи
Label5.Visible:=True;//Появление надписи
end;
4. procedure TReg.FormClose – процедура закрытия программы
procedureTReg.FormClose(Sender: TObject; var Action: TCloseAction);
begin //Выводсоответствующего сообщения
if MessageDlg('Вы хотитевыйти из программы?',
mtConfirmation,[mbYes, mbNo], 0) = mrYes then
Application.Terminate;//Закрытие приложения
end;
sernom.pas
5. procedure TSerNom.BitBtn2Click – Процедура отказа от продажи товара
procedureTSerNom.BitBtn2Click(Sender: TObject);
begin
Prodat11.Enabled:=True;
Prodat11.Refresh;//Обновление формы Prodat11
sernom1.Edit1.Clear;//Очисткатекстового поля
sernom1.Hide;//Закрытиеформы sernom1
dm.ADOZacaz.First;//Переходк первой записи в таблице ADOZacaz
Prodat11.Refresh;//Обновление формы Prodat11
begin
ifdm.ADOZacaz.FieldByName('№ товара').AsString''then
begin
Prodat11.DBGrid12.Visible:=True;//Появление компонента
Prodat11.DBGrid13.Visible:=True;//Появление компонента
Prodat11.Panel6.Visible:=True;//Появление компонента
End;
Prodat11.Button16.Click;//Нажатие кнопки
end;
Prodat11.Button16.Click;//Нажатие кнопки
end;
6. procedure TSerNom.BitBtn1Click – Процедура сохранения серийного номера,и пересчета скидки на товар
procedureTSerNom.BitBtn1Click(Sender: TObject);
var m1, m2,m3,po,w,p,p2,a,d:Integer;
begin
begin
ifProdat11.Edit24.Text='' then
begin
Prodat11.Edit24.Text:='0';//Занесениеинформации в текстовое поле
end;
end;
Prodat11.Enabled:=True;
begin
if Edit1.Text=''then
begin//Выводсоответствующего сообщения
ShowMessage('Пожалуйстовведите серийный номер');
end
else
begin
begin
d:=StrToInt(Prodat11.Edit24.Text);//Задание значения переменной
if d>100 then
begin
Prodat11.Edit24.Text:='100';//Занесениеинформации в текстовое поле
end;
end;
Prodat11.GroupBox7.Enabled:=False;
Prodat11.Button2.Enabled:=False;
Prodat11.Button3.Enabled:=False;
Prodat11.Button4.Enabled:=False;
Prodat11.Button5.Enabled:=False;
Prodat11.Button6.Enabled:=False;
Prodat11.CheckBox2.Checked:=True;//Изменение значения компонента
dm.ADOZacaz.Insert;//Добавлениестроки в таблицу ADOZacaz
dm.ADOZacaz.FieldByName('№товара').AsString:=Prodat11.DBEdit1.Text;//Занесение информации в таблицуADOZacaz
dm.ADOZacaz.FieldByName('Идентифик_номер').AsString:=sernom1.Edit1.Text;//Занесениеинформации в таблицу ADOZacaz
dm.ADOZacaz.FieldByName('Стоимость').AsString:=Prodat11.DBEdit6.Text;//Занесениеинформации в таблицу ADOZacaz
dm.ADOZacaz.FieldByName('Льготы').AsString:=Prodat11.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 div100);//Задание значения переменной
end;
end;
dm.ADOZacaz.FieldByName('Итого').AsString:=IntToStr(po);//Занесениеинформации в таблицу ADOZacaz
dm.ADOZacaz.Post;//Сохранениезанесённой информации в таблице ADOZacaz
Prodat11.colvtov:=Prodat11.colvtov-1;//Заданиезначения переменной
Prodat11.BitBtn53.Click;//Нажатиекнопки
Prodat11.Button16.Click;//Нажатиекнопки
Prodat11.BitBtn7.Visible:=True;//Появление кнопки
Prodat11.Button16.Click;//Нажатие кнопки
Prodat11.BitBtn9.Visible:=True;//Появление кнопки
Prodat11.SpeedButton1.Visible:=true;//Появление кнопки
Prodat11.SpeedButton2.Visible:=true;//Появление кнопки
Prodat11.SpeedButton3.Visible:=true;//Появление кнопки
Prodat11.SpeedButton4.Visible:=true;//Появление кнопки
Prodat11.GroupBox6.Visible:=True;//Появление компонента
Prodat11.DBGrid12.Visible:=True;//Появление компонента
Prodat11.DBGrid13.Visible:=True;//Появление компонента
Prodat11.GroupBox8.Visible:=True;//Появление компонента
Prodat11.Button16.Click;//Нажатие кнопки
Prodat11.Panel6.Visible:=True;//Появление панели
Prodat11.colpoc:=Prodat11.colpoc+1;//Заданиезначения переменной
sernom1.Label2.Caption:='ВведитеСерийный номер '+ IntToStr(Prodat11.colpoc);//Задание надписи
end;
end;
begin
ifProdat11.colvtov0 then
begin
sernom1.Edit1.Clear;//Очистка текстового поля
sernom1.Edit1.SetFocus;//перемещение курсорав текстовое поле
BitBtn3.Visible:=False;//Появление кнопки
Prodat11.Enabled:=False;//Форма активна//Форма неактивна
end
else
begin
sernom1.Hide;//Закрытие формы sernom1
Prodat11.Enabled:=True;//Форма неактивна
Prodat11.Panel6.Visible:=True;//Появление панели
Prodat11.GroupBox8.Visible:=True;//Появление компонента
Prodat11.BitBtn9.Visible:=true;//Появление кнопки
Prodat11.BitBtn7.Visible:=true;//Появление кнопки
Prodat11.Panel6.Visible:=True;//Появление панели
Prodat11.Button16.Click;//Нажатие кнопки
end;
Prodat11.Button16.Click;//Нажатие кнопки
end;
Prodat11.Button16.Click;//Нажатие кнопки
end;
7. procedure TSerNom.FormShow – Процедура слежения за количеством товара на складе, и количествомвыбранного товара
procedureTSerNom.FormShow(Sender: TObject);
varng,mk:integer;
begin
sernom1.Label3.Visible:=True;//Появление надписи
sernom1.Label4.Visible:=True;//Появление надписи
Prodat11.Enabled:=False;//Фома активна
sernom1.Edit1.Text:='';//Вывод текста
sernom1.Edit2.Text:='1';//Вывод текста
sernom1.Label2.Caption:='Введитеколичество товара:';
Prodat11.colpoc:=2;//заданиезначения переменной
Label3.Caption:='Общееколичество товара = '+Prodat11.DBEdit8.Text;//Задание надписи
mk:=0;//Обнуление переменной
begin
for ng:=1 toDM.ADOZacaz.RecordCount do
begin
ifdm.ADOZacaz.FieldByName('№ товара').AsString=Prodat11.DBEdit1.Textthen
begin
mk:=mk+1;//Увеличениесчётчика переменной
end;
dm.ADOZacaz.Next;//Переходна следующую строку в таблице ADOZacaz
end;
kj:=StrToInt(Prodat11.DBEdit8.Text)-mk;//Заданиезначения переменной
Label4.Caption:='Количествоуже выбранного товара = '+IntToStr(mk)+', доступно = '+IntToStr(kj);//Занесение текста в надпись
end;
end;
8. procedure TSerNom.Edit2KeyPress – Ограничение вводимой информаци
procedureTSerNom.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
#13: ;//При нажатиеEnter перенос курсора
#8: ;//Стереть символслева Backspace
#145: ;//Верхний опостроф
'0'..'9': ;//Толькоанглиские булвы
' ': //Пробел
elsekey:=chr(0);//Иначе ничего
end;
end;
9. procedure TProdat11.BitBtn6Click – Выбор товара и запрос на применениеустановленной скидки
procedureTProdat11.BitBtn6Click(Sender: TObject);
varz,z1,a1,a2,v:integer;
begin
begin
ifProdat11.Edit24.Text='' then
begin
Prodat11.Edit24.Text:='0';//Занесениеинформации в текстовое поле
end;
end;
begin
ifProdat11.Edit24.Text'0' then
begin //Вывод сообщения
if MessageDlg('Оставитьскидку на товар?',
mtConfirmation, [mbYes,mbNo], 0) = mrNo then
Prodat11.Edit24.Text:='0';//Занесениеинформации в текстовое поле
end;
end;
dm.ADOZacaz.First;//Переходк первой записи в таблице ADOZacaz
a1:=0;//Обнулениепеременной
a2:=0;//Обнулениепеременной
begin
for z1:=1 toDM.ADOZacaz.RecordCount do
begin
ifdm.ADOZacaz.FieldByName('№ товара').AsString=Prodat11.DBEdit1.Textthen
begin
end;
dm.ADOZacaz.Next;//Переходк следующей записи в таблице ADOZacaz
end;
end;
begin
a2:=StrToInt(Prodat11.DBEdit8.Text);//Присвоение значения переменной
a2:=a2-a1;//Присвоениезначения переменной
if a2=0 then
begin
ShowMessage('Тoвара наскладе нет');//Вывод сообщения
end
else
begin
begin
sernom1.Show;//Открытие формы sernom1
sernom1.Label1.Visible:=True;//Появление надписи
sernom1.Edit1.Visible:=True;//Появлениетекстового поля
sernom1.Label2.Visible:=False;//Скрытие надписи
sernom1.Edit2.Visible:=False;//Скрытиетекстового поля
sernom1.Edit1.SetFocus;//Курсорв текстовом поле
Prodat11.colvtov:=1;//Присвоениезначения переменной
sernom1.BitBtn3.Visible:=True;//Появлениекнопки
end;
begin
sernom1.Show;//Открытие формы sernom1
sernom1.Label1.Visible:=False;//Скрытие надписи
sernom1.Edit1.Visible:=False;//Скрытиетекстового поля
sernom1.Label2.Visible:=True;//Появление надписи
sernom1.Edit2.Visible:=True;//Появлениетекстового поля
sernom1.BitBtn1.Enabled:=True;
sernom1.Edit2.SetFocus;//Курсор в текстовом поле
sernom1.BitBtn3.Visible:=True;//Появление кнопки
end;
end;
end;
end;
10. procedure TProdat11.BitBtn5Click – Процедура сохранения информации оосуществленной продаже и вывод гарантийного талона на печать
procedureTProdat11.BitBtn5Click(Sender: TObject);
varq,t,c,v,z,n,d,fghj:integer;
begin
ifEdit78.Text='' then
begin
DM.Pokypatel.Last;//Переходк последней записи в базе данных
DM.Pokypatel.Insert;//Добавлениестроки в базу данных
DM.Pokypatel.FieldByName('Фамилия').AsString:=Prodat11.Edit6.Text;//Занесениеинформации в базу данных
DM.Pokypatel.FieldByName('Имя').AsString:=Prodat11.Edit7.Text;//Занесениеинформации в базу данных
DM.Pokypatel.FieldByName('Отчество').AsString:=Prodat11.Edit8.Text;//Занесениеинформации в базу данных
DM.Pokypatel.FieldByName('Адрес').AsString:=Prodat11.Edit9.Text;//Занесениеинформации в базу данных
DM.Pokypatel.FieldByName('Телефон').AsString:=Prodat11.Edit10.Text;//Занесениеинформации в базу данных
DM.Pokypatel.Post;//Сохранениезанесённой информации
Edit12.Text:=IntToStr(DM.Pokypatel.FieldValues['№покупателя']);
DM.Pokypatel.Refresh;//Обновление таблицы
end;
aaa:=aaa+1;
dm.ADOZacaz.First;//Переходк первой записи в таблице ADOZacaz
for q:=1 todm.ADOZacaz.RecordCount do
begin
DM.Prodazi.Last;//Переходк последней записи в базе данных
DM.Prodazi.Insert;//Добавлениестроки в базу данных
begin
ifEdit78.Text='' then
begin
DM.Pokypatel.Last;//Переходк последней записи в базе данных
DM.Prodazi.FieldByName('№покупателя').AsString:=DM.Pokypatel.FieldValues['№ покупателя'];//Занесениеинформации в базу данных
end
else
begin
DM.Prodazi.FieldByName('№покупателя').AsString:=Edit78.Text;//Занесение информации в базу данных
end;
end;
DM.Prodazi.FieldByName('№продавца').AsString:=Prodat11.Edit11.Text;//Занесение информации в базу данных
DM.Prodazi.FieldByName('№товара').AsString:=dm.ADOZacaz.FieldValues['№ товара'];//Занесение информации вбазу данных
DM.Prodazi.FieldByName('Дата').AsString:=DateTimeToStr(Date);//Занесениеинформации в базу данных
DM.Prodazi.FieldByName('Ценапокупки').AsString:=dm.ADOZacaz.FieldValues['Стоимость'];//Занесение информациив базу данных
DM.Prodazi.FieldByName('Количество').AsString:='1';
DM.Prodazi.FieldByName('Серийныйномер').AsString:=dm.ADOZacaz.FieldValues['Идентифик_номер'];
DM.Prodazi.FieldByName('Скидка%').AsString:=dm.ADOZacaz.FieldValues['Льготы'];
DM.Prodazi.FieldByName('Общаястоимость').AsString:=dm.ADOZacaz.FieldValues['Итого'];//Занесение информации вбазу данных
DM.Prodazi.FieldByName('Гарантийныйталон').AsString:=IntToStr(aaa);
DM.Prodazi.Post;//Сохранениезанесённой информации
dm.ADOZacaz.Next;//Переходна следующую строчку
DM.Tovar1.First;//Переходк первой записи
end;
begin
dm.ADOZacaz.First;//Переходк первой записи
for n:=1 todm.ADOZacaz.RecordCount do
begin
DM.Tovar1.First;//Переходк первой записи
for d:=1 toDM.Tovar1.RecordCount do
begin
if (dm.ADOZacaz.FieldByName('№товара').AsStringdm.Tovar1.FieldByName('№товара').AsString) then
begin
DM.Tovar1.Next;//Переходк следующеё строке
end
else
begin
DM.Tovar1.Edit;//Редактированиезаписи в таблице Tovar1
DM.Tovar1.FieldByName('Количество').AsString:=IntToStr(StrToInt(DM.Tovar1.FieldByName('Количество').AsString)-1);
DM.Tovar1.Post;//Сохранениезанесённой информации
dm.Tovar1.Next;//Переходк следующеё строке
end;
end;
dm.ADOZacaz.Next;//Переходк следующеё строке
end;
end;
GroupBox2.Visible:=False;//Скрытие компонента
GroupBox1.Visible:=false;//Скрытие компонента
DBGrid1.Visible:=True;//Появление таблицы
BitBtn1.Visible:=True;//Появление кнопки
BitBtn2.Visible:=True;//Появление кнопки
BitBtn3.Visible:=True;//Появление кнопки
BitBtn4.Visible:=True;//Появление кнопки
BitBtn6.Visible:=True;//Появление кнопки
BitBtn7.Visible:=True;//Появление кнопки
Label1.Visible:=True;//Появление текста
Label2.Visible:=True;//Появление текста
Label3.Visible:=True;//Появление текста
Label4.Visible:=True;//Появление текста
Label5.Visible:=True;//Появление текста
Label6.Visible:=True;//Появление текста
Label7.Visible:=True;//Появление текста
Label8.Visible:=True;//Появление текста
DBEdit1.Visible:=True;//Появлениетекстового поля
DBEdit2.Visible:=True;//Появлениетекстового поля
DBEdit3.Visible:=True;//Появлениетекстового поля
DBEdit4.Visible:=True;//Появлениетекстового поля
DBEdit5.Visible:=True;//Появлениетекстового поля
DBEdit6.Visible:=True;//Появлениетекстового поля
DBEdit7.Visible:=True;//Появлениетекстового поля
DBEdit8.Visible:=True;//Появлениетекстового поля
ShowMessage('Товарпродан!');
Edit24.Text:='0';//Занесениеинформации в текстовое поле
Panel6.Visible:=False;//Скрытиекомпонента
BitBtn7.Visible:=False;//Скрытиекнопки
BitBtn9.Visible:=false;//Скрытиекнопки
dm.ADOQGaranti.Parameters[0].Value:=dm.Prodazi.FieldValues['Гарантийныйталон'];//Задание значения параметра
dm.ADOQGaranti.Close;//Закрытиетаблицы ADOQGaranti
dm.ADOQGaranti.Open;//Открытиетаблицы ADOQGaranti
dm.ADOQGaranti.Active:=False;//Обновлениеинформации в таблице ADOQGaranti
dm.ADOQGaranti.Active:=True;//Обновлениеинформации в таблице ADOQGaranti
begin
garanti1.QRLabel3.Caption:=inttostr(aaa);
garanti1.QuickRep1.Refresh;//Обновление компонента
garanti1.QuickRep1.Preview;//Вывод на просмотр
end;
begin
for z:=1 todm.ADOZacaz.RecordCount do
begin
dm.ADOZacaz.Delete;//Удаление записив таблице ADOZacaz
dm.ADOZacaz.Next;//Переходк следующей записи в таблице ADOZacaz
end;
end;
GroupBox7.Enabled:=True;
Button2.Enabled:=True;//Запрещениенажатия на кнопку
Button1.Enabled:=True;//Запрещениенажатия на кнопку
Button3.Enabled:=True;//Запрещениенажатия на кнопку
Button4.Enabled:=True;//Запрещениенажатия на кнопку
Button5.Enabled:=True;//Запрещениенажатия на кнопку
Button6.Enabled:=True;//Запрещениенажатия на кнопку
dm.ADOQTovar.Close;//Закрытиетаблицы ADOQTovar
dm.ADOQTovar.Open;//Открытиетаблицы ADOQTovar
Button10.Click;//Нажатиекнопки
dm.ADOQZaprosProdazi.Close;//Закрытиетаблицы ADOQZaprosProdazi
dm.ADOQZaprosProdazi.Open;//Открытиетаблицы ADOQZaprosProdazi
Button13.Click;//Нажатиекнопки
GroupBox9.Visible:=True;//Появлениекомпонента
Edit1.Text:='';//Выводтекста
Edit2.Text:='';//Выводтекста
Edit3.Text:='';//Выводтекста
Edit4.Text:='- — — — — — — — — — — -';//Вывод текста
Edit5.Text:='';//Вывод текста
end;
11. procedure TProdat11.BitBtn9Click – Процедура отказа от продажи и удалениявсей временной информации
procedureTProdat11.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 todm.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 – добавление информации о сотрудникахв базу данных
procedureTProdat11.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 – Изменение информации о сотрудниках
procedureTProdat11.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;
14. procedure TProdat11.BitBtn21Click – отмена добавления записи в таблицу«товар»
procedureTProdat11.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;
15. procedure TProdat11.BitBtn42Click – Удаление информации о осуществленнойпродаже
procedureTProdat11.BitBtn42Click(Sender: TObject);
var z:integer;
begin
dm.Prodazi.First;//Переход к первой записи в таблице Prodazi
Edit17.Text:=DBEdit29.Text;//Занесениеинформации в текстовое поле
begin
for z:=1 todm.Prodazi.RecordCount do
begin
ifEdit17.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;
16. procedure TProdat11.BitBtn48Click – Удаление записи из таблици «Заказ»
procedureTProdat11.BitBtn48Click(Sender: TObject);
begin
begin
ifdm.ADOZacaz.FieldByName('№ товара').AsString''then
begin
dm.ADOZacaz.Delete;//Удаление записииз таблицы ADOZacaz
Prodat11.BitBtn53.Click;//Нажатие кнопки
end;
begin
ifdm.ADOZacaz.FieldByName('№ товара').AsString=''then
begin
BitBtn9.Click;//Нажатие кнопки
Prodat11.Panel6.Visible:=False;//Скрытие панели
Prodat11.GroupBox8.Visible:=False;//Скрытие компонента
end;
end;
end;
Prodat11.Button16.Click;//Нажатие кнопки
end;
17. procedure TProdat11.BitBtn53Click – Расчет стоимости всего выбранноготовара
procedureTProdat11.BitBtn53Click(Sender: TObject);
varq,w:integer;
begin
w:=0;//Обнуление переменной
dm.ADOZacaz.First;//Переходк первой записии в таблице ADOZacaz
for q:=1 todm.ADOZacaz.RecordCount do
begin
w:=w+StrToInt(dm.ADOZacaz.FieldByName('Итого').AsString);//Присвоение значения переменной
dm.ADOZacaz.Next;//Переходк следующей записии в таблице ADOZacaz
end;
Prodat11.Label20.Caption:=IntToStr(w)+'рублей';//Присвоение значения надписи
end;
18. procedure TProdat11.BitBtn49Click – Отмена применения скидки
procedureTProdat11.BitBtn49Click(Sender: TObject);
varm1,m2,m3,a,d,po:integer;
begin
begin
ifProdat11.Edit24.Text='' then
begin
Prodat11.Edit24.Text:='0';//Занесениезначение в текстовое поле
end;
end;
begin
d:=StrToInt(Edit24.Text);//Задание значения переменной
if d>100then
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 div100);//Задание значения переменной
end;
end;
dm.ADOZacaz.FieldByName('Итого').AsString:=IntToStr(po);
dm.ADOZacaz.Post;//Применение информации
Prodat11.BitBtn53.Click;//Нажатие кнопки
Prodat11.Button16.Click;//Нажатие кнопки
end;
19. procedureTProdat11.Button9Click – Поиск по базе данных
procedureTProdat11.Button9Click(Sender: TObject);
begin
begin
ifEdit35.Text='' then
begin
Edit41.Text:=edit37.Text+edit33.Text+edit38.Text+ComboBox1.Text+edit39.Text+edit42.Text+edit40.Text+edit36.Text;//Занесение информации в текстовое поле
end;
end;
begin
ifEdit36.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 – Процедура формирования списка фирмизготовителей товара
procedureTProdat11.Button15Click(Sender: TObject);
vardfg,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 todm.FirmIzg.RecordCount do
begin
ifDBComboBox1.TextDBComboBox1.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 Выполнение программы
Для установки данногопрограммного обеспечения на персональный компьютер необходимо выполнитьследующие действия:
1) Поместить компактдиск с данным программным обеспечением в привод CD-ROM дисковод;
2) Скопировать нажесткий диск папку с программой
После выполнения всехвыше указанных действий, данное программное обеспечения готово к работе.
Краткая характеристикаработы данного программного продукта:
Старт программыпроисходит путем запуска файла Kompsalon.exe.
На экране появляетсязаставка программы, по истечению 5 секунд программа предлагает Вамзарегистрироваться, и на экране появляется окно „Регистрация“. Далее,для входа в саму программу, необходимо зарегистрироваться. Для этого нужно вкаждое текстовое поле ввести определённые значения. После заполнения всехнеобходимых полей регистрации, нажмите кнопку „Продолжить“. Есливведённые вами данные не совпали с уже имеющимися в программе данными, товерхней части окна „Регистрация“ выведется надпись „Данныепродавца неверны! Попробуйте повторить регистрацию“. Если же по какой либопричине вы пропустили одно из полей регистрации (оставили его пустым), данныйпрограммный продукт выведет сообщение „ПОЖАЛУЙСТО ЗАПОЛНИТЕ ВСЕ ПОЛЯ!!!“.Также данное окно позволяет при помощи кнопки „Выход“ непосредственноосуществить выход. При этом программа спросит „Вы хотите выйти изпрограммы“. При нажатии кнопки „Yes“ — программа закроется, а „No“ -
вернёт вас к окну „Регистрация“.
При правильном заполнениивсех полей окна „Регистрация“ и нажатии кнопки „Продолжить“откроется окно „Главная форма программы“. Она является главной,поскольку здесь происходят все операции. Данное окно также содержит кнопку „Выход“- идентичную кнопке „Выход“, расположенной на окне „Регистрация“.Кнопка „Справка“ открывает окно „Справка“, которое,предоставляет краткую характеристику по работе с программой. Для возврата наглавное окно программы нажмите кнопку „На главную“.
Также на главной форменаходится раздел „Выбор таблицы“, включающий в себя несколько кнопок,таких как: „Продажа товара“, „Товар“, „Сотрудники“,»Клиенты", «Продажи». При нажатии на любую из этих кнопокпоявляется подраздел, соответствующий названию нажатой кнопки, а вместе с этими поиск под выбранный раздел, благодаря которому можно быстро и удобно найтилюбую необходимую информации. Введённые данные в любом окне поиска можно быстроудалить, нажав на кнопку «Очистить», после чего в таблице будетотображена вся информация.
Если нажать на кнопку «Продажи»,то в окне главной формы программы появляется подраздел, в котором в видетаблицы отображается информация о проданном товаре. Этот подраздел содержиткнопки перехода по таблице, а также кнопку «Удалить запись», котораяудаляет запись из базы данных, и кнопку «Вывести на печать», котораяиспользуется для вывода на печать отображаемой в таблице информации.
При нажатии на кнопку «Клиенты»,появляется подраздел, который отображает в виде таблицы информацию о клиентах,которые были зарегистрированы в процессе продажи товара. Этот подраздел такжесодержит кнопки перемещения по таблице и кнопки «Изменить запись», «Удалитьзапись». При выборе «Изменить запись» текстовые полярасположенные ниже таблицы становятся активными и позволяют изменить данные,хранящиеся в них. При этом появляются кнопки «Отмена» и «Применитьизменения». «Отмена» возвращает к тем данным, которые были доизменения, а «Применить изменения» сохраняет в таблице изменённые данные.Кнопка «Удалить запись», приводит к удалению записи из таблицы.
При нажатии на кнопку «Сотрудники»появляется подраздел, который отображает в виде таблицы информацию осотрудниках (продавцах). Здесь так же, как и в других подразделах находятсякнопки перемещения по таблице. Помимо этого присутствуют кнопки «Добавитьзапись», «Удалить запись» и «Изменить запись». Как ужебыло описано выше, кнопка «Удалить запись» удаляет выбраннуюинформацию из базы данных. Кнопка «Добавить запись» позволяетдобавлять новую информацию в базу данных. При её нажатии становятся активнымитекстовые области, а информация в них пропадает. Тут же появляются кнопки «Отмена»и «Применить изменения». При выборе применения в таблицу заноситсяновая запись, а при выборе отмены таблица возвращается к своему значению донажатия кнопки «Добавить запись». Кнопка «Изменить запись»как уже было описано выше изменяет запись в базе данных.
При нажатии на кнопку «Товар»появляется подраздел, который отображает в виде таблицы информацию о товаре.Этот подраздел, как и предыдущие, содержит кнопки перемещения по таблице, атакже «Удалить запись», «Добавить запись», «Изменитьзапись» и «Вывести список заканчивающегося товара». Кнопка «Вывестисписок заканчивающегося товара» выводит на печать весь список товаров,количество которых меньше десяти единиц.
При нажатии на кнопку «Продажатовара» появляется подраздел, в котором производится выбор непосредственнонеобходимого клиенту товара. Здесь отображается таблица, хранящая информацию отоваре, и кнопки перемещения по этой таблице. Так же здесь присутствует кнопка «Выбратьтовар». При её нажатии открывается окно «Серийный номер». Оносначала отображает количество выбираемого товара на складе и количество ужевыбранного товара. Так же оно запрашивает количество выбираемого товара. Помимоэтого на нем находятся две кнопки: «Отмена» и «Продолжить».При выборе отмены данное окно закрывается, а при выборе продолжения –информация о выбираемом товаре скрывается и появляется текстовое поле, вкоторое необходимо ввести серийный номер выбранного товара. После того каквведена информация о серийном номере необходимо нажать кнопку «продолжить»и окно предложит вам веси следующий серийный номер. Если же по какой либопричине вы не ввели информацию о серийном номере изделия и нажали на кнопку «продолжить»,то программа выведет сообщение «Пожалуйста, введите серийный номер».Как только программа получит всё необходимую информацию о серийных номерах,окно «Серийный номер» закроется, а в подразделе появится таблица с выбраннымтоваром, кнопки перемещения по этой таблице и меню «Выбор товара».
Меню «Выбор товара»содержит кнопки: «Удалить товар» — удаляет выбранный товар изтаблицы; «Скидка на товар» — Задаёт скидку на выбранный товар; «Скидкана весь товар» — задаёт скидку на весь товар, который находится в таблицевыбранного товара; «Отменить скидку на товар» — отменяет скидку навыбранный товар, «Отменить скидку на весь товар» — отменяет скидку навесь товар, который находится в таблице выбранного товара. Для того, чтобызадать скидку, надо ввести в текстовое поле которое находится в меню «Выбортовара» число. Введённое число будет считаться как процентная скидка.
Помимо этого, такжепоявится информация об общей стоимости, заказанного товара. А также станут,видны кнопки «Отменить продажу» и «Закончить выбор». Кнопка«Отменить продажу» приводит к отмене всей продажи, то есть таблица свыбранным товаром очищается и становится невидимой. А кнопка «Закончитьвыбор» открывает регистрацию покупателя. Здесь программа просит ввести всюнеобходимую информацию о клиенте (покупателе, заказчике) товара. Также тутпредставлена таблица с уже зарегистрированными клиентами, и продавец можетнайти при помощи быстрого поиска информацию о любом уже зарегистрированномклиенте. Для того, чтобы не набирать данные уже зарегистрированного клиентанужно нажать на кнопку «Выбрать клиента». Для быстрой очисткитекстовых полей, в которые заносится информация о клиентах можно нажать кнопку «Ввестинового». Если же по какой то причине клиент захотел выбрать ещё один товарили отказаться от уже выбранного, то для этого существует кнопка «Отмена».При её нажатии программа снова предоставит продавцу производить основные операциис выбором необходимого товара.
После того как былавведена вся необходимая информация о покупателе нужно нажать на кнопку «Продолжить».Эта кнопка приводит к выводу итоговой информации о клиенте и продавце,осуществляемом продажу товара. На этом этапе также можно вернуться назад, квыбору товара при нажатии на кнопку «Отмена». А при нажатии на кнопку«Продать товар», происходит непосредственно сама продажа товара, приэтом программа выводит сообщение о том, что товар продан и гарантийный талон напроданный товар.
2.4 Сообщения оператору
Во время выполненияпрограммы могут выводиться следующие сообщения:
1. Если во времязаполнения регистрации было не заполнено одно или более полей и была нажатакнопка «Продолжить», то программа выводит следующее сообщение (Рис.18.1).
/>
Рисунок.18.1
2. При нажатии кнопки «Выход»на окне регистрации или главной формы программы выводится следующее сообщение(Рис.18.2).
/>
Рисунок.18.2
3. При нажатии кнопки «Удалитьзапись» на главной форме программы в любом из подразделов выводитсяследующее сообщение (Рис.18.3)
/>
Рисунок.18.3
4. При нажатии кнопки «Выбратьтовар», если на складе нет товара, то выводится следующее сообщение (Рис.18.4)
/>
Рисунок.18.4.
5. При нажатии кнопки «Продолжить»в окне программы «Серийный номер», если на складе нет такогоколичества товара, то выводится следующее сообщение (Рис.18.5)
/>
Рисунок.18.5.
6. При повторном прохождении действиязаполнения регистрации клиента программа выводит следующее сообщение (Рис.18.6)
/>
Рисунок.18.6.
7. При осуществлении продажи, посленажатия кнопки «продать товар» программа выводит следующее сообщение(Рис.18.7)
/>
Рисунок.18.7.
8. При удалении информации о продаже(Рис.18.8)
/>
Рисунок.18.8.
3. Экономическая часть
Для организации бизнес — процессов современных предприятий в настоящее время информационные технологииприобретают всё более важное значение. Информационные технологии становятся главнымфактором экономического роста информационные технологии — это совокупностьметодов, производственных процессов и программно-технических средств,объединены в технологическую цепочку, обеспечивающую сбор, обработку, вывод ираспространение информации.
Информационные технологиивключают технические и программные средства для хранения, обмена ираспространения информации.
Современные достижения вразвитии информационных технологий привели к формированию глобальнойэлектронной среды для экономической деятельности, что открыло новые возможностив области организации бизнеса. Электронная среда для экономической деятельностиприобрела название «Сетевая экономика».
Для того, чтобыпользователи узнали о компании, её товарах и услугах рекламодателя, компания размещаетна популярных и тематических сайтах или в рассылках своё рекламное обращение.
3.1 Краткое описаниепрограммного продукта и области его применения
Основными пользователями,на которых ориентирована создаваемая система (программа) являются компьютерныесалоны.
3.2 Расчёт себестоимостипрограммного продукта и выбор рекламного носителя
В таблице, приведённойниже, представлена калькуляция статей издержек для фирмы, специализирующейся наразработку программных средств.
Таблица 6.№ статьи Наименование статьи Сумма (руб.) 1. Материалы 105 2. Расходы на оплату труда 4875 3. Отчисления в единый социальный налог (26 %) 1267,5 4. Расходы на энергию 153,77 5. Амортизация 779,51 6. Расходы на отопление 313,33 7. Расходы на содержание зданий, инвентаря, АУП, и прочие расходы (данные расходы составляют 50-80% от суммы расходов на оплату труда) 2681,25 8. Всего издержек 10175,37 9. Расходы на рекламу и представительство 700 10. Полные издержки (полная себестоимость) 10940,23
При расчёте издержек следуетпредусмотреть продолжительность разработки программы (допустим в месяц илиболее)
3.2.1 Расчёт материальныхиздержек
Таблица 7.№ п/п Наименование Количество Стоимость (руб.) Сумма (руб.) 1. краска 1 30 30 2. бумага 200 0,3 60 3. cd-r 1 15 15 4. Итого 105
3.2.2 Расчёт издержек на зарплату
Таблица 8.
Категория
персонала Оклад (руб.) Зарплата за 105 часов
Премия от
з/п ( 30 %)
Итого
зарплата программист 4000 2500 750 3250 лаборант 2000 1250 375 1625 Всего зарплата 6000 3750 1125 4875
3.2.3 Отчисления в единыйсоциальный налог с ФОТ
Отчисления в единыйсоциальный налог составляют 26 % с фонда оплаты труда.
4875*26%/100%=1267,5 руб.
3.2.4 Издержки на энергию
а) потребление энергиикомпьютером — квт/ч*кол-во часов работы компьютера
Сэл.эн.ком=n*Pком*Сквт/ч,где
Сэл.эн.ком: затраты наэлектроэнергию, потребляемую компьютером
n — время, затраченное наразработку программы, составило105часов
Рком — мощность,потребляемая компьютером за 1 час.
При разработке программысоставила 0,13 квт
Сквт/ч — стоимость 1квт/ч, равна 1,45 руб.
Подставив значения вформулу, получим:
Сэл.эн.ком= 105*0,13*1,45=19,79 руб.
б) освещение кабинета:квт/ч*кол-во часов работы программиста за компьютером.
Сэл.эн.каб.=n*b*Pлам*Сквт/ч,где
Сэл.эн.каб. — затраты наэлектроэнергию для освещения кабинета (руб.)
n — количество часов,необходимых для разработки одной программы = 105
b — количество ламп вкабинете= 22
Рлам — мощность,потребляемая 1 лампочкой за 1 час.
При разработке программысоставила 0,04 квт
Сквт/ч — стоимость 1квт/ч, равна 1,45 руб.
Подставив значения вформулу, получим:
Сэл.эн.каб.= 105*22*0,04*0,04 = 133,98 руб.
Всего потреблено энергиина разработку программы:
19,79+133,98=153,77 руб.
3.2.5 Амортизацияосновных средств
а) амортизация компьютера
месячная нормаамортизации: А=годовая норма/12 мес.
Сумма аморт. комп. =А*стоимость компьютера
Сам=Аком*Ском/100%/12,где
Сам — амортизациякомпьютера
Аком — норма амортизациикомпьютера при условиях обучения (%) — 1/срок службы *100%
Ском — стоимостькомпьютера (руб.) 25000 руб.
Сам=25000*33,33%/100%/12=694,44 руб.
б) амортизациякомпьютерного кабинета:
Стоимость основных фондов(стоимость здания)=1629000 руб.
Годовая норма амортизации=2%
месячная нормаамортизации: А=годовая норма/12 мес.
Сумма аморт. здания вцелом=А*стоимость здания
Сумма аморт. здания вцелом=2/100%/12*1629000
Сумма аморт.компьютерного класса=(Сумма аморт. здания/площадь здания)*площадь класса
(2715/1500)*47=85,07 руб.
Итого амортизационныхотчислений:
Сумма амортизациикомпьютера + Сумма амортизации класса
694,44+85,07=779,51 руб.
3.2.6 Издержки наотопление рассчитываются следующим образом:
Рот=Рат.зд.*Sкл/Sзд.
Где
Рот — издержки наотопление
Рат.зд. — расходы наотопление всего здания (10000)
Sкл — площадь компьютерногокабинета (47) кв.м
Sзд — площадь всегоздания (1500) кв.м
Рот=10000*47/1500=313,33руб.
3.2.7 Прочие издержки
Прочие издержкипринимаются в объёме 50-80% от суммы з/п (Ф)
4875*55%/100%= 2681,25руб.
3.2.8 Всего издержек поразработке
2.1+2.2+2.3+2.4+2.5+2.6+2.7=105+4875+1267,5+153,77+779,51+313,33+2681,25=10175,37руб.
3.2.9 Расходы на рекламу
Для реализации рекламногообращения производитель может выбрать различные средства. например, можноразместить рекламу на популярных и тематических сайтах: баннер — прямоугольноеграфическое изображение, текстовый блок (используется как на web — сайтах, таки при рекламе в рассылках), байрики — небольшие всплывающие одновременно сзагрузкой страницы окошках, мини — сайтах, коллаж. Можно разместить рекламу нателевидении, радио, интернете, районной и областной печатях и др. Студентунеобходимо выбрать средство для размещения рекламы и рассчитать стоимостьрекламы. При осуществлении рекламы через Internet следует выбрать, создавать лисвой сайт или вставить свою страницу в уже созданный сайт.
Второй способ значительнодешевле и эффективнее. Расходы на рекламу в Internet состоят из расходов насоздание страницы на сайте и абонентской платы за Internet.
Реклама в газете:
Цена за 1 кв. см.: 10
Количество занимаемогоместа: 10
Количество выходящихномеров с рекламой: 7
Срек3=Цена за 1кв.см*Количество занимаемого места*Количество выходящих номеров
Срек3=10*10*7=700 руб.
В области примерно 4предприятий, которые могут воспользоваться этой программой. Рассчитаем затратына тиражирование.
Она складывается иззатрат на электроэнергию и затрат на оплату труда рабочего времени лаборанта.
Цена одного CD-Rсоставляет 15 рублей. Затраты на диски составят:60 рублей.
На тиражирование одногоэкземпляра программы необходимо 6 минут, следовательно, затраты наэлектроэнергию составят:
Сэл.эн.комп1=0,13*(6/60*1,45)=0,01885руб.
Сэл.эн.ком1=0,04*(6/60*1,45)=0,0058руб.
Собщ=0,01885+0,0058=0,02465 руб.
Затраты на оплату трудалаборанта составили:
Сз/п=(1250/168)*6/60=1,19руб.
Затраты на тиражирование
Стир1=1,19+0,02465=1,21руб.
Стир=1,21*4=4,86 руб.
Переменные затратысоставят:
Рпер=Стир+Сдис=4,86+60=64,86руб.
Итого,внепроизводственные затраты составят:
Рпер+Срек=64,86+700=764,86руб.
3.2.10 Определяютсяполные издержки
Сумма статей 2.8 и 2.9 изаполняется таблица №1
Сумма=10175,37+764,86=10940,23руб.
3.3 Ожидаемые результатыот внедрения (реализации) программного продукта
Предположим, что врезультате размещения рекламы, наш программный продукт готовы приобрести 4 учебныхзаведений. Следует определить договорную цену и рассчитать прибыль отреализации 4 программ (допустим, программы не требуют сопровождения).
Цену можно определить поформуле:
Ц=И+Н+НДС, где
И — издержки производстваи продажи (полная себестоимость),
Н — норма прибыли ( 4 %от издержек производства),
НДС — налог надобавленную стоимость ( 18 %),
Отпускная цена без НДС:
Ц=10940,23+(10940,23*4/100%)=11377,84руб.
Отпускная цена с учётомНДС:
Ц=10940,23+(10940,23*4/100%)+(11377,84*18)/100%=13425,85руб.
Таким образом, сумма отреализации 4 программ составит: 45511,36 руб., в том числе чистая прибыль:(11377,84*4)-64,86=45446,49руб.
ЗАКЛЮЧЕНИЕ
=
Согласно техническомузаданию была разработана информационно – справочная система продавца –консультанта компьютерного салона.
В результате выполнениядипломной работы решились следующие задачи:
исследование предметнойобласти — описаны задачи, которые решает программа, описано взаимодействиесотрудников, которые в своей работе пересекаются с инженером-исследователем, описаны информационные процессы,проходящие в предметной области;
выделение сущностей –перечислены внешние сущности, потоки и накопители данных, с указанием иописанием всех атрибутов;
построение диаграммыпотоков данных, по изученным потокам информации, концептуальной идаталогической модели – построены все необходимые для разработки ИС модели идиаграммы;
произведена нормализацияБД до максимально возможного уровня;
выбор средства реализацииклиентской части ИС — наоснове полученной инфологической модели и примерных объемов хранимой информацииобоснован выбор СУБД и языка написания клиентской части;
разработка базы данных ИСв MS Access – на основе всех моделей разработана реляционная и нормализованнаябаза данных;
Также результатомвыполнения курсовой работы явилось приложение, которое полностью решаетпоставленные задачи:
организованудобный и эргономичный интерфейс ИС таким образом, чтобы пользователь могсделать выбор для своих действий;
организованноредактирование данных и добавление новых данных в существующую нормализованнуюБД;
сохранениеданных в нормализованную БД;
выводна печать и предварительный просмотр результатов обработки данных БД;
организованпоиск по всем полям и таблицам БД;
вудобном для пользователя виде происходит выборка интересующих записей по всемполям с помощью запросов.
В данном дипломномпроекте решена задача создания информационно-справочной системы продавцакомпьютерного салона по автоматизации рабочего места продавца.
Источники, использованныепри разработке
1. В. Понамарев «Базыданных в Delphi 7. Самоучитель», СПб.: Питер,2003г.
2. С.И.Бобровский «Delphi 7. Учебный курс», СПб.: Питер,2005г.
3. Электронныйучебник «DelphiWorld», версия 5.0, 2002-2003г.
4. Т.Карпова «Базыданных: модели, разработка, реализация», СПб.: Питер, 2001г.
5. http://www.davecentral.com
6. http://www.screenshot.com
7. http://ic.krasu.ru/new/events.php3?parad-20025
8. http://rrc.karelia.ru/site/Resources/iias/
9. Г.Н.Смирнова,А.А.Сорокин, Ю.Ф.Тельнов «Проектирование экономических информационныхсистем», учебник, под ред. Ю.Ф.Тельнова. – М.; Финансы и статистика, 2003.– 512с.
10. А.Я.Архангельский «Программирование в Delphi 7» – М, ООО «Бином-Пресс», 2005г. –1152л.
11. Гофман В.Э.,Хомоменко А.Д. «Delphi6» – СПб., БХВ-Петербург, 2002. – 1152л.
12. ГОСТы19.404-79, 19.402-78, 10.505-79;
13. Электронныйучебник «Delphi v7.0 Book»;
14. Электронныйучебник «Delphi v6.0 Book»;