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

Рис.2.1. Установка  связи БД и приложения

 

2. В проекте была создана новая форма DataModule2, которая использовалась в качестве контейнера. Здесь, мы так же устанавили связь Form1 с модулем DataModule2. Для этого в секции implementation в Unit1 прописали строку uses unit2;

3. Далее, разместили на форму DataModule2 со страницы ADO палитры компонент следующие компоненты: ADOConnection1, ADOTable1. Со страницы Data Access – DataSource1 (рис.2.2).

Рис.2.2. Форма DataModule2

 

4. Для компонента ADOConnection1 задали свойство ConnectionString, выбрав в открывшемся диалоговом окне режим Use Data Link File. Используя кнопку Browse, выбрали ранее созданный файл связи с данными mydb.udl. (рис.2.3), свойству Connected присвоили значение true. У свойства LoginPrompt выбрали значение false, чтобы при запуске приложения не запрашивался Логин и Пароль.

Рис.2.3. Установка  связи с БД

5. Для компонента ADOTable1 изменили свойства: Connection – ADOConnection1, TableName – Documents, Active – True.

6. Для организации отображения данных из БД  у компонента DataSource1 было установлено свойство DataSet – ADOTable1. [1]

 

2.3. Описание интерфейса приложения для БД «Mydb»

Со страницы Win32 палитры  компонент разместили на форме PageControl1. Для его свойства Align выбрали значение alClient. Далее, выбрав команду New Page контекстного меню PageControl1, добавили две страницы. Изменили свойство Caption у TabSheet1 на Таблица, у TabSheet2 на Поиск (рис.2.5).

2.3.1. Создание интерфейса для страницы Таблица

1. На первую страницу (TabSheet1) были помещены следующие компоненты:

- DBGrid1 со страницы DataControl;

- TabControl1 со страницы Win32.

У компонента TabControl1 изменили следующие свойства:

Align - alBottom, тем самым располагая ярлыки в нижней части страницы; Tabs – в редакторе списка строк ввели все буквы русского  алфавита, предворяя их строкой «Все» (рис.2.4); TabPosition – tpTop; TabWidth – 25.

Рис.2.4. Редактор списка строк для компонента TabControl1

Для компонента DBGrid1 были изменены следующие свойства: Align - alClient; DataSource – DataModule2.DataSource1.

На этом этапе в DBGrid1 появляются все поля из таблицы Documents БД «Mydb» (рис.2.5).

2. Для реализации отображения записей, в которых ФИО автора начинается на заданную букву, была осуществлена фильтрация набора ADOTable1 (см. Приложение 2). Условие фильтра было задано в обработчике события OnFilterRecord компонента ADOTable1

(см. Приложение 2)

Рис.2.5. Интерфейс для страницы Таблица

2.3.2. Создание интерфейса для  страницы поиска

1. На вторую страницу (TabSheet2) последовательно поместили компоненты DBEdit1, DBEdit2, DBEdit3, DBEdit4, DBEdit5,  DBMemo1, DBNavigatot1, (страница палитры компонентов DataControl), оставляя между ними свободное место для надписи. Между ними поместили метки Label1, Label2, Label3, Label4, Label5 (страница палитры компонентов Standart). Их свойство Caption изменили соответственно на Автор, Заглавие, Год издания, ИПС, Адрес сайта, Реферат (рис.2.6).  Для всех компонентов со страницы DataControl  у свойства DataSource выбрали значение DataModule2.DataSource1, тем самым подсоединяя их к первому набору данных. Свойству DataField присвоили следующие значения:

DBEdit1 – FIO; DBEdit2 – Name; DBEdit3 – Date; DBEdit4 – IPS; DBEdit5 – Site; DBMemo1 – Article.

Далее, на страницу добавили следующие компоненты: GroupBox1,  Button1,  Button2,  Button3, CheckBox1, на GroupBox1 разместили ComboBox1 и Edit1 (страница палитры компонентов Stsndart), так же добавили  SaveDialog1, OpenDialog1 со страницы палитры компонентов Dialogs (рис.2.6).

 

Рис.2.6. Интерфейс страницы Поиск

 

Используя обработчик события onShow компонента Form1, заполнили ComboBox1 значениями из таблицы Documents БД «Mydb» (см. Приложение 2) (рис.2.7).

Рис.2.7. Значения ComboBox1

Ативизировали кнопку Button1. В появившуюся заготовку обработчика события OnClick поместили код для реализации поиска записей (см. Приложение 2).

Аналогично для кнопок Button2, Button3 записали код для осуществления загрузки и сохранения записей в (из) файл(а) формата *txt. [1]

 

2.3.3. Оформление таблицы

