База данных «Личная библиотека» на языке программирования Turbo Pascal

Министерство культуры Российской Федерации

Восточно-Сибирская государственная академия культуры и искусств

Институт информационных технологий, экономики и управления

Кафедра информационно-коммуникационных технологий

 

 

 

 

Курсовая работа

Тема: База данных «Личная библиотека»

на языке программирования Turbo Pascal

 

 

 

Научный руководитель: А.В. Урбаханов

Выполнила: студентка 1 курса гр. 413

Н.А. Федорова

 

 

 

 

 

 

Улан-Удэ

2008

 

Содержание

 

Задание на выполнение курсовой работы

Введение

Теоретические основы. Записи. Файлы

Основное меню программы

Описание процедур

Листинг программы

Заключение

Список использованной литературы

 

 

 

 

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

 

Необходимо составить базу данных «Личная библиотека» на языке программирования TURBO PASCAL.

Картотека домашней библиотеки: выходные данные книги (инвентарный номер, автор, издательство, год издания), разделы библиотеки:  учебная и справочная литература, художественная литература, домашнее хозяйство, непознанное.

В базе должно быть создано меню. Должен производиться поиск информации: по инвентарному номеру книги, по имени автора. Удаление должно производиться по инвентарному номеру.

При создании этой программы стояли следующие цели:

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

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

- Программа должна иметь малую ресурсоёмкость.

- Приобретение и закрепление навыков в организации вычислительных процессов и программирования на алгоритмическом языке ПАСКАЛЬ.

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

 

Введение

Современная вычислительная техника позволяет решать большое  количество различных задач. Пожалуй, наиболее важным применением ЭВМ  стало хранение информации. Удобные  и разнообразные  средства для этой цели предоставляют технологии баз данных. Целью  данной курсовой работы является приобретение опыта алгоритмизации, конструирования, практической реализации программ и широкого применения ЭВМ, на примере программирования базы данных «Личная библиотека». В качестве языка программирования  выбран язык TURBO PASCAL, изучаемый на занятиях по дисциплине “Информатика и программирование”. Этот язык позволяет наилучшим образом реализовать алгоритм работы программы, а также поможет создать удобный интерфейс программы, что играет важную роль в данной курсовой работе.

 

Теоретические основы

 

Записи

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

Type Bibl=record {описание типа }

     Inv_nomer:integer;

     Name_author:string[50];

     Naim_knigi:string[20];

     God_izd:string[20];

     Mesto_izd:string[20];

     Naim_izd:string[20];

     end;

Var f:file of Bibl;

    zn, filename:string;

    t,k:integer;

    s:string;

 

Файлы

 

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

 Файловый тип в Pascal - это единственный тип значений, посредством которого данные, обрабатываемые программой, могут быть получены извне, а результаты переданы во внешний мир. В Pascal файловый тип задается следующим образом:

 type T = TValue;{тип компоненты файла}

 < имя файлового типа > = file of T; или packed file of T;

Для доступа к отдельным элементам файла в Pascal введены специальные процедуры.

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

• Assign – функция, ассоциирующая имя файла с некоторой переменной, с которой идет последующая работа.
• Reset – функция, открывающая уже существующий файл для чтения из него.
• Rewrite – функция, создающая новый файл или перезаписывающая старый.
• Read – чтение из указанного файла строки с переходом на следующую строку.
• Write – запись в указанный файл строки с переходом на следующую строку.

Основное меню программы

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

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

После ввода данных в  любой из команд нажать <Enter>.

В меню данной программы присутствует восемь пунктов:

1 - Создание нового файла – создается новый файл с именем задаваемым пользователем программы.

2 - Добавление записи – создание новой записи в файле, добавляя его в конец файла.

3 - Редактирование записи в файле – производится корректировка ранее введенной записи.

4 - Просмотр содержимого файла – на экран поочередно выдаются ранее созданные записи в виде:

инвентарный номер;

автор книги;

наименование книги;

год издания;

наименование издательства;

место издания;

5 - Удаление записи из файла – Производится удаление записи из файла по инвентарному номеру книги.

6 – Поиск по инвентарному номеру книги – Позволяет находить данные о книге по инвентарному номеру.

7 - Поиск по имени автора - Позволяет находить данные о книге по имени автора.

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

Рис. 1 Основное окно меню

 

 

 

 

 

Для того чтобы создать базу данных, пользователю необходимо нажать пункт «Создание файла» в главном меню с помощью «Еnter», после этого появится следующая строка: «Задайте имя файла, который будет создаваться».

Далее через «Еnter» вводятся данные.

 

 

 

Описание процедур.

В данной программе для создания меню были использованы следующие процедуры:

Creatfile – создание нового файла в библиотеке. Вводится количество книг и их данные.

Addrecord – добавление записи в файл. Создание новой записи в файле, добавляя ее в конец файла.

Inputfile – ввод данных в файл.

Redzap – редактирование записи в файле. Корректировка введенных данных.

Openfile, Outputfile - Просмотр содержимого файла.

Clearfile – удаление записи из файла.

P_Nom – поиск по инвентарному номеру.

P_Name – поиск по имени автора.

Exit – выход из программы.

 

Листинг программы

Program Biblioteka;

Uses Crt, Dos; {подключение модулей}

Type Bibl=record {описание типа }

     Inv_nomer:integer;

     Name_author:string[50];

     Naim_knigi:string[20];

     God_izd:string[20];

     Mesto_izd:string[20];

     Naim_izd:string[20];

     end;

Var f:file of Bibl;

    zn, filename:string;

    t,k:integer;

    s:string;

 

{--------------------------------------}

Procedure Creatfile; {создание файла}

begin

