Автоматизация компьютерного магазина бытовой техники

  • Вид работы:
    Курсовая работа (т)
  • Предмет:
    Информационное обеспечение, программирование
  • Язык:
    Русский
    ,
    Формат файла:
    MS Word
    640,18 Кб
  • Опубликовано:
    2013-10-27
Вы можете узнать стоимость помощи в написании студенческой работы.
Помощь в написании работы, которую точно примут!

Автоматизация компьютерного магазина бытовой техники

Введение

автоматический информационный программа магазин

Программное обеспечение за полвека своего существования претерпело огромные изменения: от программ, способных выполнять только простейшие логические и арифметические операции до сложных систем управления предприятиями.

Сегодня управление предприятием без компьютера просто немыслимо. Компьютеры давно и прочно вошли в такие области управления, как бухгалтерский учет, управление складом, ассортиментом и закупками и многим другим. Однако современный бизнес требует гораздо более широкого применения информационных технологий в управлении предприятием. И чем крупнее предприятие, тем серьезнее должны быть подобные вложения.

Основная цель разрабатываемого проекта - создание информационного средства поддержки функций, выполняемых менеджером музыкального магазина.

Необходимость разработки данного проекта вызвана тем, что раньше, как правило, составлением и обработкой документов, содержащих информацию о движении товара, расчетах заработной платы и многого другого приходилось заниматься вручную. Для облегчения ручной работы многие службы, имеющие персональный компьютер, используют прикладные пакеты, содержащие электронные таблицы типа Excel (наиболее распространен в торговле), а также различные текстовые редакторы. Исследование этих программных продуктов и необходимость иметь программный инструмент, по мере возможности, полно отвечающий запросам работников магазина, явились причиной разработки настоящей информационной системы.

Внедрение такой системы позволит более конструктивно организовать хранение, поиск, учет информации, своевременную ее корректировку.

Использование данной системы должно повысить наглядность отображения информации, удобство работы при помощи выходных документов (наглядность).

 

1. Аналитический раздел


Процесс разработки основных проектных решений и подготовки соответствующей технической документации называется проектированием АИС.

Проектирование любой технической системы, осуществляется в несколько стадий:

·        Предпроектное обследование;

·        Технико-экономическое обоснование;

·        Составление технического задания;

·        Техническое проектирование;

·        Рабочее проектирование.

Прежде чем начинать проектирование, необходимо выполнить обследование объекта, для которого создается БД. Это достаточно важный этап, так как позволяет выделить характерные особенности объекта, которые следует учесть в характеристиках разрабатываемой СУБД, и которые определяют всю дальнейшую работу по проектированию

 

.1 Характеристика предметной области


Автоматизированная система - это взаимосвязанная совокупность средств, методов и персонала, используемых для хранения, обработки и выдачи информации в интересах достижения поставленной цели. Данная разработка программы является разновидностью информационной системы - организационно упорядоченная совокупность документов (или массивов документов) и информационных технологий, в том числе и с использованием средств вычислительной техники, реализующих информационные процессы. А информационные системы, в которых представление, хранение и обработка информации осуществляется с помощью вычислительной техники, называются автоматизированными, или сокращенно АИС.

Объектом автоматизации является рабочее место менеджера музыкального магазина, который контролирует поступление и продажу аудиопродукции, сколько продано товара за текущий месяц.

Исходными данными в данной системе будут являться: товарный чек (о продаже аудиопродукции), приказ о приеме на работу, покупка товара. Выходными данными будут являться: товарный чек, отчет по продажам.

 

.2 Описание и выбор инструментальных средств


При выборе информационного средства необходимо учитывать некоторые показатели, которые впоследствии могут сказаться как на работу самой программы, так и на удобство интерфейса для пользователя, который работает с этой программой. В настоящий момент практически любое информационное средство может обеспечить простоту и удобство работы, а также, что не мало важно, хороший, красивый и удобный интерфейс, поэтому на долю разработчика ложиться лишь создание, оформление и расположение соответствующих компонентов на экране монитора. По созданию программ под Windows существует несколько стандартов, к которым пользователи уже давно привыкли, т.е. расположение компонентов, комбинации соответствующих клавиш, закрытие/открытие окон и многое другое.

Например, главное меню программы располагается всегда вверху, клавиша F1 служит для вызова справки, комбинации клавиш Ctrl + x, Ctrl + c, Ctrl + v - соответствуют процедурам «Вырезать», «Копировать», «Вставить»…

Пользователь программ привыкает к этому и в новой программе он может уже лучше ориентироваться, зная, что, нажав на клавишу F1 он получит немедленную справку по этой программе. Но, к сожалению, не все разработчики действуют по единой схеме, и поэтому пользователям по неволе приходиться привыкать к новому интерфейсу.

Поэтому при выборе инструментального средства необходимо учитывать следующие критерии:

ü  Интерфейс программы должен быть удобен и понятен пользователю.

ü  База данных, в которой храниться информация пользователя, должна легко расширяться по мере поступления новых данных.

ü  Данные в базе должны сохраняться в таком виде, в котором они туда попали и не должны быть искажены.

ü  Доступ к определенным данным должны иметь те лица, которым это разрешено.

ü  База должна отвечать заданным требованиям производительности.

В настоящее время имеется множество инструментальных средств, с помощью которых разработчик может создать тот или иной программный продукт, отвечающий определенным требованиям и критериям. Это может быть Access (любой версии), С++, Delphi, HTML, FoxPro, Visual Basic… Рассмотрим некоторые из них.

 

