Автоматизация учета и реализации продукции на примере предприятия

Содержание
Введение
1Аналитическая часть
1.1 Анализ предметной области
1.2 Обоснование выбора задачи
1.3 Экономико-информационная сущность задачи
2Проектная часть
2.1 Информационное обеспечение задачи
2.1.1 Обоснование проектных решений по информационному обеспечению
2.1.2 Информационная модель
2.1.3 Классификаторы и системы кодирования
2.1.4 Организация информационной базы
2.2 Технологическое обеспечение
2.2.1 Обоснование проектных решений по технологическому обеспечению
2.2.2 Технологические операции
2.3 Техническое обеспечение
2.3.1 Обоснование проектных решений по техническому обеспечению
2.3.2 Комплекс технических средств
2.4 Программное обеспечение задачи
2.4.1 Обоснование проектных решений по программному обеспечению
2.4.2 Архитектура программного обеспечения
2.4.3 Описание программных модулей
2.5 Руководство пользователя
2.5.1 Описание интерфейса
2.5.2 Порядок работы
3 Обоснование экономической эффективности проекта
3.1 Выбор и обоснование методики расчёта экономической эффективности
3.2 Расчёт показателей экономической эффективности проекта
Заключение
Литература
Приложение А Листинг главного модуля разработанного приложения

