Материал: Автоматизированная информационная система по учету строительных материалов

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

—   анализ трудовой деятельности пользователя, объединение бизнес-функций в роли.

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

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

—   разработка обобщенного сценария взаимодействия пользователя с программным модулем (функциональной модели) и его предварительная оценка пользователями и Заказчиком.

—   корректировка и детализация сценария взаимодействия, выбор и дополнение стандарта (руководства) для построения прототипа.

—   разработка макетов и прототипов ПИ и их оценка в деловой игре, выбор окончательного варианта.

—   имплементация ПИ в коде, создание тестовой версии.

—   разработка средств поддержки пользователя (пользовательские словари, подсказки, сообщения, помощь и пр.) и их встраивание в программный код.

—   Usability тестирование тестовой версии ПИ по набору раннее определенных показателей.

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

2.3 Анализ аналогичных программных продуктов

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

Фрегат Склад Lite

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

В программе Фрегат Склад Lite учет товаров ведется по артикулам и по штрих-кодам. Даже если у товара не окажется штрих-кода. А используя сканер, можно легко найти нужный товар по штрих-коду.

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

Рисунок 2 - Логотип АСУ " Фрегат Склад Lite "

3. Руководство пользователя

3.1 Описание интерфейса программы

Информационная система "Tovar", начинает свое функционирование с главной формы

Рисунок 3 - Главная форма

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

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

Для этого необходимо воспользоваться кнопкой "Справочники"

Рисунок 4 - Кнопка "Справочники".

Нажав на кнопку справочники, пользователь должен выбрать раздел для заполнения.

Рисунок 5 - Раздел "Контрагенты".

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

После заполнения данного раздела пользователь должен заполнить следующий раздел.

Рисунок 6 - Раздел "Реквизиты"

В данном разделе пользователь указывает данные своей организации: банковские реквизиты, адрес компании, контактные телефоны, ИНН и КПП

После заполнения данного раздела пользователь должен заполнить следующий раздел.

Рисунок 7 - Раздел "Группы товара"

В данном разделе пользователь указывает группы товара. Пользователь может добавить или удалить товар.

После заполнения данного раздела пользователь должен заполнить следующий раздел.

Рисунок 8 - Раздел "Товар"

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

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

После заполнения данного раздела пользователь должен заполнить следующий раздел.

Рисунок 9 - Раздел "Договора"

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

После того как будут заполнены данные разделы, пользователь должен нажать на кнопку Товар.

.

Рисунок 11 - Кнопка "Товар"

После нажатия на кнопку товар, пользователю будут представлены новые разделы.

Рисунок 12 - Раздел" Товар на складе"

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

В разделе "Статистика прихода товара" хранится информация о товаре, поступившем на склад

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

Пользователь заполнивший предыдущие разделы, может вывести их на печать с помощью кнопки "Документы"

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

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

3.2 Установка программы

Для установки программы на компьютер вставьте диск в привод CD-ROM. Выберите файл загрузки Synthetic. exe. После загрузки файла появится окно. Не изменяя директории распаковки нажимаем "Извлечь" (Рисунок 20).

Рисунок 17 - "Настройка извлечения файлов"

После извлечения всех файлов программы, заходим в распакованную папку и запускаем исполняемый файл Synthetic. exe.

4. Экономическая часть

4.1 Расчет объемов автоматизированных информационных услуг и основной заработной платы

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

Таблица 1 - Проект информационных технологий создания системы баз данных автотранспортного предприятия, за апрель 2013 года

Машинное время рассчитывается по каждому компьютеру на основании проекта систем информационных технологий, исходя из следующих данных: [19]

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

—   продолжительности рабочего дня;

—   выбора проекта информационных технологий.

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

Таблица 2 - Расчет машинного времени по компьютеру Manhunt714-ПК AMDAthlon™64 Processor 3800+.

Составим сводную таблицу расчета машинного времени по элементам услуг за апрель 2013 года

Таблица 3 - Расшифровки машинного времени по элементам услуг за апрель 2013 года

