42965

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

Курсовая

Информатика, кибернетика и программирование

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

Русский

2013-11-01

505.53 KB

60 чел.

14

Содержание

ВВЕДЕНИЕ 2

СПОСОБ № 1 3

Разработка формы 3

Разработка процедур 4

Описание работы программы 7

СПОСОБ № 2 10

Проектирование базы данных 10

Разработка формы 10

Разработка процедур 12

Описание работы программы 14

ЗАКЛЮЧЕНИЕ 21

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 22


ВВЕДЕНИЕ

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

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

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

Главной задачей любой информационно-поисковой системы является поиск информации релевантной информационным потребностям пользователя.

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


СПОСОБ № 1

Разработка формы

Спроектируем форму представленную на рис. 1.

Рисунок 1 – Главная форма приложения

В таблице 1 представлен список компонентов и их свойств.

Таблица 1 - Компоненты формы

 

Имя компонента

Надпись

Примечание

1

2

3

4

1

Button1

(кнопка)

ОК

Подтверждение ввода количества строк. Формируется матрица

с заданным количеством строк.

2

Button2

(кнопка)

Запись в файл

Данные из матрицы записываются в файл

3

Button4

(кнопка)

Запись в матрицу

Данные из файла записываются в таблицу (матрицу)

4

Button5

(кнопка)

Поиск

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

5

Label1

(Метка)

Введи число записей

6

Edit1

(строка ввода)

Нет надписи

Ввводим число отражающее число записей в матрице

7

StringGrid1

(текстовая

таблица)

Ячейки таблицы заполняются в процессе работы.

Cвойство Options,

свойство

goEditing значение True.

Разработка процедур

Объявите переменные,  используемые в программе и укажите их типы:

var

     Form1:  TForm1;

     i,j,n,nn,kz: integer;

     p:string;

     f:textfile;

Для работы программы было разработано ряд процедур.

Определения количества строк в матрице и их автоматическая нумерация:

procedure TForm1.Button1Click(Sender: TObject);

begin

Получаем количество строк из поля Edit1:

   n:=StrToInt(edit1.Text);

Устанавливает в StringGrid1 соответствующее количество строк:

StringGrid1.Rowcount:= n+1;

Нумеруем первый столбик:

for j:=1 to n+1 do

 begin

 StringGrid1.Cells[0,j]:=IntToStr(j);

 end;

end;

Запись матрицы в файл:

procedure TForm1.Button2Click(Sender: TObject);

var buttonSelected : Integer;

begin

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

   buttonSelected := MessageDlg('Вы действительно хотите перезаписать файл? (Все предыдущие записи будут потеряны)',mtWarning, mbOKCancel, 0);

Если пользователь подтвердил перезапись (Нажата кнопка ОК):

   if buttonSelected = mrOK then begin

Записываем данные в файл:

   Rewrite(f);

 For j:=1 to n do

 begin

 for i:=1 to 5 do

 begin

 write(f,stringgrid1.cells[i,j]);

 write(f,'!');

 end;

 end;

write(f,'#');

 closefile(f);

   ShowMessage('Данные успешно сохранены!');

   end;

end;

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

Запись данных из файла в матрицу:

procedure TForm1.Button4Click(Sender: TObject);

begin

 nn:=1;

reset(f);

read(f,p);

for j:=1 to n do

begin

for i:=1 to 5 do

begin

kz:=0;

while p[nn]<>'!' do

begin

kz:=kz+1;

nn:=nn+1;

end;

stringgrid1.cells[i,j]:=copy(p,nn-kz,kz);

nn:=nn+1;

if p[nn]='# ' then exit;

end;

end;

end;

Поиска данных:

procedure TForm1.Button5Click(Sender: TObject);

var

    S : TStrings;

    St : String;

    i, Row, Col : Integer;

begin

Запрашиваем у пользователя индекс столбца, в котром будем проводить поиск:

   Col := StrToInt(InputBox('Ввод данных','Введите номер столбца для поиска',''));

Затем запрашиваем данные для поиска:

   St := AnsiUpperCase( InputBox('Ввод данных','Введите данные для поиска','') );

Осуществляем поиск по выбранному столбцу:

  S := StringGrid1.Cols[Col];

   Row := -1;

   for i := StringGrid1.FixedCols to S.Count - 1 do begin

     if Pos( St, AnsiUpperCase( S.Strings[i] ) ) > 0 then begin

       Row := i;

       Break;

    end;

  end;

Проверяем найденны ли данные:

   if Row > -1 then begin

Выделяем найденную ячейку:

    StringGrid1.Selection := TGridRect( Rect(Col, Row, Col, Row) );

Если данные не найдены выводим соответствующее сообщение:

  end else begin

     ShowMessage('Данная фамилия спортсмена не найдена.');

   end;

end;

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

procedure TForm1.FormCreate(Sender: TObject);

begin

    AssignFile(f,'f');

    Stringgrid1.Cells[0,0]:= 'N записи';

    Stringgrid1.Cells[1,0]:= 'Фамилия спортсмена';

    Stringgrid1.Cells[2,0]:= 'Название секции';

    Stringgrid1.Cells[3,0]:= 'Спортивный разряд';

    Stringgrid1.Cells[4,0]:= 'Фамилия тренера';