.2.1 Access

Популярная программа, которая входит в пакет Microsoft Office, позволяющая создавать базы данных и управлять ими. Помимо всего прочего в ней присутствует язык запросов SQL и Visual Basic, что позволяет расширить возможности по созданию, взаимодействию и работе различных баз данных. рассчитан как на опытных пользователей, так и на новичков. Удобный интерфейс программы позволит создавать даже самым неопытным, мощные БД, с помощью мастера или конструктора, а с помощью построителя отчетов можно создать отчет по своей базе.

Когда не хватает функциональности визуальных средств пользователи Access могут обратиться к созданию процедур и функций.

При этом как в макрокомандах можно использовать вызовы функций, так и из кода процедур и функций можно выполнять макрокоманды.

 

.2.2 Delphi

Это комбинация нескольких важнейших технологий:

1.      Высокопроизводительный компилятор в машинный код

2.      Объектно-ориентированное программирование

3.      Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов

.        Масштабируемые средства для построения баз данных

. Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре “клиент-сервер”. Этот компилятор в настоящее время является самым быстрым в мире, его скорость компиляции составляет свыше 120 тысяч строк в минуту на компьютере 486DX33. Он предлагает легкость разработки и быстрое время проверки готового программного блока, характерного для языков четвертого поколения (4GL) и в то же время обеспечивает качество кода, характерного для компилятора 3GL. Кроме того, Delphi обеспечивает быструю разработку без необходимости писать вставки на Си или ручного написания кода (хотя это возможно).

В процессе построения приложения разработчик выбирает из палитры компонентов готовые компоненты как художник, делающий крупные мазки кистью. Еще до компиляции он видит результаты своей работы - после подключения к источнику данных их можно видеть отображенными на форме, можно перемещаться по данным, представлять их в том или ином виде. В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции мы получаем код, который исполняется в 10-20 раз быстрее, чем то же самое, сделанное при помощи интерпретатора. Кроме того, компилятор компилятору рознь. В Delphi компиляция производится непосредственно в родной машинный код. Хотя существуют компиляторы, превращающие программу в так называемый p-код, который затем интерпретируется виртуальной p-машиной. Это не может не сказаться на фактическом быстродействии готового приложения.

. Это совершенно новый подход к построению сложных (и не очень сложных) программ и систем. В объектно-ориентированном программировании и проектировании главной, отправной точкой является не процедура, не действие, а объект. Такой подход представляется достаточно естественным, поскольку в реальном мире мы имеем дело именно с объектами (людьми, предметами, техническими устройствами), взаимодействующими друг с другом. Взаимодействие пользователя с компьютерной программой - это тоже взаимодействие двух объектов - программы и человека, которые обмениваются друг с другом определенными сообщениями. Прикладная программа, построенная по принципам объектной ориентации - это совокупность объектов и способов их взаимодействия. Отдельным объектом при таком подходе во многих случаях можно считать пользователя программы. Обмен между объектами происходит посредством сообщений.

. Среда Delphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений (RAD - rapid application development), поддерживающей разработку пользовательского интерфейса и подключение к корпоративным базам данных. VCL - библиотека визуальных компонентов, включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE. Единственное, что можно поставить в вину Delphi, это то, что готовых компонентов, поставляемых Borland, могло бы быть и больше. Однако, разработки других фирм, а также свободно распространяемые программистами freeware-компоненты уже восполнили этот недостаток.

. Объекты БД в Delphi основаны на SQL и включают в себя полную мощь Borland Database Engine. В состав Delphi также включен Borland SQL Link, поэтому доступ к СУБД Oracle, Sybase, Informix и InterBase происходит с высокой эффективностью. Кроме того, Delphi включает в себя локальный сервер Interbase для того, чтобы можно было разработать расширяемые на любые внешние SQL-сервера приложения в офлайновом режиме. Разработчик в среде Delphi, проектирующий информационную систему для локальной машины (к примеру, небольшую систему учета медицинских карточек для одного компьютера), может использовать для хранения информации файлы формата .dbf (как в dBase или Clipper) или .db (Paradox). Если же он будет использовать локальный InterBase for Windows 4.0 (это локальный SQL-сервер, входящий в поставку), то его приложение безо всяких изменений будет работать и в составе большой системы с архитектурой клиент-сервер.

 

.2.3 Visual Basic

Visual Basic является универсальным средством программирования, однако рассматривать его возможности только с точки зрения создания приложений по обработке данных нельзя.

В отличие от большинства пакетов программ Visual Basic не имеет главного окна, объединяющего все остальные элементы интерфейса разработчика.

Каждый элемент Visual Basic имеет свое независимое окно, которое может быть убрано или расположено независимо от других в любом месте экрана. Основные возможности Visual Basic, применяемые в разработке приложений для обработки информации, могут быть реализованы благодаря наличию в нем объектов для доступа к данным - Data Access Object (DАО), 32-разрядного процессора данных- JET 3.0 и предназначенных специально для работы с данными элементов управления.

Процессор данных в Visual Basic поддерживает все стандартные операции по созданию, изменению и удалению таблиц, индексов и запросов.

Формат БД процессора данных Visual Basic соответствует формату Access. JET 3.0 также обеспечивает поддержку целостности и проверку вводимых и изменяемых данных на уровне полей и записей. Для изменения данных JET 3.0 позволяет использовать язык SQL.