1. Активизировали компонент DBGrid1 двойным нажатием мышки по нему. Выбрали первый появившийся элемент в списке 0-FIO и в инспекторе объектов определили для свойства FieldName значение FIO, а сложном свойстве Title задали свойству Caption значение Автор. Аналогичным образом для следующих компонентов. Удалили элемент No, для этого нажали  на него правой кнопкой мыши и выбрали пункт Delete. Аналогично для Article. (рис. 2.8)

Рис. 2.8. Изменение значений колонок в DBGrid1

2. Реализовали для таблицы DBGrid1 сортировку отображаемых в столбце данных при нажатии мышью по его заголовку (рис.2.9). Для этого был использован обработчик события OnTitleClick                 (см. Приложени2).

Рис.2.9. Отсортированный по полю Автор список данных

3. Для отображения информации поля Article была создана новая форма File->New->Form. На неё разместили DBMemo1 и зададали свойству DataField значение Article. В секции implementation в Unit1 к строке uses unit2 добавили unit3. Вызвали обработчик события onDbClick компонента DBGrid1 и записали:  Form1.ShowModal (рис.2.11).

2.4. Руководство для работы  с приложением

Перед началом работы с  приложением необходимо проверить  расположение файла udl и все пути доступа к БД (см. пункт 2.2. данной работы). После того, как программа запущена, во вкладке Таблица должны отобразиться сведения из БД «Mydb»(рис.2.10).

Рис.2.10. Отображение данных в таблице

 Реферат вызывается  двойным нажатием кнопки мыши по записи в таблице (рис.2.11).

Рис. 2.11. Отображение данных поля реферат

 При необходимости выполнения поиска нужно перейти к вкладке Поиск.  В строку для поиска вводим искомое значение, выбираем  соответствущее поле из выпадающего списка и осуществляем поиск. Если существует несколько записей, удовлетворяющих заданным условиям, то просмотреть их можно, повторно нажимая на кнопку поиска. Для отключения учета заглавных букв следуют активировать флажок «Без учета регистра» (рис.2.12).

 

Рис.2.12. Поиск по полю автор

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

<FIO Мюллер FIO<

<name Российский рынок страхования -нераскрытый потенциал.name<

<Date 2011 Date<

<Site www.elibrary.ru Site<

<IPS eLibrary IPS<

<Article Автор стремится проанализировать реальную потребность в страховых услугах сегодняшней России. Article<

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

 

Заключение

1. В данной курсовой работе производилось использование средств и технологий поиска документальной информации по теме «Рынок страхования» в разнородных информационных ресурсах. Оценка эффективности поиска осуществлялась на основе показателей полноты и точности. Анализ документов показывает, что наиболее полную и точную информацию по данной теме  можно получить, используя  традиционные ИПС, такие как: ГПНТБ (точность 79,3%), eLibrary(точность 66,7%) а так же поисковые машины - Google (точность 80%), Yandex(точность 72%).

2. Релевантные документы по каждому поиску были отобраны и занесены в таблицу, на  основании которой был составлен краткий аналитический обзор по теме «Рынок страхования». Данные из таблицы так же стали основой для создания тематическо-ориентированной библиографической БД и специального приложения для работы с ней.

3. БД релевантных документов «Mydb» была сформирована в среде Microsoft Access, для удобства работы с ней было создано приложение, в котором связь с БД установлена посредством механизма ADO. Программа была реализована с помощью  объктно-ориентированного языка Delphi.

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

 

Cписок источников и литературы:

1. Васина Е.Н.,«Технологии и методы программирования». Работа с базами данных в

Delphi 7: Метод. материалы. М.: ГОУ ВПО «РЭУ им. Г. В. Плеханова», 2011. – 24 с.

2. Голицына О.Л., Максимов Н.В., Партыка Т.Л., Попов И.И., Информационные технологии: Учеб. пособие. М.:ФОРУМ:ИНФРА-М, 2006. − 544 c.
3. Емельянова Н.З., Партыка Т.Л., Попов И.И., Информационные системы в экономике: Учеб. пособие. М.:ФОРУМ:ИНФРА-М, 2006. − 464 с.
4. Поискова система Google – Режим доступа: www.google.ru/
5. Поискова система Nigma – Режим доступа: www.nigma.ru/
6. Поискова система Yandex – Режим доступа: www.yandex.ru/
7. Поискова система Rambler – Режим доступа: www.rambler.ru/
8. Поискова система Yandex – Режим доступа: www.altavista.com/
9. Поискова система БД ВИНИТИ РАН – Режим доступа: www2.viniti.ru/
10. Поискова система БД ИНИОН РАН – Режим доступа: www.inion.ru/
11. Поискова система НИЯУ МИФИ  – Режим доступа: www.library.mephi.ru/
12. Поискова система ГПНТБ – Режим доступа: www.gpntb.ru/
13. Поискова система eLibrary  – Режим доступа: www.elibrary.ru/

 

 

 

 

 

 

 

 

 

 

 

 

