Теория вычислительный процессов и структур

Министерство народного образования и науки Республики Беларусь Белорусская государственная политехническая академия Факультет роботов и робототехнических систем Кафедра ПОВТ и АС КУРСОВАЯ РАБОТА по дисциплине Теория вычислительных процессов и структур на тему Работа с базами данных Выполнил ст. гр. 307217 Погосский

К.В. Принял ст. пр. Михалевич А.П. Минск 2000 Содержание Стр. 1. Краткое введение в базы данных 2. Краткое техническое описание программы 3. Инструкция пользователю 4. Заключение 5. Литература Приложение 1 Текст программы Приложение 2 Структура таблиц Краткое введение в базы данных Базой данных называется некоторый набор таблиц, связанных между собой

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

Следует отметить повышенный спрос на программное обеспечение, позволяющее создавать полноправные системы управления базами данных. Из огромного количества таких пакетов мне хотелось бы выделить продукт компании Borland International Inc. Delphi. Данная система программирования достаточна сильна по своей архитектуре. Помимо всего Delphi предоставляет нам довольно широкий набор компонентов, из которых, как из кирпичей, можно создать полноценную систему управления базой данных

СУБД. Еще одной не мола важной особенностью Delphi является поддержка международного языка баз данных SQL. Язык потерпел некоторый ряд видоизменений и в настоящее время представляет собой мощное ядро, упрощающее общение с наборами данных. SQL является языком запросов, который содержит минимальный, и вместе с тем достаточный набор операторов и представляет мощное средства навигации данными. Краткое техническое описание программы Представленный программный продукт написан для современных 32-разрядных

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

сроки освоить данный продукт. Программа полностью реализована с использованием запросов на языке SQL. Создание и заполнение таблиц производилось при помощи стандартных пакетов, таких как Database Desktop, SQL Explorer, PowerDesigner 6. Программа предусматривает внос информации без перечисленных пакетов а из специально оформленной формы см. Приложение 1 модуль SecF.pas. Таблицы прописаны при помощи BDE Administrator а.

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

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

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

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

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

Заключение Программа тестирована на персональном компьютере Pentium II 333, 64 Mb ОЗУ в операционной системе Windows 98 и показала неплохие результаты при выполнении сложных запросов. Задержка на считывание, обработку, сортировку данных не значительна. Программа вполне может использоваться в библиотеках города, на технических и производственных предприятиях. Литература 1. Фаронов В.В. Delphi 4.0 Учебный курс.

Изд. Нолидж 1998 г. 2. Фаронов В.В. Вводный курс в базы данных. Изд. Нолидж, 1998 г. 3. Введение в SQL. 4. Волков А. СУБД. Стандарты языка SQL. 2 номер 1997. MainBD.DB Number Short Famili Alpha15 Inic Alpha2 Janr Alpha10 Nalich Logical NameBok Alpha50 Nalichie.DB Number Short

Fam Alpha15 Ch Date SecondDB.DB Numero Short Stron Short Obl Logical Spravka.DB Number Short Opisanie Alpha50 Vedenie.DB Numero Short DataUser Date NameUser Alpha15 - первичный ключ таблицы Приложение 1 unit MainF interface uses Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Db, DBTables, ExtCtrls type TForm1 classTForm DataSource1 TDataSource DBGrid1 TDBGrid DBEdit1 TDBEdit DataSource2 TDataSource Table2 TTable Label1 TLabel Label2 TLabel Edit1 TEdit GroupBox1 TGroupBox

Label3 TLabel Button1 TButton Button3 TButton RadioGroup1 TRadioGroup Query1 TQuery Query1Number TSmallintField Query1Famili TStringField Query1Inic TStringField Query1Janr TStringField Query1Nalich TBooleanField Query1NameBook TStringField DataSource3 TDataSource Query2 TQuery

Button5 TButton DBGrid2 TDBGrid Table2Obl TBooleanField Table2Numero TSmallintField Table2Stron TSmallintField Query2Opisanie TStringField Button4 TButton Button2 TButton Button6 TButton GroupBox2 TGroupBox Label4 TLabel Button7 TButton Label5 TLabel Edit2 TEdit Button8

TButton ComboBox1 TComboBox Button9 TButton DBLookupComboBox1 TEdit Label6 TLabel Button10 TButton ComboBox2 TComboBox procedure RadioGroup1ClickSender TObject procedure Query1AfterScrollDataSet TDataSet procedure Button5ClickSender TObject procedure FormCreateSender TObject procedure Button1ClickSender