Для разработки данной программы выбрана среда разработки DELPHI 6. Выбор данного средства для создания программы основан на том, что она (среда) позволяет создавать схожие по управлению, интерфейсу и удобству программы под Windows 9.x. И пользователь, работающий в любой программе написанной для Windows 9.x (Microsoft Office, да и сам Windows), уже имеет некоторые навыки работы с ними, и поэтому у него не возникнет никаких трудностей с освоением этой программы. К тому же данная среда разработки позволяет создавать в программах такой легкий и воспринимаемый интерфейс, что с ним может справиться даже начинающий пользователь.

Почему?

 

.3 Постановка комплекса задач системы


Исходя из анализа предметной области, определим следующие задачи системы:

1.      Информация о Сотрудниках/ поставщиках товара;

2.      Информация о продажах товара;

.        Учет движения товара на складе (поступление, продажа);

Задача «Информация о Сотрудниках/Поставщиках товара»

База содержит информацию о работниках (продавцах, Директорах и.т.д.) и Поставщиках (Данные: Адрес, телефон, поставляемая продукция, оптовая закупка) - это всё учитывается и наглядно изображается на графиках.

Задача «Информация о продажах товара»

При продаже товара необходимо учитывать следующее:

1.      Есть ли на складе данный товар в нужном количестве.

2.      Предусмотрена возможность вывода на печать чека заказа.

.        Дата в таблице устанавливается системная.

Задача «Учёт движения товара на складе»

При поступлении товара на склад должны учитывать, от какого поставщика пришел товар. Поэтому здесь ведутся две таблицы контроля - это учет поставщиков (кто поставляет данный товар) и склад поступления товара

При учете поставщиков должны выполняться следующие задачи:

1.      Добавление информации о новом поставщике;

2.      Удаление сведений о поставщике (если магазин больше с данным поставщиком не сотрудничает).

При учете поступления товара в таблице находятся данные о поставщике, о количестве, о цене товара).

.4 Структурная схема функционирования системы

Рисунок 1 - Схема функционирования системы

Технологический процесс функционирования, представленный в виде схемы, показывает решение, комплекса задач Сотрудником магазина в автоматизированной системе, взаимосвязь совокупности входных и выходных документов и лиц, от которых и к которым поступает обрабатываемая информация (рис. 1).

Вместе с товаром от поставщиков приходит сопроводительная документация (накладная), на основании которой в систему вводится информация о поступлении товара. Наряду с этим после продажи программой фиксируется убытие товара со склада.

1)      База данных «Компьютерный магазин», состоящая из взаимосвязанных таблиц:

a)      Sotrudniki.db - содержит всю информацию о сотрудниках магазина

b)      Prodavci.db - содержит информацию о продавцах.

c)       Arh_prodazha.db - содержит информацию какой прдавец продал товара, о проданном товаре.

d)      Postavhiki.db- содержит информацию о поставщиках, с которыми сотрудничает магазин

e)       Sklad.db - содержит информацию о количестве товара на складе.

Модульная схема

Элементы управления для ввода и отображения информации

Компонент

Описание

Свойство

Для чего использовалось

Edit

Текстовое поле ввода

Color

Изменение цвета компонента



Text

Текстовое значение хранящиеся в компоненте



Enable

Включение/Отключение компонента

Lable

Однострочный текстовый компонент

Caption

Текстовое значение хранящиеся в компоненте



Font

Параметры шрифта компонента

DBChart

Компонент для построения диаграмм

DataSource

Связь с компонентом DataSource



Series

Настойка параметров диаграммы



Legend

Настойка параметров легенды

DBGrid1

Компонент для показа таблиц

Color

Цвет всех ячеек



FixedColor

Цвет фиксированных ячеек



DataSource

Связь с компонентом DataSource



ReadOnly

Запрет на редактирование вручную

Table

Таблица BDE

Active

Включение таблицы



AutoRefresh

Вкл/Выкл автоматическое обновление



TableName

Имя файла таблицы на жестком диске



Filter

 Условие фильтра



Filtred

Включение фильтра



FilterOptions

 Дополнительные опции фильтра

DataSource


DataSet

Свойства связанной таблицы

BDLable DBEdit DBComboBox Компоненты связи с полями  DataSource Связь с компонентом DataSource    DataField Поля связи с таблицей  DateTimePicker1  Компонент содержащий дату и время Date Запись даты в компоненте    Time Запись времени в компоненте  Query Компонент SQL запросов Active Включение компонента    AutoRefresh Вкл/Выкл автоматическое обновление    DataSource Связь с компонентом DataSource    Filter  Условие фильтра    Filterd Включение фильтра    SQL Текст запроса SQL  

Для создания программы использовались следующие компоненты Delphi 7:

2.2 Описание структуры и интерфейса программы


Интерфейс пользователя построен на основе стандартного Windows-интерфейса (окна, меню, экранные формы, кнопки). Данный тип интерфейса является наиболее удобным для пользователя, так как предоставляет стандартное оформление, что позволяет пользователю быстро сориентироваться и сэкономить время в понимании программы.

Ключевые фразы на кнопках максимально приближены к прикладной области пользователя, поэтому это не должно привести его в заблуждение.

 

.2.1 Модульная схема



Пояснения к модульной схеме:

Form2 - главная форма, с которой происходит основная часть работы всей программы. С главной формы вы можете прейте на форму1 и форму3.