Приложение 1

Таблица П.1

Таблица релевантных документов

ИПС	Содержание	Автор	Адрес
1. БД ВИНИТИ РАН	Основные черты и особенности  развития страховых рынков государств-членов ЕВРАЗЭС. [2]	Небольсина Е.В.	www2.viniti.ru
	Национальные страховые  программы в управлении государственными рисками.[3]	Хоминич И.П.
	Моделирование спроса и предложения  услуг добровольного медицинского страхования [7]	Трегубова А.А.
2.БД ИНИОН	страхование от потерь[1]	-	www.inion.ru
	страховые компании [2]	-
	правоотношения между  страховыми организациями и физическими/юридическими лицами    [2]	-
	Страхование как общее  и теоретическое понятие[1]	-
3.ГПНТБ	Страхование и страховой  рынок. Проблемы безопасности.[4]	Кузовлева Н.Ф.	www.gpntb.ru
	Формирование и развитие рынка страховых услуг.[3]	Бакироф А.Ф.
	Экспертиза страхового рынка.[4]	Не указан
	Экономическое поведение  участников страхового рынка.[2]	Мазаева М.В.
	Страховой рынок России: 20 лет новейшей истории.[1]	С. Ю. Яновой, О. С. Савченко
	Регулирование функционирования и развития регионального страхового рынка.[3]	Лубкова Э.М.
	Российский рынок страхования: конкуренция и эффективность. [3]	Авдашева С.Б.
	Стратегия развития российского  страхового рынка в условиях глобализации. [3]	Андреева Л.Ю.
	Государственное регулирование  страхового рынка. [3]	Жилкина М.С.
	Развитие страхового рынка  России и возможности международного сотрудничества. [2]	Не указан
	Финансовая безопасность потребителей страховых услуг на розничном страховом рынке. [4]	Гайдамашко В.С.
	Становление и развитие системы  взаимодействия институтов государственного регулирования и саморегулирования  страхового рынка. [1]	Павлова Н.А.
4.eLibrary	Российский рынок страхования  -нераскрытый потенциал. Предпосылки освоения рынка. [3]	Мюллер	elibrary.ru
	Неполное страхование  как явление на Российском рынке  страховых услуг.[3]	Кашин И.С.
	Российский рынок страхования: жизненно-важные проблемы.[4]	Машников О.В.
	Рынок страхования жизни: порядок из хаоса.[5]	Комлева Н.В. Янин А.Е.
5.Google	Международный рынок страхования. Страховой рынок, или рынок страхования является частью финансового рынка. На рынке страхование предлагаются услуги по страхованию. Рынок ... [1]	-	www.страховойцентр.рф/.../mezhdunarodnyi-rynok-strahovaniia
	Страховой рынок. Государственное  регулирование страхования …Страховой рынок России: состояние и перспективы  его развития ... и перспективы  развития страхования в России. Рынок  страхования населения.[3]	-	referats.allbest.ru/
	Страховой рынок РФ в реальном исчислении не растет - эксперт. Страховой ... Основной рынок страхования за счет средств граждан ...[4]	-	finmarket.ru
	Страховой рынок: место и  функции. Структура страхового ... Несмотря на это уже с начала 2003 г. мировой рынок страхования испытывает подъем. [4]	-	www.grandars.ru
	В России рынок страхования  жизни развит крайне слабо. .... одно, что к докризисному коэффициенту 1,6 страховой рынок не дошел.[4]	-	www.finam.ru
	Страховой рынок России: чего так опасаются инвесторы  Запада? ... российский рынок страхования  последние пять лет развивается ...[3,4]	-	fincake.ru
6. Nigma	Современный страховой рынок  начал формироваться с 1991 года, большая  часть компаний была создана с 1994 по 1996 годы (См. График 1) — период либерализации  экономики и... [1]	-	raexpert.ru
	По итогам 2011 года приходится признать, что в реальном исчислении страховой рынок сокращается  восьмой год подряд – наибольшее отношение страховой премии к  ВВП было...[4]		www.RGS.ru
	Страховой рынок сегодня. Страхование сегодня является одним  из способов обеспечения финансовой защиты и призвано удовлетворить  насущную потребность человека - потребность  в...[3]	-	strahovanie.finpotrebsouz.ru
	«В сложившихся условиях, если мы хотим, чтобы страховой рынок  рос достаточно быстрыми темпами, вводить  обязательные виды – абсолютно нормальное решение. [4]	-	www.711.ru