Оценка экономической эффективности ИС - сложная и трудоемкая работа, требующая не только технических, но и экономических навыков. Только сочетание этих двух составляющих может привести к достоверному результату проводимого анализа.Продвижение на рынке ИС в условиях современной конкуренции невозможно без предоставления результатов оценки ожидаемой эффективности системы. Кроме того, существующая статистическая оценка успешности внедрения систем управления предприятием характеризуется неудачей внедрения от 40 до 70 % случаев.Специалисты в области разработки, внедрения и сопровождения ИС должны обладать навыками проведения предварительной экспертизы проекта. Они должны уметь вести постоянный мониторинг системы на соответствие внедряемых технологий стратегии развития предприятия. Процесс соизмерения затрат и достигаемого за их счет эффекта должен быть именно «процессом», то есть итерационной процедурой, проводимой на протяжении всего этапа разработки и внедрения проекта, результат которой способен повлиять на дальнейшее продолжение проекта.Существуют следующие этапы оценки экономической эффективности информационной системы:традиционная оценка эффективности как соотношение затрат и результатов;расчет совокупной стоимости владения информационной системой;оценка внедрения ИС как инвестиционного проекта;разработка сбалансированной системы показателей для оценки экономического эффекта.Оценка эффективности проектов независимо от технических, технологических, финансовых, отраслевых или региональных особенностей осуществляется на основе единых принципов. К ним относятся:рассмотрение проекта на протяжении всего жизненного цикла;моделирование денежных потоков;сопоставимость условий сравнения различных проектов;положительность и максимум эффекта;учет фактора времени;учет только предстоящих в ходе осуществления проекта затрат и поступлений;сравнение «с проектом» и «без проекта»;учет всех наиболее существенных последствий проекта;учет наличия разных участников проекта;многоэтапность оценки;учет влияния на эффективность инвестиционного проекта;учет влияния инфляции;учет влияния неопределенностей и рисков.Показатели коммерческой эффективности проекта в целом отражают финансовые последствия внедрения информационной системы. В качестве основных показателей для расчета коммерческой эффективности проекта рекомендуется использовать следующие:чистый доход;чистый дисконтированный доход;внутренняя норма доходности;индексы доходности затрат и инвестиций;срок окупаемости.Таким образом, исходя из всего выше сказанного, можно сделать вывод, что процесс оценки экономической эффективности информационных систем сложен и неоднозначен. Подходить следует индивидуально в каждом конкретном случае, но опираясь на определенные методики, что позволит исключить «человеческий фактор» и снизить погрешности ввиду отсутствия каких либо данных.В рассматриваемом случае, так как система не планируется к продаже, а будет внедрена только на одном предприятии, необходимо рассчитать экономическую эффективность исходя из снижения издержек на производственную деятельность.При расчете экономической эффективности будет проведено сравнение результатов обработки информации при существующем бизнес-процессе и после внедрения разрабатываемой системы. Прямая эффективность машинной обработки информации представлена в показателе снижения экономических стоимостных затрат на обработку информации. При оценке прямой эффективности в стоимостных единицах измерения рассчитываются две группы показателей – показатель снижения трудовых затрат и показатель снижения стоимостных затрат.При расчете изменения трудовых затрат на обработку информации используется следующая система показателей:Абсолютный показатель снижения трудовых затрат на обработку информацииТ=Т0-Т1 (1)где Т0 – годовая трудоемкость обработки информации при базисном варианте;Т1 – годовая стоимость обработки информации при проектируемом варианте.2. Коэффициент снижения трудовых затратKт=(Т/Т0)*100 (%) (2)3. Индекс снижения трудовых затрат, который показывает рост производительности труда при обработке информации.Yт=Т0/Т1в (3)К стоимостным показателям относятся: абсолютное снижение стоимостных затрат (C) , коэффициент относительного снижения стоимостных затрат (КC) индекс снижения стоимостных затрат (YC):1. Показатель снижения стоимостных затратС=С0-С1 Т1в (4)где С0 – годовая стоимость обработки информации при базисном варианте;С1 – годовая стоимость обработки информации при проектируемом варианте.Коэффициент эффективности по затратам:Kc=(С/С0)*100 (%)Т1в (5)Индекс изменения стоимостных затратYc=С0/С1 (6)Помимо рассмотренных показателей целесообразно также рассчитать срок окупаемости затрат на внедрение проекта машинной обработки информации (Ток), рассчитываемые в годах, долях года или в месяцах года:Ток = КП /C (7)где КП - затраты на создание проекта (проектирование и внедрение).А также расчетный коэффициент эффективности капитальных затрат:Ер = 1/Ток (8)Таблица 19 – Характеристика затрат на обработку информации по базовому варианту№ п/пНаименование операций технологического процесса решения комплекса задачОборудо-ваниеЕд. Изм.Объем работы в годНорма выра-ботки / производительность устройств ЭВМ (опер/в час.)Тру-доем-костьСредне-часовая зарплата специалиста (руб.)Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.)Часовая стоимость накладных расходов (руб.)Стоимостные затраты для ручных операцийСтои-мостные затраты для операций, вып. на ЭВМ ,тыс1прием контроль, регистрация документовкалькуля-тордоку-менто-строка408123425008,2912,7521,042ввод исходных данныхканцеляр-ские принадлежностисимвол10101128412500,12128,55197,77327,273вычисление и подсчет итоговкальку-лятордействие833223212500423,11650,951074,064Занесение данных в результа-тивные формыканцеляр-ские принадлежностисимвол128030442500,126931066,921765,54Итого:Х31644261200Ххх10200300000.Таблица 20 – Характеристика затрат на обработку информации по проектируемому варианту№ п/пНаименование операций технологического процесса решения комплекса задачОборудо-ваниеЕд. Изм.Объем работы в годНорма выра-ботки / произв.устр. ЭВМ (опер/в час.)Тру-доем-костьСредне-часовая зарплата специалиста (руб.)Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.)Часовая стоимость накладных расходов (руб.)Стоимостные затраты для ручных операцийСтои-мостные затраты для операций, вып. на ЭВМ тыс.1234567891011121прием контроль, регистрация документовкалькуля-тордоку-менто-строка20880034250х08,2921,042ввод исходных данныхперсон.компьютерсимвол316.44150100Х40хх316,443вычисление и подсчет итоговперсон.компьютердействие433210650Х40хх3,24Занесение данных в результа-тивные формыперсон.компьютерсимвол1280305·10624.4Х40хх1,045печать результатовлазерный принтерстраница3401302.6Х40хх40,68Итого:Х31644150211250хх8.2937500,003.2 Расчёт показателей экономической эффективности проекта В данном пункте рассчитаем затраты (трудовые и стоимостные) на работу в базовом варианте и на работу после внедрения задачи автоматизации.Расчет трудовых затрат по базовому и проектируемому варианту.А). Базовый вариант.Объём работы измеряется количеством обработанных документов, которые должен обработать специалист в существующей системе. При этом учет заявок и проектов ведется на основе бумажных форм документов, то есть ответственное лицо заносит необходимые сведения вручную на формализованный бланк, анализ представленной информации происходит без применения средств автоматизации.Норма выработки показывает, сколько за один час специалист может обработать документов при базовом варианте решения задачи. В нашем случае норма выработки в час составляет 1,5 документа.Трудоёмкость (Тб) определяется делением объёма работы на норму выработки.Тб =31644 /26.7 = 1200 час. (9)Б.)Проектный вариант.Норма выработки при проектном варианте показывает, сколько специалист за один час обрабатывает документов с использованием разработанной системы.Норма выработки в час составляет 12,0 документов.Трудоёмкость (Тп) определяется делением объёма работы на норму выработки:Тп = 31644 /150 = 211 час. (10)Абсолютный показатель снижения трудовых затрат(∆T ) рассчитываем используя формулу (1):∆T= 1200-211=989 час. (11)Для расчета коэффициент относительного снижения трудовых затрат (Кт) используем формулу (2):Кт=989/1200*100%=82,4% . (12)Индекс изменения трудовых затрат или повышение производительности труда (Yт) вычислим используя соотношения (3):Yт =1200/211=5.68 . (13)Расчет стоимостных показателей по базовому и проектируемому варианту:А. Базовый вариант1. Материальные затраты:В материальные затраты на обработку информации включаются затраты на расходные материалы. Посчитано, что ежемесячно на это необходимо расходовать 350 рублей.Картриджи: 1 шт. х 500 руб. = 500 руб.;Итого: 850 руб. в месяцСоответственно на год потребуется:850 х 12 = 10200 руб.2.Трудовые затраты.Количество работников - 1 человека.сотрудника – 250руб./час. * 100 час. = 25000 рублей в месяц.Фонд заработной платы за год составляет:25000 х 12 = 300000 руб.Всего затраты на базовый вариант обработки информации составляет:Сб =300000+10200=310200 руб.Б. Проектный вариант.1. Материальные затраты:В материальные затраты на обработку информации включаются следующие расходные материалы:- картриджи 1 шт. х 500 руб. = 500 руб.;- бумага 1 шт. х 105 руб. = 105 руб.;Итого: 605 руб. в месяцСоответственно на год потребуется:605 х 12 = 7260 руб.2.Трудовые затраты.Количество работников - 1 человека. ФОТ (Фонд оплаты труда) сотрудника – 250 руб./час. * 12,5 = 3125 рублей в месяц.Фонд заработной платы за год составляет:3125 x12= 37500 руб.3.Накладные расходы (в данном случае состоят из суммы стоимости потреблённой электроэнергии):2500Кв/ч*1,50руб.=37500,00 руб.Сопровождение - 30000 руб. в год.Срок действия проекта - 7 лет, тогда амортизационные отчисления составят 14,28% (100% / 7) от капитальных вложений.Капитальные вложения (инвестиции) в создание проекта.Сводный инвестиционный план проекта, таким образом, суммарные затраты стоимость проекта равна 207750,00 руб.Сумма амортизационных начислений 14,28% от капитальных вложений:207750,00 х 0, 14 = 29085,00 руб.Всего затраты на автоматизированную обработку информации составляют:Сп = 7260+37500+37500+30000+29085= 141345 руб.Рассчитаем значение стоимостных показателей:Абсолютное снижение стоимостных затрат(∆С), вычисляем используя соотношения (4):∆С =310200- 141345= 168855 руб. . (14)Коэффициента относительного снижения стоимостных затрат (Кс) определяется по формуле (5):Кс=168855/310200*100%=54,4% . (15)Для вычисления индекса изменения стоимостных затрат (Yc) использовать соотношение (6):Yc=310200/141345=2,19 . (16)Определим экономическую эффективность от системы. Это отношение экономического эффекта, полученного за определённый период времени от вложения капитала (или от внедрения мероприятий), к объёму вложенного капитала, обеспечившего внедрение мероприятий и получение экономического эффекта.Экономический эффект представляет собой чистый доход (прибыль), т. е. цена минус себестоимость.Расчет экономической эффективности при помощи (8) примет вид:Е =168855/207750=0,81 . (17)Эффективность капитальных затрат определяется сроком окупаемости (Т) дополнительных капитальных затрат на модернизацию информационной системы:Срок окупаемости определяется, как обратная величина Е (7)Т = 1 /0,81 = 1,2 (18)Экономические показатели, полученные в результате дипломного проектирования, представлены в таблице 21:Таблица 21 – Экономические показатели проектаНаименование показателей эффективностиЕд. измеренияРезультатНеобходимые инвестиции на разработку системыруб.178221,00Годовые затраты на планирование продаж при базовом вариантеруб.310200,00Годовые затраты на автоматизированное на планирование продажруб.191345,00Годовой экономический эффектруб.168855,00Экономическая эффективность проекта0,81Срок окупаемости проекталет1,2Получив все необходимые расчетные показатели, для наглядности, составим графические диаграммы, представленные на рисунке 56 (сравнительная диаграмма трудовых затрат) и 57 - сравнительная диаграмма стоимостных затрат.Рисунок 56 –Cравнительная диаграмма трудовых затратРисунок 57 –Сравнительная диаграмма стоимостных затратЗАКЛЮЧЕНИЕВ дипломном проекте была спроектирована и разработана автоматизированная программная система,реализующая модуль ERP-системы для компании ИП Логвинов.Динамический процесс проектирования системы происходил в несколько стадий.На этапе обследования была рассмотрена общая характеристика объекта автоматизации, его организационная структура, организация работы, а так же выполнен технико-экономический анализ предприятия. На основе анализа сформированы и обоснованы требования к работе системы и к ее отдельным компонентам: программному, информационному, техническому и технологическому.На стадии проектирования разработана общая структура информационной системы в целом, а также по каждой отдельной ее задаче. Определены основные проектные решения, что стало основанием для разработки, отладки программной части и для конструирования эксплуатационной документации.В качестве средства для разработки программного проекта была выбрана RAD система Borland Development Studio 2006, в качестве средства разработки баз данных СУБД Microsoft Access 2003. Для нормальной работы системы необходима два варианта конфигурации оборудования – серверной станции и клиентской станции. Для автоматизации рассматриваемой задачи разработаны технические требования реализации проекта.Создание и внедрение автоматизированной программной системы, реализующей модуль ERP-системы для компании ИП Логвинов, позволит повысить производительность труда специалистов и сотрудников компании, увеличит прибыль фирмы на 10%, сократить время работы с документами, и поиск товаров в среднем на 30-35% за счет автоматического анализа информации, имеющейся в базе данных.Использование информационной системы позволит более глубоко и в полном объеме собирать и анализировать необходимую информацию о продажах и товарахДля быстрой и полной адаптации пользователя к системе был разработан удобный дружественный интерфейс пользователя и подробное описание работы с системой в руководстве пользователя.Считаю, что созданная в дипломном проекте автоматизированная программная система, реализующая модуль ERP-системы для компании ИП Логвинов, полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системыЛИТЕРАТУРААрхангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. – 450с.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.Дайан А. и др. Маркетинг. М., Экономика, 1993. Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COMФатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COMПРИЛОЖЕНИЕ АЛИСТИНГ ГЛАВНОГО МОДУЛЯ РАЗРАБОТАННОГО ПРИЛОЖЕНИЯ/* главный модуль проекта*/unit MainClients;interface/* подключаемые библиотеки */uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids,DBDirectoryTemplate, addsorce, DateUtils,parampoisk, jpeg, ExtCtrls, ToolWin, ComCtrls, Buttons, RzSpnEdt;Type// используемые объекты TMainClientsForm = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; DataSource1: TDataSource; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; Image1: TImage; ToolBar1: TToolBar;// заголовки процедур и функций RzRapidFireButton1: TRzRapidFireButton; RzRapidFireButton2: TRzRapidFireButton; RzRapidFireButton3: TRzRapidFireButton; RzRapidFireButton4: TRzRapidFireButton; RzRapidFireButton5: TRzRapidFireButton; RzRapidFireButton6: TRzRapidFireButton; RzRapidFireButton7: TRzRapidFireButton; RzRapidFireButton8: TRzRapidFireButton; N18: TMenuItem;procedure N18Click(Sender:TObject);procedure RzRapidFireButton1Click(Sender:TObject);procedure RzRapidFireButton2Click(Sender:TObject);procedure RzRapidFireButton5Click(Sender:TObject);procedure RzRapidFireButton4Click(Sender:TObject);procedure RzRapidFireButton6Click(Sender:TObject);procedure RzRapidFireButton7Click(Sender:TObject);procedure RzRapidFireButton3Click(Sender:TObject);procedure RzRapidFireButton8Click(Sender:TObject);procedure N12Click(Sender:TObject);function IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; function IsFormOpen(const FormName : string): Boolean;procedure N6Click(Sender:TObject);procedure N7Click(Sender:TObject);procedure N8Click(Sender:TObject);procedure N9Click(Sender:TObject);procedure N10Click(Sender:TObject);procedure N20Click(Sender:TObject);procedure N21Click(Sender:TObject);procedure N22Click(Sender:TObject);procedure FormCreate(Sender:TObject);procedure N3Click(Sender:TObject);procedure DataSource1DataChange(Sender: TObject; Field: TField);procedure N4Click(Sender:TObject);procedure N14Click(Sender:TObject);procedure N15Click(Sender:TObject);procedure N16Click(Sender:TObject);procedure N17Click(Sender:TObject);procedure N11Click(Sender:TObject);procedure N19Click(Sender:TObject); private { Private declarations }procedure BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); public { Public declarations } end;var// используемые переменные MainClientsForm: TMainClientsForm; nastr:tinifile; DirectoryForm : TDBDirectoryTemplateForm; prosmForm: Taddform; mainflag:boolean; nomer_poisk:word; idLocation, idAddional, idZapas, idPartiya:integer; model,modelavto:string; god:integer;implementation{$R *.dfm}// функция создания дочернего окна function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 doif (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 doif (Screen.Forms[i].Name = FormName) then begin Result := True; Break; end; end;// функция создания дочерней формы для отображения результатов информационных запросовprocedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); begin //создаем форму DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner); DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm.Top:=0; DirectoryForm.Left:=0; DirectoryForm.Caption:=sCaption; end;// функция закрытия главного окнаprocedure TMainClientsForm.N12Click(Sender:TObject);begin MainClientsForm.Close;end;// процедура запуска и настройки справочника автозапчастиprocedure TMainClientsForm.N6Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;mainclientsform.ADOTable1.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('автозапчасти', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД.';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Наименование';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ид.размещения';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ид.дополн. информации';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ид.запасов';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='ид.партии';end;// процедура запуска и настройки справочника «накладные»procedure TMainClientsForm.N7Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('накладные', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ накладной';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='дата';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ид.автозапчасти';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='откуда';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='цель';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='количество';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='стоимость';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='номер партии';end;// процедура запуска и настройки справочника «запасы»procedure TMainClientsForm.N8Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('запасы автозапчастей', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='ед. измерения';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='количество';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='стоимость';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='резерв. кол.';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='кто резерв.';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='дата резерв.';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='примечание';end;// процедура запуска и настройки справочника «заказы»procedure TMainClientsForm.N9Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('заказы на автозапчасти', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ заказа';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='дата';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='заказчик';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='№ автозапчасти';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='количество';end;// процедура запуска «горячих» кнопок приложенияprocedure TMainClientsForm.RzRapidFireButton1Click(Sender:TObject);begin MainClientsForm.N6Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton2Click(Sender:TObject);begin MainClientsForm.N22Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton3Click(Sender:TObject);beginMainClientsForm.N19Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton4Click(Sender:TObject);begin MainClientsForm.N4Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton5Click(Sender:TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton6Click(Sender:TObject);beginMainClientsForm.N11Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton7Click(Sender:TObject);begin MainClientsForm.N14Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton8Click(Sender:TObject);begin MainClientsForm.Close;end;// процедура запуска и настройки справочника «заказы»procedure TMainClientsForm.N10Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;mainclientsform.ADOTable5.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Размещение запчастей', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='место на складе';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='уточнение размещение';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='примечание';end;// процедура запуска и настройки справочника «Дополнительные сведения»procedure TMainClientsForm.N20Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Дополнительные сведения об автозапчастях ', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='серийный номер';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='срок годности';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' Марка автомобиля';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:=' год';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:=' Примечание';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:=' Модель';end;// процедура запуска и настройки справочника «партии товаров»procedure TMainClientsForm.N21Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Сведения о партиях запчастей', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='№ партии';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='количество';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='откуда';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='дата';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='описание операции';end;// процедура создания формы для просмотра записейprocedure TMainClientsForm.N22Click(Sender:TObject); begin IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N6Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='просмотр записей'; prosmForm.DBNavigator1.Visible:=true; mainflag:=true; prosmForm.Show; prosmForm.Button1.Visible:=false; prosmForm.GroupBox3.Visible:=false; prosmForm.GroupBox4.Visible:=false; MainClientsForm.DataSource1.DataSet.lastend;//процедура, обрабатывающая событие открытия главной формы приложения, основное назначение соединение с базой данных проверка логина и пароляprocedure TMainClientsForm.FormCreate(Sender:TObject); var NewConnection: Widestring;beginADOConnection1.Close; // указываем файл .udl для ADOConnection1ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GetCurrentDir+'\avtozap.mdb;'; ADOConnection1.Open;MainClientsForm.ADOTable1.Active:=true;MainClientsForm.ADOTable2.Active:=true;MainClientsForm.ADOTable3.Active:=true;MainClientsForm.ADOTable4.Active:=true;MainClientsForm.ADOTable5.Active:=true;MainClientsForm.ADOTable6.Active:=true;MainClientsForm.ADOTable7.Active:=true;end;// процедура создания формы для добавления записейprocedure TMainClientsForm.N3Click(Sender:TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='добавление записи'; dobForm.Show; dobForm.Button1.Visible:=true; dobForm.GroupBox1.Visible:=false; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox4.Visible:=false;end;// процедура обработки события изменения DataSource , для изменения текущей записи при просмотре базы данных и выборе всех информационных полейprocedure TMainClientsForm.DataSource1DataChange(Sender: TObject; Field: TField); var sql_str,rez:string; P11:Tparameter; rezdate:tdatetime; rezint:integer; rezfloat:real; Ayear, amonth,aday,ahour,aminute,asecond,amillisecond:word;beginif mainflag thenbegin prosmForm.edit1.text:=''; prosmForm.edit2.text:=''; prosmForm.edit3.text:=''; prosmForm.edit4.text:=''; prosmForm.edit5.text:=''; prosmForm.edit6.text:='1'; prosmForm.edit7.text:='1'; prosmForm.edit9.text:='1'; prosmForm.edit10.text:='1'; prosmForm.edit8.text:='2011'; prosmForm.edit11.text:='2011'; prosmForm.edit12.text:=''; prosmForm.edit13.text:=''; prosmForm.edit14.text:=''; prosmForm.edit15.text:=''; prosmForm.edit16.text:=''; prosmForm.edit17.text:=''; prosmForm.edit18.text:=''; prosmForm.edit19.text:=''; prosmForm.edit20.text:=''; prosmForm.edit21.text:=''; prosmForm.edit22.text:=''; prosmForm.edit23.text:=''; prosmForm.edit41.text:=''; prosmForm.edit42.text:=''; prosmForm.edit43.text:=''; //из таблицыprosmForm.Edit1.Text:=MainClientsForm.DataSource1.DataSet.FieldByName('nameTovar').AsString; idLocation:=MainClientsForm.DataSource1.DataSet.FieldByName('idLocation').AsInteger; ; idAddional:=MainClientsForm.DataSource1.DataSet.FieldByName('idAddional').AsInteger; ; idZapas:=MainClientsForm.DataSource1.DataSet.FieldByName('idZapas').AsInteger; ; idPartiya:=MainClientsForm.DataSource1.DataSet.FieldByName('idPartiya').AsInteger; ; // размещение sql_str:='SELECT * from Location where idLocation= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=idLocation; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL;rez:=MainClientsForm.ADOQuery1.FieldByName('Location').AsString; prosmForm.Edit14.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName('addional_location').AsString; prosmForm.Edit15.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName('notes').AsString; prosmForm.Edit16.Text:=rez; // дополнительные сведения sql_str:='SELECT * from Addional where idAddional= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:= idAddional; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL;rez:=MainClientsForm.ADOQuery1.FieldByName('Ser_num').AsString; prosmForm.Edit5.Text:=rez; model:=MainClientsForm.ADOQuery1.FieldByName('marka').AsString; modelavto:=MainClientsForm.ADOQuery1.FieldByName('model').AsString; god:=MainClientsForm.ADOQuery1.FieldByName('god').AsInteger; prosmForm.Edit41.Text:=modelavto; prosmForm.Edit42.Text:=model; prosmForm.Edit43.Text:=inttostr(god); rezdate:= MainClientsForm.ADOQuery1.FieldByName('srok_godnost').AsDateTime;end;// процедура добавления заказаprocedure TMainClientsForm.N4Click(Sender:TObject);var zakForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'zakForm'); IsMDIChildOpen(MainClientsForm,'addForm'); zakForm:=Taddform.Create(Owner); zakForm.Top:=240; zakForm.Left:=3; zakForm.Caption:='создание заказа'; zakForm.Show; zakForm.Button1.Visible:=true; zakForm.GroupBox1.Visible:=false; zakForm.GroupBox2.Visible:=false; zakForm.GroupBox4.Visible:=false; zakForm.GroupBox3.Left:=2; zakForm.GroupBox3.Top:=2;end;// процедура настройки динамического поиска автозапчасти по наименованию'procedure TMainClientsForm.N14Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск наличия автозапчасти по наименованию'; nomer_poisk:=1; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false;end;// процедура настройки динамического поиска контроль сроков хранения'procedure TMainClientsForm.N15Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='проверка ср.годности расх. материала'; nomer_poisk:=2; poisk.Edit1.Visible:=false; poisk.Label1.Visible:=false;poisk.Label3.Visible:=false; poisk.Label2.Visible:=false;poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false;{ poisk.UpDown1.Visible:=false;poisk.UpDown2.Visible:=false;} poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;// процедура настройки динамического поиска размещения автозапчасти procedure TMainClientsForm.N16Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск размещения автозапчасти'; nomer_poisk:=3; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;// процедура настройки динамического поиска хронологии накладных procedure TMainClientsForm.N17Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='просмотр хронологии накладных'; nomer_poisk:=4; poisk.Label1.Visible:=false; poisk.Edit1.Visible:=false; poisk.Label7.Caption:='Накладные в период' end;procedure TMainClientsForm.N18Click(Sender:TObject);begin MainClientsForm.N19Click(Sender);end;// процедура добавления накладнойprocedure TMainClientsForm.N11Click(Sender:TObject);var naklForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'naklForm'); IsMDIChildOpen(MainClientsForm,'addForm'); naklForm:=Taddform.Create(Owner); naklForm.Top:=240; naklForm.Left:=3; naklForm.Caption:='создание накладной'; naklForm.Show; naklForm.GroupBox1.Visible:=false; naklForm.GroupBox2.Visible:=false; naklForm.GroupBox3.Visible:=false; naklForm.GroupBox4.Left:=2; naklForm.GroupBox4.Top:=2; naklForm.GroupBox4.Width:=600; naklForm.GroupBox4.Height:=250;end;// процедура настройки динамического поиска подбор автозапчастиprocedure TMainClientsForm.N19Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Подбор автозапчасти'; nomer_poisk:=5; poisk.Label2.Visible:=True; poisk.Label3.Visible:=True; poisk.Label7.Visible:=false; poisk.Label2.Caption:='Марка авто'; poisk.Label3.Caption:='Модель'; poisk.Edit2.text:=''; poisk.Edit5.text:=''; poisk.Edit2.Visible:=True; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=true; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; poisk.Label1.Caption:='Автозапчасть'; poisk.Button1.Caption:='Подбор автозапчасти' end;end.