Form1 -содержит информацию о сотрудниках, продавцах, архиве продаж. Наглядный вид на графике, в таблице. Оснащена поиском, фильтрацией, отчётом по продажам, также в таблице архив продаж можно посмотреть оставшееся количество товара на складе.

Form3 - содержит данные о Поставщиках (Фамилия, адрес, телефон), о складе (наименование товара, количество, цена с учётом скидки).


2.2.2 Элементы управления для ввода и отображения информации

Для ввода информации используются следующие элементы управления.

Форма

Представляет собой окно Windows, в котором расположены различные элементы управления, предназначенные для отображения, ввода и корректировки информации. Кнопки, расположенные в правом верхнем углу формы вызывают действия с формой: свернуть, развернуть, закрыть форму.

Строка ввода


Представляет собой текстовый редактор, позволяющий вводить одну строку информации. Вы можете просто набрать нужную строку или скопировать ее через буфер обмена.

При вводе работают следующие комбинации клавиш:+Insert, Ctrl+С - скопировать выделенный фрагмент в буфер Shift+Insert, Ctrl+V - вставить фрагмент из буфера обмена+Del - вырезать объект.

Ввод информации в таблицу

Ввод данных в таблицы осуществляется с помощью Прописания Данных о сотрудниках (Editn.text), при нажатии кнопки (Buttonn - «Заполнить таблицу» ).

Кнопка

Кнопки предназначены для активизации каких-либо действий, например открытия или закрытия окна, расчет и т.д. Кнопки могут иметь различную прямоугольную форму:

                  

Переключатель с зависимой фиксацией

Переключатель с зависимой фиксацией, также называют кнопкой выбора. Соответствующие элементы управления отображаются в виде круга с текстовой надписью. Кнопки выбора обычно располагаются по отдельным группам, визуально выделенным на форме. Выбор переключателя является взаимоисключающим, то есть при выборе одного переключателя другие становятся невыбранными.


2.2.3 Диалог пользователя с системой

В случае неправильных действий пользователя предусматриваются сообщения об ошибках с целью стабильного функционирования программы. В программе использовались следующие сообщения об ошибках:

. Если пользователь продал последнюю единицу товара, то выходит соответствующее сообщение, после чего запись об этом товаре удаляется из таблицы:


2.      Если пользователь неправильно ввёл пароль при входе в Базу «Сотрудники» или «Поставщики» на экран выводится следующее сообщение:


При удалении сотрудника из базы выводится сообщение:

 

.3 Инструкция по работе с системой

 

.3.1 Установка и запуск программы

Программа «Автоматизация компьютерного магазина бытовой техники» разработана для IBM PC/AT совместимых компьютеров с процессором i486 и выше и для успешного функционирования требует:

ü  установленную операционную систему, совместимую с Microsoft Windows 95, 98, Me или Windows NT (Windows NT AS/WS версии 4.0, Windows 2000, Windows XP).

ü  не менее 6 Мб свободного пространства на диске для установки программы без учета объема вводимых данных, плюс место на диске необходимое для ввода данных в таблицы и создания новых таблиц баз данных не менее 10 Кб на одну таблицу;

ü  не менее 64 Мб оперативной памяти;

ü  установленный BDE Administrator совместно с Database Desktop.

Для установки программы на Ваш компьютер запустите файл SETUP.EXE, находящийся на CD-диске. Запуск данного файла осуществляется двойным щелчком мыши на него. Далее следуйте указаниям программы.

2.3.2 Руководство пользователя по работе с программой

После запуска программы появляется главная форма, с которой и происходит вся основная работа.

На этой форме пользователь выбирает базу «Сотрудники» или «Поставщики», данные разделы Закрыты паролем, для сохранения конфиденциальности. Можно воспользоваться справкой, нажав на клавишу F1 - будут описаны все разделы и таблицы.

. В Разделе «Сотрудники», таблица «Сотрудники» мы видим:

Ввод данных, Фильтрацию, График (О з/п в зависимости от должности).

Если сотрудник занимает должность Продавца, при нажатии на + мы заносим его информацию в «Продавцы»

В таблице «Продавцы» содержит информацию:

Код продавца, ФИО, Телефон.

Поиск по фамилии. При продаже какого-либо товара, необходимо выделить продавца и перейти на вкладу «Архив продаж».

В таблице «Архив продаж»:

Информация:

·        О проданном товаре.

·        Об остатке товара на складе.

·        Лидеры продаж (изображены на графике)

. В разделе «Поставщики, в таблице «Поставщики» и «СклаД» мы видим информацию:

·        О поставщиках

·        О цене товара

Информация о продаже, о поставке товара выводится на печать при нажатии кнопки «Вывести на печать».

Удобная «Справка», расположенная на главной форме поможет разобраться в программе.

Экспериментальный раздел


№ п/п

Рассматриваемый случай

Действие

Результат

По факту

1

2

3


4

1.

«О сотрудниках»

OnClick

Открытие формы первой.


2.

«О поставщиках»

OnClick

Открытие формы третьей.


3.

Кнопка «Наличие на складе»

OnClick

Открытие третьей формы


4.

Кнопка «На главную»

OnClick

Возврат на главную форму.


5.

Кнопка «Поиск»

OnClick

Осуществление поиска по заданным критериям

Кнопка «Ввод данных»

OnClick

Ввод данных в таблицу и Расчет суммы при покупки товара


7.

Кнопка «Выбить чек»

OnClick

Вывод отчета о купленном товаре.


8.

Кнопка «Добавить»

OnClick