Для реализации проекта было выбрано компьютерное оборудование персональный компьютер Manhunt714-ПК AMDAthlon™64Processor 3800+. Техническую характеристику компьютерного оборудования представим в виде таблицы.

Таблица 4 - Технические характеристики компьютерного оборудования

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

Таблица 5 - Единая тарифная сетка по оплате труда

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

Таблица 6 - Категории и должности работников

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

Таблица 7 - Расчет калькуляции машинного времени и основной заработной платы

4.2 Расчет себестоимости автоматизированных информационных услуг

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

—   стоимость расходных материалов;

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

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

—   затраты на сменяемость комплектующих;

—   затраты на электроэнергию;

—   затраты на оплату труда;

—   начисления на заработную плату;

—   накладные расходы и т.д.

Определим затраты на расходные материалы для реализации проекта. Данные представим в виде таблицы.

Таблица 8 - Расчет стоимости расходных материалов

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

Таблица 9 - Расчет стоимости эксплуатации компьютерного оборудования

Годовую сумму амортизационных отчислений, Σао, руб., определяется по формуле:

, (1)

где С_пп - полная стоимость, руб.;

Р_ср - средний срок службы, лет.

Подставляя значения, получаем следующий результат:

 руб. (2)

Месячная сумма амортизационных отчислений, Σаом, руб., находится по формуле:

, (3)

где М - количество месяцев.

 руб. (4)

Затраты на сменяемость комплектующих, Зс, руб., находятся по формуле:

, (5)

где

К - комплектующие, руб.;

% берутся от полной первоначальной стоимости.

 руб. (6)

Затраты на сменяемость комплектующих за месяц, Зсм, руб., находятся по формуле:

 (7)

где Спп - полная стоимость, руб.;

М - количество месяцев.

 руб. (8)

Расчет затрат на электроэнергию производится следующим образом:

Стоимость энергии за месяц Сэм, руб., определяется по формуле:

С_эм= Еч*Ч*Ст, (9)

где Еч - расход энергии за час одним компьютером;

Ч-количество рабочих часов;

Ст-цена 1 КВт/ч, руб.

С_эм руб. (10)

Представим все расчеты в виде таблицы.

Таблица 10 - Стоимость эксплуатации компьютерного оборудования

Далее рассчитаем стоимость АИУ по договорным ценам с учетом и без учета налогов. Данные приведем в таблице с подробными расчетами и конечными результатами.

Таблица 11 - Расчет объемов АИУ

Рассмотрим структуру автоматизированных информационных услуг с налогами и без.

Таблица 12 - Расчет структуры услуг АИУ без налогов

Таблица 13 - Расчет структуры услуг АИУ с налогами

4.3 Расчет показателей по труду и заработной плате

Рассмотрим распространенные формы и системы оплаты труда на предприятии, для облегчения восприятия представим их в таблице. [20]

Таблица 14 - Формы и системы оплаты труда

Далее рассчитаем удержания из начисленной заработной платы за месяц. Для этого рассмотрим заработную плату специалиста, рассчитаем налогооблагаемую базу, налог на доходы физического лица (далее - НДФЛ) и получаемую сумму на руки.

Таблица 15 - Расчет заработной платы специалиста

Таблица 16 - Расчет удержаний из начисленной заработной платы

4.4 Расчет показателей прибыли, рентабельности и себестоимости

Таблица 17 - Расчет основных показателей (формирование финансового плана)

Рентабельность - это отношение прибыли к затратам. Рентабельность по проекту составляет 22,9 %, данный показатель, говорит на сколько прибыльна деятельность компании т.е. демонстрирует долю чистой прибыли в объеме продаж предприятия. [21]

4.5 Расчет уровня налогов от фонда заработной платы

Рассчитаем уровень налогов от заработной платы. Данные представим в виде таблицы.

Таблица 18 - Расчет налогов от фонда заработной платы

4.6 Сводный план показателей

Таблица 19 - Сводный план показателей

5. Охрана труда

5.1 Требования безопасности перед началом работы на ПК

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

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

