Создание автоматизированной системы управления торгового предприятия

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

7740 леев х 3мес./ 10ед. = 2322 леев

Аренда основных средств административного и общего характера

Аренда офиса составляет 2000 леев / мес.(Центр города,20м2)

Расходы на аренду на создание данного продукта составляют:

2000 леев х 3 мес./ 10 ед. = 600 леев.

Расходы на электроэнергию

Расходы на электроэнергию составляют 100 леев / мес.

Расходы на электроэнергию на создание данного продукта составляют:

100 леев х 3 мес./ 10 ед. = 30 леев.

Суммарные Общие и административные расходы составляют:

2322 леев+600 леев. + 30 леев. = 2952 леев

Таблица 1.4 - Расходы периода

Расход на единицу продукции составит:

3312 леев / 10 ед. = 331,2 леев

Остальные виды расходов отсутствуют.

5.4 Расчет цены продукта

Цена = Полная себестоимость + Прибыль + НДС

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

11493,84 лей /10 ед. = 1149,38 леев

Полная себестоимость это суммма расходов и затрат на создание единицы продукции:

331,2 лей + 1149,38 лей = 1480,58 леев

Надбавка = 500 леев.

Цена без НДС = 1480,58 леев + 500 леев = 1980,58 леев

Итого цена единицы продукта без НДС составляет 1980,58 леев

Таблица 1.5 - Расчет прибыли

Наименование	Расчет	Сумма, леев
Доход от продаж	1980,58 х 10 = 19805,8	19805,8
Себестоимость продаж	1149,38 x 10 = 11493,8	11493,8
Валовая прибыль	19805,8 - 11493,8 = 8312	8312
Расходы периода	331,2 x 10 = 3312	3312
Прибыль от оп. деятельности	8312- 3312 = 5000	5000
Прибыль до налогообложения		5000
Расход по подоходному налогу	5000 х 0,18 = 900	900
Чистая прибыль предприятия	5000 - 900 = 4100	4100

5.5 Расчёт показателей рентабельности

Коэффициенты рентабельности показывают, насколько прибыльна деятельность компании.

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

Рентабельность продаж = ЧП / ДП 100% = 4100 / 19805,8 100% = 20,70%

Норма валовой прибыли -- это отношение валовой прибыли к доходу (выручке) от реализации продукции.

Норма валовой прибыли = ВП / ДП. 100% = 8312 / 19805,8 100% = 41,96%

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

Норма операционной прибыли = ОП/ДП x 100% = 5000 / 19805,8 100% =25,24%

5.6 График безубыточности

Деление затрат на постоянные и переменные лежит в основе метода, который широко распространен в экономике. Впервые он был предложен в 1930 г. инженером Уолтером Раутенштраухом как способ планирования, получивший известность под названием графика критического объема производства, или графика безубыточности (рис. 2).

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

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

При построении графика по горизонтальной оси откладывается объем производства в единицах изделий или в процентах использования производственной мощности, а по вертикальной ? затраты на производство и доход. Затраты откладываются с подразделением на постоянные (ПОИ) и переменные (ПИ). Кроме линий постоянных и переменных издержек, на графике отображаются валовые издержки (ВИ) и выручка от реализации продукции (ВР).

Рисунок 2 - График безубыточности

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

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

5.7 Выводы

В результате анализа проделанной работы в данной объектной области выявились некоторые основные факторы:

Торговая информационная система - продукт, имеющий хороший потенциал внедрения на рынок нашей страны;

Рентабельность продукта во многом определяется невысокой себестоимостью продукции;

Такая высокая рентабельность данного продукта определяется тем фактором, что затраты на копирование продукта очень малы. Т.е. увеличение объёма продаж не сильно увеличивают затраты на создание продукта;

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

6. Охрана труда и окружающей среды

6.1 Введение

Задание на дипломный проект является разработка ПО ТИС. Работа над дипломным проектом связано непосредственно с компьютером и разработанной программой будет пользоваться оператор ПЭВМ. Работа с ПЭВМ связано с воздействием на пользователя опасных и вредных производственных факторов, что и подтверждается Постановлением Правительства РМ №1485 от 31.12.04, который относит работу за дисплеями компьютеров к работе с вредными условиями труда. По этой причине возникает необходимость рассмотрения опасности и вредности воздействия на пользователя и способы и средства их уменьшения.

6.2 Анализ условий труда

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

Работа ПЭВМ связана с присутствием на рабочем месте человека - оператора, поэтому вопросы охраны труда будут рассматриваться с точки зрения обеспечения безопасных условий труда и условий труда сохраняющих здоровье оператора, пользователя.

При работе в помещении лаборатории по производству ПО следует выделить следующие вредные и опасные факторы:

Метеорологические условия среды (микроклимат лаборатории);

Аномальное освещение;

Высокий уровень шума;

Повышенный уровень ионизирующего излучения;

Опасность поражения электрическим током;

Повышенные психофизиологические нагрузки;

Пожароопасность.

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

Высокая температура способствует быстрому утомлению оператора, может привести к перегреву организму, что вызывает тепловой удар. Низкая температура может вызвать местное или общее охлаждение организма, стать причиной простудного заболевания. Поэтому в качестве оптимального микроклимата для персонала, с учетом требований предъявляемых к оборудованию лаборатории, установлен микроклимат, отвечающий характеристикам: температура - 22-240С, относительная влажность - 40-60%, подвижность воздуха не более 0.1 м/с. Освещенность измеряется в люминах лк., и для искусственного освещения приняты норма освещенности на рабочей поверхности составляет 250-350 лк.