end;

Описание работы программы

При первом  сеансе работы с программой необходимо выполнить следующие действия:

  1. Определите  число записей в матрице, нажмите OK (рис.2) .

Рисунок 2 – Пример определения числа записей

  1. Введите данные в матрицу (рис.3).

Рисунок 3 - Ввод данных в матрицу

  1. Щелкните по кнопке «Запись в файл», произойдет копирование данных из матрицы в файл (файл будет создан автоматически). Появится окно показанное на рис.4.

Рисунок 4 – Запрос на подтверждение записи данных

После нажатия «ОК» на жестком диске будет создан файл, пример содержимого файла на рис. 5.

Рисунок 5 – Файл с данными открытый через Блокнот

 

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

Пункты

 1. выполняется аналогично.

2.   Нажмите кнопку «Запись в матрицу». Данные окажутся в таблице.

Далее возможно проводить редактирование записей или ввод новых  записей в матрицу.

Для поиска информации необходимо нажать кнопку «Поиск». Появится запрос представленный на рис.6.

Рисунок 6 – Ввод номера столбца

Затем появится запрос ввода данных (рис.7), необходимо вводить данные соответствующие выбранному столбцу.

Рисунок 7 – Запрос данных для поиска

В результате поиска будет выделена ячейка (рис.8)  или выдано сообщение об отсутствие данных (рис.9).

                                                                     Рисунок 8 - Поиск фамилии

Рисунок 9 - Данная фамилия не найдена

СПОСОБ № 2

Проектирование базы данных

С помощью Microsoft Office Access создадим таблицу представленную на рис. 10.

Рисунок 10 – Таблица laba.mdb

Разработка формы

Спроектируем форму, с подключенной базой данных, представленную на рис. 11.

Рисунок 11 – Главная форма приложения

В таблице 2 представлен список компонентов и их свойств.

Таблица 1 - Компоненты формы

 

Имя компонента

Надпись

Примечание

1

2

3

4

1

Button1

(кнопка)

Добавить фамилию

Происходит поиск лаборатории

2

Button2

(кнопка)

Удалить фамилию

Добавляет информацию в базу данных.

3

Button3

(кнопка)

Сохранить

Удаляет информацию из базы данных

4

Button4

(кнопка)

Поиск фамилии

Изменяет данные в базе данных

5

Button5

(кнопка)

Вернуться к базе данных

Сортировка по количеству ЭВМ

6

Button6

(кнопка)

Сортировка по алфавиту ( по названию секции)

Выход из программы

7

Edit1

(строка ввода)

Нет надписи

В строку Edit вводятся данные.

8

Dbgrid1

(текстовая

таблица)

DataSource1

Связь с Table1

9

ADOConnection

Нет надписи

Подключение базы данных Laba.mdb

10

ADOQuery

Нет надписи

Связь с ADOConnection

11

DataSource

Нет надписи

Связь с ADOQuery

Разработка процедур

Вся работа с базой данных осуществляется с помощью компонента ADO.

При нажатии кнопки «Добавить» отображаются поля для ввода данных:

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.Show;

AdoQuery1.Insert;

end;

Удаление данных осуществляется с помощью кнопки «Удалить»:

procedure TForm1.Button3Click(Sender: TObject);

begin

AdoQuery1.Delete;

end;

Изменение данных осуществляется при нажатии кнопки «Изменить»:

procedure TForm1.Button4Click(Sender: TObject);

begin

Form2.Show;

end;

Поиск данных в базе осуществляется с помощью кнопки «Поиск»:

procedure TForm1.Button1Click(Sender: TObject);

begin