Помещения должны иметь естественное и искусственное освещение. Естественное освещение должно осуществляется через светопроемы, ориентированные преимущественно на север и северо-восток и обеспечивать коэффициент естественной освещенности не ниже 1,2%

Площадь на одно рабочее место оператора компьютерного набора должен составлять не менее 6,0 м, а объем - не менее 20,0 м.

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

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

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

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

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

5.2 Рациональная организация рабочего места

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

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

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

Клавиатуру следует располагать на поверхности стола на расстоянии 100-300 мм от края, обращенного к пользователю.

Кроме того, конструкция ПК должна предусматривать:

-       плавную и легкую регулировку по высоте с надежной фиксацией

-       горизонтальную поверхность для ПК в пределах 460-520 мм при глубине не менее 550 мм и ширине - не менее 600 мм, при отсутствии такой возможности высота рабочей поверхности должна составлять 725 мм;

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

-       ширина и глубина поверхности под клавиатуру должна быть не менее 600 мм;

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

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

-       возможность поворота монитора вокруг горизонтальной и вертикальной осей;

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

Рабочий стол должен иметь пространство для ног высотой не менее 620 мм, шириной - не менее 550 мм, глубиной на уровне колен - не менее 450 мм и на уровне вытянутых ног - не менее 650 мм.

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

Поверхность подставки должна быть рифленой и иметь по переднему краю бортик высотой 10 мм.

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

5.3 Требования к защите от шума и вибрации

В производственных помещениях, в которых работа на ПК является вспомогательной, уровни шума не должны превышать значений, установленных для данных помещений и видов работ "Санитарными нормами допустимых уровней шума на рабочих местах”. В производственных помещениях, в которых работа на ПК является основной (диспетчерские, операторские, расчетные, кабинеты и посты управления, залы вычислительной техники и др.), в дошкольных и всех учебных помещениях с ПК фоновый уровень шума не должен превышать 40 дБА, (при работе систем воздушного отопления, вентиляции и кондиционирования - 35 дБА), а во время работы на компьютере 50 дБА.

Частотная характеристика времени реверберации в диапазоне частот 250-4000 Гц должно быть ровной, а на частоте 125 Гц спад времени реверберации должен составлять не более 15%. [27]

5.4 Требования безопасности после окончания работы

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

Выключить принтер, другие периферийные устройства.

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

Штепсельные вилки вытянуть из розеток. Накрыть клавиатуру крышкой во избежание попадания в нее пыли.

Привести в порядок рабочее место. Оригиналы и другие документы положить в ящик стола. Тщательно вымыть руки холодной водой с мылом.

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

Заключение

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

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

Программа позволяет:

-       обрабатывать путевые листы, т.е. пробег, количество рейсов (неограниченное количество, за любой период времени)

-       обрабатывать время отправления, по какому маршруту, какой водитель, вид транспортного средства

-       выводить отчеты по соответствующему запросу

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

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

Возможность отбора из большого объема имеющихся данных необходимой информации.

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

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

В экономической части представлены:

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

—   расчет себестоимости автоматизированных информационных услуг

—   расчет показателей по труду и заработной платы

—   расчет показателей прибыли, рентабельности и себестоимости

—   расчет уровня налогов от фонда заработной платы

—   сводный план показателей

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

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

Библиографический список

1.      ГОСТ 7.32-2001 "Отчет о научно-исследовательской работе. Структура и правила оформления".

2.      ГОСТ 2.105-95 "Общие требования к текстовым документам"

.        ГОСТ Р 7.0.5-2008 "Библиографическая ссылка. Общие требования и правила составления"

.        ГОСТ 7.1-2003 "Библиографическая запись. Библиографическое описание. Общие требования и правила составления"

.        ГОСТ 7.80-2000. "Библиографическая запись. Заголовок. Общие требования и правила составления"

.        Компьютерное делопроизводство: Учеб. пособие для вузов / Н.В. Макарова, Г.С. Николайчук, Ю.Ф. Титова. - СПб.: Питер, 2000. - 568 с.

.        Информационные системы: Учеб. для вузов / В.Н. Петров. - СПб. с.