Работы производимые в помещении лаборатории соответствуют категории работ I (легкий физический труд); разряд зрительных работ - III.

Шум , создаваемый одной ПЭВМ невелик, он находится в диапазоне 30-68 дб. Он должен не превышать уровня 40 дб. Но поскольку в лаборатории находится не одна ЭВМ, то шум производимый ими является достаточно высоким. Кроме того данный тип шума оказывает отрицательное воздействие на человека еще и тем, что он является монотонным. Также необходимо отметить, что в помещении лаборатории используются принтеры, что также увеличивает уровень шума. Шум нарушает нервную систему; шумовые явления обладают свойством куммуляции: накапливаясь в организме, он все больше и больше угнетает нервную систему. Шум - причина преждевременного утомления, ослабления внимания, памяти.

Ионизирующими называются излучения, взаимодействие которых со средой приводит к образованию электрических зарядов разных знаков. К ионизирующим излучениям относятся: гамма-излучение, рентгеновское, корпускулярное, инфракрасное, микроволновое и другие виды излучений. Рентгеновское излучение на расстоянии 10 см. от монитора составляет не более 100 мкР/ч, а уровень ионизации обоих зарядов в диапазоне 1500-5000 на 1 см3 воздуха. Источником излучения в лаборатории по производству ПО являются мониторы. При повышенном электромагнитном излучении у человека появляется головная боль, повышенная утомляемость, что снижает сосредоточенность работающего к работе, его внимание.

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

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

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

Лаборатория по разработке ПО на предприятии по своей конструкции представляет собой невзрывоопасное помещение и по пожарной опасности относится к категории В. Степень огнестойкости здания - II. Класс помещения по пожарной опасности П-IIа.

6.3 Мероприятия по защите от вредных и опасных факторов

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

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

Для защиты от шума, создаваемого в лаборатории оборудованием, целесообразно использовать следующие методы:

Снижение шума в источнике его возникновения;

Снижение шума на пути его распространения.

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

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

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

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

Уменьшение влияния психофизиологических нагрузок на организм человека достигается путем правильного оформления рабочего места, рационального распределения рабочего времени (через каждые 2 часа проведенные за ПЭВМ необходимо обеспечивать 10-15 минут отдыха), правильным цветовым оформлением (коэффициенты отражения должны быть: 60-70% для потолка, 40-50% для стен, 30% для пола, 30-40% для других отражающих поверхностей), обеспечением соответствующей настройки параметров терминального оборудования (контрастность изображения знака не менее 0,8; яркость освещения экрана не менее 10 kq/m2; разрешение экрана 640х480 и более; частота регенерации изображения не менее 72 МГц)

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

6.4 Пожарная безопасность

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

В современных офисах очень высокая плотность размещения офисной техники. В непосредственной близости друг от друга располагаются соединительные провода и коммутационные кабели. При протекании по ним электрического тока может выделяться значительное количество теплоты, что может привести к повышению температуры до 90_120оС. При этом возможно оплавление изоляции соединительных проводов, их оголение и, как следствие, короткое замыкание, которое сопровождается искрением, ведет к быстрому нагреву и перегрузкам электрических сетей. Это может вызвать загорание близлежащих легковоспламеняющихся веществ. Рассматриваемое помещение офиса относится по пожарной безопасности к категории Д. В целях обеспечения пожарной безопасности локальная компьютерная сеть и электропроводка осуществляется по несгораемым конструкциям и защищена сверху стальной трубой. По степени огнестойкости здание имеет 1 степень, т.е. все конструктивные элементы несгораемые, с высоким пределом огнестойкости (1,5-3 ч), поэтому нет необходимости для дополнительного повышения огнестойкости здания. В качестве первичных средств пожаротушения в помещении имеется углекислотный огнетушитель ОУ-5, предназначенный для тушения при загорании различных веществ и электроустановок с напряжением до 10 кВ при температуре окружающего воздуха от -40 до +50°С. Данный вид огнетушителя используется, в основном, для тушения пожаров в закрытых помещениях, где имеется достаточная вентиляция, поскольку он содержит жидкую углекислоту. Использование этого огнетушителя предпочтительно еще и по той причине, что используемая в нем углекислота не вызывает короткого замыкания. Таким образом его можно использовать для тушения пожаров в различных типах электроустановок, находящихся под высоким напряжением. При возникновении пожара или другой чрезвычайной ситуации персонал офиса эвакуируется из помещения по специально разработанному плану эвакуации, находящемуся в помещении.

В здании предусмотрены конструктивные, объемно-планировочные и инженерно-технические решения, обеспечивающие в случае пожара:

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

возможность спасения людей;

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

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

В процессе строительства было обеспечено:

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

соблюдение противопожарных правил и охрану от пожара строящегося и вспомогательных объектов, пожаробезопасное проведение строительных и монтажных работ;

наличие и исправное содержание средств борьбы с пожаром;

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

Мероприятия по противопожарной защите здания предусматриваются с учетом технического оснащения пожарных подразделений и их расположения.

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

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

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

устройство наружных пожарных лестниц и обеспечение других способов подъема персонала пожарных подразделений и пожарной техники на этажи и на кровлю зданий, в том числе устройство лифтов, имеющих режим "перевозки пожарных подразделений";

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

противодымная защита путей следования пожарных подразделений внутри здания;

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

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

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

Проезды для основных и специальных пожарных машин предусматриваются в соответствии с требованиями СНиП 2.07.01.