TObject procedure Button3ClickSender TObject procedure Button2ClickSender TObject procedure Button4ClickSender TObject procedure Button6ClickSender TObject procedure Button7ClickSender TObject procedure Button8ClickSender TObject procedure ComboBox1ChangeSender TObject procedure

Button9ClickSender TObject procedure Button10ClickSender TObject procedure ComboBox2ChangeSender TObject private Private declarations public Public declarations end var Form1 TForm1 St String Ch Boolean YYY Boolean Snum String RecponseString Const passAndrey implementation uses

SecF, NetuF, Unit5, Unit3, Avtor R .DFM procedure TForm1.RadioGroup1ClickSender TObject begin Case RadioGroup1.ItemIndex of 0 StSelect from MainDB 13 10 Order by Famili 1 StSelect from MainDB 13 10 Order by Janr 2 StSelect from MainDB 13 10 Order by NameBook end Button4ClickRadioGroup1 end procedure

TForm1.Query1AfterScrollDataSet TDataSet begin Label3.CaptionВ наличии Button3.VisibleFalse Edit1.TextТвердая Query2.Close Query2.Sql.Clear Query2.Sql.AddSelect from Spravka 13 10 Where Number IntToStrQuery1Number.Value Query2.Open If not Query1Nalich.Value Then begin Label3.CaptionОтсуствует

Button3.VisibleTrue end If not Table2Obl.Value Then begin Edit1.TextМягкая end end procedure TForm1.Button5ClickSender TObject begin Ch Not Ch If Ch then begin Button5.Caption Кратко Form1.Height436 end If Not Ch Then begin Button5.CaptionДетально Form1.Height324 end end procedure TForm1.FormCreateSender

TObject begin ChFalse Form1.Height324 end procedure TForm1.Button1ClickSender TObject begin Query1.ActiveFalse Table2.ActiveFalse Query2.ActiveFalse Recponse InputBoxПроверка доступа,Введите пароль, If RecponsePass Then Form2.ShowModal Else ShowMessageПароль введен не верно Query1.ActiveTrue

Table2.ActiveTrue Query2.ActiveTrue end procedure TForm1.Button3ClickSender TObject begin Form4.ShowModal end procedure TForm1.Button2ClickSender TObject begin Recponse InputBoxПроверка доступа,Введите пароль, If RecponsePass Then Begin YYYQuery1Nalich.Value Form3.Label2.CaptionQuery1Famili.Value - Query1NameBook.Value St SnumIntToStrQuery1Number.

Value If not yyy then ShowMessageКнига отдолжена Else Begin Query1.ActiveFalse Form3.ShowModal Query1.ActiveTrue End End Else ShowMessageПароль введен не верно End procedure TForm1.Button4ClickSender TObject begin Query1.Close Query1.Sql.Clear Query1.Sql.AddSt Query1.Open end procedure

TForm1.Button6ClickSender TObject begin Recponse InputBoxПроверка доступа,Введите пароль, If RecponsePass Then begin YYYQuery1Nalich.Value SnumIntToStrQuery1Number.Value If yyy then ShowMessageКнига в наличии Else Begin StDelete from Nalichie Where number Snum try Button4ClickButton6 Except end StSelect From MainDB try

Button4ClickButton6 Except end StUpDate MainDB Set Nalich True 13 10 Where Number Snum try Button4ClickButton6 Except end StSelect From MainDB try Button4ClickButton6 Except End Query1.ActiveFalse Query1.ActiveTrue End End Else ShowMessageПароль введен не верно end procedure

TForm1.Button7ClickSender TObject begin StSelect from MainDB Where Famili DBLookupComboBox1.Text Button4ClickButton7 end procedure TForm1.Button8ClickSender TObject begin StSELECT FROM MainDB WHERE NameBook LIKE Edit2.Text Button4ClickButton7 end procedure TForm1.ComboBox1ChangeSender TObject begin Button9.EnabledTrue end procedure

TForm1.Button9ClickSender TObject begin StSELECT FROM MainDB WHERE Janr ComboBox1.Text Button4ClickButton7 end procedure TForm1.Button10ClickSender TObject begin StSelect from MainDB Button4ClickButton10 end procedure TForm1.ComboBox2ChangeSender TObject begin Case ComboBox2.ItemIndex of 0 StSelect from

MainDB Where Nalich False end Button4ClickComboBox2 end end. Приложение 2 Добавить Просмотреть информацию Пароль Подтверждение