.        Базы данных. Учебник для вузов / А.Д. Хомоненко, В.М. Цыганков, М.Г. Мальцев. - 4-е издание, доп. и перераб - СПб.: КОРОНА принт, 2004. - 736 с.

.        Мейер, М. Теория реляционных баз данных. / М. Мейер-М.: Мир, 1987. - 608с.

.        Иванов А.П., Иванова О.М., Дорофеев А.Н. Зачем руководителю информационная система // Грузовое и пассажирское автохозяйство № 08, 2008 г.

.        Седов О. ИТ-опоры в хозяйстве мостостроителей // Корпоративные системы, 18 марта, 2005 г., № 05 (70)

.        Степанов В.В., Гритчин В.Ю. Внедрение информационных технологий в автотранспортной инфраструктуре - Камск, 2005.

.        Бескоровайный И.В. Азбука Delphi: программирование с нуля/ И.В. Бескоровайный. - Сибирское универс. изд-во, 2008. - 112 с.

.        Фленов М.Е. Библия Delphi. - СПб.: БХВ-Петербург, 2004. - 880 с.

.        Borland Delphi - Под ред.О.И. Волкова. - М.: ИНФРА-М, 2008. - 416 с.

.        Фаронов В.В. Delphi, язык и среда программирования: учеб. курсы / В.В. Фаронов. - СПб.: Изд-во Питер, 2003. - 640 с.

.        Бобровский С.И. Delphi 7: учеб. курс / С.И. Бобровский. - СПб.: Изд-во Питер, 2005. - 736 с.

.        Архангельский А.Я. Приемы программирования в Delphi/ А.Я. Архангельский. - М.: Изд-во Бином-Пресс, 2006. - 944 с.

.        Раицкий К.А. Экономика предприяти. - М: "Маркетинг", 2006. - 693 с.

.        Экономика предприятия. - Под ред.В.Я. Горфинкеля, В.А. Швандара. - М.: Банки и Биржи, ЮНИТИ, 2008. - 742 с.

.        Экономика предприятия - Под ред.О.И. Волкова. - М.: ИНФРА-М, 2008. - 416 с.

.        www.delphi-manual.ru/lesson7. php Работа с файлами в Delphi.

.        www.delphiworld. narod.ru

.        www.inffac. narod.ru

.        www.ishodniki.ru

.        http://www.tehbez.ru/

.        http://safety24. narod.ru/

Приложение А

(Листинг программы)Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB, Grids, DBGrids, DBCtrls, ExtCtrls, Menus,, sEdit, sPanel, sDBNavigator, sButton, sBevel, sLabel, sDBText,;= class (TForm): TDataSource;: TADOConnection;: TADODataSet;: TsButton;: TsButton;: TsButton;: TsButton;: TsDBText;: TsDBText;: TsDBText;: TsDBText;: TsDBText;: TsDBText;: TsDBText;: TsDBText;: TsDBText;: TsDBText;: TTimer;: TsLabel;: TsBevel;: TsBevel;: TsBevel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TsDBNavigator;: TDBGrid;: TsEdit;: TsComboBox;: TsSkinManager;Button1Click (Sender: TObject);Button2Click (Sender: TObject);Button3Click (Sender: TObject);Button4Click (Sender: TObject);Timer1Timer (Sender: TObject);Newskin1Click (Sender: TObject);FormCreate (Sender: TObject);N7Click (Sender: TObject);N9Click (Sender: TObject);N8Click (Sender: TObject);Edit1Change (Sender: TObject);N4Click (Sender: TObject);N5Click (Sender: TObject);

{ Private declarations }

{ Public declarations }

// a: string;;: TForm1;,flag_g: boolean;Unit2, Unit3,unit4, Unit7, Unit8;

{$R *. dfm}TForm1. Button1Click (Sender: TObject);i: integer;I: = 0 to ADODataSet1. RecordCount - 1 doI = 0. First;. Next;;. Delete;;;TForm1. Button2Click (Sender: TObject);adodataset1. RecordCount=0 then. MessageBox ('Таблица пуста','Нечего удалять')

begin

