Автоматизация курьерской службы в ООО «Гитар Трейд»

Динамически создаваемая форма AddSource предназначена для отображения записей, находящейся в различных таблицах базы данных firm2 и связанных с записями расположенными в таблице Tovar.

Динамически создаваемая дочерняя форма AddSource, может использоваться не только для отображения связанных записей. Главное назначение формы AddSource это создание интерфейсов для добавления новых товаров, накладных, заказов (рис. 2.34).

Альтернатива «создать» содержит альтернативы «поступление заказа», «план заказа», «поступление товара», «курьер». Альтернатива «Найти», содержит альтернативы «наличие товара», «свободный курьер», «размещение товара», «поиск плана доставки». Таким образом, пункты главного меню позволяют полностью управлять ходом вычислительного процесса и работой приложения.

Форма DBDirectoryTemplateForm создается при выборе альтернатив меню «просмотр», и позволяет просматривать все таблицы базы данных. Это достигается изменением источника данных компонента DBGrid, расположенного на динамически создаваемой форме и выбираемого источника данных — таблицы в соответствии с пунктом меню.

Рис. 2.34 — Дочерняя форма AddSource, динамически создаваемая для добавления информации о товарах

Элементы управления компоненты Button («Добавить», «Создать заявку», «Создать план доставки») активируют процедуры, соответствующие названным действиям. Все процедуры функционируют по типизированным алгоритмам. В качестве основных этапов этих алгоритмов необходимо выделить следующее:

— считывание данных из компонентов редактирования, расположенных на динамически создаваемых формах;

— поиск записей базы данных соответствующих определенному динамически создаваемому запросу;

— выполнение вычислительных операций с результатами информационного поиска;

— внесение необходимых изменений в базу данных.

Рис. 2.35 — Дочерняя форма AddSource динамически создаваемая для добавления информации о заказе на товары Рис. 2.36 — Дочерняя форма AddSource динамически создаваемая для добавления информации о плане доставки

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

Дочерняя форма ParamPoisk динамически создается с одной стороны для организации запросов на различные виды сложного информационного динамического поиска по ключевым полям (рис.

2.37):

— поиск товаров по наименованию;

— поиск размещения на складе товаров по их наименованию;

— поиск и отображение плана доставки на определенную дату;

— поиск свободных курьеров.

Рис. 2.37 — Дочерняя форма ParamPoisk, динамически создаваемая для организации запроса на поиск плана доставки в определенный период

Элементы управления button («Выполнить поиск») на динамически создаваемых формах позволяют активировать программную процедуру учитывающую вид информационного поиска, соответствующие динамически создаваемые ключи и выполняют соответствующие вычислительные процедуры и операции по изменению, удалению, добавлению необходимых записей в базе данных.

Рис. 2.38 — Дочерняя форма ParamPoisk, динамически создаваемая для организации запроса на поиск товаров по наименованию Рис. 2.39 — Дочерняя форма ParamPoisk, динамически создаваемая для организации запроса на просмотр накладных, созданных в определенный временной интервал

Для отображения результатов информационного поиска, согласно выбранным настройкам, динамически создается форма ChildTemplateForm. Форма ChildTemplateForm содержит компонент DBGrid, источником данных которого является таблица — результатов динамического поиска, выполняемых при помощи компонентов AdoQuery.

При выборе альтернативы главного меню «Назначение курьера» так же динамически создается дочерняя форма ParamPoisk, для организации интерфейса для выполнения назначения курьра (рис. 2.40). В результате активации элемента управления button («Распределение»), осуществляется запуск сложной программной процедуры, осуществляющей неоднократный сложный динамический информационный поиск в базе данных, изменения записей базы данных с целью осуществления назначения курьера.

Рис. 2.40 — Дочерняя форма ParamPoisk, динамически создаваемая для назначения курьеров

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

При попытке проведении назначение курьера (рисунок 2.41), вторично возникает исключительная ситуация характеризующая информационную поддержку разработанной программной системы. В качестве примера показана возможная ошибочная ситуация, которая может возникнуть в случае попытки повторной назначения курьера, номер плана доставки которой указан в окне редактирования формы ParamPoisk. Система распознала текущую ситуацию и предупредила пользователя-оператора о сложившихся условиях при помощи информационного сообщения, о том, что проводка выполнена, не будет, при помощи метода ShowMessage.

Рис. 2.41 — Сообщение об исключительной ситуации

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

2.4 Контрольный пример реализации проекта и его описание

Рассмотрим контрольный пример функционирования системы.

Начальная форма настройки связей с базой данных представлена на рисунке 2.

