Курсовая: Теория вычислительный процессов и структур - текст курсовой. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Курсовая

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

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Курсовая работа
Язык курсовой: Русский
Дата добавления:   
 
Скачать
Microsoft Word, 118 kb, скачать бесплатно
Обойти Антиплагиат
Повысьте уникальность файла до 80-100% здесь.
Промокод referatbank - cкидка 20%!

Узнайте стоимость написания уникальной работы




Министерство народного образования и науки Республики Беларусь


Белорусская государственная политехническая академия



Факультет роботов и робототехнических систем

Кафедра ”ПОВТ и АС”







КУРСОВАЯ РАБОТА


по дисциплине: ”Теория вычислительных процессов и структур”


на тему: “Работа с базами данных”





Выполнил: ст. гр. 307217 Погосский К.В.


Принял: ст. пр. Михалевич А.П.










Минск 2000

Содержание

Стр.


1. Краткое введение в базы данных 3

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

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

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 Alpha[15]

Inic Alpha[2]

Janr Alpha[10]

Nalich Logical

NameBok Alpha[50]


Nalichie.DB

Number Short *

Fam Alpha[15]

Ch Date


SecondDB.DB

Numero Short *

Stron Short

Obl Logical


Spravka.DB

Number Short *

Opisanie Alpha[50]


Vedenie.DB

Numero Short

DataUser Date

NameUser Alpha[15]


* - первичный ключ таблицы
































Приложение 1























unit MainF;


interface


uses

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

StdCtrls, Mask, DBCtrls, Grids, DBGrids, Db, DBTables, ExtCtrls;


type

TForm1 = class(TForm)

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 RadioGroup1Click(Sender: TObject);

procedure Query1AfterScroll(DataSet: TDataSet);

procedure Button5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form1: TForm1;

St : String;

Ch : Boolean;

YYY : Boolean;

Snum : String;

Recponse:String;

Const pass='Andrey';



implementation


uses SecF, NetuF, Unit5, Unit3, Avtor;


{$R *.DFM}


procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

Case RadioGroup1.ItemIndex of

0: St:='Select * from MainDB' + #13 + #10 + 'Order by Famili';

1: St:='Select * from MainDB' + #13 + #10 + 'Order by Janr';

2: St:='Select * from MainDB' + #13 + #10 + 'Order by NameBook';

end;

Button4Click(RadioGroup1);

end;



procedure TForm1.Query1AfterScroll(DataSet: TDataSet);

begin

Label3.Caption:='В наличии';

Button3.Visible:=False;

Edit1.Text:='Твердая';

Query2.Close;

Query2.Sql.Clear;

Query2.Sql.Add('Select * from Spravka' + #13 + #10 +

'Where Number=' + IntToStr(Query1Number.Value));

Query2.Open;

If not Query1Nalich.Value Then

begin

Label3.Caption:='Отсуствует';

Button3.Visible:=True;

end;

If not Table2Obl.Value Then

begin

Edit1.Text:='Мягкая';

end;


end;





procedure TForm1.Button5Click(Sender: TObject);

begin

Ch:= Not Ch;

If Ch then

begin

Button5.Caption:='<<Кратко>

Form1.Height:=436;

end;

If Not Ch Then

begin

Button5.Caption:='Детально>>';

Form1.Height:=324;

end;

end;


procedure TForm1.FormCreate(Sender: TObject);

begin

Ch:=False;

Form1.Height:=324;

end;


procedure TForm1.Button1Click(Sender: TObject);

begin

Query1.Active:=False;

Table2.Active:=False;

Query2.Active:=False;

Recponse := InputBox('Проверка доступа','Введите пароль','');

If Recponse=Pass Then Form2.ShowModal

Else ShowMessage('Пароль введен не верно!');

Query1.Active:=True;

Table2.Active:=True;

Query2.Active:=True;

end;


procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.ShowModal;

end;






procedure TForm1.Button2Click(Sender: TObject);

begin

Recponse := InputBox('Проверка доступа','Введите пароль','');

If Recponse=Pass Then Begin

YYY:=Query1Nalich.Value;

Form3.Label2.Caption:=Query1Famili.Value +' - ' + Query1NameBook.Value;

St:='';

Snum:=IntToStr(Query1Number.Value);

If not yyy then ShowMessage('Книга отдолжена')

Else

Begin

Query1.Active:=False;

Form3.ShowModal;

Query1.Active:=True;

End;

End

Else ShowMessage('Пароль введен не верно!');

End;


procedure TForm1.Button4Click(Sender: TObject);

