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

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

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

Из огромного количества таких пакетов мне хотелось бы выделить продукт компании Borland International Inc. Delphi.

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

Краткое техническое описание программы

Краткое техническое описание программы. Создание и заполнение таблиц производилось при помощи стандартных паке... Все необходимые таблицы объединены в алиас MyDB, что позволяет придать... Программа предназначена для ведения учета библиотечных книг, позволяет... Представленный программный продукт написан для современных 32-разрядны...

Инструкция пользователю

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

Заключение

Заключение Программа тестирована на персональном компьютере 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 Добавить Просмотреть информацию Пароль Подтверждение.