case messageBox (Handle,'Действительно удалить, выбранную запись? ','Подумай. ', mb_YesNo or mb_iconquestion) of:. DataSource. DataSet. Delete;;;;;TForm1. Button3Click (Sender: TObject);. Hide;. show;;TForm1. Button4Click (Sender: TObject);

// a: =form1. DBGrid1. Fields [1]. AsString;. Hide;. show;;TForm1. Timer1Timer (Sender: TObject);. Caption: =DateToStr (Now);. Caption: =timeToStr (Now);;TForm1. Newskin1Click (Sender: TObject);flag_g=true then begin. Newskin1. Caption: ='New Skin';. Active: =true;_g: =false;. Newskin1. Caption: ='Old Skin';. Active: =false;_g: =true;;;TForm1. FormCreate (Sender: TObject);_g: =false;: =false;;TForm1. N7Click (Sender: TObject);. Hide;. Show;;TForm1. N9Click (Sender: TObject);. Hide;. show;;TForm1. N8Click (Sender: TObject);. Hide;. show;;TForm1. Edit1Change (Sender: TObject);edit1. Text<>''thencombobox1. ItemIndex of

: adodataset1. Locate ('Идент_номер',Edit1. Text, [loCaseInsensitive,loPartialKey]);

: adodataset1. Locate ('Двигатель',Edit1. Text, [loCaseInsensitive,loPartialKey]);

: adodataset1. Locate ('Год',Edit1. Text, [loCaseInsensitive,loPartialKey]);;;;TForm1. N4Click (Sender: TObject);poisk=false then. Visible: =true;. Visible: =true;: =true;. Visible: =false;. Visible: =false;: =false;;;TForm1. N5Click (Sender: TObject); begin. terminate;;TForm2. Button1Click (Sender: TObject);(form2. maskEdit1. Text='') or (form2. LabeledEdit2. Text='')(form2. LabeledEdit3. Text='') or (form2.combobox2. Text='')(form2. LabeledEdit5. Text='') or (form2.combobox3. Text='')(form2. LabeledEdit8. Text='') or (form2.comboBox1. Text='')(form2. LabeledEdit9. Text='') { or (form2. LabeledEdit14. Text='') } then. MessageBox ('Некоторые поля (поле) не заполнены','Внимание')

else;;;TForm2. Timer1Timer (Sender: TObject);. labelededit14. Text: =form1. DBText14. Caption;;TForm2. LabeledEdit10KeyPress (Sender: TObject; var Key: Char);Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;;TForm2. LabeledEdit11KeyPress (Sender: TObject; var Key: Char);Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;;TForm2. LabeledEdit12KeyPress (Sender: TObject; var Key: Char);Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;;TForm2. LabeledEdit13KeyPress (Sender: TObject; var Key: Char);Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;;TForm2. LabeledEdit14KeyPress (Sender: TObject; var Key: Char);Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;;TForm2. shamaich;,b,c: string;: integer;: =form2. maskEdit1. Text;: =form2. labelededit2. text;: =form2. labelededit3. text;I: = 0 to form1. ADODataSet1. RecordCount - 1 doI = 0. ADODataSet1. First;. ADODataSet1. Next;;;(form1. dbgrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString=a)(form1. dbgrid1. DataSource. DataSet. FieldByName ('Идент_номер'). AsString=b)(form1. DBGrid1. DataSource. DataSet. FieldByName ('Двигатель'). AsString=c) then. MessageBox ('Повторяющиеся значения','Synthetic System Bus');. ADODataSet1. Insert;. ADODataSet1. FieldByName ('Гос_Номер'). AsString: =form2. maskEdit1. Text;. ADODataSet1. FieldByName ('Идент_Номер'). AsString: =form2. LabeledEdit2. Text;. ADODataSet1. FieldByName ('Двигатель'). AsString: =form2. LabeledEdit3. Text;. ADODataSet1. FieldByName ('Цвет кузова'). AsString: =form2.combobox2. Text;. ADODataSet1. FieldByName ('Марка авто'). AsString: =form2. LabeledEdit5. Text;. ADODataSet1. FieldByName ('Тип ТС'). AsString: =form2.combobox3. Text;. ADODataSet1. FieldByName ('Год'). AsString: =form2.combobox1. Text;. ADODataSet1. FieldByName ('Собственник'). AsString: =form2. LabeledEdit8. Text;. ADODataSet1. FieldByName ('Пробег'). AsString: =form2. LabeledEdit9. Text;. ADODataSet1. FieldByName ('Дата'). AsString: =form2. LabeledEdit14. Text;. ADODataSet1. Post;. MessageBox ('Запись успешно добавлена','SynthSysBus');;;;;TForm2. clear;. maskEdit1. Text: ='';. LabeledEdit2. text: ='';. LabeledEdit3. text: ='';.comboBox2. Text: ='';. LabeledEdit5. Text: ='';.comboBox3. Text: ='';.comboBox1. Text: ='';. LabeledEdit8. Text: ='';. LabeledEdit9. Text: ='';;TForm4. Button4Click (Sender: TObject);i: integer;I: = 0 to form4. ADODataSet1. RecordCount - 1 doI = 0. ADODataSet1. First;. ADODataSet1. Next;;. adodataset1. Delete;;;TForm4. N4Click (Sender: TObject);;;TForm4. Edit1Change (Sender: TObject);edit1. Text<>''thencombobox1. ItemIndex of