try

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM laba WHERE Лаборатории LIKE ''%'+Edit1.text+'%''');

ADOQuery1.Active:=True;

except

on e:Exception do

end;

end;

Сортировка данных осуществляется нажатием на кнопку «Сортировка»:

procedure TForm1.Button5Click(Sender: TObject);

begin

 ADOQuery1.Sort:='ЭВМ'

end;

Выход из программы осуществляется с помощью кнопки «Выход»:

procedure TForm1.Button6Click(Sender: TObject);

begin

Close;

end;

end.

Описание работы программы

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

Рисунок 12 – Главное окно программы

Для добавления данных нажмите кнопку «Добавить», в базе данных появится новая форма для добавления данных (рис. 13).

Рисунок 13 – Добавление данных в базу

Для сортировки введенных данных необходимо нажать кнопку «Сортировка» (рис. 15).

                  Рисунок 15 - Сортировка по колонке ЭВМ по возрастанию

Поиск необходимой дисциплины осуществляется с помощью кнопки «Поиск фамилии» (рис. 17).

                                             Рисунок 17 - Поиск по лабораториям

                                          

ЗАКЛЮЧЕНИЕ

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

Система разработана на языке Паскаль, в среде Delphi.

Система разработана в двух вариантах:

1) На основе использования массива строк и файла. Программа:

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

2) На основании управления базой данных, технология ADO, бд Microsoft Access. Программа:

  1. добавляет или удаляет новую информацию в базе данных.
  2. сохраняет новую базу данных.
  3. выполняет поиск информации по заданному значению определенного поля.
  4. выполняет сортировку по значению определенного поля в режиме таблицы.
  5. возвращает обратно к начальной базе данных.
  6. выходит из программы.

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


СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

  1.  Архангельский А.Я. Программирование в Delphi 7. – М.: ООО «Бином-Пресс»,2003 г. – 1152с.
  2. Карпова Т.С. Базы данных: модели, разработка, реализация. СПб.: Питер, 2001. –304с.
  3. Конноли Т., Бегг Л., Страчан А. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. – 2-е изд. – Вильямс, 2000.
  4.  Малыхина М.П. Базы данных: основы, проектирование, использование. –Спб.: БХВ-Петербург, 2004. –512 с.
  5. Фаронов В.В. Программирование баз данных в Delphi 7. Учебный курс. – СПб: Питер, 2006. – 459с.
  6. Хомоненко А.Д. и др. Delphi 7./ Под общей редакцией А. Д. Хомоненко – СПб.: BHV, 2004.


 

А также другие работы, которые могут Вас заинтересовать

48646. Расчет структуры электромагнитных полей 508 KB
  Цель работы – расчет структуры полей внутри и вне цилиндра, а также в волноводе для приведенных в задании геометрических и электрических параметров
48647. Расчет структуры электромагнитных полей. Общее задание 210 KB
  Решение проводится в цилиндрической системе координат связанных с центром основания цилиндра где r радиусвектор точки наблюдения ось x направлена вдоль приложенного магнитного поля рис.1 методом разделения переменных в соответствии с которым решение  будем искать в виде произведения двух функций каждая из которых зависит только от одной координаты:...
48648. Расчет структуры электромагнитных полей 575 KB
  Метод исследования – метод разделения переменных при интегрировании дифференциальных уравнений для получения аналитических выражений потенциалов и напряженностей полей с последующим построением на ЭВМ структуры этих полей
48649. Расчет структуры электромагнитных полей 209.5 KB
  Параметры задачи Бесконечный проводящий цилиндр в магнитной среде R=8см=008м H0=20 і=5102 е=8 Координаты точки M: r=7см=007м =90 Решение Решение проводится в цилиндрических координатах связанных с центром основания цилиндра r радиусвектор точки наблюдения ось x направлена вдоль приложенного магнитного поля рис.1 в методом разделения переменных в соответствии с которым решение  будем искать в виде произведения двух функций каждая из которых зависит только от одной координаты:...
48650. Расчет структуры осесимметричных стационарных электромагнитных полей 203 KB
  Решение производится в цилиндрических координатах связанных с центром основания цилиндра r радиусвектор точки наблюдения ось x направлена вдоль приложенного магнитного поля рис.1 методом разделения переменных методом Фурьев соответствии с которым решение будем искать в виде произведения двух функций каждая из которых зависит только от одной координаты: 1.4 Этим самым решение уравнения 1.
48651. ПСИХОЛОГІЧНІ ВАЖЕЛІ ЗАБЕЗПЕЧЕННЯ БЕЗПЕКИ ЛЮДИНИ. МОДЕЛІ ФОРМУВАННЯ ЗДОРОВ’Я 278 KB
  Фактично люди мають дві нервові системи: центральну і вегетативну. Центральна нервова система керує відносинами людини із зовнішнім світом. Вона включає: спинний мозок, великі півкулі головного мозку, які зв’язані з проміжним мозком, середній мозок, задній мозок, довгастий мозок, мозочок. Вегетативна нервова система керує діяльністю внутрішніх органів.
48652. Расчет структуры электромагнитных полей 780 KB
  Задача настоящей работы – теоретическое исследование электромагнитного поля, основывающееся на классических представлениях о нём, и численное нахождение его характеристик.
48653. Перспективы и состояние разработок распределительных трансформаторов массовых серий 384.5 KB
  Распределительные трансформаторы мощностью 25 630 кВ А напряжением 6 10 кВ наиболее массовая серия ид производимых и эксплуатируемых трансформаторов в СССР. Производство и эксплуатация этих трансформаторов требует значительных материальных и трудовых затрат любое снижение затрат дает существенную экономию в народном хозяйстве. Снижение затрат на производство и эксплуатацию трансформаторов является основной задачей изготовителей для решения которой необходимо: снизить расход активных материалов при использовании...
48654. МЕХОВЫЕ ТОВАРЫ 13.31 MB
  Топография и химический состав шкурки стр. Меховые товары – это пушно-меховые и овчинно-шубное сырье шкурки выделанные меховые и овчинно-шубные изделия. Меховые товары невыделанные шкурки пушно-меховое сырьё и выделанные шкурки пушно-меховой полуфабрикат объединяются в группу пушно-меховые товары. Ценность меховых товаров определяется четырьмя основными свойствами которыми обладают пушно-меховые шкурки: высокими теплозащитными...