42.

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

Для дальнейшей работы приложения необходимо выбрать пункт главного меню. Например, выбираем пункт просмотр справочника документов (рис. 2.43). Результат просмотра базы данных представлен на рисунке 2.44

На следующем шаге просмотрим всю базу данных, для этого выберем альтернативу просмотр базы данных в меню «Справочник «(рис. 2.45).

Рис. 2.42 — Настройка связи с базой данных

После этого приведем в исполнение элемент управления — кнопку «создать».

Рис. 2.43 — Выбор просмотра данных о товарах

Рис. 2.44 — Результат просмотра данных Рис. 2.45 — Просмотр всей базы данных

Таким образом, считаю, что работоспособность программы полностью продемонстрирована.

3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТа

3.1 Выбор и обоснование методики расчёта экономической эффективности

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

При оценке эффективности ЭИС используют обобщающие и частные показатели.

К основным обобщающим показателям экономической эффективности относятся:

— годовой экономический эффект;

— расчетный коэффициент эффективности капитальных вложений;

— срок окупаемости системы.

Годовой экономический эффект от разработки и внедрения ЭИС служит для сравнения различных направлений капитальных вложений и рассчитывается по формуле (3.1):

(3.1)

где Э — годовой экономический эффект;

П — годовая экономия (годовой прирост прибыли), руб.;

К — единовременные капитальные затраты, руб.;

Ен — нормативный коэффициент эффективности капитальных вложений.

Значение Ен принимается равным 0.

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

Расчетный коэффициент эффективности капитальных вложений определяется по формуле (3.2):

(3.2)

Полученное значение сравнивается со значением Ен. Если Ер ≥ Ен, то капитальные затраты можно считать целесообразными, в противном случае они экономически необоснованны.

Срок окупаемости Т представляет собой период времени (в годах), в течение которого капитальные затраты на разработку ЭИС полностью окупятся, и рассчитывается по формуле (3.3):

(3.3)

Расчет указанных обобщающих показателей требует вычисления частных показателей:

— годовая экономия (годовой прирост прибыли);

— единовременные затраты на разработку и внедрение системы;

— среднегодовая трудоемкость функционирования и др. Годовая экономия П рассчитывается по формуле (3.4):

(3.4)

где П1 — годовая стоимостная оценка результатов применения ЭИС, рассчитанная без учета затрат на обработку информации, руб.;

Зп — приведенные к одному году затраты на обработку информации при предполагаемом варианте организации системы.

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

(3.5)

где Зб — приведенные к одному году затраты на обработку информации при существующем варианте организации системы обработки данных (СОД).

Среднегодовые затраты на обработку информации Зп определяются по формуле (3.6):

(3.6)

где Р — стоимость приобретения и освоения используемых средств автоматизации проектирования, руб.;

С — единовременные затраты на создание системы, не учитываемые в себестоимости машино-часа, руб.;

Тэкс — предполагаемый срок эксплуатации системы, лет;

Ф — среднегодовые затраты на функционирование системы, руб.;

А — единовременные затраты на модернизацию системы, руб.;

Тмод — среднее время между смежными периодами модернизации, лет;

Z — среднегодовая сумма потерь вследствие ненадежности системы, руб.

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

Экономическая эффективность проекта (Э) складывается из двух составляющих:

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

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

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