ClrScr;

    window(6,3,80,50);

    textbackground(9);

    clrscr;

    window(22,10,57,17);

    textbackground(5);

    clrscr;

    textcolor(yellow);

     Writeln('Задайте имя файла');

     Readln(filename);

     Assign(f,filename); {связь с внешним файлом}

     Rewrite(f);{открытие нового файла для записи}

end;

{--------------------------------------}

Procedure Addrecord; {добавление записи в файл}

Var

   rez:integer; kn:char;

begin

     while rez <> 0 do

     begin

    window(6,3,80,50);

    textbackground(9);

    clrscr;

    window(16,10,60,12);

    textbackground(5);

    clrscr;

    textcolor(yellow);

          Writeln(' Задайте имя файла, куда добавить запись');

          Readln(filename);

          Assign(f,filename); {установка связи}

          Reset(f);

          rez:=IOResult;

          If rez <> 1 then

          begin

               Writeln ('Проверьте правильность имени файла! (Y/N)');

               Readln(kn);

               If (kn='n') or (kn='N') then halt(0);

          end;

     end;

     seek(f,filesize(f));

end;

{----------------------------------------}

Procedure Inputfile; {ввод данных в файл}

Var

st:Bibl;

k:char;

begin

ClrScr;

    window(6,3,80,50);

    textbackground(9);

    clrscr;

    window(22,10,57,17);

    textbackground(5);

    clrscr;

    textcolor(yellow);

     Repeat

     Writeln('Введите данные о новой книге:');

     ClrScr;

     Write('Инвентарный номер книги:');

     Readln(st.Inv_nomer);

     Write('Имя автора:');

     Readln(st.Name_author);

     Write('Наименование книги:');

    Readln(st.naim_knigi);

     Write('Год издания:');

     Readln(st.god_izd);

     Write('Наименование издательства:');

     Readln(st.Naim_izd);

     Write('Место издания:');

     Readln(st.Mesto_izd);

     Write(f,st);

     Write('Ввести данные о новой книге? (Y/N)');

     Readln(k);

     Writeln;

     Until (k='n') or (k='N');

Close(f);

end;

{-----------------------------------------}

Procedure Redzap; {редактирование записи}

Var

   st:Bibl;

   filename:string[20];

   st2:integer;

   Inv_nomer2:integer;

   Name_author2:string[20];

   Naim_knigi2:string[20];

   God_izd2:string[20];

   Naim_izd2:string[20];

   Mesto_izd2:string[30];

   x:integer;

   begin

   ClrScr;

    window(6,3,80,50);

    textbackground(9);

    clrscr;

    window(22,10,57,17);

    textbackground(5);

    clrscr;

    textcolor(yellow);

        Writeln('Задайте имя файла');

        Readln(filename);

        Assign(f,filename);

        Reset(f);

        With st do

        begin

        ClrScr;

             Write('Введите инвентарный номер книги:');

             Readln(st2);

             x:=0;

             While not eof(f) do

             begin

                  Read(f,st);

                  if st.Inv_nomer=st2 then

                  begin

                  ClrScr;

                  textcolor(yellow);

                       Writeln('Введите новые данные о книге:');

                       Write('Инвентарный номер книги:');

                       Readln(st.Inv_nomer);

                       Write('Имя автора:');

                       Readln(st.Name_author);

                       Write('Наименование книги:');

                       Readln(st.Naim_knigi);

                       Write('Год издания:');

                       Readln(st.God_izd);

                       Write('Наименование издательства:');

                       Readln(st.Naim_izd);

                       Write('Место издания:');

                       Readln(st.Mesto_izd);

                       Inv_nomer2:=Inv_nomer;

                       Name_author2:=Name_author;

                       Naim_knigi2:=Naim_knigi;

                       God_izd2:=God_izd;

                       Naim_izd2:=Naim_izd;

                       Mesto_izd2:=Mesto_izd;

                       seek(f,filepos(f)-1);

                       Write(f,st); x:=1;

                 end;

              end;

                       Close(f);

        end;

                           if x=0 then

                           Begin

                           ClrScr;

                                Writeln('Записи с таким номером нет!');

                                Readln

                                      end;

                                          end;

{-----------------------------------------}

Procedure Openfile; {процедура открытия файла}

Var

   rez:integer; kn:char;

   Begin

        While rez<>0 do

              begin

              ClrScr;

               window(6,3,80,50);

               textbackground(9);

               clrscr;

               window(22,10,57,11);

               textbackground(5);

               clrscr;

               textcolor(yellow);

                   Write('Задайте имя файла:');

                   Readln(filename);

                   Assign(f,filename);

                   Reset(f);

                   rez:=IOResult;

              end;

   end;

{-------------------------------------}

Procedure Outputfile; {вывод данных из файла}

Var st:Bibl;

Begin

     While not eof(f) do

           Begin

                Read(f,st);

                ClrScr;

                window(6,3,80,50);

                textbackground(9);

                clrscr;

                window(22,5,57,17);

                textbackground(5);

                clrscr;

                textcolor(yellow);

                       Writeln('Инвентарный номер книги:',st.Inv_nomer);

                       Writeln('Имя автора:',st.Name_author);

                       Writeln('Наименование книги:',st.Naim_knigi);

                       Writeln('Год издания:',st.God_izd);

                       Writeln('Наименование издательства:',st.Naim_izd);

                       Writeln('Место издания:',st.Mesto_izd);

                       Writeln('Для продолжения нажмите (Enter)');

                       Readln;

           end;

               Close(f);

end;

{--------------------------------------}

Procedure Clearfile; {удаление записи из файла}

Var st:Bibl;

I_N:integer;

fo:file of Bibl;

begin

ClrScr;

    window(6,3,80,50);

    textbackground(9);

    clrscr;