Добавление товара в таблицу


9.

«По наименованию товара»

OnClick

Поиск товара по введенному названию



3. Листинг программы

Unit2;

var: TForm2;Unit1, Unit3, Unit4;

{$R *.dfm}TForm2.Button2Click(Sender: TObject);MessageDlg('Для входа в Базу "Сотрудники", необходимо ввести пароль!',mtInformation,[mbYes,mbNo],0)=mrYes.Visible:=true;;TForm2.Button3Click(Sender: TObject);MessageDlg('Выйти из программы?',mtConfirmation,[mbYes,mbNo],0)=mrYes.close;;TForm2.Timer1Timer(Sender: TObject);.Caption:=FormatDateTime('dd mmmm yyyyyy "г." ', Now());;TForm2.N4Click(Sender: TObject);;;TForm2.Button4Click(Sender: TObject);a:string;,x:integer;.Visible:=true;:=1000000;i := 1 to x do progressbar1.Position:=Round(100*i/x);.Visible:=true;.Visible:=True;:='111';edit1.Text<>a then('Проверьте правильность пароля!',mtError,[mbOk],0);.Visible:=False;.Hide;.show;.Clear;.Visible:=False;.Visible:=False;;;TForm2.Edit1Change(Sender: TObject);.Visible:=true;;TForm2.Button1Click(Sender: TObject);MessageDlg('Для входа в Базу "Поставщики", необходимо ввести пароль!',mtInformation,[mbYes,mbNo],0)=mrYes.Visible:=true;;TForm2.Edit2Change(Sender: TObject);.Visible:=true;;TForm2.Button5Click(Sender: TObject);b:String;,x:integer;.Visible:=True;:='222';.Visible:=true;:=1000000;i := 1 to x do progressbar1.Position:=Round(100*i/x);.Visible:=true;edit2.Text<>b then('Проверьте правильность пароля!',mtError,[mbOk],0);.Hide;.Visible:=False;.show;.Clear;.Visible:=False;.Visible:=False;;;TForm2.N1Click(Sender: TObject);.HelpCommand(HELP_CONTENTS,0);;.

unit Unit1;