: adodataset1. Locate ('Фамилия',Edit1. Text, [loCaseInsensitive,loPartialKey]);

: adodataset1. Locate ('Имя',Edit1. Text, [loCaseInsensitive,loPartialKey]);

: adodataset1. Locate ('Отчество',Edit1. Text, [loCaseInsensitive,loPartialKey]);

: adodataset1. Locate ('Номер В/У',Edit1. Text, [loCaseInsensitive,loPartialKey]);;;;TForm4. FormCreate (Sender: TObject);: =false;;TForm4. N2Click (Sender: TObject);poisk=false then. Visible: =true;. Visible: =true;: =true;. Visible: =false;. Visible: =false;: =false;;;TForm5. Button1Click (Sender: TObject);(form5. LabeledEdit1. Text='') or (form5. LabeledEdit2. Text='')(form5. LabeledEdit3. Text='') or (form5. labelededit4. Text='')(form5. sdateedit1. Text='') or (form5. LabeledEdit6. Text='')(form5. LabeledEdit8. Text='') or (form5. labelededit7. Text='')(form5. sdateedit2. Text='') then. MessageBox ('Некоторые поля (поле) не заполнены','Внимание')

else. ADODataSet1. Insert;. ADODataSet1. FieldByName ('Фамилия'). AsString: =form5. LabeledEdit1. Text;. ADODataSet1. FieldByName ('Имя'). AsString: =form5. LabeledEdit2. Text;. ADODataSet1. FieldByName ('Отчество'). AsString: =form5. LabeledEdit3. Text;. ADODataSet1. FieldByName ('Должность'). AsString: =form5. labelededit4. Text;. ADODataSet1. FieldByName ('В/У действителен до'). AsString: =form5. sdateedit1. Text;. ADODataSet1. FieldByName ('Номер В/У'). AsString: =form5. LabeledEdit6. Text;. ADODataSet1. FieldByName ('Класс'). AsString: =form5. LabeledEdit7. Text;. ADODataSet1. FieldByName ('Телефон'). AsString: =form5. LabeledEdit8. Text;. ADODataSet1. FieldByName ('Дата рождения'). AsString: =form5. sdateedit2. Text;. ADODataSet1. Post;. MessageBox ('Запись успешно добавлена','SynthSysBus');. Text: ='';. Text: ='';. Text: ='';. Text: ='';. Text: ='';. Text: ='';. Text: ='';. Text: ='';. Text: ='';;;;DrawGridCheckBox (Canvas: TCanvas; Rect: TRect; Checked: boolean);. TextRect (Rect, Rect. Left + 1, Rect. Top + 1, ' ');(Canvas. Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);: = DFCS_BUTTONCHECK or DFCS_ADJUSTRECT; // DFCS_BUTTONCHECKChecked then: = DrawFlags or DFCS_CHECKED;(Canvas. Handle, Rect, DFC_BUTTON, DrawFlags);;TForm7. FormCloseQuery (Sender: TObject; var CanClose: Boolean);. show;;TForm7. DBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect;: Integer; Column: TColumn; State: TGridDrawState);Column. FieldName = 'Виновен' then // Модифицируйте под себяColumn. Field. AsBoolean then(DBGrid1. Canvas, Rect, true)(DBGrid1. Canvas, Rect, false);TForm7. DBGrid1ColEnter (Sender: TObject);TDBGrid (Sender) doSelectedField. FieldName = 'Виновен' then // Модифицируйте под себя: = Options - [dgEditing]: = Options + [dgEditing];;TForm7. DBGrid1DblClick (Sender: TObject);. Edit;adodataset1. FieldByName ('Виновен'). AsBoolean=true then. FieldByName ('Виновен'). AsBoolean: =false;. FieldByName ('Виновен'). AsBoolean: =true;;. Post;adodataset1. FieldByName ('Виновен'). AsBoolean=true then. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');;;TForm7. DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);adodataset1. FieldByName ('Виновен'). AsBoolean=true then. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');;;TForm7. DBGrid1CellClick (Column: TColumn);adodataset1. FieldByName ('Виновен'). AsBoolean=true then. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');;;TForm7. Timer1Timer (Sender: TObject);. Caption: =timeToStr (Now);;TForm7. FormCreate (Sender: TObject);adodataset1. FieldByName ('Виновен'). AsBoolean=true then. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');;;TForm7. FormShow (Sender: TObject);adodataset1. FieldByName ('Виновен'). AsBoolean=true then. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');;;TForm7. Edit1Change (Sender: TObject);edit1. Text<>''thencombobox1. ItemIndex of

: adodataset1. Locate ('Фамилия',Edit1. Text, [loCaseInsensitive,loPartialKey]);

: adodataset1. Locate ('Имя',Edit1. Text, [loCaseInsensitive,loPartialKey]);

: adodataset1. Locate ('Отчество',Edit1. Text, [loCaseInsensitive,loPartialKey]);

: adodataset1. Locate ('Гос_номер',Edit1. Text, [loCaseInsensitive,loPartialKey]);;;;TForm8. FormShow (Sender: TObject);. ADODataSet1. Close;. ADODataSet1. Open;. ADODataSet2. Close;. ADODataSet2. Open;;TForm8. Button1Click (Sender: TObject);( (adodataset1. RecordCount=0) or (adodataset2. RecordCount=0) or (adodataset5. RecordCount=0)) then. MessageBox ('Нельзя добавлять пустые значения','SynthSysBus');. Insert;. FieldByName ('Фамилия'). AsString: =adodataset2. fieldbyname ('Фамилия'). AsString;. FieldByName ('Имя'). AsString: =adodataset2. fieldbyname ('Имя'). AsString;. FieldByName ('Телефон'). AsString: =adodataset2. fieldbyname ('Телефон'). AsString;. FieldByName ('Гос_Номер'). AsString: =adodataset1. fieldbyname ('Гос_Номер'). AsString;. FieldByName ('Идент_Номер'). AsString: =adodataset1. fieldbyname ('Идент_Номер'). AsString;. FieldByName ('Марка Авто'). AsString: =adodataset1. fieldbyname ('Марка Авто'). AsString;. FieldByName ('Тип ТС'). AsString: =adodataset1. fieldbyname ('Тип ТС'). AsString;. FieldByName ('Номер маршрута'). AsString: =adodataset5. fieldbyname ('Номер маршрута'). asstring;. FieldByName ('Конечные'). AsString: =adodataset5. fieldbyname ('Конечные'). asstring;. FieldByName ('Путь'). AsString: =adodataset5. fieldbyname ('Путь'). asstring;. FieldByName ('Остановочные пункты'). AsString: =adodataset5. fieldbyname ('Остановочные пункты'). asstring;. Post;;;TForm8. Button2Click (Sender: TObject);. showmodal;;TForm8. Button4Click (Sender: TObject);form8. ADODataSet5. RecordCount=0 then. MessageBox ('Таблица пуста','SynthSysBus'). Delete;;TForm8. Button3Click (Sender: TObject);. showmodal;;TForm8. get_probeg;: integer;: string;: =form8. dbgrid4. datasource. dataset. fieldbyname ('Гос_номер'). asstring;I: = 0 to form1. ADODataSet1. RecordCount - 1 doI = 0. ADODataSet1. First;. ADODataSet1. Next;;form1. dbgrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString=a then. ADODataSet1. Edit;. dbgrid1. DataSource. DataSet. FieldByName ('Пробег'). AsString: =inttostr (strtoint (form1. dbgrid1. DataSource. DataSet. FieldByName ('Пробег'). AsString) +strtoint (form8. dbgrid4. DataSource. DataSet. fieldbyname ('Путь'). AsString));. ADODataSet1. Post;;;;TForm8. Button5Click (Sender: TObject);_probeg;. ADODataSet4. Delete;;TForm8. Button6Click (Sender: TObject);adodataset1. RecordCount=0 then. MessageBox ('Заполните таблицу','SynthSysBus');. ADODataSet4. Insert;. DBGrid4. DataSource. DataSet. FieldByName ('Фамилия'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Фамилия'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Имя'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Имя'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Гос_номер'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Идент_номер'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Идент_номер'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Марка Авто'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Марка Авто'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Тип ТС'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Тип ТС'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Телефон'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Телефон'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Номер маршрута'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Номер маршрута'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Путь'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Путь'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Конечные'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Конечные'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Остановочные пункты'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Остановочные пункты'). AsString;. DBGrid4. DataSource. DataSet. FieldByName ('Время отправки'). AsString: =form8. Label1. Caption;. DBGrid4. DataSource. DataSet. FieldByName ('Дата'). AsString: =DateToStr (Now);. ADODataSet3. Delete;. ADODataSet4. Post;;;TForm11. Button1Click (Sender: TObject);edit1. Text<>'' then. ADODataSet1. Insert;. DBGrid1. DataSource. DataSet. FieldByName ('Фамилия'). AsString: =form8. DBGrid4. DataSource. DataSet. FieldByName ('Фамилия'). AsString;. DBGrid1. DataSource. DataSet. FieldByName ('Имя'). AsString: =form8. DBGrid4. DataSource. DataSet. FieldByName ('Имя'). AsString;. DBGrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString: =form8. DBGrid4. DataSource. DataSet. FieldByName ('Гос_номер'). AsString;. DBGrid1. DataSource. DataSet. FieldByName ('Дата'). AsString: =DateToStr (Now);. DBGrid1. DataSource. DataSet. FieldByName ('Адрес'). AsString: =form11. Edit1. Text;. dbgrid1. DataSource. DataSet. FieldByName ('Заметки'). AsString: =form11. Memo1. Text;. DBGrid1. DataSource. DataSet. FieldByName ('Отчество'). AsString: =form11. Label2. Caption;. DBGrid1. DataSource. DataSet. FieldByName ('Время'). AsString: =timetostr (now);form11. CheckBox1. Checked=true then. dbgrid1. datasource. DataSet. FieldByName ('Виновен'). AsBoolean: =true. dbgrid1. datasource. DataSet. FieldByName ('Виновен'). AsBoolean: =false;;_dtp;. ADODataSet4. Delete;. ADODataSet1. Post;. MessageBox ('Заполни все поля','SynthSysBus');;. Memo1. Clear;. Edit1. Clear;. CheckBox1. Checked: =false;;. Caption: ='';. Close;. Show;;TForm11. del_dtp;: string;: integer;: =form8. dbgrid4. datasource. dataset. fieldbyname ('Гос_номер'). asstring;I: = 0 to form1. ADODataSet1. RecordCount - 1 doI = 0. ADODataSet1. First;. ADODataSet1. Next;;form1. dbgrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString=k then. ADODataSet1. Delete;;.