Автоматизированный учет компьютерной техники ООО "СибирьЭнергоАвтоТранс" - Программирование, компьютеры и кибернетика дипломная работа
![](/file/c17a668ccb7333e986a5a.jpg)
Главная
Программирование, компьютеры и кибернетика
Автоматизированный учет компьютерной техники ООО "СибирьЭнергоАвтоТранс"
Описание входной и выходной информации. Программа и схема взаимосвязи модулей, руководство пользователю. Подготовка и компиляция программы, тестирование и отладка. Операционная система Windows 7 Ultimate x86. Язык программирования Embarcadero DELPHI 2010.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Данная выпускная квалификационная работа выполнялась в ООО «СибирьЭнергоАвтоТранс», в отделении «Оперативных систем управления». ООО «СибирьЭнергоАвтоТранс» - устойчивое, динамично развивающееся предприятие в сфере транспортных услуг. Данное предприятие является одним из крупнейших на рынке автоуслуг Кемеровской области . Среди постоянных заказчиков и партнеров ООО «СибирьЭнергоАвтоТранс» такие крупные предприятия как филиал ОАО «МРСК Сибири» - «Кузбассэнерго», ЗАО «Энерго-строительная компания Сибири», Администрация Кемеровской области, ОАО «Кемеровоэлектромонтаж», ОАО «Сибирьсетьремонт».
Технический отдел занимается обслуживанием и сопровождением компьютерных сетей, сопровождением и дополнением конфигурации программы «1С: Автотранспорт». Также специалисты технического отдела занимаются приемом и вводом в производство компьютерной техники и периферийного оборудования. После поступлении нового оборудования специалисты тестируют, отлаживают и настраивают компьютеры, так как необходимо полностью удовлетворить потребности остальных сотрудников, для эффективной работы предприятия. Без необходимого программного обеспечения, информацию о прибывшем оборудовании приходилось держать в бумажной форме, что осложняло хранение информации.
При поступлении нового оборудования руководителю технического отдела было необходимо подписать акт о приеме товара, затем подписать акт о вводе нового оборудования в производство.
Данная программа разработана для автоматизации учета компьютерной техники и периферийного оборудования, а также вывода готовых отчетов для предоставления отчетности бухгалтерии и высшему руководству.
Для создания данной программы использовалась среда разработки Delphi 2010. Был выбран метод решения данной задачи с помощью создания приложения трехзвенной архитектуры, так как, оно позволяет полностью отобразить все входные и выходные данные, требуемые по условию задачи. В качестве хранилища данных была выбрана СУБД MySQL.
Операционные системы, используемые при разработке программы: Microsoft Windows 7 (x32).
1.1 Организационно-экономическая сущность задачи
При регулярном обновлении оборудования необходимо как можно быстро обновить сведения о компьютерах организации. Так же производится регулярная замена периферийного оборудования, такие как картриджи и принтеры. Работа с бумажным носителем не всегда удобна, т.к. необходимо постоянно контролировать наличие того или иного компьютера и картриджа на складе, а также эти носители ненадежны в хранении данных. При обновлении комплектующих компьютера подписывается акт о замене оборудования, который приходит из бухгалтерии или от высшего руководства. В связи с увеличением затрат на время было решено создать программное обеспечение, которое бы позволяло не только оперативно записать данные, но и быстро сформировать отчет.
Необходимо написать программное обеспечение, способное вести учет компьютеров и периферийного оборудования в организации ООО «СибирьЭнергоАвтоТранс».
В программе необходимо предусмотреть следующее:
-Удобный интерфейс с возможностью отображения необходимого списка оборудования каждого вида.
-Контроль ввода данных при добавлении информации о компьютерах и -периферии.
-При выборе необходимого участка отображать список оборудования на данном участке.
-Работу с учетными записями сотрудников работающих в программе.
-Каскадное удаление и обновление базы данных.
-Редактирование информации компьютера при замене комплектующих деталей или временного вывода компьютера из эксплуатации.
-Редактирование информации о картриджах при выводе их из эксплуатации на заправку.
-Формирование отчетов со списком всего оборудования на участке и оборудования, введенного за определенный период.
1.3 Описание входной и выходной информации
В качестве входной информации используются сведения о компьютерах и данные о ответственных лицах на участках.
Структура входной информации представлена в таблицах: 1.3.1-1.3.7.
Таблица 1.3.1 - Структура таблицы пользователей (users)
Таблица 1.3.2 - Структура таблицы участков (uchastok)
Таблица 1.3.3 - Структура таблицы кодов ответственных лиц(ot_male)
Таблица 1.3.4 - Структура таблицы информации об компьютерах (comp_info)
Таблица 1.3.5 - Структура таблицы истории компьютеров (comp_history)
Таблица 1.3.6 - Структура таблицы картриджей (cartg)
Таблица 1.3.7 - Структура таблицы истории картриджей (cartg_history)
Таблица 1.3.8 - Структура таблицы принтеров (print)
Таблица 1.3.9 - Структура таблицы истории принтеров (print_history)
Выходной информацией являются отчет по оборудованию, находящиемуся на необходимом участке.
1.4 Информационная модель решения задачи
Информационная модель решения задачи - это последовательность операций, выполняемых над информацией с момента её внесения в базу данных до получения окончательных результатов, например формирования каких-либо отчётов. Она должна быть организована так, чтобы работа максимально упрощалась и выполнялась с минимальными затратами труда и денежных средств.
Информационная модель делится на 4 этапа: приём входной информации; подготовка исходных данных; обработка информации; подготовка выходной информации.
Информационная модель может включать: приём данных; сохранение введенных данных в базе; вывод результата работы программы на печать; контроль ввода данных.
В данной выпускной квалификационной работе представлена наиболее распространённая информационная модель - это схема взаимосвязи таблиц по ключевым полям (рис 1.4.1).
Рисунок 1.4.1 - Схема взаимосвязи данных таблиц
1.5 Описание программы и схема взаимосвязи модулей
При решении задач были разработаны следующие модули:
Login.pas - модуль «Идентификация пользователя»
MM.pas - модуль «Главное меню». Данный модуль представлен в блок-схеме 1.6.1
Сomp_info.pas - модуль «Добавление компьютеров»
Ecomp.pas - модуль «Изминение компьютера»
AdCartg.pas - модуль «Добавление картриджа»
Ecartg.pas - модуль «Изминение картриджа»
EPrint.pas - модуль «Изминение принтера»
AdUch.pas - модуль «Добавление участка»
ListOtMale.pas - модуль «Список ответственных»
ListUser.pas - модуль «Список пользователей»
VivObor.pas - модуль «Вывод отчета по оюорудованию на участке»
Схема взаимосвязи модулей представлена на рисунке 1.5.1.
Тексты модулей представлены в приложении 1 (стр. 33).
Рисунок 1.5.1 - Схема взаимосвязей программных модулей
Алгоритм - последовательность арифметических и логических действий над числовыми значениями переменных, приводящая к вычислению результата решения задачи при изменении исходных данных в достаточно широких пределах.
На этапе разработки алгоритма необходимо определить последовательность действий, которые надо выполнить для получения результата. Если задача может быть решена несколькими способами и, следовательно, возможны различные варианты алгоритма решения, то программист, используя некоторый критерий, например скорость выполнения алгоритма, выбирает наиболее подходящее решение.
Результатом этапа разработки алгоритма является подробное словесное описание алгоритма или его блок-схема - графическое представление алгоритма.
Алгоритм решения данной задачи представлен модулем главного меню (MM.pas) в виде блок-схемы на рисунке 1.6.1 (стр. 16).
Дискретность - это свойство алгоритма, когда алгоритм разбивается на конечное число шагов.
Понятность - свойство алгоритма, при котором каждый из этих шагов являются законченными и понятными.
Детерминированность - свойство, когда каждый шаг должен пониматься в строго определённом смысле, чтобы не оставалась места произвольному толкованию. чтобы каждый, прочитавший указание, понимал его однозначно.
Массовость - свойство, когда по данному алгоритму должна решаться не одна, а целый класс подобных задач.
Результативность - свойство, при котором любой алгоритм в процессе выполнения должен приводить к определённому результату. Отрицательный результат также является результатом.
Рисунок 1.6.1 - Алгоритм выполнения модуля MM.pas
1.7 Руководство пользователю по работе с программой
При запуске программы, пользователю предлагается выбор учетной записи, если таковой нет, то необходимо нажать кнопку «Добавить пользователя» для ввода новой учетной записи (рис. 1.7.1). Учётная запись требует пароля, пользователю требуется ввести пароль из латинских букв и цифр длиной до 16 символов.
Главное меню программы, в зависимости от учётной записи, несколько отличается. С помощью главного меню пользователь может добавить записи об необходимых участках, а также поменять участок с каким он хочет работать. Пользователь может выбрать с каким типом оборудования он хочет работать. Из главного меню пользователь может переходить на формы для работы с данными.
Для ввода нового звонка в главном меню пункт «Справочники», подункт «Участки» или кнопка «+» на главной форме. Эта форма позволяет пользователю увидеть с какими участками он может работать или добавить новый участок (рис 1.7.3). Ввод записи производится путем ввода в поле адрес участка, затем нажатием кнопки «Добавить».
Содержит сведения об пользователях, имеется возможность добавления и удаления пользователя. При удалении пользователя удаляются все связанные с ним записи, на что всплывает диалоговое окно с предупреждением и выбором действий (рис 1.7.4).
Для ввода новой ответственного лица требуется нажать кнопку «+» и ввести данные. Для добавления имени ответственного и должности используются диалоги. Перед добавлением нового ответственного лица в главном меню необходимо выбрать нужный участок (рис 1.7.5).
Для ввода нового компьютера требуется заполнить все поля и нажать кнопку «Сохранить». Если компьютер арендован, необходимо перед сохранением нажать флажок «Аренда». При сохранении нового комрьютера, программа автоматически присваивает компьютеру статус «В работе» (рис 1.7.6).
При открытии данной формы в поля автоатически заносится информация о компьютере. Пользователь может изменить названия комлектующих, если произошла их замена или внести в запись дату вывода, если компьютер выведен из производства. Если дата вывода окажется больше даты ввода, то программа автоматически изменит статус на «Выведен», иначе произойдет вывод предупредительного окна об ошибке при выборе даты. Аналогично программа себя поведет, если сделать обратную операцию. При сохранении изминений, необходимо нажать кнопку «Сохранить» (рис 1.7.7).
Для добавления картриджей необходимo ввести названия картриджа, статус и сосотояние является ли администратором, если да, то ввести пароль. После этого нажать кнопку «Добавить» (рис 1.7.8).
При открытии данной формы в поля автоматически заносится информация о картридже. При сохранении изменений, необходимо нажать кнопку «Сохранить». При не заполнении одного из полей, программа выдаст окно с ошибкой о некорректном вводе данных (рис 1.7.9).
При открытии данной формы в поля автоматически заносится информация о принтере. При сохранении изменений, необходимо нажать кнопку «Сохранить» (рис 1.7.10).
Пользователю дается на выбор вывод всего оборудования на участке или оборудования введенного в определенный период времени (рис 1.7.11).
Формирование и экспорт отчётов в EXCEL
В форме на рис. 1.7.11 требуется нажать кнопку «Вывести». Отчёт по оборудованию можно экспортировать как полностью (рис 1.7.12), так и за определенный период (рис 1.7.13).
2.1 Подготовка и компиляция программы
Программа, представленная в виде инструкций языка программирования, называется исходной программой. Она состоит из инструкций, понятных человеку, но не понятных процессору компьютера. Чтобы процессор смог выполнить работу в соответствии с инструкциями исходной программы, эта программа должна быть переведена на машинный язык - язык команд процессора. Задачу преобразования исходной программы в машинный код выполняет специальная программа - компилятор.
Компилятор выполняет последовательно две задачи:
1. Проверяет текст исходной программы на отсутствие синтаксических ошибок.
2. Создает (генерирует) исполняемую программу - машинный код.
Генерация машинного кода компилятором свидетельствует лишь о том, что в тексте программы нет синтаксических ошибок. Убедиться, что программа работает правильно можно только в процессе ее тестирования - пробных запусках программы и анализе полученных результатов [1].
Процесс и результат компиляции отражаются в диалоговом окне Compiling. В это окно компилятор выводит ошибки (Errors), предупреждений (warnings) и подсказок (Hints). Сами сообщения об ошибках, предупреждения и подсказки отображаются в нижней части окна редактора кода.
В большинстве случаев в только что набранной программе есть синтаксические ошибки. Программист должен их устранить. Процесс устранения ошибок носит итерационный характер. Обычно сначала устраняются наиболее очевидные ошибки, например, декларируются необъявленные переменные. После очередного внесения изменений в текст программы выполняется повторная компиляция. Следует учитывать тот факт, что компилятор не всегда может точно локализовать ошибку. Поэтому, анализируя фрагмент программы, который, по мнению компилятора, содержит ошибку, нужно обращать внимание не только на тот фрагмент кода, на который компилятор установил курсор, но и на тот, который находится в предыдущей строке [1].
Если в программе нет синтаксических ошибок, компилятор создает исполняемый файл программы. Имя исполняемого файла такое же, как и у файла проекта, а расширение - exe. Delphi помещает исполняемый файл в тот же каталог, где находится файл проекта.
При обнаружении в программе неточностей, которые не являются ошибками, компилятор выводит подсказки (Hints) и предупреждения (warnings). Например, наиболее часто выводимой подсказкой является сообщение об объявленной, но не используемой переменной.
Итак, компиляция - это перевод исходного текста к виду, доступному для вычислительной машины, и объединение в одно целое отдельных частей программы. В результате компиляции будет получена программа, находящаяся либо в оперативной памяти машины, либо размещённая в exe - файле на диске [1].
2.2 Тестирование и отладка программы
Успешное завершение процесса компиляции не означает, что в программе нет ошибок. Убедиться, что программа работает правильно можно только в процессе проверки ее работоспособности, который называется тестированием.
Обычно программа редко сразу начинает работать так, как надо, или работает правильно только на некотором ограниченном наборе исходных данных. Это свидетельствует о том, что в программе есть алгоритмические ошибки. Процесс поиска и устранение ошибок называется отладкой [2].
Интегрированная среда разработки Delphi предоставляет программисту мощное средство поиска и устранения ошибок в программе - отладчик. Отладчик позволяет:
выполнять программу в пошаговом режиме.
Именно это средство и использовалось при отладке данной программы. Этап отладки можно считать законченным, если программа правильно работает на одном - двух наборах входных данных [1].
2.3 Выполнение и контрольный пример
Во время выполнения программы можно столкнуться с множеством проблем. Они могут возникнуть как на этапе проектирования, так и на этапе разработки программного продукта. Основной проблемой является неправильное использование операторов языка, неверное построение алгоритма. Ошибки могут быть разными, как это может быть и некорректное использование свойств компонент, или неправильное задание какого-либо условия, так и многое другое [2].
Но они все легко устраняемы, после того, как проект готов к работе проводятся автономная и комплексная отладка программного продукта, испытание работоспособности модулей и базовых программных средств. Для комплексной отладки готовится контрольный пример, который позволяет проверить соответствие возможностей программного продукта заданным спецификациям.
В результате тестирования программы были выявлены следующие ошибки:
ошибка соединения клиентского приложения с серверным;
ошибка при сохранении новой записи в таблице, нарушение целостности первичного ключа;
некорректное отображение данных при выборе участка или при выборе другой таблицы;
некорректный вывод записей за определенный промежуток времени при формировании отчета.
В настоящее время все ошибки устранены. Результат работы программы представлен в приложении 2 (стр. 78).
3 . ПРОГРАММНЫЕ И ТЕХНИЧЕСКИЕ СРЕДСТВА РЕШЕНИЯ ЗАДАЧИ
Программа «Автоматизированный учет компьютерной техники ООО «СибирьЭнергоАвтоТранс»» представленная в данной выпускной квалификационной работе была разработана на компьютере следующей конфигурации:
Процессор: Intel Pentium Dual Core T4300
Оперативная память: DDR2 PC5300 (4096 МГц)
ASUS K61IC - это мультимедийный ноутбук среднего класса. От более доступных моделей его выгодно отличает дискретный графический адаптер. Модель не рассчитана на частые перемещения, и скорее подойдет для стационарной домашней эксплуатации. В этом ноутбуке разработчики сделали особенный акцент на графические возможности. Модель оснащена быстрым дискретным видеоадаптером NVIDIA GeForce GT 220M с 1 ГБ памяти. Компьютер работает на базе одного из наиболее распространенных процессоров - Intel Pentium Dual-Core T4300 с частотой 2,1 ГГц. Стандартный объем оперативной памяти составляет 4 ГБ, а емкость винчестера - 320 ГБ. Это в полнее достаточно для ноутбука, на котором может храниться большое количество мультимедийных файлов [11].
Процессор Intel Pentium Dual Core T4300 предлагает хорошую производительность, надежность и имеет исключительную ценность для ноутбуков. Мобильные процессоры Intel обеспечивают производительность, необходимую для запуска самых популярных приложений.
Оперативная память - одна из важнейших деталей компьютера. Память поможет ускорить обмен данными на компьютере. Оперативная память незаменима для выполнения различных задач, таких как: работа с объемными текстами, таблицами, графиками; архивирование, шифрование, работа с базами данных [10].
3.2 Описание операционной системы Windows 7 Ultimate x86
Windows 7 Ultimate x86 - операционная система семейства Windows NT, следующая за Windows Vista. В состав Windows 7 вошли как некоторые разработки, исключённые из Windows Vista, так и новшества в интерфейсе и встроенных программах. Операционная система обладает поддержкой мультитач -управления. Дополнительным преимуществом Windows 7 можно считать более тесную интеграцию с производителями драйверов. Большинство из них определяются автоматически [7].
Центральный процессор: Х86 или Х64 с тактовой частотой 1ГГц
Графический процессор: Адаптер с поддержкой DirectX 9 и 128 Мб памяти
Возможности операционной системы Windows 7:
В Windows 7 ускорены процессы перехода в спящий режим, возобновления работы и повторного подключения к беспроводной сети.
При первом подключении переносного устройства флэш-памяти или другого USB-устройства Windows 7 подготавливает его к работе за считанные секунды. Если данное устройство использовалось ранее, подключение происходит еще быстрее.
В отличие от предыдущих версий Windows 7 позволяет запускать снижающие производительность службы, работающие в фоновом режиме, только при необходимости.
Операционная система Windows 7 превращает все возможности 64-разрядных компьютеров в новый стандарт для настольных систем [11].
3.3 Описание языка программирования Embarcadero DELPHI 2010
Бурное развитие вычислительной техники, потребность в эффективных средствах разработки программного обеспечения привели к появлению систем программирования, ориентированных на так называемую "быструю разработку", среди которых можно выделить Borland Delphi. В системе быстрой разработки (RAD-систем, Rapid Application Development - среда быстрой разработки приложений) лежит технология визуального проектирования и событийного программирования, суть которой заключается в том, что среда разработки берет на себя большую часть рутинной работы, оставляя программисту работу по конструированию диалоговых окон и функций обработки событий [1].
Delphi - это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi - строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal [2].
Embarcadero Delphi 2010 является одной из наиболее признанных и популярных сред для быстрой разработки приложений. Технология программирования Delphi 2010 значительно ускоряет создание приложений для настольных компьютеров, рабочих станций, сенсорных дисплеев, информационных терминалов и Интернета, при этом не ограничивая разработчика в гибкости, мощности языковых средств или уровне контроля. Приложения, созданные с помощью Delphi 2010, отличаются высочайшим быстродействием и компактностью, а также обладают полнофункциональным пользовательским интерфейсом и способностью подключаться практически к любой базе данных или другому источнику данных, не требуя дополнительной доработки.
Учитывая все эти особенности, для написания данной программы и был выбран объектно-ориентированный язык программировании Delphi [9].
MySQL является собственностью компании Oracle Corporation, получившей её вместе с поглощённой Sun Microsystems, осуществляющей разработку и поддержку приложения. Распространяется под GNU General Public License или под собственной коммерческой лицензией. Помимо этого разработчики создают функциональность по заказу лицензионных пользователей, именно благодаря такому заказу почти в самых ранних версиях появился механизм репликации [7].
MySQL - решение для малых и средних приложений. Входит в состав серверов WAMP, LAMP и в портативные сборки серверов Денвер, XAMPP. Обычно MySQL используется в качестве сервера, к которому обращаются локальные или удалённые клиенты, однако в дистрибутив входит библиотека внутреннего сервера, позволяющая включать MySQL в автономные программы.
Гибкость СУБД MySQL обеспечивается поддержкой большого количества типов таблиц: пользователи могут выбрать как таблицы типа MyISAM, поддерживающие полнотекстовый поиск, так и таблицы InnoDB, поддерживающие транзакции на уровне отдельных записей. Более того, СУБД MySQL поставляется со специальным типом таблиц EXAMPLE, демонстрирующим принципы создания новых типов таблиц. Благодаря открытой архитектуре и GPL-лицензированию, в СУБД MySQL постоянно появляются новые типы таблиц [8].
В качестве интерфейса программирования доступа к данным была выбрана технология dbExpress. Технология dbExpress представляет собой совокупность драйверов, компонентов, инкапсулирующих соединения, транзакции, запросы и наборы данных, а также интерфейсов, обеспечивающих универсальный доступ к функциям dbExpress. Разработанная компанией Borland, технология dbExpress является наилучшим решением для приложений, в которых необходим быстрый и необременительный просмотр данных серверов SQL [13].
Microsoft Excel (также иногда называется Microsoft Office Excel) - программа для работы с электронными таблицами, созданная корпорацией Microsoft для Microsoft Windows, Windows NT и Mac OS. Она предоставляет возможности экономико-статистических расчетов, графические, язык макропрограммирования VBA (Visual Basic для приложений). Microsoft Excel входит в состав Microsoft Office и на сегодняшний день Excel является одним из наиболее популярных приложений в мире [6].
API позволяет открывать таблицы Excel в ряде других приложений. Это включает в себя открытие документов Excel на веб-страницах с помощью ActiveX или таких плагинов, как Adobe Flash Player.
Ценной возможностью Excel является возможность писать код на основе Visual Basic для приложений (VBA). Этот код пишется с использованием отдельного от таблиц редактора. Управление электронной таблицей осуществляется посредством объектно-ориентированной модели кода и данных. С помощью этого кода данные входных таблиц будут мгновенно обрабатываться и отображаться в таблицах и диаграммах (графиках). Таблица становится интерфейсом кода, позволяя легко работать изменять его и управлять расчётами [7].
1. Delphi 2007. Самоучитель/ С.В. Глушаков, А.Л. Клевцов. - изд. 4-е, доп и перераб. - М.: АСТ:АСТ МОСКВА:ХРАНИТЕЛЬ, 2008. - 448с.
2. Нестандартные приемы программирования на Delphi . Ревич Ю.В. - М.:BHV, 2005. - 560 с.
3. Программирование документов и приложений MS Office в Delphi. Корняков В. - М.:BHV, 2005. - 496с.
unit Login; - модуль формы «Идентификация пользователя»
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DMGL, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls,
RibbonLunaStyleActnCtrls, Ribbon, Mask, Buttons, IniFiles;
DBLookupComboBox1: TDBLookupComboBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure TForm1.BitBtn1Click(Sender: TObject);
if maskedit2.Text=maskedit3.Text then
if datamodule2.Users.Locate('Login_users', edit2.Text, [])=false then
while datamodule2.Users.eof=false do
if i=datamodule2.Users.FieldByName('id_user').AsInteger then
datamodule2.Users.FieldValues['id_user']:=i;
datamodule2.Users.FieldValues['Login_users']:=edit2.Text;
datamodule2.Users.FieldValues['Password_users']:=maskedit2.Text;
datamodule2.Users.ApplyUpdates(-1);
else application.MessageBox(pchar('Такой логин уже есть'),'Ошибка',mb_OK);
else application.MessageBox(pchar('Пароли не совпадают'),'Ошибка',mb_OK);
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button2Click(Sender: TObject);
if (datamodule2.Users.fieldvalues['Password_users']=maskedit1.Text) then
main.statusbar1.Panels[0].Text:='Пользователь '+datamodule2.Users.FieldByName('Login_users').AsString;
main.DBLookupComboBox1.KeyValue:=0;
else application.MessageBox(pchar('Неправильно введен логин или пароль'), 'Ошибка идентификации', mb_OK);
procedure TForm1.Button3Click(Sender: TObject);
procedure TForm1.Button4Click(Sender: TObject);
{datamodule2.SocketConnection1.Host:=edit1.text;
datamodule2.SocketConnection1.ServerName:='ServerPro.ServDM';
datamodule2.SocketConnection1.Connected:=true;
if datamodule2.SocketConnection1.Connected=true then
con:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'\connect.ini');
con.WriteString('SoketConection1','SoketConection1Host',datamodule2.SocketConnection1.Host);
datamodule2.Comp_info.Active:=true;
datamodule2.comp_history.Active:=true;
datamodule2.cartg_history.Active:=true;
datamodule2.print_history.Active:=true; }
procedure TForm1.Button5Click(Sender: TObject);
procedure TForm1.FormCreate(Sender: TObject);
SysUtils, Classes, DB, DBClient, ShellAnimations, MConnect, SConnect, Menus,
ADODB, Dialogs, Messages, Windows, StdCtrls, Forms, dateutils, AdoConEd, IniFiles;
SocketConnection1: TSocketConnection;
procedure N7Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);
procedure SocketConnection1BeforeConnect(Sender: TObject);
uses ListUser, ListOtMale, compinfo, AdCartg, Uchastok, VivObor, MM, Login;
procedure TDataModule2.DataModuleCreate(Sender: TObject);
datamodule2.comp_info.Active:=true;
datamodule2.comp_history.Active:=true;
datamodule2.cartg_history.Active:=true;
datamodule2.print_history.Active:=true;
procedure TDataModule2.N10Click(Sender: TObject);
procedure TDataModule2.N2Click(Sender: TObject);
uchastok:=inputbox('Название участка', '', '');
while datamodule2.Uchastok.eof=false do
if i=datamodule2.Uchastok.FieldByName('id_uch').AsInteger then
datamodule2.Uchastok.FieldValues['id_uch']:=i;
datamodule2.Uchastok.FieldValues['id_user']:=datamodule2.Users.FieldValues['id_user'];
datamodule2.Uchastok.FieldValues['Name_uch']:=uchastok;
datamodule2.Uchastok.ApplyUpdates(-1);
procedure TDataModule2.N3Click(Sender: TObject);
procedure TDataModule2.N4Click(Sender: TObject);
procedure TDataModule2.N5Click(Sender: TObject);
procedure TDataModule2.N6Click(Sender: TObject);
year, month, day, hour, minute, second, msec: word;
name:=inputbox('Введите название принтера', '' ,'');
while datamodule2.Print.eof=false do
if i=datamodule2.Print.FieldByName('id_print').AsInteger then
datamodule2.Print.FieldValues['id_print']:=i;
datamodule2.Print.FieldValues['uch_print']:=datamodule2.Uchastok.FieldValues['id_uch'];
datamodule2.Print.FieldValues['name_print']:=name;
datamodule2.Print.FieldValues['vrab_print']:='В работе';
datamodule2.Print.ApplyUpdates(-1);
datamodule2.Print_history.Filtered:=false;
while datamodule2.Print_history.eof=false do
if i=datamodule2.Print_history.FieldByName('id_print_history').AsInteger then
datamodule2.Print_history.FieldValues['id_print_history']:=i;
datamodule2.Print_history.FieldValues['id_print']:=datamodule2.Print.FieldValues['id_print'];
decodedate(date(), year, month, day);
decodetime(time(),hour,minute,second,msec);
datamodule2.Print_history.FieldValues['data_zap']:=encodedatetime(year, month, day, hour,minute,second,msec);
datamodule2.Print_history.FieldValues['opis']:='Добавлен принтер '+name;
main.memo1.lines.add(datetostr(datamodule2.Print_history.FieldValues['data_zap'])+' '+timetostr(datamodule2.Print_history.FieldValues['data_zap'])+' '+datamodule2.Print_history.Fieldbyname('opis').AsString);
datamodule2.print_history.ApplyUpdates(-1);
procedure TDataModule2.N7Click(Sender: TObject);
procedure TDataModule2.N9Click(Sender: TObject);
procedure TDataModule2.SocketConnection1BeforeConnect(Sender: TObject);
{con:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'\connect.ini');
connect:=con.ReadString('SocketConnection1','SocketConection1ComputerName',SocketConnection1.Host);
datamodule2.SocketConnection1.Host:=connect;
datamodule2.SocketConnection1.ServerName:='ServerPro.ServDM';
datamodule2.SocketConnection1.Connected:=true;
unit
Автоматизированный учет компьютерной техники ООО "СибирьЭнергоАвтоТранс" дипломная работа. Программирование, компьютеры и кибернетика.
Доклад: Мой социокультурный образец
Доклад: Людмила Евгеньевна Улицкая
Реферат: Мюфке - архитектор Саратовского государственного университета
Реферат: Проектирование водоочистных комплексов хозяйственно-питьевого водоснабжения
Титульный Лист Реферата По Экономике
Сочинение по теме Стилистические пласты лексики
Дипломная работа по теме Проект строительства и эксплуатации цементного завода
Реферат по теме Природничо-наукова й гуманітарна культури
1538 1547 Историческое Сочинение
Курсовая работа по теме Аудиторская проверка выпуска готовой продукции
Родной Край Эссе
Сочинение Егэ По Русскому Баллы 2022
Сочинение по теме О структуре русского глагола
Дипломная работа по теме Структурный исследование и характеристика финансовой системы РФ
Реферат: Socioculture Differences In Global Business Essay Research
Реферат по теме Цели и задачи спортивной медицины
Реферат: Онтологиум христианской (православной) нравственности сквозь призму богословия
Доклад: Бора, Катарина фон
Реферат по теме Циклотронний резонанс
Отчет По Практике На Тему Организация Работы Оао "Городской Молочный Завод №1"
Зовнішня політика сучасної Росії - Международные отношения и мировая экономика реферат
Понятие налогового контроля и защита прав налогоплательщиков - Государство и право реферат
Аристотель как политический мыслитель - Политология контрольная работа