begin

Query1.Close;

Query1.Sql.Clear;

Query1.Sql.Add(St);

Query1.Open;

end;

















procedure TForm1.Button6Click(Sender: TObject);

begin

Recponse := InputBox('Проверка доступа','Введите пароль','');

If Recponse=Pass Then begin

YYY:=Query1Nalich.Value;

Snum:=IntToStr(Query1Number.Value);

If yyy then ShowMessage('Книга в наличии!')

Else

Begin

St:='Delete from Nalichie Where number = ' + Snum;

try

Button4Click(Button6)

Except

end;

St:='Select * From MainDB';

try

Button4Click(Button6)

Except

end;

St:='UpDate MainDB Set Nalich = True' + #13 + #10 +

'Where Number = ' + Snum;;

try

Button4Click(Button6)

Except

end;

St:='Select * From MainDB';

try

Button4Click(Button6)

Except

End;

Query1.Active:=False;

Query1.Active:=True;

End;

End

Else ShowMessage('Пароль введен не верно!');

end;


procedure TForm1.Button7Click(Sender: TObject);

begin

St:='Select * from MainDB Where Famili = "' + DBLookupComboBox1.Text +'"';

Button4Click(Button7);

end;


procedure TForm1.Button8Click(Sender: TObject);

begin

St:='SELECT * FROM MainDB WHERE NameBook LIKE "%'+ Edit2.Text +'%"';

Button4Click(Button7);

end;


procedure TForm1.ComboBox1Change(Sender: TObject);

begin

Button9.Enabled:=True;

end;


procedure TForm1.Button9Click(Sender: TObject);

begin

St:='SELECT * FROM MainDB WHERE Janr = "' + ComboBox1.Text +'"';

Button4Click(Button7);

end;


procedure TForm1.Button10Click(Sender: TObject);

begin

St:='Select * from MainDB';

Button4Click(Button10);

end;


procedure TForm1.ComboBox2Change(Sender: TObject);

begin

Case ComboBox2.ItemIndex of

0: St:='Select * from MainDB Where Nalich = False';

end;

Button4Click(ComboBox2);

end;


end.



























1Авиация и космонавтика
2Архитектура и строительство
3Астрономия
 
4Безопасность жизнедеятельности
5Биология
 
6Военная кафедра, гражданская оборона
 
7География, экономическая география
8Геология и геодезия
9Государственное регулирование и налоги
 
10Естествознание
 
11Журналистика
 
12Законодательство и право
13Адвокатура
14Административное право
15Арбитражное процессуальное право
16Банковское право
17Государство и право
18Гражданское право и процесс
19Жилищное право
20Законодательство зарубежных стран
21Земельное право
22Конституционное право
23Конституционное право зарубежных стран
24Международное право
25Муниципальное право
26Налоговое право
27Римское право
28Семейное право
29Таможенное право
30Трудовое право
31Уголовное право и процесс
32Финансовое право
33Хозяйственное право
34Экологическое право
35Юриспруденция
36Иностранные языки
37Информатика, информационные технологии
38Базы данных
39Компьютерные сети
40Программирование
41Искусство и культура
42Краеведение
43Культурология
44Музыка
45История
46Биографии
47Историческая личность
 
48Литература
 
49Маркетинг и реклама
50Математика
51Медицина и здоровье
52Менеджмент
53Антикризисное управление
54Делопроизводство и документооборот
55Логистика
 
56Педагогика
57Политология
58Правоохранительные органы
59Криминалистика и криминология
60Прочее
61Психология
62Юридическая психология
 
63Радиоэлектроника
64Религия
 
65Сельское хозяйство и землепользование
66Социология
67Страхование
 
68Технологии
69Материаловедение
70Машиностроение
71Металлургия
72Транспорт
73Туризм
 
74Физика
75Физкультура и спорт
76Философия
 
77Химия
 
78Экология, охрана природы
79Экономика и финансы
80Анализ хозяйственной деятельности
81Банковское дело и кредитование
82Биржевое дело
83Бухгалтерский учет и аудит
84История экономических учений
85Международные отношения
86Предпринимательство, бизнес, микроэкономика
87Финансы
88Ценные бумаги и фондовый рынок
89Экономика предприятия
90Экономико-математическое моделирование
91Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Переговоры по отмене виз в Европу опять закончились ничем. Разногласия остались теми же - мы всё время хотим прорубить дверь в Европу, а они согласны только на круглую дырку под газопровод.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

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

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2017
Рейтинг@Mail.ru