var: TForm1;,s:integer;TForm1.RadioButton2Click(Sender: TObject);edit1.Text='' then('Введите фамилию!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Fam_sotr=''' + edit1.Text+'*''';;TForm1.RadioButton3Click(Sender: TObject);.Filtered:=false;;TForm1.RadioButton5Click(Sender: TObject);ComboBox1.Text='' then('Выберите Должность!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Dolznost=''' + ComboBox1.Text+'*''';;TForm1.RadioButton6Click(Sender: TObject);.Filtered:=false;;TForm1.RadioButton7Click(Sender: TObject);Edit2.Text=''then('Введите диапазон!',mtinformation, [mbok],0).Filtered:=true;.Filter:='zp>'+Edit2.Text+'and zp<'+Edit3.Text;;TForm1.RadioButton8Click(Sender: TObject);.Filtered:=false;;TForm1.Button1Click(Sender: TObject);MessageDlg('Продолжить ввод данных?',mtinformation,[mbYes,mbNo],0)=mrYes.Append;.FieldByName('Fam_sotr').AsString:=Edit4.Text;.FieldByName('Imya').AsString:=Edit5.Text;.FieldByName('Otchestvo').AsString:=Edit7.Text;.FieldByName('Dolznost').AsString:=ComboBox3.Text;.FieldByName('Zp').AsString:=Edit6.Text;.FieldByName('Adress').AsString:=Edit16.Text;.FieldByName('Telephone').AsString:=Edit17.Text;.FieldByName('Date_priema').AsString:= datetostr(DateTimePicker1.Date);.Post;;;TForm1.Button2Click(Sender: TObject);MessageDlg('Удалить запись?',mtWarning,[mbYes,mbNo],0)=mrYesTable1.Delete;;TForm1.N15Click(Sender: TObject);.Table3.Filtered:=false;.Hide;.Show;;TForm1.N16Click(Sender: TObject);.HelpCommand(HELP_CONTENTS,0);;TForm1.N9Click(Sender: TObject);;;TForm1.Button3Click(Sender: TObject);,b,c, k,o,l:integer;:=strtoint(edit10.text);:=strtoint(SpinEdit1.text);:=a-b;.Table3.Edit;.Table3.FieldByName('Kol_vo_tov').AsString:=inttostr(c);.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;.Table3.Post;edit10.text<'0' then('Невозможно"!',mtinformation, [mbok],0);edit10.text='0' then('Больше нету"!',mtinformation, [mbok],0).Append;.FieldByName('kod').AsInteger:=SpinEdit2.value;.FieldByName('Imya').AsString:=DBEdit2.Text;.FieldByName('Otchestvo').AsString:=DBEdit3.Text;.FieldByName('Fam_sotr').AsString:=DBEdit1.Text;.FieldByName('Naim_tov').AsString:=ComboBox2.Text;.FieldByName('Kol_vo'). AsString:=SpinEdit1.text;.FieldByName('Summa_stoim').AsString:=Edit9.Text;.FieldByName('Date_prod').AsString:= datetostr(DateTimePicker2.Date);:=Table2.FieldByName('Kol_vo').AsInteger;:=Table2.FieldByName('Summa_stoim').AsInteger;.FieldByName('Summa').AsInteger:=k*o;.Post;.TabIndex:=3;.Append;.FieldByName('Fam_sotr').AsString:=DBEdit11.Text;.FieldByName('Imya').AsString:=DBEdit12.Text;.FieldByName('Otchestvo').AsString:=DBEdit13.Text;.FieldByName('Date_prod').AsString:=DBEdit14.Text;.FieldByName('Naim_tov').AsString:=DBEdit15.Text;.FieldByName('Kol_vo').AsString:=DBEdit16.Text;.FieldByName('Summa_stoim').AsString:=DBEdit17.Text;.FieldByName('Summa').AsString:=DBEdit18.Text;.Post;MessageDlg('Вывести на печать?',mtconfirmation,[mbYes,mbNo],0)=mrYes.Preview;.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;edit10.text='0' then('Больше нету"!',mtinformation, [mbok],0);.dataset:=table2;.Active:=false;.open;;;;TForm1.Button4Click(Sender: TObject);MessageDlg('Удалить запись?',mtconfirmation,[mbYes,mbNo],0)=mrYesTable2.Delete;.Active:=True;.dataset:=table2;.Active:=false;.open;;TForm1.Button5Click(Sender: TObject);,b,c, k,o,l:integer;:=strtoint(edit10.text);:=strtoint(SpinEdit1.text);:=a-b;.Table3.Edit;.Table3.FieldByName('Kol_vo_tov').AsString:=inttostr(c);.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;.Table3.Post;edit10.text<'0' then('Невозможно"!',mtinformation, [mbok],0);edit10.text='0' then('Больше нету"!',mtinformation, [mbok],0).Edit;.FieldByName('kod').AsInteger:=SpinEdit2.value;.FieldByName('Imya').AsString:=DBEdit2.Text;.FieldByName('Otchestvo').AsString:=DBEdit3.Text;.FieldByName('Fam_sotr').AsString:=DBEdit1.Text;.FieldByName('Naim_tov').AsString:=ComboBox2.Text;.FieldByName('Kol_vo'). AsString:=SpinEdit1.text;.FieldByName('Summa_stoim').AsString:=Edit9.Text;.FieldByName('Date_prod').AsString:= datetostr(DateTimePicker2.Date);:=Table2.FieldByName('Kol_vo').AsInteger;:=Table2.FieldByName('Summa_stoim').AsInteger;.FieldByName('Summa').AsInteger:=k*o;.Post;.TabIndex:=3;.Edit;.FieldByName('Fam_sotr').AsString:=DBEdit11.Text;.FieldByName('Imya').AsString:=DBEdit12.Text;.FieldByName('Otchestvo').AsString:=DBEdit13.Text;.FieldByName('Date_prod').AsString:=DBEdit14.Text;.FieldByName('Naim_tov').AsString:=DBEdit15.Text;.FieldByName('Kol_vo').AsString:=DBEdit16.Text;.FieldByName('Summa_stoim').AsString:=DBEdit17.Text;.FieldByName('Summa').AsString:=DBEdit18.Text;.Post;MessageDlg('Вывести на печать?',mtconfirmation,[mbYes,mbNo],0)=mrYes.Preview;.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;edit10.text='0' then('Больше нету"!',mtinformation, [mbok],0);.dataset:=table2;.Active:=false;.open;;;;TForm1.Button6Click(Sender: TObject);MessageDlg('Редактировать данные?',mtinformation,[mbYes,mbNo],0)=mrYesDBEdit21.Text='' then('',mtinformation, [mbok],0).Filtered:=true;.Filter:='Fam_prod=''' + DBEdit21.Text+'*''';DBEdit20.Text='' then('',mtinformation, [mbok],0).Filtered:=true;.Filter:='Imya=''' + DBEdit20.Text+'*''';.Edit;.FieldByName('Fam_sotr').AsString:=Edit4.Text;.FieldByName('Imya').AsString:=Edit5.Text;.FieldByName('Otchestvo').AsString:=Edit7.Text;.FieldByName('Dolznost').AsString:=ComboBox3.Text;.FieldByName('Zp').AsString:=Edit6.Text;.FieldByName('Adress').AsString:=Edit16.Text;.FieldByName('Telephone').AsString:=Edit17.Text;.FieldByName('Date_priema').AsString:= datetostr(DateTimePicker1.Date);MessageDlg('Редактировать данные?',mtinformation,[mbYes,mbNo],0)=mrno then.Edit ;.FieldByName('Fam_prod').AsString:=DBEdit4.Text ;.FieldByName('Otchestvo').AsString:=DBEdit5.Text ;.FieldByName('Imya').AsString:=DBEdit6.Text ;.FieldByName('Dolznost').AsString:=DBComboBox1.Text ;.FieldByName('ZP').AsString:=DBEdit7.Text ;.FieldByName('Address').AsString:=DBEdit9.Text ;.FieldByName('Telephone').AsString:=DBEdit10.Text ;.FieldByName('Date_priema').AsString:=DBEdit8.Text ;.Post;.Post;.Filtered:=false;;.dataset:=table2;.Active:=false;.open;;TForm1.N4Click(Sender: TObject);.HelpCommand(HELP_CONTENTS,0);;TForm1.FormCreate(Sender: TObject);.DataSet:=table1;.Active:= true;;TForm1.RadioButton1Click(Sender: TObject);ComboBox4.Text='' then

MessageDlg('Выберите из списка наименование товара!',mtinformation, [mbok],0)

else.Filtered:=true;.Filter:='Naim_tov=''' + ComboBox4.Text+'*''';;TForm1.RadioButton9Click(Sender: TObject);.Filtered:=false;;TForm1.N1Click(Sender: TObject);.Show;;TForm1.Button7Click(Sender: TObject);MessageDlg('Вывести на печать?',mtconfirmation,[mbYes,mbNo],0)=mrYes.Preview;;TForm1.Button11Click(Sender: TObject);.Append;.FieldByName('Fam_prod').AsString:=DBEdit4.Text;.FieldByName('Otchestvo').AsString:=DBEdit5.Text;.FieldByName('Imya').AsString:=DBEdit6.Text;.FieldByName('Dolznost').AsString:=DBComboBox1.Text;.FieldByName('ZP').AsString:=DBEdit7.Text;.FieldByName('Address').AsString:=DBEdit9.Text;.FieldByName('Telephone').AsString:=DBEdit10.Text;.FieldByName('Date_priema').AsString:=DBEdit8.Text;.Post;('Данные занесены в таблицу "Продавцы"!',mtinformation, [mbok],0);TForm1.Button8Click(Sender: TObject);MessageDlg('Удалить запись?',mtWarning,[mbYes,mbNo],0)=mrYesTable4.Delete;;TForm1.Button9Click(Sender: TObject);edit20.Text='' then('Введите фамилию!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Fam_prod=''' + edit20.Text+'*''';;TForm1.Button10Click(Sender: TObject);ComboBox5.Text='' then('Выберите Должность!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Dolznost=''' + ComboBox5.Text+'*''';;TForm1.Button12Click(Sender: TObject);.Filtered:=false;;TForm1.Button13Click(Sender: TObject);.TabIndex:=3;.Append;.FieldByName('Fam_sotr').AsString:=DBEdit11.Text;.FieldByName('Imya').AsString:=DBEdit12.Text;.FieldByName('Otchestvo').AsString:=DBEdit13.Text;.FieldByName('Date_prod').AsString:=DBEdit14.Text;.FieldByName('Naim_tov').AsString:=DBEdit15.Text;.FieldByName('Kol_vo').AsString:=DBEdit16.Text;.FieldByName('Summa_stoim').AsString:=DBEdit17.Text;.FieldByName('Summa').AsString:=DBEdit18.Text;.Post;MessageDlg('Вывести на печать?',mtconfirmation,[mbYes,mbNo],0)=mrYes.Preview;;TForm1.Button14Click(Sender: TObject);DBEdit19.Text='' then('',mtinformation, [mbok],0).Filtered:=true;.Filter:='Fam_prod=''' + DBEdit19.Text+'*''';DBEdit20.Text='' then('',mtinformation, [mbok],0).Filtered:=true;.Filter:='Imya=''' + DBEdit20.Text+'*''';MessageDlg('Удалить продавца?',mtWarning,[mbYes,mbNo],0)=mrYes.Delete;.Filtered:=false;;TForm1.RadioButton4Click(Sender: TObject);.Table3.Filtered:=true;.table3.Filter:='Naim_tov=''' + ComboBox2.Text+'*''';.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;;TForm1.Button15Click(Sender: TObject);.Table3.Filtered:=true;.table3.Filter:='Naim_tov=''' + ComboBox2.Text+'*''';.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;;TForm1.Button16Click(Sender: TObject);.value:=table2.FieldByName('kod').AsInteger;.Text:=Table2.FieldByName('Naim_tov').AsString;.text:=Table2.FieldByName('Kol_vo').Asstring;.Table3.Filtered:=true;.table3.Filter:='Naim_tov=''' + ComboBox2.Text+'*''';.Text:=form3.Table3.FieldByName('Kol_vo_tov').AsString;;TForm1.RadioButton10Click(Sender: TObject);edit8.Text='' then('Введите фамилию!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Fam_sotr=''' + edit8.Text+'*''';;TForm1.Timer1Timer(Sender: TObject);.Caption:=FormatDateTime('dd mmmm yyyyyy "г." ', Now());;TForm1.Button17Click(Sender: TObject);.Text:=Table1.FieldByName('Fam_sotr').AsString;.Text:=Table1.FieldByName('Imya').AsString;.Text:=Table1.FieldByName('Otchestvo').AsString;.Text:=Table1.FieldByName('Dolznost').AsString;.Text:=Table1.FieldByName('Zp').AsString;.Text:=Table1.FieldByName('Adress').AsString;.Text:=Table1.FieldByName('Telephone').AsString;;.

unit Unit3;

procedure TForm3.Button1Click(Sender: TObject);MessageDlg('Продолжить ввод данных?',mtinformation,[mbYes,mbNo],0)=mrYes.Append;.FieldByName('Nazvamie_org').AsString:=Edit2.Text;.FieldByName('Naim_tov').AsString:=ComboBox1.Text;.FieldByName('Fam_post').AsString:=Edit7.Text;.FieldByName('Imya').AsString:=Edit8.Text;.FieldByName('Otchestvo').AsString:=Edit9.Text;.FieldByName('Address').AsString:=Edit3.Text;.FieldByName('Telephone').AsString:=Edit4.Text;.Post;;;TForm3.Button2Click(Sender: TObject);MessageDlg('Удалить запись?',mtconfirmation,[mbYes,mbNo],0)=mrYesTable1.Delete;;TForm3.RadioButton1Click(Sender: TObject);edit1.Text='' then('Введите фамилию!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Fam_post=''' + edit1.Text+'*''';;TForm3.RadioButton2Click(Sender: TObject);.Filtered:=false;;TForm3.RadioButton3Click(Sender: TObject);ComboBox2.Text='' then('Введите наименование!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Naim_tov=''' + ComboBox2.Text+'*''';;TForm3.RadioButton4Click(Sender: TObject);.Filtered:=false;;TForm3.N3Click(Sender: TObject);.Show;;TForm3.N2Click(Sender: TObject);.close;;TForm3.Button3Click(Sender: TObject);MessageDlg('Продолжить ввод данных?',mtinformation,[mbYes,mbNo],0)=mrYes.Append;.FieldByName('Naim_tov').AsString:=DBComboBox1.Text;.FieldByName('Cena_za_sht').AsString:=Edit5.Text;.FieldByName('Skidka').AsString:=Edit6.Text;.FieldByName('Kol_vo_tov').AsString:=Spinedit1.Text;.FieldByName('Date_postavk').AsString:= datetostr(DateTimePicker1.Date);:=Table3.FieldByName('Cena_za_sht').asinteger;:=Table3.FieldByName('Skidka').AsInteger;:=Table3.FieldByName('Kol_vo_tov').AsInteger;:=a*b;:=s div 100;:=a-s;.FieldByName('CenaSoSkidkoy').asinteger:=s;.FieldByName('Kol').asinteger:=s*c;MessageDlg('Вывести на печать?',mtinformation,[mbYes,mbNo],0)=mrYes.Preview;;.post;;TForm3.Button4Click(Sender: TObject);MessageDlg('Удалить запись?',mtconfirmation,[mbYes,mbNo],0)=mrYesTable3.Delete;;TForm3.Button5Click(Sender: TObject);MessageDlg('Продолжить ввод данных?',mtinformation,[mbYes,mbNo],0)=mrYes.Edit;.FieldByName('Naim_tov').AsString:=DBComboBox1.Text;.FieldByName('Cena_za_sht').AsString:=Edit5.Text;.FieldByName('Skidka').AsString:=Edit6.Text;.FieldByName('Kol_vo_tov').AsString:=Spinedit1.Text;.FieldByName('Date_postavk').AsString:= datetostr(DateTimePicker1.Date);:=Table3.FieldByName('Cena_za_sht').asinteger;:=Table3.FieldByName('Skidka').AsInteger;:=Table3.FieldByName('Kol_vo_tov').AsInteger;:=a*b;:=s div 100;:=a-s;.FieldByName('CenaSoSkidkoy').asinteger:=s;.FieldByName('Kol').asinteger:=s*c;MessageDlg('Вывести на печать?',mtinformation,[mbYes,mbNo],0)=mrYes.Preview;;.post;;TForm3.Button6Click(Sender: TObject);MessageDlg('Редактировать данные?',mtinformation,[mbYes,mbNo],0)=mrYes.edit;.FieldByName('Nazvamie_org').AsString:=Edit2.Text;.FieldByName('Naim_tov').AsString:=ComboBox1.Text;.FieldByName('Fam_post').AsString:=Edit7.Text;.FieldByName('Imya').AsString:=Edit8.Text;.FieldByName('Otchestvo').AsString:=Edit9.Text;.FieldByName('Address').AsString:=Edit3.Text;.FieldByName('Telephone').AsString:=Edit4.Text;.Post;;;TForm3.N16Click(Sender: TObject);.Hide;.Show;;TForm3.RadioButton5Click(Sender: TObject);ComboBox4.Text='' then('Введите наименование!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Naim_tov=''' + ComboBox4.Text+'*''';;TForm3.RadioButton6Click(Sender: TObject);.Filtered:=false;;TForm3.Button7Click(Sender: TObject);DBComboBox1.Text='' then('Введите наименование!',mtinformation, [mbok],0).Filtered:=true;.Filter:='Naim_tov=''' + DBComboBox1.Text+'*''';.Preview;.Filtered:=False;;TForm3.Button8Click(Sender: TObject);

//Table2.Delete;;TForm3.Button9Click(Sender: TObject);.Text:=Table3.FieldByName('Naim_tov').AsString;.Text:=Table3.FieldByName('Cena_za_sht').AsString;.Text:=Table3.FieldByName('Skidka').AsString;.Text:=Table3.FieldByName('Kol_vo_tov').AsString;;TForm3.Button10Click(Sender: TObject);.Text:=Table1.FieldByName('Nazvamie_org').AsString;.Text:=Table1.FieldByName('Naim_tov').AsString;.Text:=Table1.FieldByName('Fam_post').AsString;.Text:=Table1.FieldByName('Imya').AsString;.Text:=Table1.FieldByName('Otchestvo').AsString;.Text:=Table1.FieldByName('Address').AsString;.Text:=Table1.FieldByName('Telephone').AsString;;TForm3.N5Click(Sender: TObject);.HelpCommand(HELP_CONTENTS,0);;.

unit Unit5

procedure TForm5.Button1Click(Sender: TObject);.Close;;.

 

Использованная литература


1)      В.В. Фаронов/Delphi-программирование на языке высокого уровня

)        А.Я. Архангельский - 100 компонентов Delphi

)        Шумаков - Базы данных в среде Delphi5

)        В. Гофман, А. Хомоненко - Dephu, Быстрый старт

)        www.cps.ru/wwwboard/delphi/forum (Конференция по Delphi)

)        Е. Марков - Программирование в Делфи7


Не нашли материал для своей работы?
Поможем написать уникальную работу
Без плагиата!