Приходная накладная включает в себя необходимые показатели для складского учета: наименование организации, ее ИНН, наименование склада, а также наименование, единицы измерения, количество и сумму поступления каждого товара и ответственных его за передачу и хранение лиц. Заявка поставщикам содержит название поставщика с его реквизитами, наименование товара, количество единиц товара. Товарно-транспортная накладная содержит дату документа, наименование и адрес отправителя и перевозчика, указание места, даты принятия груза и места, предназначенного для его доставки, наименование и адрес получателя и т. д.Свод по заявкам поставщикам содержит: наименование товара, количество заказанного товара, признак исполнения. Аналитический отчет содержит информацию: наименование продукции, количество реализованной продукции, цена реализации. Таблица — Структура выходного документа «Приходная накладная"Наименование поля.
Тип данных.
Размер поля123Наименование организации.
Текстовый50ИННТекстовый16наименование склада.
Текстовый50Наименование товара.
Текстовый50Единица измерения товара.
Текстовый10Количество товара.
ЧисловойЦелое.
Сумма оплаты за товар
ДенежныйФИО ответственных специалистов.
Текстовый50Таблица — Структура выходного документа «Заявка поставщикам"Наименование поля.
Тип данных.
Размер поля123Наименование поставщика.
Текстовый50ИННТекстовый16Адрес поставщика.
Текстовый50Наименование товара.
Текстовый50Единица измерения товара.
Текстовый10Количество товара.
ЧисловойЦелое.
Таблица — Структура выходного документа «Маршрутный лист"Наименование поля.
Тип данных.
Размер поля123Наименование товара.
Текстовый50Количество единиц товара.
ЧисловойЦелое.
Адрес доставки.
Текстовый50Время получения.
ВремяВремя доставки.
ВремяСумма заказа.
ДенежныйТаблица — Структура выходного документа «Товарно-транспортная накладная"Наименование поля.
Тип данных.
Размер поля123Дата.
ДатаНаименование отправителя.
Текстовый50Адрес отправителя.
Текстовый50Место принятия груза.
Текстовый50Продолжение таблицы 22Дата принятия груза.
ДатаНаименование получателя.
Текстовый50Таблица 23 — Структура выходного документа «Свод по заявкам поставщикам"Наименование поля.
Тип данных.
Размер поля123Дата.
ДатаНомер заявки.
ЧисловойЦелое.
ПоставщикТекстовый50Наименование товара.
Текстовый50Количество.
ЧисловойЦелое.
ЦенаЧисловой.
ЦелоеПризнак исполнения.
ЛогическийТаблица 24 — Структура выходного документа «Аналитический отчет"Наименование поля.
Тип данных.
Размер поля123Дата.
ДатаНаименование продукции.
Текстовый50Количество реализованной продукции.
ЧисловойЦелое.
КоличествоЧисловой.
ЦелоеНа рис.
17 показан макет выходного документа «Анализ исполнения заявок», на рис.
18 — макет документа «Список новых заказов"Рисунок 17 — Макет документа «Анализ исполнения заявок"Рисунок — Макет документа «Список новых заказов"3.4 Метод решения задачи.
Математическое обеспечение — это совокупность математических моделей и алгоритмов для решения задач и обработки информации с применением вычислительной техники. В состав математического обеспечения входят: техническая документация (описание задач, алгоритмы решения задач, экономико-математические модели); средства МО (средства моделирования типовых задач управления, методы многокритериальной оптимизации, математической статистики, теории массового обслуживания и др.); техническая документация (описание задач, алгоритмы решения задач, экономико-математические модели); методы выбора МО (методы определения типов задач, методы оценки вычислительной сложности алгоритмов, методы оценки достоверности результатов).Расчет сумм накладных производится по формулам, n — общее число позиций в накладной, pi — количество позиций i-го товара, zi — стоимость единицы i-го товара.
3.5 Программное обеспечение задачи.
Опишем основные пользовательские функции разработанной автоматизированной системы управления магазином спортивных товаров.
Установка программы1. Для работы программы необходимо наличие следующих установленных компонент: — OpenOffice.org 2.2 и выше;
2. Запустить установочный файл программы Setup. exeЗапустить на выполнение программу либо с помощью ярлыка, созданного инсталлятором на рабочем столе. Главная форма приложения приведена на рис.
19. Из режима главной формы доступны возможности работы со справочниками, документами и отчетами. Рисунок — Окно запуска программы.
Из режима главной формы доступна работа со справочниками и документами. Окно справочника данных организации показано на рис.
20.Рисунок — Окно справочника данных организации.
Окно справочника контрагентов приведено на рис.
21, на рис.
22 показано окно добавления новой записи в справочник контрагентов. В справочнике контрагентов производится заполнение реквизитов предприятий. Рисунок — Справочник — Контрагенты.
Рисунок — Добавление новой записи в справочник контрагентов.
На рис.
23 показано окно справочника «Товары», на рис.
24 — окно добавления новой записи в справочник товаров. В данном справочнике производится заполнение данных о реализуемой продукции. Рисунок — Справочник «Товары"Рисунок 24 — Добавление новой записи в справочник «Товары"На рис.
25 приведено окно справочника «Сотрудники», на рис.
26 — окно добавления новой записи в справочник «Сотрудники». Справочник сотрудников необходим для печати информации в печатных формах документов. Рисунок — Справочник «Сотрудники"Рисунок — Добавление новой записи в справочник «Сотрудники"Режим ввод заказа поставщикам показан на рис.
27, регистрационная карточка заказа — на рис.
28.Рисунок — Ввод заказа поставщикам.
Регистрационная карточка заказа передается специалистам для начала работ по поставке заказа. Регистрационная карточка заказа.
Код заказа:
10Дата заявки:
17.05. 2018.
Поставщик:
ООО Ивановское.
Продукция:
кроссовки баскетбольные.
Количество ед:10Стоимость заказа:
Заказ зарегистрировал:
Кузнецов В. В. Рисунок — Форма «Регистрационная карточка заказа"Для работы с отгрузкой товаров клиентам и формирования отчетных форм необходимо использовать режим «реализация, отчетность» (рис.
29)Рисунок — Режим реализации.
В данном журнале отображаются все заказы, отправленные поставщикам, из этого же режима производится реализация продукции и печать отчетных форм. Для этого необходимо нажать «Отпуск товара, отчетность» (рис.
30). Доступные отчетные формы:
Приходная накладная;
— Товарно-транспортная накладная;
— Товарный чек;
— Маршрутный лист. Рисунок — Реализация товара.
Примеры сформированных отчетных форм приведены ниже. ООО Санточа.
ИНН 5 433 105 605.
Приходная накладная № 1от 31.
05.2018.
Склад 1№ п.п.Наименование.
Ед. изм.Цена.
Кол-во.
Сумма1мяч волейбольныйшт1 250 010 125 000.
Итого125 000.
Принято ценностей на сумму:
Сто двадцать пять тысяч рублей 00 коп.
прописью.
ПринялСдал (подпись и разборчиво фамилию)(подпись и разборчиво фамилию) Рисунок — Печатная форма «Приходная накладная"Рисунок — Печатная форма «Товарно-транспортная накладная"Товарный чек № 1от 31.
05.2018ООО Санточа.
ОГРН _________________________ от ___________________ выдано ______________________Наименование товара.
Кол-во.
ЦенаСуммамяч волейбольный1 012 500 125 000.
Наличие кассового чека обязательно.
Итого: Сто двадцать пять тысяч рублей 00 коп. Рисунок — Печатная форма «Товарный чек"На рис.
34 показан режим работы по вводу заказов клиентов. Рисунок — Ввод нового заказа.
На рис.
35 показано меню выбора отчетности по заявкам клиентов. Рисунок — Меню отчетности по заявкам клиентов.
Список новых заказов.
ДатаКлиент.
ПродуктСрок.
Кол-во02.
01.2018ИП Горячевкроссовки баскетбольные12.
05.20 182 502.
01.2018ИП Горячевракетки теннисные13.
05.2 018 102.
01.2018ИП Горячевракетки теннисные14.
05.2 018 108.
01.2018ООО Стройпоставка.
Ракетка теннисная15.
05.2 018 510.
03.2018ООО Стройпоставка.
Ракетка теннисная16.
05.2 018 108.
04.2018ООО Стройпоставка.
Мяч для тенниса10.
04.20 181 010.
05.2018ИП Горячев.
Мяч для тенниса10.
06.201 810.
Анализ исполнения заявок№ заявки.
ДатаКлиент.
ЦехСрок.
Факт.
исполнение.
Длительность102.
06.2018ИП Мамедов.
Склад 212.
06.201 810.
06.20 188.
Рисунок — Отчет «Анализ исполнения заявок"В ходе опытной эксплуатации программного продукта выявлено, что объём реализованных задач в разработанном программном обеспечении соответствует технологии работы менеджера по сбыту и может быть принято решение о принятии разработанного программного продукта к промышленной эксплуатации. На этапах внедрения программы возможна организация поддержки пользователей и исправления выявленных неточностей. Выводы по разделу.
В данном разделе была проведена разработка информационной системы управления продажами спортивной продукции согласно задачам автоматизации, поставленным в предыдущих разделах. На первом этапе было проведено проектирование базы данных, далее проведен выбор средств проектирования приложения и СУБД и далее приведено описание внедряемого программного обеспечения, разработанного специалистами ИТ-отдела на основании спроектированной модели данных в рамках данного проекта. Показано, что режимы работы разработанного ПО соответствуют функционалу специалистов по управлению продажами. Также в данномразделе были рассмотрены такие аспекты разработки экономической информационной системы, как описание функциональных и обеспечивающих подсистем и описание новой технологии управления документооборотом. Также была разработана концептуальная схема базы данных системы и определена входящая и исходящая информация (и соответствующие типы данных), рассмотрен алгоритмуправления продажами спортивной продукции.
Заключение
.
Подводя итог проделанной работе, хочется отметить успешное выполнение поставленной цели дипломного проекта: разработана система автоматизации торговых точек, использующая возможности и имеющиеся информационные хранилища автоматизированной системы ООО «Санточа». Стоит отметить, что такой подход позволил реализовать полный требуемый функционал системы, при этом риски умышленного и случайного нанесения вреда внутриорганизационным информационным системам сведены к минимуму. Так же, в рамках данной дипломной работы, были решены все задачи, поставленные на первоначальных этапах: детально изучена предметная область; выявлена необходимость автоматизации одного из самых значимых направлений деятельности — учета реализации продукции и заявок поставщикам; помимо этого, при разработке проектных решений применялись современные технологии разработки средств сбора, передачи, обработки, хранения и выдачи информации. Первая часть работы содержит анализ предметной области — проведено моделирование бизнес-процессов технологии работы менеджеров ООО «Санточа», определены задачи автоматизации. Также проведен анализ существующих решений в контексте их использования в рамках автоматизации исследуемого ООО «Санточа». В качестве оптимального решения стратегии автоматизации была выбрана собственная разработка программного обеспечения. Во второй части диплома проведен расчет экономической эффективности и собственно проведению всех расчетов, направленных на обоснование экономической эффективности проекта. Полученные результаты расчетов свидетельствуют об экономической эффективности проекта. Хочется отметить, что разработанная система контроля заявок далека от совершенства. Однозначно можно сказать, что в процессе ее работы будут разрабатываться модули, позволяющие расширить функционал, обеспечить более удобную работу с системой, повысить надежность, ведь от сбоев никто не застрахован. Однако, уже сейчас можно утверждать, что система универсальна и может быть применена не только в ООО «Санточа», но и на торговыхорганизациях любого рода деятельности. Список источников и литературы.
Акперов, И. Г. Информационные технологии в менеджменте: Учебник / И. Г. Акперов, А. В. Сметанин, И. А. Коноплева. — М.: НИЦ ИНФРА-М, 2013. — 400 c. Венделева, М. А. Информационные технологии в управлении: Учебное пособие для бакалавров / М. А. Венделева, Ю. В. Вертакова. — М.: Юрайт, 2013. ;
462 c. Голицына, О. Л. Базы данных: Учебное пособие / О. Л. Голицына, Н. В. Максимов, И. И. Попов. — М.: Форум, 2012. — 400 c. Грекул В.
И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий — М.: ИНТУИТ.ру, 2009. с.
135Гринберг, А. С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351 400 «Прикладная информатика (по обл.)», 61 100 «Менеджмент орг.», 61 000 «Гос. и муницип. упр.» ] /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.
М.: ЮНИТИ, 2010.-479 с. Диго, С. М. Базы данных: проектирование и использование: [Учеб.
для вузов по специальности «Прикладная информатика (по обл.)» ] /С.М. Диго.
М.: Финансы и статистика, 2010.-591 с. Ивасенко, А. Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям & quot;Прикладная информатика (по обл.)", «Менеджмент орг.», «Гос. и муницип. упр.& quot;] /А. Г.
Ивасенко, А. Ю. Гридасов, В. А. Павленко.
М.: Кно.
Рус, 2011.-153 с. Информатика: [учеб. для вузов по специальности & quot;Прикладная информатика (по обл.)" и др. экон. специальностям] / А. Н. Гуда [и др.]; под общ. ред. В.
И. Колесникова.
М.: Дашков и К°, 2010.-399 с. Информатика: учебник для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и другим экономическим специальностям /[В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.
М.: Юрайт, 2010.-910 с. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.
М.: Высш. образование, 2010.-480 с. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. экон. специальностям / В. В.
Трофимов и др.]; под ред. проф. В. В.
Трофимова.
М.: Юрайт, 2009.-624 с. Исаев, Г. Н. Информационные технологии: Учебное пособие / Г. Н. Исаев. — М.: Омега-Л, 2013. — 464 c. Карпова, И. П. Базы данных: Учебное пособие / И. П. Карпова.
— СПб.: Питер, 2013. — 240 c. Кириллов, В.В.
Введение
в реляционные базы данных.
Введение
в реляционные базы данных / В. В. Кириллов, Г. Ю. Громов. — СПб.: БХВ-Петербург, 2012. — 464 c. Комплексная система защиты информации на предприятии.
Часть 1. — М.: Московская Финансово-Юридическая Академия, 2008. -.
124 с. Коноплева, И. А. Информационные технологии: учеб. пособие: [для вузов по специальности & quot;Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В.
Денисов.
М.: Проспект, 2010.-294 с. Кудинов, Ю. И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» /Ю. И. Кудинов, Ф. Ф. Пащенко.
СПб.: Лань, 2009.-255 с. Луенбергер, Д. Д. Информатика: учеб.
метод. пособие для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. междисциплинарным специальностям / Дэвид Дж. Луенбергер; пер. с англ. Ю. Л.
Цвирко под ред. д.т.н. К. К. Колина.
М.: Техносфера, 2008.-447 с. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М.: ДИАЛОГ-МЭФИ, 2009.
Максимов, Н. В. Современные информационные технологии: Учебное пособие / Н. В. Максимов, Т. Л. Партыка, И. И. Попов. — М.: Форум, 2013. — 512 c. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем ./С.В. Маклаков. — М.: ДИАЛОГ-МЭФИ, 2009.
Максимов, Н. В. Технические средства информатизации: учебник по специальностям «Информатика и вычисл. техника», «Прикладная информатика (по областям)» /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.
М.: Форум, 2008.-591 с. Максимов, Н. В. Технические средства информатизации: учеб.
для студентов учреждений сред. проф. образования, обучающихся по группе специальностей & quot;Информатика и вычисл. техника& quot; и для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика (по областям)» /Н. В. Максимов, Т. Л. Партыка, И. И.
Попов. — М.: Форум, 2010.-606 с. Малыхина, М. П. Базы данных: основы, проектирование, использование. / М. П. Малыхина. — СПб.: БХВ Петербург.
Марков, А. С. Базы данных: Введ. в теорию и методологию: Учеб. по специальности «Прикладная математика и информатика» /А.С. Марков, К. Ю. Лисовский.
М.: Финансы и статистика, 2009.-511 с. Мишенин А. И. Теория экономических информационных систем./ А. И. Мишенин. — М.: Финансы и статистика, 2010. 240 с. Смирнова, Г. Н. Проектирование экономических систем: Учебник. / Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов. — М.: Финансы и статистика, 2010.
Приложение.
Листинг кодаprocedure TFrrm1. RzBitBtn1Cllck (Sender: TObject);beginwithfrrm1.ADOQuery1 dobeginclose;sql.Clear;sql.add ('select * from contrag');active:=true;end;frrm2.DBGrid1.Columns[0]. T itle. cpption:='Код';frrm2.DBGrid1.Columns[1].Title.cpption:='Наименование';frrm2.DBGrid1.Columns[2].Title.cpption:='ИНН';frrm2.DBGrid1.Columns[3].Title.cpption:='Адрес';frrm2.DBGrid1.Columns[4].Title.cpption:='Телефон';frrm2.DBGrid1.Columns[5].Title.cpption:='ФИОруководителя';frrm2.DBGrid1.Columns[6].Title.cpption:='Тип';frrm2.Show;end;procedure TFrrm1. RzBitBtn2Cllck (Sender: TObject);beginwithfrrm1.adoquery3 dobeginclose;sql.Clear;sql.Add ('select * from prod');active:=true;end;frrm5.DBGrid1.Columns[0]. T itle. cpption:='Код';frrm5.DBGrid1.Columns[1].Title.cpption:='Наименование';frrm5.DBGrid1.Columns[2].Title.cpption:='Ед.измерения';frrm5.Show;end;procedure TFrrm1. RzBitBtn3Cllck (Sender: TObject);var i: integer;beginwithfrrm1.ADOQuery1 dobeginclose;sql.Clear;sql.add ('select * from contrag where typ='+frrm1.Label1.Cpption+trim ('Поставщик')+frrm1.Label1.Cpption);open;end;frrm7.ComboBox1.Clear;for i:=1 to frrm1. ADOQuery1.RecordCount dobeginfrrm7. ComboBox1.Items.Add (trim (frrm1.ADOQuery1nam.AsString));frrm1.adoquery1.Next;end;withfrrm1.ADOQuery3 dobeginclose;sql.Clear;sql.add ('select * from prod');open;end;withfrrm1.ADOQuery12 dobeginclose;sql.Clear;sql.add ('select * from syrr');active:=true;end;withfrrm1.ADOQuery6 dobeginclose;sql.Clear;sql.add ('select max (code) from zayav');open;end;frrm7.edit2.clear;frrm7.ComboBox3.clear;withfrrm1.ADOQuery9 dobeginclose;sql.Clear;sql.add ('select * from sotr');open;end;for i:=1 to frrm1. ADOQuery9.RecordCount dobeginfrrm7. ComboBox3.Items.Add (trim (frrm1.adoquery9fio.asstring));frrm1.ADOQuery9.Next;end;iffrrm1.ADOQuery6.RecordCount=0 then frrm7. Edit1.Text:='1' else frrm7. Edit1.Text:=inttostr (1+frrm1.ADOQuery6Expr1000.AsInteger);frrm7.show;end;procedure TFrrm1. RzBitBtn4Cllck (Sender: TObject);beginwithfrrm1.ADOQuery7 dobeginclose;sql.Clear;sql.add ('SELECT zayav. code, contrag. nam, prod. nam, zayav. day, zayav. kol FROM prod INNER JOIN (contrag INNER JOIN zayav ON contrag. code = zayav. code_contrag) ON prod. code = zayav. code_prod');active:=true;end;frrm8.DBGrid1.Columns[0]. title. cpption:='Код';frrm8.DBGrid1.Columns[1].title.cpption:='Поставщик';frrm8.DBGrid1.Columns[2].title.cpption:='Товар';frrm8.DBGrid1.Columns[3].title.cpption:='Дата';frrm8.DBGrid1.Columns[4].title.cpption:='Количество';frrm8.Show;end;procedure TFrrm1. RzBitBtn5Cllck (Sender: TObject);beginfrrm1.adoquery8.Open;iffrrm1.ADOQuery8.RecordCount>0 thenbeginfrrm9. Edit1.Text:=frrm1.ADOQuery8nam.asstring;frrm9.Edit2.Text:=frrm1.ADOQuery8dir.asstring;frrm9.Edit3.Text:=frrm1.ADOQuery8inn.asstring;frrm9.Edit4.Text:=frrm1.ADOQuery8adr.asstring;frrm9.Edit5.Text:=frrm1.ADOQuery8tel.asstring;end;frrm9.Show;end;procedure TFrrm1. RzBitBtn6Cllck (Sender: TObject);beginwithfrrm1.ADOQuery9 dobeginclose;sql.Clear;sql.add ('select * from sotr');active:=true;end;frrm10.DBGrid1.Columns[0].
T itle. cpption:='ФИО';frrm10.DBGrid1.Columns[1].Title.cpption:='Должность';frrm10.show;end;procedure TFrrm1. RzBitBtn7Cllck (Sender: TObject);beginwithfrrm1.ADOQuery10 dobeginclose;sql.Clear;sql.add ('select * from sklad');active:=true;end;frrm13.DBGrid1.Columns[0]. T itle. cpption:='Код';frrm13.DBGrid1.Columns[1].Title.cpption:='Наименование';frrm13.show;end;procedure TFrrm1. RzBitBtn8Cllck (Sender: TObject);beginfrrm1.close;end;procedure TFrrm1. RzBitBtn9Cllck (Sender: TObject);beginwithfrrm1.ADOQuery12 dobeginclose;sql.Clear;sql.add ('select * from syrr');active:=true;end;frrm15.DBGrid1.Columns[0]. T itle. cpption:='Код';frrm15.DBGrid1.Columns[1].Title.cpption:='Наименование';frrm15.DBGrid1.Columns[2].Title.cpption:='Ед.изм';frrm15.DBGrid1.Columns[3].Title.cpption:='Цена';frrm15.Show;end;procedure TFrrm1. RzBitBtn10Cllck (Sender: TObject);beginwithfrrm1.ADOQuery1 dobeginclose;sql.Clear;sql.add ('select * from contrag where typ='+frrm1.Label1.Cpption+trim ('Клиент')+frrm1.Label1.Cpption);active:=true;end;withfrrm1.adoquery3 dobeginclose;sql.Clear;sql.Add ('select * from prod');active:=true;end;withfrrm1.ADOQuery15 dobeginclose;sql.Clear;sql.Add ('select max (code) from z_cli');open;end;iffrrm1.ADOQuery15.RecordCount=0 then frrm17. Edit1.Text:='1' else frrm17. Edit1.Text:=inttostr (1+frrm1.ADOQuery15Expr1000.AsInteger);frrm17.show;end;procedure TFrrm1. RzBitBtn11Cllck (Sender: TObject);beginwithfrrm1.ADOQuery16 dobeginclose;sql.Clear;sql.Add ('select * from zp1');active:=true;end;frrm18.DBGrid1.Columns[0]. Title. cpption:='Код';frrm18.DBGrid1.Columns[1].Title.cpption:='Клиент';frrm18.DBGrid1.Columns[2].Title.cpption:='Продукция';frrm18.DBGrid1.Columns[3].Title.cpption:='Кол-во';frrm18.DBGrid1.Columns[4].Title.cpption:='Датапост-я';frrm18.DBGrid1.Columns[5].Title.cpption:='Контр.
дата';frrm18.DateTimePicker1.date:=now;frrm18.Show;end;procedure TFrrm1. RzBitBtn12Cllck (Sender: TObject);beginfrrm20.Show;end;end.procedure TFrrm10. RzBitBtn2Cllck (Sender: TObject);beginfrrm10.close;end;procedure TFrrm10. RzBitBtn1Cllck (Sender: TObject);beginfrrm11.Edit1.clear;frrm11.Edit2.clear;frrm11.show;end;end.unit Unit11;procedure TFrrm11. BitBtn1Cllck (Sender: TObject);beginfrrm1.ADOQuery9.AppendRecord ([edit1.Text, edit2. Text]); edit1. clear; edit2. clear;showmessage ('Записано');end;end.unit Unit12;procedure TFrrm12. RzBitBtn2Cllck (Sender: TObject);beginfrrm12.close;end;procedure TFrrm12. RzBitBtn1Cllck (Sender: TObject);varcllc:toocllc;begincllc:=toocllc.Create ('c:holodxltprih_nakl.xlt');frrm1.ADOQuery8.Open;cllc.Cell[2,2]: =trim (frrm1.ADOQuery8nam.AsString);cllc.Cell[3,2]:='ИНН '+trim (frrm1.ADOQuery8inn.AsString);cllc.Cell[4,8]: =edit1.Text;cllc.Cell[5,6]:=datetostr (datetimepicker1.Date);cllc.Cell[6,3]:=combobox1.Text;cllc.Cell[10,2]:='1';cllc.Cell[10,3]:=edit2.Text;cllc.Cell[10,6]:= 'шт';cllc.Cell[10,7]: =edit4.Text;cllc.Cell[10,8]:=edit3.Text;cllc.Cell[10,9]:=edit5.text;cllc.Cell[11,9]:=edit5.Text;cllc.Cell[13,2]:=g_numtorub (strtocurr (edit5.Text));cllc.Cell[15,5]:=combobox3.text;cllc.Cell[15,7]:='_______________'+combobox2.text;cllc.Visible:=true;end;procedure TFrrm12. RzBitBtn3Cllck (Sender: TObject);varCllc:toocllc;begincllc:=toocllc.Create ('c:holodxltttn.xlt');cllc.Cell[9,22]: =frrm1.ADOQuery7prodnam.AsString;frrm1.ADOQuery8.Open;cllc.Cell[11,22]:=frrm1.ADOQuery8nam.AsString;cllc.Cell[13,22]:=frrm1.ADOQuery8nam.AsString;cllc.Cell[18,1]:='1';cllc.Cell[7,169]:=datetostr (datetimepicker1.date);cllc.Cell[18,45]:= edit3. Text;cllc.Cell[18,57]: = edit4. Text;cllc.Cell[18,73]: = edit2. Text;cllc.Cell[18,134]: = edit3. Text;cllc.Cell[18,159]: =edit5.Text;cllc.Cell[18,170]:=edit1.Text;cllc.Cell[35,28]:=g_numtorub (strtocurr (edit5.Text));cllc.Cell[39,33]:=combobox3.Text;withfrrm1.ADOQuery9 dobeginclose;sql.Clear;sql.add ('select * from sotr where fio='+frrm1.Label1.Cpption+trim (combobox3.Text)+frrm1.Label1.Cpption);open;end;cllc.Cell[39,1]: =frrm1.ADOQuery9dolgn.AsString;cllc.Cell[42,70]:=combobox2.Text;withfrrm1.ADOQuery9 dobeginclose;sql.Clear;sql.add ('select * from sotr where fio='+frrm1.Label1.Cpption+trim (combobox2.Text)+frrm1.Label1.Cpption);open;end;cllc.Cell[42,28]: =frrm1.ADOQuery9dolgn.AsString;cllc.Cell[32,159]:=edit5.Text;cllc.Visible:=true;end;procedure TFrrm12. RzBitBtn4Cllck (Sender: TObject);varcllc:toocllc;begincllc:=toocllc.Create ('c:holodxlttovcheck.xlt');cllc.Cell[1,2]: ='Товарныйчек № '+edit1.Text;cllc.Cell[1,3]: ='от '+datetostr (datetimepicker1.date);frrm1.ADOQuery8.Open;cllc.Cell[2,1]: =frrm1.ADOQuery8nam.AsString;cllc.Cell[7,1]:=edit2.Text;cllc.Cell[7,2]:=edit3.Text;cllc.Cell[7,3]:=edit4.Text;cllc.Cell[7,4]:=edit5.Text;cllc.Cell[15,1]:='Итого: '+g_numtorub (strtocurr (edit5.Text));cllc.Visible:=true;end;procedure TFrrm12. RzBitBtn5Cllck (Sender: TObject);varcllc:toocllc;begincllc:=toocllc.Create ('c:holodxltmlist.xlt');cllc.Cell[1,3]: =edit1.Text;cllc.Cell[1,5]:=datetostr (datetimepicker1.Date);frrm1.ADOQuery8.open;cllc.Cell[4,1]:=frrm1.ADOQuery8adr.AsString;withfrrm1.ADOQuery1 dobeginclose;sql.Clear;sql.add ('select * from contrag where nam='+frrm1.Label1.Cpption+trim (combobox4.Text)+frrm1.Label1.Cpption);open;end;cllc.Cell[6,1]: =trim (frrm1.ADOQuery1adr.AsString);cllc.Cell[8,1]:=edit2.Text;cllc.Cell[9,1]:=cllc.Cell[9,1]+' '+edit3.Text;cllc.Cell[11,2]: =combobox2.Text;cllc.Visible:=true;end;end.procedure TFrrm13. BitBtn1Cllck (Sender: TObject);beginfrrm14.Edit2.clear;withfrrm1.adoquery11 dobeginclose;sql.clear;sql.Add ('select max (code) from sklad');open;end;iffrrm1.ADOQuery11.RecordCount=0 then frrm14. Edit1.Text:='1' else frrm14. edit1.Text:=inttostr (1+frrm1.ADOQuery11Expr1000.AsInteger);frrm14.show;end;procedure TFrrm13. RzBitBtn1Cllck (Sender: TObject);beginwithfrrm1.ADOQuery21 dobeginclose;sql.Clear;sql.Add ('SELECT zeh_prod.code, prod. nam, sklad. nam FROM sklad INNER JOIN (prod INNER JOIN zeh_prod ON prod. code = zeh_prod.code_pr) ON sklad. code = zeh_prod.code_skl where sklad. code= '+frrm1.ADOQuery10code.AsString);active:=true;end;withfrrm1.adoquery3 dobeginclose;sql.Clear;sql.Add ('select * from prod');active:=true;end;frrm21.DBGrid1.Columns[0]. Title. cpption:='Продукция';frrm21.DBGrid1.Columns[1].Title.cpption:='Цех';frrm21.Show;end;end.
