Разработка программного обеспечения "Автоматизация учета компьютерной техники" - Программирование, компьютеры и кибернетика дипломная работа

Главная

Программирование, компьютеры и кибернетика
Разработка программного обеспечения "Автоматизация учета компьютерной техники"

Задачи автоматизированного учета компьютерной техники на предприятии ГУ НПО Тайфун. Описание среды программирования, требования к техническому и программному обеспечению. Описание алгоритма, структурная схема. Аномалии и защитное программирование.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Разработка программного обеспечения «Автоматизация учета компьютерной техники»
3.1 Требования к техническому обеспечению
3.2 Требования к программному обеспечению
4.3 Аномалии и защитное программирование
Научно-производственное объединение "Тайфун" - государственное учреждение, одно из ведущих научно-исследовательских учреждений Федеральной службы России по гидрометеорологии и мониторингу окружающей среды (Росгидромета).
НПО "Тайфун", созданное 1 января 1986 года, является правопреемником следующих государственных учреждений: Института экспериментальной метеорологии, Центрального конструкторского бюро гидрометеорологического приборостроения и Регионального центра "Мониторинг Арктики" Росгидромета.
Неотъемлемым условием успешного долгосрочного функционирования предприятия является высокая степень интеграции технологий управления и автоматизация работы отделов. Для упрощения работы и повышения работоспособности сотрудников информационно вычислительного центра необходимо разработать программный продукт “Автоматизация учета компьютерной техники”.
Использование данной программы значительно сократит время работы сотрудника отдела, затрачиваемого на поиск необходимой информации по поставкам комплектующих, наличии на складе, сотрудникам, которым необходимо установить ПК.
Цель дипломного проекта состоит в том, чтобы разработать программное обеспечение автоматизированного учета компьютерной техники на предприятии ГУ НПО Тайфун. Программное обеспечение должно соответствовать следующим требованиям:
Удобство учета комплектующих на складе;
Просмотр списка сотрудников, которым необходимо установить на рабочее место ПК;
Редактирование данных, используемых в приложении;
Просмотр отчетов и их вывод на печать;
Программа должна быть доступной в использовании.
Для построения необходимо провести формализацию задачи, являющуюся необходимым этапом разработки задачи и заключающуюся в построении структуры таблиц для хранения информации, схемы их взаимосвязей и описания алгоритмов обработки.
Взаимосвязь показана в схеме данных:
Как правило, разработка проекта реализации задачи выполняется в несколько этапов и начинается с анализа той информации, которая является выходной (формы и отчеты для Access). Только после выяснения структуры и состава этой информации, формулировки запросов для получения отчетов можно сделать вывод о структуре и составе таблиц данных. Необходимым этапом формализации задачи является нормализация базы данных, которая, по сути, представляет собой процесс оптимизации хранения и использования информации в таблицах.
Наиболее часто используется приведение к третьей нормальной форме (3NF). В результате устраняется избыточность данных и упрощается процесс изменения структуры БД.
Сначала производится приведение к первой нормальной форме (1NF) - каждой таблице назначается первичный ключ, обеспечивающий уникальность каждой записи. Здесь же удаляются все повторяющиеся группы (точнее создается новая таблица для повторяющихся групп).
В процессе приведения ко второй нормальной форме производится устранение избыточности данных - любое поле в таблице, которое является избыточным или всегда остается неизменным, основанным на значении другого поля, необходимо перенести в другую таблицу.
И, наконец, в 3NF все поля каждой таблицы непосредственно связаны с полем первичного ключа и не зависят от других полей. На практике это делается следующим образом - любое поле не связанное с полем первичного ключа, необходимо перенести в отдельную таблицу.
При разработке структуры данных рассматриваемой задачи изначально подразумевалось следование 3NF. В Access существует мастер анализа таблиц, позволяющий еще более упростить этот процесс.
На следующем этапе уточняется структура полей в таблицах, и определяются правила ввода.
Затем происходит возврат к проектированию запросов для форм и отчетов, проектируются собственно входные и выходные формы и отчеты.
На заключительном этапе создается меню и различные интерфейсные промежуточные формы. Затем, в процессе отладки и доработки, возможен возврат на любой этап процесса разработки.
В следующих разделах пояснительной записки все объекты задачи рассматриваются более подробно.
3. Описание среды программирования
Программный продукт «Автоматизация учета компьютерной техники» разработан на Borland Delphi 7.0 с использованием СУБД Microsoft Access 2003.
Access 2003 входит в состав Microsoft Office XP, и как другие компоненты работает в среде Windows МЕ, Windows XP, Windows 2000, Windows NT.
Система управления базами данных Microsoft Access является одним из самых популярных приложений в семействе настольных СУБД. Все версии Access имеют в своем арсенале средства, значительно упрощающие ввод и обработку данных, поиск данных и предоставление информации в виде таблиц, графиков и отчетов, в ней предусмотрены все необходимые средства для определения и обработки данных, а также для управления ими при работе с большими объемами информации.
Несмотря на то, что Access является мощной и сложной системой, его использование не сложно для непрофессиональных пользователей.
Access - это не только мощная, гибкая и простая в использовании СУБД, но и система для разработки работающих с базами данных приложений. С помощью Access вы можете создать приложение, работающее в среде WINDOWS и полностью соответствующее вашим потребностям по управлению данными.
Access -- это, прежде всего, система управления базами данных (СУБД), она предназначена для хранения и поиска данных, представления информации в удобном виде и автоматизации часто повторяющихся операций (таких, как ведение счетов, учет, планирование и т.п.). При всем этом Access обеспечивает доступ ко всем типам данных и позволяет использовать одновременно несколько таблиц базы данных. Таблицу Access можно связать с данными, хранящимися на большой ЭВМ или на сервере.
MS Access предоставляет вам максимальную свободу в задании типа ваших данных: текст, числовые данные, даты, время, денежные значения, рисунки, звук, документы, электронные таблицы. Вы можете задать также форматы хранения (длина строки, точность представления чисел и даты времени) и предоставления этих данных при выводе на экран или печать.
Основными понятиями или объектами системы Access являются: таблицы, запросы, формуляры, отчеты, макросы и модули.
Borland Delphi 7.0 - это универсальный язык программирования, как для начинающих, так и для опытных пользователей.
Borland Delphi 7.0 предлагает большой набор специальных средств, помогающих быстрее создать как само приложение, так и его элементы: формы, диалоговые окна, отчеты, базы данных и многое другое, то есть практически все, что связано с разрабатываемым приложением и средой, в которой оно будет работать. Вы можете создавать мощные автономные приложения, игры и утилиты, затратив на это меньше времени, чем для любого другого языка программирования.
Поскольку эта среда выполняется на компьютере вместе с операционной средой Windows, то и создавать вы будете программы, называемые Windows-приложения или просто: приложения.
3.1 Требования к техническому обеспечению
Для работы программы персональный компьютер пользователя должен отвечать требованиям необходимые для работы установленные в пункте 3.2.
3.2 Требования к программному обеспечению
Для работы программы необходимо, чтобы на компьютере были установлены:
Операционная система из серии WINDOWS 9x WINDOWS 2000, XP;
Microsoft Office XP с установленным компонентом Microsoft Excel.
БД «Автоматизация учёта компьютерной техники» создавалась с самого начала на Access 2003.
Алгоритмизация решения задачи дипломного проекта разбита на несколько этапов. Каждый этап представляет собой постановку и решение отдельных задач.
В ходе разработки программного продукта были созданы следующие таблицы:
Форма, которая является главной данного проекта. При помощи вкладок и меню, расположенных на этой форме можно открыть интересующую вас информацию.
Комплектующие - при открытии этой вкладки программа выводит на экран список комплектующих, которые находятся на складе.
Поставка - на этой вкладке содержится информация о поставках комплектующих.
Распределение - эта вкладка содержит список сотрудников, которым требуется установить компьютеры.
Списание - на этой вкладке содержится информация о списанных комплектующих.
Формы «Распределение» - с помощью этой формы можно вести учет по распределению компьютеров, список которых расположен на Комплектующие.
С помощью этого отчета можно просмотреть и распечатать весь список комплектующих на складе.
С помощью этого отчета можно просмотреть и распечатать весь список поставок.
С помощью этого отчета можно просмотреть и распечатать весь список распределённых комплектующих.
С помощью этого отчета можно просмотреть и распечатать весь список списанных комплектующих.
В соответствии со структурной схемой, приведенной выше в пункте 4.1.2. «Структурная схема», в представленной программе разработаны программные модули на Borland Delphi 7.0. Тексты программных модулей приведены в пункте V. «Приложение».
4.3 Аномалии и защитное программирование
1. Ввод в поле значений, не удовлетворяющих полю
Блокирование неверного заполнения поля
3.При попытке непредусмотренного программой изменения данных
Блокирование некоторых элементов формы
Тестирование - процесс многократного выполнения программы с целью выявления ошибок. Отладка - исправление ошибок, найденных с помощью тестирования. При тестировании должны использоваться следующие принципы:
необходимой частью каждого теста должно являться описание ожидаемых результатов работы программы, чтобы можно было быстро выяснить наличие или отсутствие ошибки в ней;
следует по возможности избегать тестирования программы ее автором, т.к. кроме уже указанной объективной сложности тестирования для программистов здесь присутствует и тот фактор, что обнаружение недостатков в своей деятельности противоречит человеческой психологии (однако отладка программы эффективнее всего выполняется именно автором программы);
по тем же соображениям организация - разработчик программного обеспечения не должен «единолично» его тестировать (должны существовать организации, специализирующиеся на тестировании программных средств);
должны являться правилом доскональное изучение результатов каждого теста, чтобы не пропустить малозаметную на поверхностный взгляд ошибку в программе;
необходимо тщательно подбирать тест не только для правильных (предусмотренных) входных данных, но и для неправильных (непредусмотренных);
при анализе результатов каждого теста необходимо проверить, не делает ли программа того, что она не должна делать;
следует сохранять использованные тесты (для повышения эффективности повторного тестирования программы после ее модификации или установки у заказчика);
тестирование не должно планироваться исходя из предположения, что в программе не будут обнаружены ошибки (в частности, следует выделять для тестирования достаточные временные и материальные ресурсы),
следует учитывать так называемый «принцип скопления ошибок»: вероятность наличия не обнаруженных ошибок в некоторой части программы прямо пропорциональна числу ошибок, уже обнаруженных в этой части;
следует всегда помнить, что тестирование - творческий процесс, а не относиться к нему как к рутинному занятию.
Тестирование данного ПП производилось с помощью детерминированного метода тестирования. Этот метод включает в себя структурное тестирование (тестирование ПП как «белого ящика», т.е. предполагает детальное изучение логики программы и подбор входных данных, которые обеспечат выполнение максимально возможного количества маршрутов, логических ветвлений, циклов), функциональное тестирование (тестирование ПП как «черного ящика», т.е. тестирование по «входу - выходу»), не вникая в логику программы.
В соответствии с пунктом 4.4 тестирование и отладка производились непосредственно во время разработки проекта. После завершения работы над программой было еще раз произведено полное тестирование.
Все найденные ошибки были успешно устранены.
Получившийся в результате программный продукт удовлетворяет всем предъявленным требованиям, полностью работоспособен, не требует принципиальных доработок, и готов к эксплуатации.
Достоинства программы заключаются в удобстве заполнения и корректировки БД, грамотной справке пользователю, что значительно облегчает работу в программе. Также существует качественный поиск данных по различным критериям.
Общие сведения о программе "Автоматизация учета компьютерной техники"
Данный программный продукт разработан для более эффективной и быстрой работы сотрудников информационно вычислительного центра при хранении информации по комплектующим и компьютерам. Программа позволяет:
Выводить на экран необходимый список комплектующих, хранящихся на складе;
Выводить на экран список сотрудников, которым необходимо установить ПК на рабочее место;
Осуществлять добавление, изменение и удаление различных данных;
Просматривать необходимые отчеты с возможностью изменения, сохранения в файл и вывода содержимого на печать;
Достоинства программы "Автоматизация учета компьютерной техники":
Удобство и простота в эксплуатации (минимальные навыки работы пользователя на ПК); небольшой объём занимаемой памяти на HDD.
Запуск программы осуществляется двойным нажатием левой клавиши мыши на ярлыке программы. После запуска программного продукта на экране появится главная форма «ГУ_НПО_Тайфун», которая выглядит следующим образом:
На главной форме находятся три вкладки и шесть пунктов меню. При выборе вкладки «Комплектующие» можно посмотреть список комплектующих по выбранному типу устройства. При переходе на вкладку «Распределение» откроется список сотрудников, которым необходимо установить на рабочее место компьютер. На третьей вкладке «Поставка» находятся таблицы с информацией о поставках комплектующих. На третьей вкладке «Поставщики» находятся таблицы с информацией поставщиках
автоматизированный учет компьютерная техника
Данное приложение предназначено для автоматизированного учета компьютерной техники на предприятии. Приложение позволяет получить быстрый доступ к данным, пополнять данные, а также получить полную отчетность. За счет чего значительно сокращается время, так как до внедрения данного приложения автоматизация велась неэффективно, и на поиски информации тратилось большое количество времени.
Экономический эффект - это экономия времени сотрудника предприятия, которая может быть достигнута за счет:
Сокращение времени на формирование нужных документов;
Снижения временных затрат на обработку данных;
Снижение временных затрат на поиск необходимой информации.
Распределение трудоемкости по стадиям разработки
Разработка, согласование и утверждение технико-экономического обоснования.
Уточнение структуры и формы представления входных и выходных данных. Разработка алгоритма решения задачи. Разработка структуры программы.
Разработка плана мероприятий по разработке и внедрению ПП. Согласование и утверждение технического проекта.
Описание программы на языке программирования
Разработка, согласование и утверждение порядка и методики испытаний, корректировка программы.
Разработка программной документации.
Подсчет затрат, которое понесло предприятие
1..Коэффициент сложности задачи с характеризует относительную сложность программы по отношению к так называемой типовой задаче, реализующей стандартные методы решения, сложность которой принята равной единице (величина с лежит в пределах от 0,5 до 1,5). Для программного продукта, включающего в себя алгоритмы поиска информации сложность задачи берем 0,8 так как данный программный продукт не требует знания сложных языков программирования.
с= 0,8- коэффициент сложности программы.
2. Коэффициент коррекции программы P - увеличение объема работ за счет внесения изменений в алгоритм или программу по результатам уточнения постановок (P меняется от 0,1 до 0,5).
Заказчик четко описал конечный результат, который должна выдавать программа. Оптимальным будет, взять число, которое лежит между минимальным и максимальным коэффициентом корректности, Р = 0,4
3. Коэффициент B увеличения затрат труда, вследствие недостаточного описания задачи, в зависимости от сложности задачи принимается от 1,0 до 1,5. коэффициент увеличения затрат труда не был высоким. B = 1,2
4. Коэффициент квалификации разработчика K определяется в зависимости от стажа работы и составляет:
K (коэффициент квалификации разработчика) = 0,8.
Оклад работника равен 6000 рублей (З/П). Зная все необходимые для подсчетов коэффициенты оклад программиста на предприятии, рассчитаем з/п разработчика программного продукта:
З/Посн = (6000 руб. * 0,8 * (1 + 0,4) * 1.2 * 0.8) = 6451руб./мес.
Поскольку дополнительная заработная плата в виде премии работнику за это время не выплачивалась, то суммарные затраты предприятия на заработную плату составят:
З/Псум = З/Посн + З/Пдоп = 6451+ 0 = 6451
Страховые отчисления (СО) берутся в размере 26% от основной и дополнительной заработной платы:
Суммарные затраты предприятия на заработную плату за время написания программного продукта, с учетом страховых отчислений составит:
З/Побщ = (6451+ 1677) / (8*22)*172 = 7943 рублей.
Содержание и эксплуатация вычислительного комплекса:
Число часов отладки составляет: 45+92+21 = 158 часа.
Стоимость машинного часа рассчитывается, как:
См-ч =Ст-ть электроэн(в год) + амортизация оборуд(в год) +затраты на ремонт Фвт
Фвт - действительный фонд времени работы вычислительного комплекса.
1. Стоимость 1 КВт/ч электроэнергии составляет 4,5 руб. Один компьютер потребляет в среднем 400 Вт в час.
Годовые отчисления за электроэнергию, потребляемую одной ЭВМ составляет:
8 ч. * 22 дня * 12 мес. * 0,4 КВт/ч. * 4,5руб.*КВт/ч. = 4435,2руб.
2. Амортизация зависит от срока эксплуатации компьютера, а т.к. срок эксплуатации компьютера 4 года и он истёк, то амортизация не начисляется и не учитывается в дальнейших подсчетах.
3. Затраты на ремонт ЭВМ составляют 5% от стоимости ПК:
Стоимость ремонта ЭВМ = 20000 * 5% = 1000 рублей в год
4. Действительный фонд времени работы вычислительного комплекса рассчитываем так:
где Фном - номинальный фонд времени работы вычислительного комплекса,
Фпроф - годовые затраты времени на профилактические работы (принимаются 5% от Фном).
ПК работает в среднем 2112 часов в год (Фном). Время ремонта ЭВМ в среднем занимает 5% времени работы ПК (Фпроф). Следовательно:
Стоимость машинного часа составляет:
Содержание и эксплуатация вычислительного комплекса составляет:
158 ч. *2,7 руб. = 426,6 руб.- при написании программы.
Новый компьютер не требуется. Срок эксплуатации компьютера 5 лет, и он оснащен операционной Windows ХР, которой достаточно для полноценной работы данного программного продукта.
Смета затрат на реализацию программного продукта
Содержание и эксплуатация вычислительного комплекса.
2.Экономический эффект от реализации и внедрения программного продукта.
Экономический эффект предназначен для снижения времени, затрачиваемого сотрудниками отдела на поиск информации в базе данных
Для ведения расчетов введем следующие обозначения:
Т1 - время, затрачиваемое сотрудником отдела на ввод данных до внедрения программного продукта.
Т2 - время, затрачиваемое сотрудником на ввод данных после внедрения программного продукта.
До внедрения программы большая часть документации заполнялась вручную. Сотрудник в среднем тратил на 1 операцию около 15 минут.
После внедрения программы время сократилось и составило 5 мин.:
Нас интересует, сколько времени выигрывает предприятие, используя данное приложение. Это легко сделать, рассчитав
Т = Т1- Т2 = 0,25 - 0,12 = 0,13 часа
Теперь рассчитаем стоимость работы специалиста.
В месяц сотрудник работает (8 часов * 22 рабочих дня) = 176 часов.
Стоимость оклада этого специалиста составляет 6000 рублей.
Стоимость 1 часа (P), рассчитывается следующим образом: P = 6000/176 = 34,09 рубля.
Также, учтем страховые отчисления, которые берем в размере 26% = 0, 26
Р сумма = Р + Со = 34,09 + 8,8 = 43 руб. за час работы. Эту сумму сотрудник зарабатывает за 1 час работы.
Перемножим выигранное время, количество операций, количество рабочих дней в месяце и на количество рабочих месяцев
Т год = (0,13 * 20) * 22 * 12 = 686,4 часов.
Рассчитаем, сколько составит годовая экономия при внедрении программного продукта:
Т год * Р сумма = 686,4 часов * 43 руб. = 29515,2
Экономический эффект = из найденной суммы вычтем затраты:
Теперь посчитаем, через какой промежуток времени окупится приложение:
Срок окупаемости = Затраты / годовая экономия
Наш программный продукт окупится за 4,8 месяца. Это нормальной срок окупаемости для автоматизации рабочего процесса.
Сотрудник тративший на ввод, поиск и печать информации 15 минут, после внедрения будет тратить 5 минут. Программный продукт окупится через семь месяцев.
В результате разработку и внедрение данного программного продукта следует считать целесообразным и обоснованным с экономической точки зрения.
В данном дипломном проекте было разработано программное обеспечение «Автоматизация учета компьютерной техники».
Данное программное обеспечение позволяет автоматизировать ввод информации, осуществлять хранение данных, выводить на экран и печать сформированные отчеты.
Разработанная программа полностью соответствует п.1 «Постановка задачи».
Была проведена экономическая оценка эффективности от внедрения программного обеспечения.
2. В. Фаронов - Программирование баз данных в Delphi7 2012г.
3. Боб Виллариал Программирование Access в примерах 2009г.
4. С. Бобровский DELPHI 7 учебный курс 2008г.
5. Проектирование и реализация баз данных Microsoft SQL Server 2010. Учебный курс MCA
6. Михаил Фленов- Библия DELPHI 2009г.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids,
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
procedure FormCreate(Sender: TObject);
procedure pgc1Change(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure edt5Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ts4ContextPopup(Sender: TObject; MousePos: TPoint;
procedure TMain.FormCreate(Sender: TObject);
cbb3.Items.Add(tbl1.FieldByName('Комплектующие').AsString);
cbb5.Items.Add(tbl1.FieldByName('Комплектующие').AsString);
cbb2.Items.Add(tbl4.FieldByName('Название_организации').AsString);
procedure TMain.pgc1Change(Sender: TObject);
if (pgc1.TabIndex = 0) or (pgc1.TabIndex = 1) then
procedure TMain.btn1Click(Sender: TObject);
tbl1.FieldByName('Комплектующие').AsString:= edt1.Text;
tbl1.FieldByName('Тип_Комплектующего').AsString:= cbb1.Text;
tbl1.FieldByName('Колличество').AsString:= se1.Text;
tbl4.Locate('Название_организации', cbb2.Text, [loCaseInsensitive]);
tbl1.FieldByName('Код_Поставщика').AsInteger:= tbl4.FieldByName('Код_Поставщика').AsInteger;
procedure TMain.btn2Click(Sender: TObject);
tbl1.Locate('Комплектующие', cbb3.Text, [loCaseInsensitive]);
if se2.Value <= tbl1.FieldByName('Колличество').AsInteger then
tbl2.FieldByName('Код_Комплектующего').AsInteger:= tbl1.FieldByName('Код_Комплектующего').AsInteger;
tbl2.FieldByName('ФИО_Сотрудника').AsString:= edt9.Text;
tbl2.FieldByName('Колличество').AsString:= se2.Text;
tbl1.FieldByName('Колличество').AsInteger:= tbl1.FieldByName('Колличество').AsInteger - se2.Value;
Application.MessageBox('Недостаточно комплектующих!', 'Ошибка', MB_OK + MB_ICONSTOP);
procedure TMain.btn3Click(Sender: TObject);
tbl1.Locate('Комплектующие', cbb5.Text, [loCaseInsensitive]);
if se3.Value <= tbl1.FieldByName('Колличество').AsInteger then
tbl1.Locate('Комплектующие', cbb5.Text, [loCaseInsensitive]);
tbl3.FieldByName('Код_комлектующего').AsInteger:= tbl1.FieldByName('Код_Комплектующего').AsInteger;
tbl3.FieldByName('Колличество').AsString:= se3.Text;
tbl3.FieldByName('Причина').AsString:= edt2.Text;
tbl1.FieldByName('Колличество').AsInteger:= tbl1.FieldByName('Колличество').AsInteger - se3.Value;
Application.MessageBox('Недостаточно комплектующих!', 'Ошибка', MB_OK + MB_ICONSTOP);
procedure TMain.btn4Click(Sender: TObject);
tbl4.FieldByName('Название_организации').AsString:= edt3.Text;
tbl4.FieldByName('ФИО_поставщика').AsString:= edt4.Text;
tbl4.FieldByName('Телефон').AsString:= edt5.Text;
tbl4.FieldByName('Адрес').AsString:= edt6.Text;
tbl4.FieldByName('Факс').AsString:= edt7.Text;
tbl4.FieldByName('Р/С').AsString:= edt8.Text;
procedure TMain.edt5Change(Sender: TObject);
procedure TMain.Button1Click(Sender: TObject);
app:=CreateOleObject('Excel.Application');
book.Worksheets[1].Name:='Комплектующие';
sheet.Range['B1']:='Отчёт по объектам';
sheet.Range['B2']:='Комплектующие';
sheet.Range['C2']:='Тип Комплектующего';
//sheet.Range['e2']:='Перезаключение';
sheet.Range['b2:D2'].Borders[7].LineStyle:=1;
sheet.Range['B2:D2'].Borders[7].Weight:=-4138;
sheet.Range['B2:D2'].Borders[7].ColorIndex:=-4105;
sheet.Range['B2:D2'].Borders[8].LineStyle:=1;
sheet.Range['B2:D2'].Borders[8].Weight:=-4138;
sheet.Range['B2:D2'].Borders[8].ColorIndex:=-4105;
sheet.Range['B2:d2'].Borders[9].LineStyle:=1;
sheet.Range['B2:d2'].Borders[9].Weight:=-4138;
sheet.Range['B2:d2'].Borders[9].ColorIndex:=-4105;
sheet.Range['B2:d2'].Borders[10].LineStyle:=1;
sheet.Range['B2:d2'].Borders[10].Weight:=-4138;
sheet.Range['B2:d2'].Borders[10].ColorIndex:=-4105;
Sheet.Columns['B:B'].columnWidth:=20;
Sheet.Columns['C:C'].columnWidth:=20;
Sheet.Columns['D:D'].columnWidth:=20;
//Sheet.Columns['E:E'].columnWidth:=40;
//Sheet.Columns['F:F'].columnWidth:=15;
for i:=1 to Main.tbl1.RecordCount do
sheet.Cells[i+2,2].Borders[7].LineStyle:=1;
sheet.Cells[i+2,2].Borders[7].Weight:=-4138;
sheet.Cells[i+2,2].Borders[7].ColorIndex:=-4105;
sheet.Cells[i+2,4].Borders[10].LineStyle:=1;
sheet.Cells[i+2,4].Borders[10].Weight:=-4138;
sheet.Cells[i+2,4].Borders[10].ColorIndex:=-4105;
sheet.Cells[i+2,2]:= Main.tbl1.FieldByName('Комплектующие').AsString;
sheet.Cells[i+2,3]:= Main.tbl1.FieldByName('Тип_Комплектующего').AsString;
sheet.Cells[i+2,4]:= Main.tbl1.FieldByName('Колличество').AsString;
// sheet.Cells[i+1,5]:= Obect.ADOTable1.FieldByName('Перезаключение').AsString;
// sheet.Cells[i+1,6]:=MainForm.WaresADOTable.FieldByName('Цена').AsCurrency;
//sheet.Cells[ Main.tbl1.RecordCount+1,i].Borders[9].LineStyle:=1;
//sheet.Cells[ Main.tbl1.RecordCount+1,i].Borders[9].Weight:=-4138;
// sheet.Cells[ Main.tbl1.RecordCount+1,i].Borders[9].ColorIndex:=-4105;
book.SaveAs(CurDir+'\Комплектующие.xls');
procedure TMain.Button2Click(Sender: TObject);
app:=CreateOleObject('Excel.Application');
book.Worksheets[1].Name:='Поставка';
sheet.Range['B1']:='Отчёт по объектам';
sheet.Range['B2']:='Комплектующие';
sheet.Range['C2']:='Тип Комплектующего';
//sheet.Range['e2']:='Перезаключение';
sheet.Range['b2:D2'].Borders[7].LineStyle:=1;
sheet.Range['B2:D2'].Borders[7].Weight:=-4138;
sheet.Range['B2:D2'].Borders[7].ColorIndex:=-4105;
sheet.Range['B2:D2'].Borders[8].LineStyle:=1;
sheet.Range['B2:D2'].Borders[8].Weight:=-4138;
sheet.Range['B2:D2'].Borders[8].ColorIndex:=-4105;
sheet.Range['B2:d2'].Borders[9].LineStyle:=1;
sheet.Range['B2:d2'].Borders[9].Weight:=-4138;
sheet.Range['B2:d2'].Borders[9].ColorIndex:=-4105;
sheet.Range['B2:d2'].Borders[10].LineStyle:=1;
sheet.Range['B2:d2'].Borders[10].Weight:=-4138;
sheet.Range['B2:d2'].Borders[10].ColorIndex:=-4105;
Sheet.Columns['B:B'].columnWidth:=20;
Sheet.Columns['C:C'].columnWidth:=20;
Sheet.Columns['D:D'].columnWidth:=20;
//Sheet.Columns['E:E'].columnWidth:=40;
//Sheet.Columns['F:F'].columnWidth:=15;
for i:=1 to Main.tbl1.RecordCount do
sheet.Cells[i+2,2].Borders[7].LineStyle:=1;
sheet.Cells[i+2,2].Borders[7].Weight:=-4138;
sheet.Cells[i+2,2].Borders[7].ColorIndex:=-4105;
sheet.Cells[i+2,4].Borders[10].LineStyle:=1;
sheet.Cells[i+2,4].Borders[10].Weight:=-4138;
sheet.Cells[i+2,4].Borders[10].ColorIndex:=-4105;
sheet.Cells[i+2,2]:= Main.tbl1.FieldByName('Комплектующие').AsString;
sheet.Cells[i+2,3]:= Main.tbl1.FieldByName('Тип_Комплектующего').AsString;
sheet.Cells[i+2,4]:= Main.tbl1.FieldByName('Колличество').AsString;
// sheet.Cells[i+1,5]:= Obect.ADOTable1.FieldByName('Перезаключение').AsString;
// sheet.Cells[i+1,6]:=MainForm.WaresADOTable.FieldByName('Цена').AsCurrency;
//sheet.Cells[ Main.tbl1.RecordCount+1,i].Borders[9].LineStyle:=1;
//sheet.Cells[ Main.tbl1.RecordCount+1,i].Borders[9].Weight:=-4138;
// sheet.Cells[ Main.tbl1.RecordCount+1,i].Borders[9].ColorIndex:=-4105;
book.SaveAs(CurDir+'\Поставка.xls');
procedure TMain.Button3Click(Sender: TObject);
app:=CreateOleObject('Excel.Application');
book.Worksheets[1].Name:='Распределение';
sheet.Range['B1']:='Отчёт распределение';
sheet.Range['B2']:='Комплектующие';
sheet.Range['C2']:='ФИО Сотрудника';
//sheet.Range['e2']:='Перезаключение';
sheet.Range['b2:D2'].Borders[7].LineStyle:=1;
sheet.Range['B2:D2'].Borders[7].Weight:=-4138;
sheet.Range['B2:D2'].Borders[7].ColorIndex:=-4105;
sheet.Range['B2:D2'].Borders[8].LineStyle:=1;
sheet.Range['B2:D2'].Borders[8].Weight:=-4138;
sheet.Range['B2:D2'].Borders[8].ColorIndex:=-4105;
sheet.Range['B2:d2'].Borders[9].LineStyle:=1;
sheet.Range['B2:d2'].Borders[9].Weight:=-4138;
sheet.Range['B2:d2'].Borders[9].ColorIndex:=-4105;
sheet.Range['B2:d2'].Borders[10].LineStyle:=1;
sheet.Range['B2:d2'].Borders[10].Weight:=-4138;
sheet.Range['B2:d2'].Borders[10].ColorIndex:=-4105;
Sheet.Columns['B:B'].columnWidth:=20;
Sheet.Columns['C:C'].columnWidth:=20;
Sheet.Columns['D:D'].columnWidth:=20;
//Sheet.Columns['E:E'].columnWidth:=40;
//Sheet.Columns['F:F'].c
Разработка программного обеспечения "Автоматизация учета компьютерной техники" дипломная работа. Программирование, компьютеры и кибернетика.
Реферат: Маркетинговая стратегия ЗАО "Авто-транс". Скачать бесплатно и без регистрации
Реферат: Источники вторичного электропитания
Цена Победы В Великой Отечественной Войне Реферат
Дипломная работа по теме Уголовно-правовая характеристика убийства матерью новорожденного ребенка
Курсовая работа по теме Разработка технологического процесса изготовления детали 'вал-шестерня'
Дошкольное образование Японии
Роль Информатики В Жизни Человека Реферат
Забвению Не Подлежит Схема Сочинения
Реферат: Анализ, оценка и выбор пользователем пакетов прикладных программ для автоматизации своей деятельности (Microsoft Access)
Реферат: Методы регулирования деятельности коммерческих банков
Эссе Мое Отношение К Русскому Языку
Эссе Осень В Моем Городе
Условия И Безопасность Труда Курсовая
Сочинение по теме “Подруга дней моих суровых”
Курсовая работа по теме Социальное обеспечение пожилых людей
Дипломная Работа На Тему Анализ Финансовой Политики Предприятия
Курсовая работа по теме Организация рекламной деятельности
Особенности исследования и изложения некоторых тем дипломных проектов (лекция-шпаргалка)
Жизнь И Гибель Принцесс Истоичекие Эссе Книга
Свобода В Лирике Пушкина Сочинение
Особливості державного устрою Австрії наприкінці XVIII – у першій половині XIX ст. - История и исторические личности реферат
Лечебное питание. Характеристики диет - Кулинария и продукты питания курсовая работа
Амбарные вредители и меры борьбы с ними - Кулинария и продукты питания презентация