В чердаке здания предусмотрены выходы на кровлю, оборудованные стационарными лестницами, через двери, люки или окна размерами не менее 0,6 х 0,8 м.

Выходы из лестничных клеток на кровлю или чердак предусматриваются по лестничным маршам с площадками перед выходом, через противопожарные двери 2-го типа размерами не менее 0,75 х 1.5 м. В технических этажах, в том числе в технических подпольях и технических чердаках, высота прохода в свету не менее 1,8 м; в чердаках вдоль всего здания - не менее 1,6 м. Ширина этих проходов не менее 1,2 м. В местах перепада высот кровель (в том числе для подъема на кровлю светоаэрационных фонарей) более 1 м, предусмотрены пожарные лестницы. Не предусматриваются пожарные лестницы на перепаде высот кровель более 10 м, если каждый участок кровли площадью более 100 м2 имеет собственный выход на кровлю, отвечающий требованиям 8.3, или высота нижнего участка кровли, определяемая по 8.3, не превышает 10 м. Для подъема на высоту от 10 до 20м и в местах перепада высот кровель от 1 до 20м применяются пожарные лестницы типа П1, для подъема на высоту более 20 м и в местах перепада высот более 20 м - пожарные лестницы, типа П2. Пожарные лестницы выполнены из негорючих материалов, располагаются не ближе 1 м от окон и рассчитаны на их использование пожарными подразделениями. Между маршами лестниц и между поручнями ограждений лестничных маршей следует предусматривать зазор шириной в плане в свету не менее 75 мм.

В зданиях с уклоном кровли до 12% включительно, высотой до карниза или верха наружной стены (парапета) более 10 м, а также в зданиях с уклоном кровли свыше 12% и высотой до карниза более 7 м следует предусматривать ограждения на кровле. Независимо от высоты здания ограждения, соответствующие требованиям этого стандарта, следует предусматривать для эксплуатируемых плоских кровель, балконов, лоджий, наружных галерей, открытых наружных лестниц, лестничных маршей и площадок.

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

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

6.5 Охрана окружающей среды

Зеленый компьютер -- Green Computer (Green PC). Компьютер, характеризуемый уменьшенным воздействием на окружающую среду. При создании модели зеленого компьютера поставлены задачи:

охрана здоровья пользователей;

понижение уровня радиационных и электромагнитных излучений;

отказ от использования в производстве веществ, вредных для здоровья людей;

утилизация отработанных компонентов компьютеров;

уменьшение выделения тепла;

обеспечение энергосбережения, т.е. понижение потребления электроэнергии.

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

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

В США зеленым называют компьютер, который соответствует требованиям Energy Star, разработанным агентством по защите окружающей среды (EPA).

Если связывать работу вычислительных центров (ВЦ) с экологией, то следует отметить, что информационная область является одной из самых экологически чистых в народном хозяйстве. Здесь затрачивается малое количество электроэнергии, в связи с использованием высоких технологий и малым энергопотреблением вычислительной аппаратуры. В связи с этим затрачивается меньшее количество природных ресурсов (нефть, газ, уголь) и снижается искусственный теплообмен в природе.

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

6.6 Расчет потребляемого количества воздуха при общественной вентиляции

Расчет потребляемого количества воздуха при общественной вентиляции проводился в помещении площадью в 20 м2. В рассчитываемом помещении находится 5 человек. В помещении имеется 2 окна размером 2х1,2 м2.

6.6.1 Расчет выделения тепла

а) Тепловыделения от людей

Тепловыделения человека зависят от тяжести работы, температуры окружающего воздуха и скорости движения воздуха. В расчете используется явное тепло, т.е. тепло, воздействующее на изменение температуры воздуха в помещении. Для умственной работы количество явного тепла, выделяемое одним человеком, составляет 140 ВТ при 10оС и 16 ВТ при 35оС. Для нормальных условий (20оС) явные тепловыделения одного человека составляют около 55 ВТ. Считается, что женщина выделяет 85%, а ребенок - 75% тепловыделений взрослого мужчины. В рассчитываемом помещении (5х10м) находится 5 человек. Тогда суммарное тепловыделение от людей будет:

Q1=5*55=275 ВТ (6.1)

б) Тепловыделения от солнечной радиации.

Расчет тепла поступающего в помещение от солнечной радиации Qост и Qп (ВТ), производится по следующим формулам:

для остекленных поверхностей

Qост=Fост*qост*Aост (6.2)

для покрытий

Qп=Fп*qп (6.3)

где Fост и Fп - площади поверхности остекления и покрытия, м2

qост и qп - тепловыделения от солнечной радиации, Вт/м2, через 1 м2 поверхности остекления (с учетом ориентации по сторонам света) и через 1 м2 покрытия;

Аост - коэффициент учета характера остекления.

В помещении имеется 2 окна размером 2х1,2 м2. Тогда Fост=4,8 м2.

Географическую широту примем равной 55о, окна выходят на юго-восток, характер оконных рам - с двойным остеклением и деревянными переплетами. Тогда,

qост=145 Вт/м2, Аост=1,15

Qост=4,8*145*1,15=800 Вт

Площадь покрытия Fп=20м2. Характер покрытия - с чердаком. Тогда,

qп=6 Вт/м2

Qп=20*6=120 Вт

Суммарное тепловыделение от солнечной радиации:

Q2=Qост+Qп=800+120=920. Вт (6.4)

в) Тепловыделения от источников искусственного освещения.

Расчет тепловыделений от источников искусственного освещения проводится по формуле:

Q3=N*n*1000, Вт (6.5)

Где N - суммарная мощность источников освещения, кВт;

n - коэффициент тепловых потерь (0,9 для ламп накаливания и 0,55 для люминесцентных ламп).

У нас имеется 20 светильников с двумя лампами ЛД30 (30Вт) и 2 местных светильника с лампами Б215-225-200 или Г215-225-200. Тогда получаем:

Q3=(20*2*0.03*0.55+2*0.2*0.9)*1000=1020 Вт

г) Тепловыделения от радиотехнических установок и устройств вычислительной техники.

Расчет выделений тепла проводится аналогично расчету тепловыделений от источников искусственного освещения:

Q4=N*n*1000, Вт (6.6)

Коэффициент тепловых потерь для радиотехнического устройства составляет n=0,7 и для устройств вычислительной техники n=0,5.

В помещении находятся: 1 персональных компьютера типа Intel Celeron по 600 Вт (вместе с мониторами).

Q4=1*0.6*0.5*1000=300 Вт

Суммарные тепловыделения составят:

Qс=Q1+Q2+Q3+Q4=2515 Вт (6.7)

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

Qизб=Qс-Qрасх (6.8)

Qрасх=0,1*Qс=251,5 Вт

Qизб=2263,5 Вт

6.6.2 Расчет необходимого воздухообмена

Объем приточного воздуха, необходимого для поглощения тепла, G (м3/ч), рассчитывают по формуле:

G=3600*Qизб/Cр*p*(tуд-tпр) (6.9)

Где Qизб - теплоизбытки (Вт);

Ср - массовая удельная теплоемкость воздуха (1000 Дж/кгС);

р - плотность приточного воздуха (1,2 кг/м3)

tуд, tпр - температура удаляемого и приточного воздуха.

Температура приточного воздуха определяется для холодного и теплого времени года. Поскольку удаление тепла сложнее провести в теплый период, то расчет проведем именно для него, приняв tпр=18оС. Температура удаляемого воздуха определяется по формуле:

tуд=tрз+a*(h-2) (6.10)

Где tрз - температура в рабочей зоне (20оС);

а - нарастание температуры на каждый метр высоты (зависит от тепловыделения, примем, а=1оС/м)

h - высота помещения (3,5м)

tуд=20+1*(3,5-2)=21,5оС

G=1940,14 м3/ч

Объем приточного воздуха, необходимого для поглощения тепла равен 1940,14 м3/ч.

Заключение

В рамках дипломного проекта была разработана автоматизированная системы управления торгового предприятия ТИС.

Разработанная ТИС позволяет достигнуть следующих эффектов:

Оптимизации деятельности фирмы;

Ускорения процесса взаимодействия фирмы с ее клиентами и поставщиками;

Разграничения полномочий и оптимизация работы сотрудников фирмы;

Контроля над деятельностью сотрудников фирмы;

Поддержания оптимальных запасов материалов в складах.

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

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

В последнее время в Республике Молдова намечается положительная тенденция роста экономики, что предоставляет благоприятные условия для развития экономических отношений среди экономических агентов РМ. Эти условия приводят к развитию существующих предприятий, а так же к появлению новых предприятий, что приводит к ожесточению конкуренции. Логично считать, что ожесточение конкуренции происходит и среди торговых фирм. Следовательно, каждая торговая фирма для своего процветания и благополучия должна быть конкурентоспособной, т.е. должна быстро реагировать на изменение рынка, принимать своевременные решения по тактике и стратегии развития своей деятельности. Достижение таких целей невозможно без использования современных информационных технологий. Но так как рынок информационных технологий в РМ достаточно скуден, то моя информационная система ТИС, предназначенная для автоматизации деятельности торгового предприятия, сможет легко найти свое применение на рынке РМ.

Литература

Архангельский А.Я. ПРОГРАММИРОВАНИЕ В C++Builder 5 - Москва "Издательство БИНОМ",2000, 1152 стр.

Дейт К. Руководство по реляционной СУБД DB2. Москва : «Финансы и статистика» 1988, 320 с.

Гласе Р. Руководство по надежному программированию. Москва : Финансы и статистика» 1982, 256 с.

Описание Компактной информационной системы "СФЕРА" - www.softplus.ru/opisanie/index.html

Описание Торгово-Информационной системы “ТИС” - www.tissystem.ru/tis/about.htm

Описание ИС-ПРО ОПТОВАЯ ТОРГОВЛЯ - www.intelserv.kiev.ua/ fortradingbestpro.shtml

UML диаграммы в Rational Rose - http://caseclub.ru/articles/rose2.html

Сергей Орлик, Наталия Елманова - Роль моделирования в разработке приложений

Приложение A

Листинг модуля для входа в систему ТИС

//---------------------------------------------------------------------------

#include <registry.hpp>

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit6.h"

#include "Unit9.h"

#include "Unit10.h"

#include "Unit18.h"

#include "Unit19.h"

#include "Unit11.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

int e;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

bool t=false;

DataModule2->IBQuery2->Active=true;

DataModule2->IBQuery2->First();

while(!DataModule2->IBQuery2->Eof)

{

if((DataModule2->IBQuery2->Fields->Fields[1]->AsString==Form1->Edit1->Text)

&&(DataModule2->IBQuery2->Fields->Fields[2]->AsString==Form1->Edit2->Text)){

if(DataModule2->IBQuery2->Fields->Fields[3]->AsString==Form1->ComboBox1->Text){

if(DataModule2->IBQuery2->Fields->Fields[5]->AsInteger==1){

ShowMessage("Пользователь с таким именем уже зарегистрирован!");

exit(0);

//Application->Terminate();

}

Form1->Visible=false;

int Com=ComboBox1->ItemIndex+1;

//-----------------------------------

switch(Com){

case 1:

Form3->Caption="Торгово-информационная система ТИС "+DataModule2->IBQuery2->Fields->Fields[3]->AsString;

Form9->Timer1->Enabled=true;

Form3->ShowModal();

break;

case 2:

e=DataModule2->IBQuery2->Fields->Fields[0]->AsInteger; Form9->Caption="Торгово-информационная система ТИС "+DataModule2->IBQuery2->Fields->Fields[3]->AsString;

Form9->Timer1->Enabled=true;

Form9->ShowModal();

break;

case 3:

e=DataModule2->IBQuery2->Fields->Fields[0]->AsInteger; Form10->Caption="Торгово-информационная система ТИС "+DataModule2->IBQuery2->Fields->Fields[3]->AsString;

Form9->Timer1->Enabled=true;

Form10->ShowModal();

break;

case 4:

e=DataModule2->IBQuery2->Fields->Fields[0]->AsInteger;

Form18->Caption="Торгово-информационная система ТИС "+DataModule2->IBQuery2->Fields->Fields[3]->AsString;

Form9->Timer1->Enabled=true;

Form18->ShowModal();

break;

case 5:

e=DataModule2->IBQuery2->Fields->Fields[0]->AsInteger;

Form19->Caption="Торгово-информационная система ТИС "+DataModule2->IBQuery2->Fields->Fields[3]->AsString;

Form9->Timer1->Enabled=true;

Form19->ShowModal();

break;

}

//-----------------------------------------

DataModule2->IBQuery2->SQL->Clear();

AnsiString s="Update USER_PROG SET CONNECT='"+IntToStr(0)+"' where (LOGIN='"+Form1->Edit1->Text+"')AND(PASS='"+Form1->Edit2->Text+"')";

DataModule2->IBQuery2->SQL->Add(s);

DataModule2->IBQuery2->ExecSQL();

DataModule2->IBTransaction1->Commit();

//-----------------------------------------

Close();

return ;

}

else

{

MessageDlg("Вы выбрали не правильный статус",mtError,TMsgDlgButtons()<<mbOK,0);

t=true;

}

}

if(t)

{

DataModule2->IBQuery2->First();

return;

}

else

DataModule2->IBQuery2->Next();

}

ShowMessage("Вы ввели не верные данные!");

exit(0);

DataModule2->IBQuery2->First();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormShow(TObject *Sender)

DataModule2->IBDatabase1->Connected=false;

TRegistry *Reg=new TRegistry;

Reg->RootKey=HKEY_LOCAL_MACHINE;

if(!Reg->KeyExists("\\Software\\WWW")) Form6->ShowModal();

else

{

Reg->OpenKeyReadOnly("\\Software\\WWW");

DataModule2->IBDatabase1->DatabaseName=Reg->ReadString("DB_host")+":"+Reg->ReadString("DB_name");

a:; try {

DataModule2->IBDatabase1->Connected=true;

}

catch(EDatabaseError&){

Form6->ShowModal();

if(Form6->i==1){

Application->Terminate();

return ;

}

goto a;

}

}

delete Reg;

DataModule2->IBQuery1->Active=true;

DataModule2->IBQuery1->First();

while(!DataModule2->IBQuery1->Eof)

{

Form1->ComboBox1->Items->Add(DataModule2->IBQuery1->Fields->Fields[0]->AsString);

DataModule2->IBQuery1->Next();

}

DataModule2->IBQuery1->First();

Form1->ComboBox1->ItemIndex=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Application->Terminate();

}

//---------------------------------------------------------------------------

BOOL WeAreAlone(LPSTR szName)

{

HANDLE hMutex=CreateMutex(NULL,TRUE,szName);

if (GetLastError()==ERROR_ALREADY_EXISTS)

{

CloseHandle(hMutex);

return false;

}

return true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

if (WeAreAlone("Some_Unique_Name_Or_Other"));

else

{

ShowMessage("Такая программа уже работает!");

exit(0);

}

}

//---------------------------------------------------------------------------

Приложение B

Листинг модуля для роли «Кассир»

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit9.h"

#include "Unit2.h"

#include "Unit10.h"

#include "Unit1.h"

#include "Unit3.h"

#include "Unit18.h"

#include "Unit19.h"

#include "Unit23.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm9 *Form9;

int I;

int x=0,y=0;

AnsiString K;

int z2[100],z3[100];

float summa=0.0;

//---------------------------------------------------------------------------

__fastcall TForm9::TForm9(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm9::Button1Click(TObject *Sender)

{

AnsiString k="0";

int povtor=DataModule2->IBQuery3TOVAR_NO->AsInteger;

if(!InputQuery("Покупка "+DataModule2->IBQuery3NAZVANIE->AsString,"Кол-во едениц:",k)){

return;

}

if(k=="0"||k=="")

{

ShowMessage("Ошибка. Вы не ввели ни какого значения");

return;

}

for(int J=1;J<=k.Length();J++){

if(!DataModule2->IBQuery3S_KOL_VO->IsValidChar(k[J])){

ShowMessage("Ошибка. Вы ввели не верное значение");

return;

}

}

if(StrToInt(k)>DataModule2->IBQuery3S_KOL_VO->AsInteger){

ShowMessage("На складе нет столько едениц товара!");

return;

}

int z=DataModule2->IBQuery3S_KOL_VO->AsInteger-StrToInt(k);

int z1=DataModule2->IBQuery3TOVAR_NO->AsInteger;

//------------------------------------

DataModule2->IBQuery5->Active=true;

//----------------------------------------

if(DataModule2->IBQuery5->IsEmpty())

x=1;

else{

DataModule2->IBQuery5->Last();

x=DataModule2->IBQuery5->Fields->Fields[0]->AsInteger+1;

}

for(int i=1;i<=x;i++)

if(z2[i]==z1){

z3[i]+=StrToInt(k);

goto a;

}

z2[x]=z1;

z3[x]=StrToInt(k);

a:;

int a=DataModule2->IBQuery3TOVAR_NO->AsInteger;

int c=DataModule2->IBQuery3S_SKLAD_NO->AsInteger;

float d=DataModule2->IBQuery3T_PRICE->AsFloat;

d=d*100;

int d1=d;

float d2=d1/100,d3=d1%100;

DataModule2->IBQuery4_1->SQL->Clear();

DataModule2->IBQuery4_1->SQL->Add("select ZAKAZ_NO FROM ZAKAZ order by ZAKAZ_NO");

DataModule2->IBQuery4_1->Open();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery4_1->Active=true;

if(!DataModule2->IBQuery4_1->IsEmpty()){

DataModule2->IBQuery4_1->Last();

I=DataModule2->IBQuery4_1->Fields->Fields[0]->AsInteger+1;

}

else I=1;

DataModule2->IBQuery4->SQL->Clear();

DataModule2->IBQuery4->SQL->Add("select ZAKAZ_NO, NAZVANIE,SOKR_NAME_ED_IZM, SKLAD_NAME, Z_KOL_VO,Z_TSENA,Z_SUMMA,Z_SKLAD_NO,Z_USER_NO,Z_TOVAR_NO from ZAKAZ,TOVAR,EDIN_IZMER,SPISOK_SKLAD,SKLAD,USER_PROG where (Z_TOVAR_NO=TOVAR.TOVAR_NO)and(EDIN_IZMER.EDIN_IZMER_NO=TOVAR.T_EDIN_IZMER_NO)and(SKLAD.S_SKLAD_NO=SPISOK_SKLAD.SKLAD_NO)and(SKLAD.S_TOVAR_NO=TOVAR.TOVAR_NO)and(ZAKAZ.Z_SKLAD_NO=SKLAD.S_SKLAD_NO)and(ZAKAZ.Z_USER_NO=USER_PROG.USER_NO)and(ZAKAZ.Z_USER_NO='"+IntToStr(Form1->e)+"')and(ZAKAZ_NO!='"+IntToStr(I)+"')and(Z_TOVAR_NO='"+povtor+"')");

DataModule2->IBQuery4->Open();

DataModule2->IBQuery4->Active=true;

AnsiString s;

if(DataModule2->IBQuery4->IsEmpty()){

DataModule2->IBQuery4->SQL->Clear();

s="Insert Into ZAKAZ (ZAKAZ_NO, Z_TOVAR_NO,Z_SKLAD_NO,Z_TSENA, Z_KOL_VO,Z_USER_NO) Values('"+IntToStr(I)+"','"+a+"','"+IntToStr(c)+"','"+d2+"."+d3+"','"+k.ToInt()+"','"+IntToStr(Form1->e)+"')";

DataModule2->IBQuery4->SQL->Add(s);

DataModule2->IBQuery4->ExecSQL();

}

else{

int kolvo=DataModule2->IBQuery4Z_KOL_VO->AsInteger;

DataModule2->IBQuery4->SQL->Clear();

s="Update ZAKAZ SET Z_KOL_VO='"+IntToStr(kolvo+k.ToInt())+"' where Z_TOVAR_NO='"+povtor+"'"; //,'"++"'

DataModule2->IBQuery4->SQL->Add(s);

DataModule2->IBQuery4->ExecSQL();

}

DataModule2->IBQuery3->Active=true;

//DataModule2->IBQuery4_1->SQL->Clear();

//DataModule2->IBQuery4_1->SQL->Add("Select UPDATE_DB,U_USER_PROG_NO FROM UPDATE_DB");

//DataModule2->IBQuery4_1->Open();

DataModule2->IBQuery4->SQL->Clear();

DataModule2->IBQuery4->SQL->Add("select ZAKAZ_NO, NAZVANIE,SOKR_NAME_ED_IZM, SKLAD_NAME, Z_KOL_VO,Z_TSENA,Z_SUMMA,Z_SKLAD_NO,Z_USER_NO,Z_TOVAR_NO from ZAKAZ,TOVAR, EDIN_IZMER, SPISOK_SKLAD, SKLAD,USER_PROG where (Z_TOVAR_NO=TOVAR.TOVAR_NO)and(EDIN_IZMER.EDIN_IZMER_NO=TOVAR.T_EDIN_IZMER_NO)and(SKLAD.S_SKLAD_NO=SPISOK_SKLAD.SKLAD_NO)and(SKLAD.S_TOVAR_NO=TOVAR.TOVAR_NO)and(ZAKAZ.Z_SKLAD_NO=SKLAD.S_SKLAD_NO)and(ZAKAZ.Z_USER_NO=USER_PROG.USER_NO)and(ZAKAZ.Z_USER_NO='"+IntToStr(Form1->e)+"')and(ZAKAZ_NO!='"+IntToStr(I)+"')");

DataModule2->IBQuery4->Open();

DataModule2->IBQuery4->Active=true;

DataModule2->IBQuery3_1->Active=true;

DataModule2->IBQuery2->SQL->Clear();

s="Update SKLAD SET S_KOL_VO='"+IntToStr(z)+"' where S_TOVAR_NO='"+IntToStr(z1)+"'";

DataModule2->IBQuery2->SQL->Add(s);

DataModule2->IBQuery2->ExecSQL();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery4->SQL->Clear();

DataModule2->IBQuery4->SQL->Add("select ZAKAZ_NO, NAZVANIE,SOKR_NAME_ED_IZM, SKLAD_NAME, Z_KOL_VO,Z_TSENA,Z_SUMMA,Z_SKLAD_NO,Z_USER_NO,Z_TOVAR_NO from ZAKAZ,TOVAR,EDIN_IZMER,SPISOK_SKLAD,SKLAD,USER_PROG where (Z_TOVAR_NO=TOVAR.TOVAR_NO)and(EDIN_IZMER.EDIN_IZMER_NO=TOVAR.T_EDIN_IZMER_NO)and(SKLAD.S_SKLAD_NO=SPISOK_SKLAD.SKLAD_NO)and(SKLAD.S_TOVAR_NO=TOVAR.TOVAR_NO)and(ZAKAZ.Z_SKLAD_NO=SKLAD.S_SKLAD_NO)and(ZAKAZ.Z_USER_NO=USER_PROG.USER_NO)and(ZAKAZ.Z_USER_NO='"+IntToStr(Form1->e)+"')");

DataModule2->IBQuery4->Open();

DataModule2->IBQuery3->SQL->Clear();

DataModule2->IBQuery3->SQL->Add("Select NOMBER, NAZVANIE, SOKR_NAME_ED_IZM, S_KOL_VO, T_TSENA_POKUPKA, K_KOEF_PRICE,SKLAD_NAME,TOVAR_NO,S_SKLAD_NO from TOVAR,EDIN_IZMER,SKLAD,SPISOK_SKLAD,KATEG_KLIENT,KLIENT where (EDIN_IZMER.EDIN_IZMER_NO=TOVAR.T_EDIN_IZMER_NO)and(SKLAD.S_SKLAD_NO=SPISOK_SKLAD.SKLAD_NO)and(TOVAR.TOVAR_NO=SKLAD.S_TOVAR_NO)and(KLIENT.KLIENT_KATEG_NO= KATEG_KLIENT.KATEG_NO)and(KLIENT.KLIENT_NAME='-') ORDER BY NOMBER");

DataModule2->IBQuery3->Open();

DataModule2->IBQuery5->SQL->Clear();

DataModule2->IBQuery5->SQL->Add("Select ZAKAZ_NO FROM ZAKAZ ORDER BY ZAKAZ_NO");

DataModule2->IBQuery5->Open();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery3->Active=true;

DataModule2->IBQuery4->Active=true;

DataModule2->IBQuery3_1->Active=true;

DataModule2->IBQuery5->Active=true;

float itogo=0.0;

while(!DataModule2->IBQuery4->Eof){

d=itogo+DataModule2->IBQuery4Z_SUMMA->AsFloat;

itogo=d;

d=d*100;

d1=d;

d2=d1/100;

d3=d1%100;

DataModule2->IBQuery4->Next();

}

Label6->Caption=d2;

Label6->Caption=Label6->Caption+"."+d3+" л.";

summa=itogo;

Label6->Visible=true;

Label5->Visible=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm9::FormShow(TObject *Sender)

{

DataModule2->IBQuery2->SQL->Clear();

AnsiString s="Update USER_PROG SET CONNECT='"+IntToStr(1)+"' where (LOGIN='"+Form1->Edit1->Text+"')AND(PASS='"+Form1->Edit2->Text+"')";

DataModule2->IBQuery2->SQL->Add(s);

DataModule2->IBQuery2->ExecSQL();

DataModule2->IBQuery5->SQL->Clear();

DataModule2->IBQuery5->SQL->Add("Select ZAKAZ_NO FROM ZAKAZ ORDER BY ZAKAZ_NO");

DataModule2->IBQuery5->Open();

DataModule2->IBQuery3_1->SQL->Clear();

DataModule2->IBQuery3_1->SQL->Add("Select KASSA_NO,K_SUMMA FROM KASSA WHERE K_USER_PROG_NO='"+IntToStr(Form1->e)+"'");

DataModule2->IBQuery3_1->Open();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery5->Active=true;

DataModule2->IBQuery5->Last();

DataModule2->IBQuery3->Active=true;

DataModule2->IBQuery4->Active=true;

DataModule2->IBQuery3_1->Active=true;

Label9->Left=DBText2->Left+DBText2->Width+8;

}

//---------------------------------------------------------------------------

void __fastcall TForm9::N2Click(TObject *Sender)

{

if(Application->MessageBoxA("Вы хотите выйти из программы?","Подтвердите выход из программы",MB_YESNO + MB_ICONQUESTION)==IDYES){

//DataModule2->IBDatabase1->Open();

//DataModule2->IBTransaction1->Active=false;

//DataModule2->IBTransaction1->StartTransaction();

//DataModule2->IBQuery4->Close();

DataModule2->IBQuery4_1->SQL->Clear();

DataModule2->IBQuery4_1->SQL->Add("Select ZAKAZ_NO FROM ZAKAZ ORDER BY ZAKAZ_NO");

DataModule2->IBQuery4_1->Open();

DataModule2->IBQuery4_1->Active=true;

DataModule2->IBQuery4_1->First();

//while(!DataModule2->IBQuery4_1->Eof)

for(int i=1;i<=x;i++)

{

DataModule2->IBQuery4->SQL->Clear();

AnsiString s="Delete from ZAKAZ where Z_USER_NO='"+IntToStr(Form1->e)+"'";

DataModule2->IBQuery4->SQL->Add(s);

DataModule2->IBQuery4->ExecSQL();

DataModule2->IBQuery5->SQL->Clear();

DataModule2->IBQuery5->SQL->Add("Select S_KOL_VO FROM SKLAD where S_TOVAR_NO='"+IntToStr(z2[i])+"'");

DataModule2->IBQuery5->Open();

DataModule2->IBQuery5->Active=true;

//------------------------------------

DataModule2->IBQuery2->SQL->Clear();

s="Update SKLAD SET S_KOL_VO='"+IntToStr(DataModule2->IBQuery5->Fields->Fields[0]->AsInteger+z3[i])+"' where S_TOVAR_NO='"+IntToStr(z2[i])+"'";

DataModule2->IBQuery2->SQL->Add(s);

DataModule2->IBQuery2->ExecSQL();

//-----------------------------------------

}

DataModule2->IBTransaction1->Commit();

Application->Terminate();

}

}

//---------------------------------------------------------------------------

void __fastcall TForm9::FormCloseQuery(TObject *Sender, bool &CanClose)

{

if(Application->MessageBoxA("Вы хотите выйти из программы?","Подтвердите выход из программы",MB_YESNO + MB_ICONQUESTION)==IDYES){

//DataModule2->IBDatabase1->Open();

//DataModule2->IBTransaction1->Active=false;

//DataModule2->IBTransaction1->StartTransaction();

//DataModule2->IBQuery4->Close();

DataModule2->IBQuery4_1->SQL->Clear();

DataModule2->IBQuery4_1->SQL->Add("Select ZAKAZ_NO FROM ZAKAZ ORDER BY ZAKAZ_NO");

DataModule2->IBQuery4_1->Open();

DataModule2->IBQuery4_1->Active=true;

DataModule2->IBQuery4_1->First();

//while(!DataModule2->IBQuery4_1->Eof)

for(int i=1;i<=x;i++)

{

DataModule2->IBQuery4->SQL->Clear();

AnsiString s="Delete from ZAKAZ where Z_USER_NO='"+IntToStr(Form1->e)+"'";

DataModule2->IBQuery4->SQL->Add(s);

DataModule2->IBQuery4->ExecSQL();

//DataModule2->IBTransaction1->Commit();

//-----------------------------------------

//DataModule2->IBDatabase1->Open();

//DataModule2->IBTransaction1->Active=false;

//DataModule2->IBTransaction1->StartTransaction();

//DataModule2->IBQuery2->Close();

DataModule2->IBQuery5->SQL->Clear();

DataModule2->IBQuery5->SQL->Add("Select S_KOL_VO FROM SKLAD where S_TOVAR_NO='"+IntToStr(z2[i])+"'");

DataModule2->IBQuery5->Open();

DataModule2->IBQuery5->Active=true;

//------------------------------------

DataModule2->IBQuery2->SQL->Clear();

s="Update SKLAD SET S_KOL_VO='"+IntToStr(DataModule2->IBQuery5->Fields->Fields[0]->AsInteger+z3[i])+"' where S_TOVAR_NO='"+IntToStr(z2[i])+"'";

DataModule2->IBQuery2->SQL->Add(s);

DataModule2->IBQuery2->ExecSQL();

//DataModule2->IBTransaction1->Commit();

//-----------------------------------------

// I--;

//DataModule2->IBQuery4_1->Next();

}

DataModule2->IBTransaction1->Commit();

Application->Terminate();

}

else

CanClose=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm9::Button2Click(TObject *Sender)

{

Form23->QuickRep1->Preview();

Label6->Visible=false;

Label5->Visible=false;

AnsiString s;

//-----------------------------------

Label3->Caption = TimeToStr(Time());

Label4->Caption = DateToStr(Date());

//----------------------------------------------

DataModule2->IBQuery4_1->SQL->Clear();

DataModule2->IBQuery4_1->SQL->Add("select max(PRODAJA_ID) FROM PRODAJA order by PRODAJA_ID");

DataModule2->IBQuery4_1->Open();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery4_1->Active=true;

int Q;

long q;

if(DataModule2->IBQuery4_1->Fields->Fields[0]->IsNull)

q=1;

else

q=StrToInt64(DataModule2->IBQuery4_1->Fields->Fields[0]->AsString)+1;

K=IntToStr(q);

Q=K.Length();

switch(Q){

case 1: K="00000000"+K;break;

case 2: K="0000000"+K;break;

case 3: K="000000"+K;break;

case 4: K="00000"+K;break;

case 5: K="0000"+K;break;

case 6: K="000"+K;break;

case 7: K="00"+K;break;

case 8: K="0"+K;break;

case 9: K=""+K;break;

}

//------------------------------------------------

DataModule2->IBQuery4_1->SQL->Clear();

DataModule2->IBQuery4_1->SQL->Add("select ZAKAZ_NO,Z_TOVAR_NO,Z_KOL_VO,Z_TSENA,Z_SUMMA,Z_USER_NO FROM ZAKAZ WHERE Z_USER_NO='"+IntToStr(Form1->e)+"' order by ZAKAZ_NO");