7. Yandex	Маркетинговые исследования - Рынки страхования жизни. [5]	-	restko.ru
	«…Массовым потоком иностранцы на российский рынок страхования  не хлынут. Многие уже ушли обратно, потому что наш рынок устроен  не так просто и примитивно, как  за границей.[3]	-	rb.ru
	Эксперты давно предсказывали  рынку страхования жизни в  России настоящий бум.[3]	-	fpolis.ru
	Предполагается, что около 65% всех расходов будут относиться к обязательному страхованию. … Рынок страхования в России существенно вырос в 2003-2006 гг., период формирования...[3]	-	o-strahovanie.ru
8. Rambler	Внутренний страховой  рынок — местный рынок, в котором  имеется непосредственный спрос  на страховые услуги, удовлетворяемый  конкретными страховщиками. [1]	-	www.e-college.ru/
	Международный страховой  рынок отражает страховую и перестраховочную деятельность в          1. В чем состоит сущность страхования? 2. Какие функции выполняет страхование?[1]	-	www.vuzlib.net
	Страховой рынок — достаточно емкий потребитель квалифицированных  трудовых ресурсов. Рынок труда в  российской страховой отрасли формировался стихийно. [4]	-	www.insurance2000.ru
9. AltaVista	Долгосрочное страхование  жизни, рынок страхования жизни. В настоящее время долгосрочное ...[5]	-	www.polis.ws
	Розничный рынок страхования  в России: бум во время стагнации? [3]	-	consulting.itar-tass.com
	Российский рынок страхования  жизни. Маркетинговое исследование. Россия.[5]	-	www.restko.ru
	Рынок добровольного страхования.  Стабильное развитие российской экономики ...[1]	-	www.rbc.ru
	Влияние кризиса на рынок  страхования.[4]	-	itbroker.ru

 

 

 

 

 

 

 

Приложение 2

Код программы

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, Grids, DBGrids, Buttons, StdCtrls, DBCtrls,

  Tabs, ComCtrls, DB, ExtDlgs, Mask;

 type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    DBGrid1: TDBGrid;

    TabControl1: TTabControl;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBMemo1: TDBMemo;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    DBNavigator1: TDBNavigator;

    GroupBox1: TGroupBox;

    Edit1: TEdit;

    ComboBox1: TComboBox;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    SaveDialog1: TSaveDialog;

    OpenDialog1: TOpenDialog;

    CheckBox1: TCheckBox;

    procedure FormCreate(Sender: TObject);

    procedure TabControl1Change(Sender: TObject);

    procedure DBGrid1TitleClick(Column: TColumn);

    procedure FormShow(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure DBGrid1DblClick(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

     private

    { Private declarations }

  public

    { Public declarations }

  end;

 

 var

  Form1: TForm1;

  F_out: file of trecout;

  vrec: trecout;

 

implementation

 

uses Unit2, Unit3;

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

Datamodule2.adoconnection1.close;

Datamodule2.adoconnection1.connectionstring:='FILE NAME='+ExtractFilePath(Application.ExeName)+'mydb.udl' ; ;

DataModule2.Adoconnection1.Open;

DataModule2.AdoTable1.open;

end;

 

 procedure TForm1.TabControl1Change(Sender: TObject);

begin

DataModule2.ADOTable1.Filtered:=false;

 if TabControl1.TabIndex<>0 then

DataModule2.ADOTable1.Filtered:= true

end;

 

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

var s:string;

begin

if pos('ASC',DataModule2.ADOTable1.Sort)>0 then

s :=' DESC' else s:= ' ASC';

if Column.FieldName = 'FIO' then DataModule2.ADOTable1.Sort:='FIO'+s

else DataModule2.ADOTable1.Sort:= Column.FieldName +s;

end;

 

procedure TForm1.FormShow(Sender: TObject);

begin

with DataModule2.ADOTable1 do

GetFieldNames(combobox1.items);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var s: string;

begin

     if (datamodule2.adotable1.eof)

       then

        Datamodule2.adotable1.first;

               while not datamodule2.adotable1.eof do

        begin

         If Checkbox1.Checked then   

           s:=ansilowercase(datamodule2.ADOtable1.fieldbyname(combobox1.Text).AsString)                                                                                                                                      

         else

          s:=datamodule2.ADOtable1.fieldbyname(combobox1.Text).AsString;

         if pos(Edit1.Text,s)>0 then

           begin

            break; datamodule2.DataSource1.dataset:=datamodule2.ADOTable1;

           end ;  Datamodule2.adotable1.Next;

         end;

       if (datamodule2.adotable1.eof)

       then

        begin showmessage ('Эта запись последняя. Продолжить поиск?');