1) абсолютное снижение трудовых затрат ((Т) в часах за год:

(Т = Т0 — Т1, (3.7)

где Т0 — трудовые затраты в часах за год на обработку информации по базовому варианту;

Т1 — трудовые затраты в часах за год на обработку информации по предлагаемому варианту;

2) коэффициент относительного снижения трудовых затрат (КТ):

КТ =(Т / T0 * 100%; (3.8)

индекс снижения трудовых затрат или повышение производительности труда (YT):

YT = T0 / T1. (3.9)

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

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

Ток = КП /(C,. (3.10)

где КП — затраты на создание проекта (проектирование и внедрение).

Э тап составления первичных документов и/или ввода исходных данных будет занимать примерно одинаковое количество времени при различных вариантах организации труда.

Накладные расходы рассчитываются в размере 65% от заработной платы оператора. Часовая амортизация ЭВМ (Ам) рассчитывается по формуле (3.11). Сумма месячной амортизации составляет 200 руб. В среднем в месяце 21 рабочий день. В день ЭВМ работает в течение 10 часов.

. (3.11)

3.2 Расчёт показателей экономической эффективности проекта

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

Для удобства расчет трудовых и стоимостных затрат на обработку информации при базовом и проектируемом вариантах осуществляется с помощью таблиц 3.1 и 3.2 соответственно.

Таблица 3.1

Характеристика затрат на обработку информации по базовому варианту

№ п/п Наименование операций технологического процесса решения комплекса задач Оборудование Ед. Изм. Объем работы в год Норма выра-ботки / производительность устройств ЭВМ (опер/в час.) Тру;

доем-кость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.

часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций Стои-мостные затраты для операций, вып. на ЭВМ 1 2 3 4 5 6 7 8 9 10 11 12 1 прием заявок на поставку компьют. калькулятор доку-менто-строка 408 800 0,510 25 0 8,29 12,75 21,04 2 заполнение бланка канцелярские принадлежн. символ 31 644 4000 7911 25 0,12 128,55 197,77 327,27

Продолжение таблицы 3.1

№ п/п Наименование операций технологического процесса решения комплекса задач Оборудование Ед. Изм. Объем работы в год Норма выра-ботки / производительность устройств ЭВМ (опер/в час.) Тру;

доем-кость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.

часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций Стои-мостные затраты для операций, вып. на ЭВМ 3 связь со складом телефон действие 8332 320 26,038 25 0 423,11 650,95 1074,06 4 Занесение данных в результа-тивные формы канцеляр-ские принадлежности символ 128 030 3000 42,677 25 0,12 693 1066,92 1765,54 Итого: Х х х 77,136 х х х 1928,39 3187,91

Таблица 3.2

Характеристика затрат на обработку информации по проектируемому варианту

№ п/п Наименование операций технологического процесса решения комплекса задач Оборудо-вание Ед. Изм. Объем работы в год Норма выра-ботки / произв.

устр. ЭВМ (опер/в час.) Тру;

доем-кость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.

часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций Стои-мостные затраты для операций, вып. на ЭВМ 1 2 3 4 5 6 7 8 9 10 11 12 1 заполнение электронной формы заявки на товар персон. компьютер доку-менто-строка 408 800 0,510 12,75×0 8,29 21,04 2 создание нового документа заявки товара персон. компьютер символ 31 644 4000 7911×40 х х 316,44 3 Создание и получение персон. компьютер действие 8332 106 0,008×40 х х 3,2 Продолжение таблицы 3.2

№ п/п Наименование операций технологического процесса решения комплекса задач Оборудо-вание Ед. Изм. Объем работы в год Норма выра-ботки / произв.

устр. ЭВМ (опер/в час.) Тру;

доем-кость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.

часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций Стои-мостные затраты для операций, вып. на ЭВМ отчета о наличии товара на складе 4 Создание накладной в случае наличия товара персон. компьютер символ 128 030 5· 106 0,026×40 х х 1,04 5 печать результатов лазерный принтер страница 340 130 2,267×40 х х 90,68 Итого: Х х х 10,732 12,75 х х 8.29 523,08 Для удобства анализа, результаты расчетов приведены в таблице 3.

3.

Таблица 3.3

Показатели эффективности внедрения нового проекта

Затраты абсолютное изменение затрат Коэффициент изменения затрат индекс изменения затрат базовый вариант проектируемый вариант Трудоемкость Т0, (час) Т1, (час) IT 77.136 10.722 66.414 0,86 7,194 Стоимость С0(руб) С1(руб) 523.

08 3187.

91 2664,83 0,836 6,094 единовременные капитальные затраты определяются по формуле

(3.12)

где — затраты на освоение системы;

— затраты на разработку системы;

— затраты на загрузку системы;

— затраты на приобретение необходимого обеспечения;

— затраты на модернизацию системы;

p рассчитывается по формуле (3.13):

(3.13)

где — затраты машинного времени на разработку (в часах)

— цена машинного часа

— коэффициент мультипрограммирования

— месячная зарплата одного разработчика

— количество разработчиков

— время разработки (в месяцах)

— коэффициент накладных расходов.

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

Для данной системы значения требуемых переменных таковы:

Kнр =0.65

Кмульт =1

r0=1 человек Змес=3000 руб.

Цмч=0.95 руб.

Т j осв = 60 часов Т j разр =50 часов Т j загр =0.5 часа Т j мод =35 часов в течение предполагаемого срока эксплуатации, равного 4 годам. Модернизацию предполагается проводить раз в полгода (то есть всего 7 раз) и затрачивать на это до 5 часов машинного времени за один раз.

Время освоения составляет 1 месяц, примем для данной задачи значение tj осв, равное 0.1 месяца.

tj разр =1 месяц

tj загр =0.006 месяца

tj мод =0.333 месяца, то есть 7 дней за весь период эксплуатации.

К j приобр складывается из стоимости приобретаемого технического обеспечения (1/21 от стоимости оборудования, так как примерно такую часть от общего объема работ по времени занимает данный комплекс задач, а для принтера — 1/100), программного обеспечения.

Стоимость системного блока и монитора, исходя из данных таблицы и курса доллара 28 руб., получается равной 12 500, принтера 3500

Стоимость программного обеспечения 8750 руб. Из них на данную задачу приходится примерно 500 рублей.

К j приобр =12 500/21+500+3500/100=1098.

74 руб.

К j осв =60*0.95*1+800*1*0.1*(1+0.65)=57+132=189 руб.

К j разр =50*0.95*1+800*1*1*(1+0.65)=47.50+1320=1367.

50 руб.

К j загр =0.5*0.95*1+800*1*0.006*(1+0.65)=0.48+7.92=8.4 руб.

К j мод =35*0.95*1+800*1*0.333*(1+0.65)=8.05+439.

56=447.

61 руб.

К j =3111.

25 руб.

К 0 =2000 руб.

∆ К j =К jК0=1111.

25 руб.

Прямой годовой экономический эффект равен:

Э1=(1693.

65+0.15*2000) — (320.

52+ 0.15*3111.

25)=2489.

14 руб.

Косвенный годовой экономический эффект равен 5000 рублей в год. Таким образом, получаем годовой экономический эффект:

Э=2489.

14+5000=7489.

14 руб.

Расчетный коэффициент эффективности определяется по формуле (3.14):

(3.14)

Ер=2664.

83/1111.

25=2.398

Срок окупаемости проекта Ток=1/Ер=1/ 2.398=0.417 года (5 месяцев).

Диаграммы изменения трудовых затрат представлены на рисунках 3.1 и 3.2:

Рис. 3.1 — Диаграмма абсолютного изменения трудовых затрат Рис. 3.2 — Диаграмма относительного изменения трудовых затрат

Диаграммы изменения стоимостных затрат представлены на рисунках 3.3 и 3.

4.

Рис. 3.3 — Диаграмма изменения стоимостных затрат Рис. 3.4 — Круговая диаграмма абсолютного изменения стоимостных затрат

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

Заключение

В дипломной работе была спроектирована и разработана автоматизированная информационная система службы курьерской доставки ООО «Гитар трейд»

Динамический процесс проектирования системы происходил в несколько стадий.

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

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

Создание и внедрение автоматизированная информационная система службы курьерской доставки ООО «Гитар трейд» позволит сократить время работы руководителя службы и специалиста с документами, снизить временные затраты на проведение распределение курьеров, и поиск товаров в среднем на 30−35% за счет автоматического анализа информации, имеющейся в базе данных.

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

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

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

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

Считаю, что созданная в дипломной работе автоматизированная информационная система службы курьерской доставки ООО «Гитар трейд» полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы.

В дипломной работе проведена разработка автоматизированная информационная система службы курьерской доставки ООО «Гитар трейд», реализованной в среде Borland Developer Studio 2006 с разработанной базой данных учета товаров, заказов и планов доставки, реализованной при помощи средств Microsoft SQL Server 2005 Developer.

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

Архангельский А.Я. 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, StdCtrls,

Buttons;

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;

N19: 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;

N18: TMenuItem;

ADOTable8: TADOTable;

Image1: TImage;

N23: TMenuItem;

ToolBar1: TToolBar;

ComboBox1: TComboBox;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

Label1: TLabel;

procedure N23Click (Sender: TObject);

procedure SpeedButton6Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure ComboBox1Change (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);

procedure N18Click (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;

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 do

if (AFormName.MDIChildren[i]. Name = AMDIChildName) then

begin

Result := True;

AFormName.MDIChildren[i]. Free;

// Break;

end;

end;

function TMainClientsForm. IsFormOpen (const FormName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Screen. FormCount — 1 DownTo 0 do

if (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:='ид. запасов';

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:='лицо';

DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='№ заказа';

DirectoryForm.TableDBGrid.Fields[9]. DisplayLabel:='статус';

DirectoryForm.TableDBGrid.Fields[10].DisplayLabel:='№ покупателя';

DirectoryForm.TableDBGrid.Fields[11]. 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. SpeedButton1Click (Sender: TObject);

begin

mainClientsForm.N18.Click;

end;

procedure TMainClientsForm. SpeedButton2Click (Sender: TObject);

begin

mainClientsForm.N6.Click;

end;

procedure TMainClientsForm. SpeedButton3Click (Sender: TObject);

begin

mainClientsForm.N21.Click;

end;

procedure TMainClientsForm. SpeedButton4Click (Sender: TObject);

begin

mainClientsForm.N19.Click;

end;

procedure TMainClientsForm. SpeedButton5Click (Sender: TObject);

begin

mainClientsForm.N7.Click;

end;

procedure TMainClientsForm. SpeedButton6Click (Sender: TObject);

begin

mainClientsForm.N22.Click;

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:='характеристика';

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:='примечание';

DirectoryForm.TableDBGrid.Fields[6].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;

prosmForm.GroupBox5.Visible:=false;

MainClientsForm.DataSource1.DataSet.last

end;

procedure TMainClientsForm. N23Click (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;

dobForm.GroupBox2.Visible:=false;

end;

procedure TMainClientsForm. FormCreate (Sender: TObject);

var NewConnection: Widestring;

begin

NewConnection := PromptDataSource (Handle, MainClientsForm. ADOConnection1.Connectionstring);

MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;

MainClientsForm.ADOConnection1.Connected:=true;

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;

MainClientsForm.ADOTable8.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;

dobForm.GroupBox5.Visible:=false;

end;

procedure TMainClientsForm. ComboBox1Change (Sender: TObject);

begin

if mainClientsForm. ComboBox1.ItemIndex=0 then mainClientsForm. N6.Click;

if mainClientsForm. ComboBox1.ItemIndex=1 then mainClientsForm. N7.Click;

if mainClientsForm. ComboBox1.ItemIndex=2 then mainClientsForm. N8.Click;

if mainClientsForm. ComboBox1.ItemIndex=3 then mainClientsForm. N9.Click;

if mainClientsForm. ComboBox1.ItemIndex=4 then mainClientsForm. N10.Click;

if mainClientsForm. ComboBox1.ItemIndex=5 then mainClientsForm. N20.Click;

if mainClientsForm. ComboBox1.ItemIndex=6 then mainClientsForm. N21.Click;

if mainClientsForm. ComboBox1.ItemIndex=7 then mainClientsForm. N18.Click;

end;

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;

begin

if mainflag then

begin

prosmForm.edit1.text:='';

prosmForm.edit2.text:='';

prosmForm.edit3.text:='';

prosmForm.edit5.text:='';

prosmForm.edit9.text:='1';

prosmForm.edit10.text:='1';

prosmForm.edit11.text:='2011';

prosmForm.edit14.text:='';

prosmForm.edit15.text:='';

prosmForm.edit16.text:='';

prosmForm.edit18.text:='';

prosmForm.edit19.text:='';

prosmForm.edit20.text:='';

prosmForm.edit21.text:='';

prosmForm.edit22.text:='';

prosmForm.edit23.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; ;

// размещение

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;

rez:=MainClientsForm.ADOQuery1.FieldByName ('kharakt').AsString;

prosmForm.Edit8.Text:=rez;

// запасы

sql_str:='SELECT * from zapas where idzapas= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idzapas;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('Izmerenie').AsString;

prosmForm.ComboBox1.Text:=rez;

rezint:= MainClientsForm. ADOQuery1.FieldByName ('zapas').AsInteger;

prosmForm.Edit2.Text:=inttostr (rezint);

rezfloat:= MainClientsForm. ADOQuery1.FieldByName ('stoimost').AsFloat;

prosmForm.Edit3.Text:=floattostr (rezfloat);

rez:=MainClientsForm.ADOQuery1.FieldByName ('rezerv_name').AsString;

prosmForm.Edit19.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('rezerv_prim').AsString;

prosmForm.Edit23.Text:=rez;

rezint:= MainClientsForm. ADOQuery1.FieldByName ('rezerv_kol').AsInteger;

prosmForm.Edit18.Text:=inttostr (rezint);

rezdate:= MainClientsForm. ADOQuery1.FieldByName ('rezerv_date').AsDateTime;

decodedatetime (rezdate, Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

aday:=1;

amonth:=1;

Ayear:=0;

if Ayear>2000 then begin

prosmForm.Edit20.Text:=inttostr (aday);

prosmForm.Edit21.Text:=inttostr (amonth);

prosmForm.Edit22.Text:=inttostr (Ayear);

end;

end;

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.GroupBox5.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.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. 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. 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.GroupBox5.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:=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;

poisk.Label1.Caption:='номер в плане доставки';

poisk.Button1.Caption:='Распределение'

end;

procedure TMainClientsForm. N18Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;

mainclientsform.ADOTable8.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;

end.

Проект

Главная форма приложения MainClients

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas