close

Вход

Забыли?

вход по аккаунту

?

Пояснительная записка к бд страхование (2)

код для вставкиСкачать
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ ВОЛГОГРАДСКИЙ ИНДУСТРИАЛЬНЫЙ ТЕХНИКУМ
Курсовой проект
по предмету "Технология разработки программных продуктов"
АВТОМАТИЗИРОВАННЫЙ КОНТРОЛЬ ИСПОЛНЕНИЯ ДОКУМЕНТОВ В АДМИНИСТРАЦИИ Г. ВОЛГОГРАДА
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
КП 230105 П-98. 09. 02 00 02 ПЗ
Консультант Мельникова И.А.
Разработал студент Сердюков И. П.
2013 г.
СОДЕРЖАНИЕ
ВВЕДЕНИЕ3
1.ПОСТАНОВКА ЗАДАЧИ4
1.1Анализ предметной области5
1.2.Математическая модель задачи7
1.3.Разработка спецификаций7
2.РАЗРАБОТКА ПРОГРАММНОГО ПРОДУКТА9
2.1.Проектирование9
2.2.Реализация11
2.3.Тестирование13
2.4.Сопровождение15
ЗАКЛЮЧЕНИЕ16
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ17
ПРИЛОЖЕНИЕ18
Иллюстрации программного продукта18
Технологическая блок-схема решения задачи23
Листинг программы27
ВВЕДЕНИЕ
В настоящее время компьютер используется во всех сферах деятельности человека. В связи с этим очень актуальным является тема информационных технологий. Для принятия эффективных информационных технологий предприятию требуется целесообразная система информационного обеспечения. Информационные технологии являются актуальными на сегодняшний день, так как автоматизированные информационные системы электронного документооборота это залог успеха любой организации в управленческой деятельности, огромная помощь по ведению документов.
Автоматизированные информационные технологии - это связь информации с системами управления предприятием и управленческим процессом в целом. С каждым годом информационные технологии все прочнее входят во все сферы деятельности, например в страхование. Сегодня информационные системы в страховании используются всё шире: базы клиентов настолько велики, что обработка рукописным способом занимает длительный период времени. Одной из основных задач может являться автоматизирование определённой страховой структуры, к примеру, Автострахование.
На данный момент уже существуют программные продукты отвечающие за хранение данных о клиентах страховых компаний: "1С:Мобильный Страховой Офис", "1С:Предприятие 8. Управление страховой компанией", "АДС: Управление центром страхования". Основные недостатки этих программных продуктов это: высокая стоимость, сложность установки, постоянное обновление лицензий. На сегодняшний день, представленный в данной работе программный продукт база данных "РОСГОССТРАХ" актуален, так как не требует длительного времени обучения, занимает минимальное количество место на жестком диске и обладает всеми необходимыми функциями для работы с клиентской базой данных.
1. ПОСТАНОВКА ЗАДАЧИ
Целью курсового проекта является разработка программного продукта База данных "РОСГОССТРАХ", который должен удовлетворять следующим требованиям:
* данный программный продукт должен быть мобильным и легко использоваться на любом компьютере; * программный продукт обязан быть надежным и представлять высокую работоспособность при низкой вероятности сбоя;
* продукту надлежит отвечать функциональным требованиям и производить точные расчеты стоимости услуги;
* программа должна заключать в себе добротность и иметь дружественный и понятный интерфейс.
Разработанный программный продукт База данных "РОСГОССТРАХ" должен выполнять следующие функции:
* возможность ввода данных о клиентах: фамилия, имя, отчество, автомобиль, дата страхования;
* сохранять данные в таблице Microsoft Access "Клиенты"; * производить фильтрацию по полю: фамилия, имя, отчество, автомобиль, дата страхования;
* Производить поиск по полю: фамилия, имя, отчество, автомобиль, дата страхования;
* Контролировать данные на вводе в таблицу "Клиенты";
* Производить расчет суммы страховки.
* 1.1 Анализ предметной области
Автострахование (автомобильное страхование) или страхование средств наземного транспорта (страхование автотранспорта) - это класс страхования легковых и грузовых автомобилей, автобусов, мотоциклов, катеров, моторных лодок и других средств автотранспорта, а также водителей и пассажиров.
Согласно Гражданскому кодексу РФ (части второй) от 26.01.1996 N 14-ФЗ1 одной из форм страхования является обязательное страхование. Страхование гражданской ответственности владельцев транспортных средств законодателем отнесено к обязательной форме страхования. Данный вид страхования регулируется законом Российской Федерации от 27.11.1992 N 4015-1 "Об организации страхового дела в Российской Федерации"2, а также специальным Федеральным законом от 25.04.2002 N 40-ФЗ "Об обязательном страховании гражданской ответственности владельцев транспортных средств"3 (ФЗ об ОСАГО).
Основной целью вышеуказанного специального закона является защита прав потерпевших на возмещение вреда, причиненного их жизни, здоровью или имуществу при использовании транспортных средств другими лицами.
Статья 1 ФЗ об ОСАГО дает понятие владельца транспортного средства, согласно которому таковым является собственник транспортного средства, а также лицо, владеющее транспортным средством на праве хозяйственного ведения или праве оперативного управления либо на другом законном основании (право аренды, доверенность на право управления транспортным средством, распоряжение соответствующего органа о передаче этому лицу транспортного средства и тому подобное). Не является владельцем транспортного средства лицо, управляющее транспортным средством в силу исполнения своих служебных или трудовых обязанностей, в том числе на основании трудового или гражданско-правового договора с собственником или другим владельцем транспортного средства.
Также в данном законе приводится понятие договора обязательного страхования гражданской ответственности владельцев транспортных средств (договор ОСАГО), согласно которому он представляет собой договор страхования, по которому страховщик обязуется за обусловленную договором плату (страховую премию) при наступлении предусмотренного в договоре события (страхового случая) возместить потерпевшим причиненный вследствие этого события вред их жизни, здоровью или имуществу (осуществить страховую выплату) в пределах определенной договором суммы (страховой суммы). Данный договор является публичным.
Так как при автоматизации обрабатывается большой объем информации, то его лучше организовать в виде базы данных.
База данных - представленная в объективной форме совокупность самостоятельных материалов (статей, расчётов, нормативных актов, судебных решений и иных подобных материалов),систематизированных таким образом, чтобы эти материалы могли быть найдены и обработаны с помощью электронной вычислительной машины (ЭВМ).
Классификация по модели данных:
* иерархическая;
* сетевая;
* реляционная;
* объектная и объектно-ориентированная;
* объектно-реляционная;
* функциональная.
В базе данных используются такие объекты как отчеты, запросы, таблицы, ключевое поле и так далее:
Отчет - это форматированное представление данных, которое выводится на экран, в печать или файл. Они позволяют извлечь из базы нужные сведения и представить их в виде, удобном для восприятия, а также предоставляют широкие возможности для обобщения и анализа данных.
Поле базы данных - это столбец таблицы, содержащий значения определенного свойства.
Запись базы данных - это строка таблицы, содержащая набор значений свойств, размещенный в полях базы данных.
Ключевое поле - это поле, значение которого од нозначно определяет запись в таблице.
Запрос - это средство выбора необходимой информации из базы данных. Вопрос, сформированный по отношению к базе данных, и есть запрос. Применяются два типа запросов: по образцу и структурированный язык запросов.
1.2. Математическая модель задачи
Для расчета стоимости страховки клиента при разработке программного продукта использовалась следующая формула:
S = BS*TI*VS*KS*MD;
где BS - поле "Базовая Ставка";
TI - поле "Территории преимущественного использования технического средства;
VS - поле "Возраст и стаж водителя";
KS - поле "Краткосрочное страхование";
MD - поле "Мощность двигателя";
1.3. Разработка спецификаций
Программный продукт рассчитывается использовать работнику страховой компании - страховому агенту. В обязанности данного работника входит: * заключение договора с клиентом (страхователем);
* за счет суммы стоимости услуги;
* добавление данных в журнал регистрации клиента.
Разрабатываемая программа должна иметь следующие внешние спецификации:
* расчет стоимости страхования;
* сохранение данных о новых клиентах;
* редактирование данных внесенных в таблицу;
* удалять данные из таблицы;
* иметь простой и понятный интерфейс;
Страховой агент компании должен будет вводить данные: базовая ставка, территории преимуществ использования транспортных средств, возраст и стаж, мощность двигателя, которые будут обрабатываться в данной программе. Входные данные: фамилия, имя, отчество клиента, дата страхования, базовая ставка, территории преимуществ использования транспортных средств, возраст и стаж, мощность двигателя. Выходные данные: сумма стоимости страховки.
2. РАЗРАБОТКА ПРОГРАММНОГО ПРОДУКТА
2.1. Проектирование
При запуске программного продукта появляется окно, после исчезновения, которого становится активной соответствующая форма для работы с данными. На форме База Данных "РОСГОССТРАХ" размещены две таблицы: "Клиенты" и "Страховка". "Клиенты" - таблица, куда заносятся данные о клиенте: фамилия, имя, отчество, автомобиль, дата страхования. Немного правее находится система управления таблицей "Клиенты" и представляют собой ряд кнопок: добавить, изменить, поиск, фильтрация и удалить. По нажатию на кнопки происходят следующие операции:
* добавить - на форме появляются окна для ввода данных с соответствующими названиями полей таблицы "Клиенты": фамилия, имя, отчество, автомобиль, дата страхования. Для них добавлен контроль на вводе, который запрещает ввод символов не принадлежащих типу поля;
* изменить - на форме появляются окна ввода с соответствующими названиями полей таблицы "Клиенты", в которых будет отображаться текст предварительно выбранного значения таблицы. Для этих полей добавлен контроль на вводе, который запрещает ввод символов не принадлежащих типу поля;
* поиск - на форме активируется раскрывающийся список с выбором поля таблицы "Клиенты", по которому будет производиться поиск и окно для ввода текста, в которое пользователь должен ввести текст соответствующий его запросу;
* фильтрация - на форме активируется раскрывающийся список с выбором поля таблицы "Клиенты", по которому будет производиться фильтрация и окно для ввода текста, в которое пользователь должен ввести текст соответствующий его запросу;
* удалить - производит удаление в заранее выбранной записи в таблице "Клиенты".
Также на главном окне распложена таблица "Страховка". Которая производит хранение информации о страховом договоре клиента: базовая ставка, территории преимущественного использования транспортных средств, возраст и стаж, мощность двигателя. Для расчета стоимости услуги заключения договора между страховым агентом и клиентом в таблице "Страховка" имеется вычисляемое поле "Сумма (руб). Система управления данной таблицы находятся под ней и представлены в виде раскрывающихся списков с соответствующими названиями полей таблицы: базовая ставка, территории преимущественного использования транспортных средств, возраст и стаж, мощность двигателя. При раскрытие каждого списка пользователю будет предложен выбор перечня возможных коэффициентов, которые после выбора будут занесены в поле соответствующее названию раскрывающегося списка, в котором выбирается значение. Также на форме находится специальная экранная клавиатура, которая будет осуществлять ввод символов по нажатию на нее указателем мыши, и которую можно убрать.
В окне присутствует меню, которое имеет вкладки: Файл, Настройки и Помощь. По нажатию на вкладку "Файл" она раскрывается и появляется кнопка "Закрыть", которая осуществляет завершение работы с продуктом. По нажатию вкладка "Настройки" раскрывается и предоставляет список настроек: подсказки, клавиатура. По наведению на кнопку "Подсказки" появляется раскрывающий список с элементами: Включить подсказки, Выключить подсказки. По наведению на кнопку "Клавиатура" появляется раскрывающийся список: Показать клавиатуру, Скрыть клавиатуру. По нажатию на вкладку "Помощь" осуществляется раскрытие вкладки и появляются элементы: Об авторе, О программе, Справка. По нажатию на кнопку "Справка" появится информация о коэффициентах, содержащихся в системе управления таблицей "Страховка". 2.2. Реализация
Требования к аппаратной платформе
Для успешного функционирования программы необходимы следующие системные требования к персональному компьютеру:
* операционная система: MicrosoftWindows 98/ XP/Server 2003/Vista/Windows 7/Windows 8;
* процессор IntelPentium III 400 МГц и выше (рекомендуется IntelPentium III 866 МГц);
* оперативная память 128 Мбайт и выше (рекомендуется 256 Мбайт);
* жесткий диск (при установке используется около 70 Мбайт);
* устройство чтения компакт дисков;
* наличие установленного Microsoft Access (рекомендуется).
Выбор системы программирования
Для разработки программного продукта база данных "РОСГОССТРАХ", использовался язык программирования "Delphi 2010". Он удобен, вполне подходит для реализации как сложных, так и простых программ. Обладает удобным интерфейсом и большим количеством возможностей с помощью которых можно реализовать различные идеи связанные с обработкой информации. Многие программисты перешли на Delphi потому что эта среда программирования постоянно обновляется и не отстаёт от требований современности. Процесс разработки в Delphi предельно упрощен. В первую очередь это относится к созданию интерфейса, на который уходит 80% времени разработки программы. Простое помещение нужных компонентов на поверхность Windows-окна (в Delphi оно называется формой) и настройка их свойств с помощью специального инструмента (Object Inspector), увеличивает скорость разработки программных продуктов. С помощью Object Inspector, можно связать события компонентов (нажав на кнопку, выбор мышью элемента в списке и т.д.) с кодом его обработки.
При создании программного проекта база данных "РОСГОССТРАХ" использовался модуль не содержащийся в стандартном наборе компонентов Delphi и установленный туда дополнительно - ALPHASKINS. Данный модуль отвечает за визуальное оформление формы и её элементов, что существенно упрощает процесс создания добротного интерфейса. В Delphi используется язык Object Pascal, который постоянно расширяется и дополняется Borland. Язык в полной мере поддерживает все требования, предъявляемые к объектно-ориентированному языку программирования. Как и положено строго типизированному языку, классы поддерживают только простое наследование, но зато интерфейсы могут иметь сразу несколько предков. К числу особенностей языка следует отнести поддержку обработки исключительных ситуаций (exceptions), а также перегрузку методов и подпрограмм (overload).
Реализация программы
Листинг программы находится в Приложении 3.
2.3. Тестирование
В процессе тестирования программного продукта были произведены действия с целью получения информации о качестве продукта, а так же произведен процесс, подтверждающий правильность программы и демонстрирующий, что ошибок в программе нет.
Тестирование программного продукта база данных "РОСГОССТРАХ" проводилось после окончания работы над кодом и дизайном программы. Перед тестированием ставилась задача осуществления полной работоспособности функций заключенных в программный продукт:
* расчет стоимости страхования;
* сохранение данных о новых клиентах;
* редактирование данных внесенных в таблицу;
* удаление данных из таблицы;
* поиск и фильтрация данных.
При запуске программного продукта появляется приветственное окно (см. Приложение 1, рисунок 1). На форме База Данных "РОСГОССТРАХ" размещены две таблицы: "Клиенты" и "Страховка" (см. Приложение 1, рисунок 2). Также тут находится система управления таблицей "Клиенты" (см. Приложение 1, рисунок 3). По нажатию на кнопки Добавить и Изменить в окне появляются окна для ввода (см. Приложение 1, рисунок 4). Для них добавлен контроль на вводе, который запрещает ввод символов, не принадлежащих типу поля (см. Приложение 1,рисунок 5).
По нажатию на кнопки "Поиск" и "Фильтрация" - на форме активируется раскрывающийся список с выбором поля таблицы "Клиенты", по которому выполнится поиск либо фильтрация и окно для ввода текста, в которое пользователь должен ввести текст соответствующий его запросу (см. Приложение 1, рисунок 6).
Активация кнопки "Удалить" приведет к удалению заранее выбранной записи в таблице "Клиенты" (см. Приложение 1, рисунок 7).
При раскрытии любого из списков системы управления таблицей "Страховка" пользователю будет предложен выбор перечня возможных коэффициентов (см. Приложение 1,рисунок 8 ).
Также на форме находится специальная экранная клавиатура (см. Приложение 1, рисунок 9).
В меню по нажатию на вкладку "Файл" появляется кнопка "Закрыть". (см. Приложение 1, рисунок 10).
По нажатию вкладка "Настройки" раскрывается и предоставляет список настроек. (см. Приложение 1, рисунок 11).
По наведению на кнопку "Подсказки" и "Клавиатура" появляется раскрывающийся список (см. Приложение 1, рисунок 12, рисунок 13).
По активации вкладки "Помощь" появятся пункты меню: о авторе, о программе, справка. (см. Приложение 1, рисунок 14).
По нажатию на кнопку "Справка" появится информация о коэффициентах, содержащихся в системе управления таблицей "Страховка". (см. Приложение 1, рисунок 15).
В ходе тестирования после установки и запуска программного продукта база данных "РОСГОССТРАХ" на ряде персональных компьютеров обнаружились ошибки в дизайне, которые не оказали влияния на работоспособность функций продукта. При доработке программного продукта визуальные ошибки были исправлены. При отличных друг от друга версиях операционных систем установленных на данных машинах и различных операционных требованиях аппаратуры, тестируемый продукт подтвердил правильность программы, точность выполнения операций, продемонстрировал, что ошибок в программе не имеется.
2.4. Сопровождение
Так как сопровождение программного обеспечения определяется стандартом IEEE Standard for Software Maintenance (IEEE 1219) как модификация программного продукта после передачи в эксплуатацию для устранения сбоев, то были произведены действия для улучшения показателей производительности продукта, и его адаптации для использования на различных компьютерах с различной модификацией.
После тестирования программы были установлены ошибки:
* Путь к базе данных access "Клиенты" не прописывался самостоятельно;
* Модуль AlphaSkins не отображал анимацию на кнопочных элементах;
* Названия раскрывающихся списков управляющих таблицей "Страховка" не обновлялись.
После обнаружения и выявления причин данных ошибок была проведена работа над их исправлением.
Для устранения ошибки возникшей в связи с отсутствием автоматического прописывания пути к базе данных access "Клиенты" использовалась дополнительная программа "InstalMaker", с помощью которой база данных access "Клиенты" и RGS.exe помещался в специальный инсталляционный архив: SetupRGS. После запуска файла SetupRGS файлы самораспаковывались по заранее указанным путям. Таким образом было организовано автоматическое прописывание пути к базе данных access "Клиенты". Причиной ошибки AlphaSkins являлись стандартные компоненты Delphi не способные отображать анимацию используемого модуля. Проблема была решена путём замены стандартных компонентов на компоненты AlphaSkins способные на отображение анимации.
ЗАКЛЮЧЕНИЕ
В процессе разработки программного продукта база данных "РОСГОССТРАХ" были получены результаты, полностью удовлетворяющие запросу на качественный продукт. Программа создана в Delphi 2010 и предоставляет собой необходимые средства для работы с информацией, позволяя пользователю легко и просто работать с базой данных, вводить исходные и, получать выходные данные рассчитанные программой, а также управлять этой информацией. При помощи этой программы "РОССГОССТРАХ" мы можем узнать стоимость страховой услуги и дату в которую требуется заключить новый страховой договор.
В целях продолжения жизненного цикла базы данных "РОСГОССТРАХ" планируется внесение изменений в данный проект:
* Добавить помимо автострахования дополнительные сферы (страхование недвижимости и животных);
* Увеличить коэффициент зоны с Волгоградской области до страны;
* Ввести дополнительную функцию для работы с таблицей Microsoft Access произвольно указанной пользователем;
* Производить печать отчетов, справок.
База данных "РОСГОССТРАХ" на данный момент выполняет все функции отвечающие требованиям заказчика и доступна любому работнику, связанному со сферой страхования. СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
1. Бобровский, С Технологии Delphi 2006. Новые возможности. Изд-во: Санкт - Питер 2006 г. 288 с.
2. Осипов, Д.Л. "Базы данных и Delphi", изд - тво: BHV Серия: Профессиональное программирование, 2011 г. 752 c.
3. Дейт, К. Д. "Введение в системы баз данных" пер. с англ. и ред.
4. Птицына М. и др. Вильямс, 2006 г. - 1328 с.
5. Карпова, Т. С./ Базы данных: Модели, разработка, реализация: учебное пособие // 300 с.
6. Карпова, Л. Д. "Учебное пособие по Delphi 2010" г.Санкт - Питребург. и др. , 2002 г. - 304 с.
Ресурсы Internet
7. Исходники и компоненты, бесплатные Delphi исходники, создание своих исходников и комонентов для delphi // http://delphiexpert.ru/
8. База данных исходных текстов с описаниями на различных языках программирования, для различных операционных систем и пр. (бесплатный доступ). //http://www.codenet.ru/
ПРИЛОЖЕНИЕ
Иллюстрации программного продукта
Рисунок 1. Окно приветствия Рисунок 2. Таблицы Рисунок 3. Управление таблицей клиенты Рисунок 4. Поля ввода таблицы "Клиенты"
Рисунок 5. Контроль на вводе
Рисунок 6. Фильтрация и Поиск Рисунок 7. Удаление записи
Рисунок 8. Выбор данных в раскрывающемся списке Рисунок 9. Клавиатура Рисунок 10. Закрыть
Рисунок 11. Настройки
Рисунок 12. Подсказки Рисунок 13. Клавиатура
Рисунок 14. Помощь
Рисунок 15. Справка Технологическая блок-схема решения задачи
Листинг программы
procedure TForm1.Button4Click(Sender: TObject);
begin
adotable2.Insert;
scombobox1.Text:='Базовая ставка';
scombobox5.Text:='Мощность двигателя';
scombobox2.Text:='Территория преимущественного использования ТС';
scombobox3.Text:='Возраст и стаж';
scombobox4.Text:='Период страхования';
end;
procedure TForm1.C1Click(Sender: TObject);
begin
form3.visible:=true;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Length(scombobox6.Text) > 0 then
label7.Caption:='Производится фильтрация по полю ' + scombobox6.Text;
label8.Caption:='Производится поиск по полю ' + scombobox6.Text;
end;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
DBEdit5.text:=datetostr(Datetimepicker1.date);
end;
procedure TForm1.DBEdit5MouseActivate(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y, HitTest: Integer;
var MouseActivate: TMouseActivate);
begin
MessageDlg ('Внимание! Для избежания ошибок в поиске и фильтрации по дате её формат должен соответствовать примеру! Пример: 26.08.2006', mtinformation, [mbOK],0);
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
egin
if scombobox6.Text=''
then
adotable1.First
else
adotable1.Locate(scombobox6.Text,edit1.Text,[loCaseInsensitive, loPartialKey])
end;
end;
procedure TForm1.Edit6Change(Sender: TObject);
begin
if Length(sedit1.Text) > 0 then
begin
adotable1.Filtered:=false;
adotable1.Filter:=scombobox6.Text + ' LIKE ' + #39 + sedit1.Text + '%' + #39;
adotable1.Filtered:=true;
end
else adotable1.Filtered:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sskinmanager1.SkinName:='WEB';
end;
procedure TForm1.KLfalseClick(Sender: TObject);
begin
klfalse.Checked:=true;
kltrue.Checked:=false;
touchkeyboard1.Visible:=false;
end;
procedure TForm1.KLtrueClick(Sender: TObject);
begin
kltrue.Checked:=true;
klfalse.Checked:=false;
touchkeyboard1.Visible:=true;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
messagedlg('Работа ученика группы ВТ-410 Сердюкова Ильи',mtinformation,[mbOk],0);
end;
procedure TForm1.N7Click(Sender: TObject);
begin
messagedlg('БД РОСГОССТРАХ, Версия 1.00',mtinformation,[mbOk],0);
end;
procedure TForm1.sButton1Click(Sender: TObject);
begin
if vikl.Checked = false then begin
MessageDlg ('Внимание! Во избежания повторного добавления клиента в базу проверьте его наличие с помощью фильтрации!', mtinformation, [mbOK],0);
adotable1.insert;
DBEdit1.Visible:=true;
DBEdit2.Visible:=true;
DBEdit3.Visible:=true;
DBEdit4.Visible:=true;
DBEdit5.Visible:=true;
Label1.Visible:=true;
Label2.Visible:=true;
Label3.Visible:=true;
Label4.Visible:=true;
Label5.Visible:=true;
sbutton6.Visible:=true;
sbutton7.Visible:=true;
datetimepicker1.Visible:=true;
Edit1.Visible:=false;
Button2.Visible:=false;
label6.Visible:=false;
scombobox6.Visible:=false;
sedit1.Visible:=false;
label7.Visible:=false;
label8.Visible:=false end
else
adotable1.insert;
DBEdit1.Visible:=true;
DBEdit2.Visible:=true;
DBEdit3.Visible:=true;
DBEdit4.Visible:=true;
Label1.Visible:=true;
Label2.Visible:=true;
Label3.Visible:=true;
Label4.Visible:=true;
Label5.Visible:=true;
sbutton6.Visible:=true;
sbutton7.Visible:=true;
datetimepicker1.Visible:=true;
Edit1.Visible:=false;
Button2.Visible:=false;
label6.Visible:=false;
scombobox6.Visible:=false;
sedit1.Visible:=false;
label7.Visible:=false;
label8.Visible:=false
end;
procedure TForm1.sButton2Click(Sender: TObject);
begin
DBEdit1.Visible:=true;
DBEdit2.Visible:=true;
DBEdit3.Visible:=true;
DBEdit4.Visible:=true;
datetimepicker1.Visible:=false;
DBEdit5.Visible:=true;
Label1.Visible:=true;
Label2.Visible:=true;
Label3.Visible:=true;
Label4.Visible:=true;
Label5.Visible:=true;
sbutton6.Visible:=true;
sbutton7.Visible:=true;
Edit1.Visible:=false;
Button2.Visible:=false;
label6.Visible:=false;
scombobox6.Visible:=false;
sedit1.Visible:=false;
label7.Visible:=false;
label8.Visible:=false;
end;
procedure TForm1.sButton3Click(Sender: TObject);
begin
Edit1.Visible:=true;
Button2.Visible:=true;
label8.Visible:=true;
scombobox6.Visible:=true;
label6.Visible:=true;
label7.Visible:=false;
DBEdit1.Visible:=false;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
DBEdit5.Visible:=false;
Label2.Visible:=false;
Label3.Visible:=false;
Label4.Visible:=false;
Label5.Visible:=false;
Label1.Visible:=false;
datetimepicker1.Visible:=false;
sedit1.Visible:=false;
sbutton6.Visible:=false;
sbutton7.Visible:=false;
end;
procedure TForm1.sButton4Click(Sender: TObject);
begin
label6.Visible:=true;
scombobox6.Visible:=true;
sedit1.Visible:=true;
button2.Visible:=true;
label7.Visible:=true;
label8.Visible:=false;
DBEdit1.Visible:=false;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
DBEdit5.Visible:=false;
Label2.Visible:=false;
Label3.Visible:=false;
Label4.Visible:=false;
Label5.Visible:=false;
Label1.Visible:=false;
datetimepicker1.Visible:=false;
sbutton6.Visible:=false;
sbutton7.Visible:=false;
end;
procedure TForm1.sButton5Click(Sender: TObject);
var a:integer;
begin
label6.Visible:=false;
scombobox6.Visible:=true;
sedit1.Visible:=false;
button2.Visible:=false;
label7.Visible:=false;
label8.Visible:=false;
DBEdit1.Visible:=false;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
DBEdit5.Visible:=false;
Label2.Visible:=false;
Label3.Visible:=false;
Label4.Visible:=false;
Label5.Visible:=false;
Label1.Visible:=false;
scombobox6.Visible:=false;
datetimepicker1.Visible:=false;
sbutton6.Visible:=false;
sbutton7.Visible:=false;
end;
procedure TForm1.sButton6Click(Sender: TObject);
begin
adotable1.Post;
end;
procedure TForm1.sButton7Click(Sender: TObject);
begin
label6.Visible:=false;
scombobox6.Visible:=true;
sedit1.Visible:=false;
button2.Visible:=false;
label7.Visible:=false;
label8.Visible:=false;
DBEdit1.Visible:=false;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
DBEdit5.Visible:=false;
Label2.Visible:=false;
Label3.Visible:=false;
Label4.Visible:=false;
Label5.Visible:=false;
Label1.Visible:=false;
scombobox6.Visible:=false;
datetimepicker1.Visible:=false;
sbutton6.Visible:=false;
sbutton7.Visible:=false;
end;
procedure TForm1.sCheckBox1Click(Sender: TObject);
begin
if vikl.Checked then
begin
dbgrid2.Visible:=true;
scombobox1.Visible:=true;
scombobox2.Visible:=true;
scombobox3.Visible:=true;
scombobox4.Visible:=true;
scombobox5.Visible:=true;
button4.Visible:=true;
end
else
MessageDlg ('Внимание! Для правильного заполнения таблицы клиента требуется следовать инструкции расположенной в меню (Помощь > Справка)!', mtinformation, [mbOK],0);
dbgrid2.Visible:=true;
scombobox1.Visible:=true;
scombobox2.Visible:=true;
scombobox3.Visible:=true;
scombobox4.Visible:=true;
scombobox5.Visible:=true;
button4.Visible:=true;
end;
procedure TForm1.sComboBox2Change(Sender: TObject);
begin
adotable2.edit;
case scombobox2.ItemIndex of
0: begin
dbedit6.text:=floattostr(1.3);
form1.ADOTable2.FieldByName('территориипреимуществиспользовтс').AsFloat:=strtofloat(dbedit6.text);
end;
1: begin
dbedit6.text:=floattostr(1.1);
form1.ADOTable2.FieldByName('территориипреимуществиспользовтс').AsFloat:=strtofloat(dbedit6.text);
end;
2: begin
dbedit6.text:=floattostr(1);
form1.ADOTable2.FieldByName('территориипреимуществиспользовтс').AsFloat:=strtofloat(dbedit6.text);
end;
3: begin
dbedit6.text:=floattostr(0.7);
form1.ADOTable2.FieldByName('территориипреимуществиспользовтс').AsFloat:=strtofloat(dbedit6.text);
end;
end;
adotable2.Post;
end;
procedure TForm1.sComboBox3Change(Sender: TObject);
begin
adotable2.edit;
case scombobox3.ItemIndex of
0: begin
dbedit6.text:=floattostr(1);
form1.ADOTable2.FieldByName('ВозрастИстаж').AsFloat:=strtofloat(dbedit6.text);
end;
1: begin
dbedit6.text:=floattostr(1.6);
form1.ADOTable2.FieldByName('ВозрастИстаж').AsFloat:=strtofloat(dbedit6.text);
end;
2: begin
dbedit6.text:=floattostr(1.7);
form1.ADOTable2.FieldByName('ВозрастИстаж').AsFloat:=strtofloat(dbedit6.text);
end;
3: begin
dbedit6.text:=floattostr(1.8);
form1.ADOTable2.FieldByName('ВозрастИстаж').AsFloat:=strtofloat(dbedit6.text);
end;
end;
end;
procedure TForm1.sComboBox4Change(Sender: TObject);
begin
adotable2.edit;
case scombobox4.ItemIndex of
0: begin
dbedit6.text:=floattostr(1);
form1.ADOTable2.FieldByName('КраткосрочногоСтрахования').AsFloat:=strtofloat(dbedit6.text);
end;
1: begin
dbedit6.text:=floattostr(0.7);
form1.ADOTable2.FieldByName('КраткосрочногоСтрахования').AsFloat:=strtofloat(dbedit6.text);
end;
2: begin
dbedit6.text:=floattostr(0.5);
form1.ADOTable2.FieldByName('КраткосрочногоСтрахования').AsFloat:=strtofloat(dbedit6.text);
end;
end;
adotable2.Post;
end;
procedure TForm1.sComboBox5Change(Sender: TObject);
begin
adotable2.edit;
case scombobox5.ItemIndex of
0: begin
dbedit6.text:=floattostr(0.6);
form1.ADOTable2.FieldByName('МощностьДвигателя').AsFloat:=strtofloat(dbedit6.text);
end;
1: begin
dbedit6.text:=floattostr(1);
form1.ADOTable2.FieldByName('МощностьДвигателя').AsFloat:=strtofloat(dbedit6.text);
end;
2: begin
dbedit6.text:=floattostr(1.1);
form1.ADOTable2.FieldByName('МощностьДвигателя').AsFloat:=strtofloat(dbedit6.text);
end;
3: begin
dbedit6.text:=floattostr(1.2);
form1.ADOTable2.FieldByName('МощностьДвигателя').AsFloat:=strtofloat(dbedit6.text);
end;
4: begin
dbedit6.text:=floattostr(1.4);
form1.ADOTable2.FieldByName('МощностьДвигателя').AsFloat:=strtofloat(dbedit6.text);
end;
5: begin
dbedit6.text:=floattostr(1.6);
form1.ADOTable2.FieldByName('МощностьДвигателя').AsFloat:=strtofloat(dbedit6.text);
end;
end;
adotable2.Post;
end;
procedure TForm1.sComboBox6Change(Sender: TObject);
begin
if Length(scombobox6.Text) > 0 then
label7.Caption:='Производится фильтрация по полю ' + scombobox6.Text;
label8.Caption:='Производится поиск по полю ' + scombobox6.Text;
end;
procedure TForm1.sEdit1Change(Sender: TObject);
begin
if Length(sEdit1.Text) > 0 then
begin
adotable1.Filtered:=false;
adotable1.Filter:=scombobox6.Text + ' LIKE ' + #39 + sedit1.Text + '%' + #39;
adotable1.Filtered:=true;
end
else adotable1.Filtered:=false;
end;
procedure TForm1.sEdit2Change(Sender: TObject);
begin
sedit1.Text:=dbedit1.Text;
end;
procedure TForm1.VIKLClick(Sender: TObject);
begin
vikl.Checked:=true;
vkl.Checked:=false;
sgroupbox1.Visible:=false;
simage1.Visible:=false;
end;
procedure TForm1.VKLClick(Sender: TObject);
begin
vkl.Checked:=true;
vikl.checked:=false;
sgroupbox1.Visible:=true;
simage1.Visible:=true;
end;
ПОСТАНОВКА ЗАДАЧИ
5
4
ПОСТАНОВКА ЗАДАЧИ
Документ
Категория
Без категории
Просмотров
34
Размер файла
8 642 Кб
Теги
страхование, пояснительная, записка
1/--страниц
Пожаловаться на содержимое документа