Разработка базы данных "Учет компьютерной техники" - Дипломная работа

Автоматизированная информационная система (АИС) - это совокупность различных программно-аппаратных средств, которые предназначены для автоматизации какой-либо деятельности, связанной с передачей, хранением и обработкой различной информации. База данных (БД) - именованная совокупность взаимосвязанных данных, отображающая состояние объектов и их отношения в некоторой предметной области, используемых несколькими пользователями и хранящимися с минимальной избыточностью. Клиент - программы, написанные как пользователями, так и поставщиками СУБД, внешние или «встроенные» по отношению к СУБД. Программа-клиент организованна организована в виде приложения, работающего «поверх» СУБД и обращающегося для выполнения операций с данными к компонентам СУБД через интерфейс внешнего уровня. Система управления базами данных (СУБД) - совокупность языковых и программных средств, предназначенных для создания, введения и совместного использования БД многими пользователями.Разработать программу создания и ведения базы данных “Учет компьютерной техники ”.В данном курсовом проекте требуется реализовать программу «Учет компьютерной техники» в среде визуального программирования Delphi 7. Приложение должно обеспечивать детальное описание каждого компьютера , его комплектующие и назначение. Для выполнения задачи поставленной в курсовой работе применяются знания и умения, полученные в процессе изучения дисциплины «Основы алгоритмизации и программирования». При исследовании существующих программных продуктов, я пришел к мнению, что для выполнения данной программы нужно использовать комплексное программное обеспечение компании Microsoft, базы данных Access можно создать такое же приложение, выполняющее поставленную задачу. Таким образом, для выполнения поставленных пунктов, касающихся будущей структуры приложения я использовал: 1) для визуального отображения данных в табличной форме выбрать компонент DBGRID1, который в текстовой форме обеспечивает ввод, изменение, удаление и просмотр данных.Данная блок схема показывает ход работы программного проекта с содержанием всех меню и подменю.Delphi, в свою очередь, является универсальной системой программирования, с помощью которой производится управление базой данных,а MS Access 2007 - хранилищем базы данных. Используемая база данных будет состоять из восьми таблиц, в ней будет 5 строк отображающих: номер, наименование компьютера, описание компьютера, комплектующие. Первые 4 таблицы имеют одинаковую структуру поэтому отобразим их в одной таблице данных. Последующие 4 таблице также имеют одинаковую структуру поэтому отобразим их в одной таблице данных. Рабочая форма представлена на рисунке 5: Рисунок 52)Работа с компьютерами в аудитории: а)добавление нового компьютера происходит путем ввода данных в таблицу и компоненты Memo без ошибок(Рисунок 10). Рисунок 10 б)удаление компьютера происходит при выборе компьютера и нажатии кнопки удалить без ошибок. в) поломка компьютера выполняется путем нажатия кнопки Поломка без ошибок(рисунок 11)В данном проекте представлена предметная область, логическое и физическое проектирование системы, созданы запросы по выборке данных, добавлению, удалению, применению и редактированию записей находящихся в базе данных. При создании программного проекта «Учет компьютерной техники» я использовал программы: Microsoft Access - для создания базы данных «auditoria» и BORLANDDELPHI7 для подключения к базе данных, созданию и модификация данных таблицы и форм.

Содержание

Введение

1. Постановка задачи

1.1 Описание предметной области.

2. Разработка алгоритма

3. Создание программного продукта

4. Тестирование программы

Заключение

Список источников литературы

Приложения

А - листинг кода

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

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

База данных (БД) - именованная совокупность взаимосвязанных данных, отображающая состояние объектов и их отношения в некоторой предметной области, используемых несколькими пользователями и хранящимися с минимальной избыточностью.

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

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

Система управления базами данных (СУБД) - совокупность языковых и программных средств, предназначенных для создания, введения и совместного использования БД многими пользователями. Система управления базой данных можно определить как специальный пакет программ, посредством которого реализуется централизованное управления базой данных и обеспечивается доступ к данным.

Нормализация - представление сложных структур данных (документов) в виде двумерных таблиц (отношений).

Таблица - основная единица информации в системе управления реляционной базой данных. Состоит с одной или более единиц информации (строк), каждая из которых содержит значения некоторого вида (столбцы).

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

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

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

Объект данной работы - «Учет компьютерной техники»

Предмет - проблема организации и хранения, добавления, замены данных в данной ИС.

Цель работы - разработать эффективную и удобную базу данных.

Для достижения поставленной цели необходимо решить следующие задачи: 1. Разработать и заполнить таблицы соответствующими данными.

2. Установить тип связей в таблице.

3. Создать переходы для вывода необходимых полей.

4. Создать формы, отчеты и макросы.

программа запрос база данные

В данной курсовой работе был разработан программный проект «Учет компьютерной техники». В данном проекте представлена предметная область, логическое и физическое проектирование системы, созданы запросы по выборке данных, добавлению, удалению, применению и редактированию записей находящихся в базе данных. При создании программного проекта «Учет компьютерной техники» я использовал программы: Microsoft Access - для создания базы данных «auditoria» и BORLANDDELPHI7 для подключения к базе данных, созданию и модификация данных таблицы и форм.

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

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

[1]Сто уроков Delphi.

[2]Технологии Delphi 2006. Новые возможности, автор: Сергей Бобровский, издательство: Питер, год издания: 2006.

[3] Delphi в задачах и примерах, автор: Никита Культин, издательство: БХВ-Петербург , год издания: 2003.

Приложение А(Код)

Unit1. unit Unit1;

interface uses

Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, STDCTRLS, Buttons, XPMAN, Menus, EXTCTRLS, COMCTRLS, jpeg;

type

TFORM1 = class(TFORM) mm1: TMAINMENU;

N1: TMENUITEM;

N2: TMENUITEM;

N3: TMENUITEM;

img1: TIMAGE;

btn1: TBUTTON;

cbb1: TCOMBOBOX;

lbl1: TLABEL;

procedure btn1Click(Sender: TOBJECT);

procedure N1Click(Sender: TOBJECT);

procedure N2Click(Sender: TOBJECT);

procedure N3Click(Sender: TOBJECT);

private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TFORM1;

implementation uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit10, Unit11;

{$R *.dfm} procedure TFORM1.btn1Click(Sender: TOBJECT);

begin case cbb1.ITEMINDEX of

0 : begin

Form2.SHOWMODAL;

end end;

case cbb1.ITEMINDEX of

1 : begin

Form3.SHOWMODAL;

end end;

case cbb1.ITEMINDEX of

2 : begin

Form4.SHOWMODAL;

end end;

case cbb1.ITEMINDEX of

3 : begin

Form5.SHOWMODAL;

end end;

end;

procedure TFORM1.N1Click(Sender: TOBJECT);

begin if MESSAGEDLG("Вы действительный хотите выйти из ПС "Учет компьютерной техники колледжа"?", MTCONFIRMATION, [mbyes, MBNO], 0) = MRYES then begin

Application.Terminate;

end;

end;

procedure TFORM1.N2Click(Sender: TOBJECT);

begin

Form10.show;

end;

procedure TFORM1.N3Click(Sender: TOBJECT);

begin

Form11.show;

end;

end.

Unit 2,3,4,5(Одинаковая структура кода) unit Unit2;

interface uses

Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, EXTCTRLS, DB, ADODB, Grids, DBGRIDS, STDCTRLS, DBCTRLS, Buttons;

type

TFORM2 = class(TFORM) mm1: TMAINMENU;

N1: TMENUITEM;

img1: TIMAGE;

DBGRID1: TDBGRID;

ADOCONNECTION1: TADOCONNECTION;

DATASOURCE1: TDATASOURCE;

DBMEMO1: TDBMEMO;

ADOTABLE1: TADOTABLE;

DBMEMO2: TDBMEMO;

Label1: TLABEL;

Label2: TLABEL;

N2: TMENUITEM;

N3: TMENUITEM;

N4: TMENUITEM;

DBNAVIGATOR1: TDBNAVIGATOR;

Label3: TLABEL;

Edit1: TEDIT;

BITBTN1: TBITBTN;

BITBTN2: TBITBTN;

N5: TMENUITEM;

procedure N1Click(Sender: TOBJECT);

procedure N3Click(Sender: TOBJECT);

procedure N4Click(Sender: TOBJECT);

procedure BITBTN1Click(Sender: TOBJECT);

procedure BITBTN2Click(Sender: TOBJECT);

procedure N5Click(Sender: TOBJECT);

procedure BITBTN3Click(Sender: TOBJECT);

private

{ Private declarations } public

{ Public declarations } end;

var

Form2: TFORM2;

implementation uses Unit6;

{$R *.dfm} procedure TFORM2.N1Click(Sender: TOBJECT);

begin

Close;

end;

procedure TFORM2.N3Click(Sender: TOBJECT);

begin

ADOTABLE1.INDEXFIELDNAMES:="№ DESC";

end;

procedure TFORM2.N4Click(Sender: TOBJECT);

begin

ADOTABLE1.INDEXFIELDNAMES:="№ ASC";

end;

procedure TFORM2.BITBTN1Click(Sender: TOBJECT);

begin

ADOTABLE1.Locate("№",edit1.Text,[lopartialkey]);

end;

procedure TFORM2.BITBTN2Click(Sender: TOBJECT);

begin form6.show;

Form6.ADOTABLE1.Insert();

Form6.ADOTABLE1.FIELDBYNAME("nazvanie").Value:=Form2.ADOTABLE1.FIELDBYNAME("nazvanie").Value;

Form6.ADOTABLE1.FIELDBYNAME("sostovlaushie").Value:=Form2.ADOTABLE1.FIELDBYNAME("sostovlaushie").Value;

Form6.ADOTABLE1.FIELDBYNAME("№").Value:=Form2.ADOTABLE1.FIELDBYNAME("№").Value;

Form6.ADOTABLE1.FIELDBYNAME("opisanie").Value:=Form2.ADOTABLE1.FIELDBYNAME("opisanie").Value;

Form6.ADOTABLE1.Post();

Form2.ADOTABLE1.Delete;

end;

procedure TFORM2.BITBTN3Click(Sender: TOBJECT);

begin

ADOTABLE1.INDEXFIELDNAMES:="№ ASC";

end;

procedure TFORM2.N5Click(Sender: TOBJECT);

begin form6.Show;

end;

end.

Unit 6,7,8,9(одинаковая структура кода) unit Unit9;

interface uses

Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, STDCTRLS, Buttons, EXTCTRLS, DBCTRLS, Grids, DBGRIDS, Menus;

type

TFORM9 = class(TFORM)

MAINMENU1: TMAINMENU;

N1: TMENUITEM;

DBGRID1: TDBGRID;

DBMEMO1: TDBMEMO;

DBNAVIGATOR1: TDBNAVIGATOR;

BITBTN1: TBITBTN;

Label1: TLABEL;

DATASOURCE1: TDATASOURCE;

ADOCONNECTION1: TADOCONNECTION;

ADOTABLE1: TADOTABLE;

DBMEMO2: TDBMEMO;

procedure N1Click(Sender: TOBJECT);

procedure BITBTN1Click(Sender: TOBJECT);

private

{ Private declarations } public

{ Public declarations } end;

var

Form9: TFORM9;

implementation uses Unit5;

{$R *.dfm} procedure TFORM9.N1Click(Sender: TOBJECT);

begin

Close;

end;

procedure TFORM9.BITBTN1Click(Sender: TOBJECT);

begin

Form5.ADOTABLE1.Insert();

Form5.ADOTABLE1.FIELDBYNAME("nazvanie").Value:=Form9.ADOTABLE1.FIELDBYNAME("nazvanie").Value;

Form5.ADOTABLE1.FIELDBYNAME("sostovlaushie").Value:=Form9.ADOTABLE1.FIELDBYNAME("sostovlaushie").Value;

Form5.ADOTABLE1.FIELDBYNAME("№").Value:=Form9.ADOTABLE1.FIELDBYNAME("№").Value;

Form5.ADOTABLE1.FIELDBYNAME("opisanie").Value:=Form9.ADOTABLE1.FIELDBYNAME("opisanie").Value;

Form5.ADOTABLE1.Post();

Form9.ADOTABLE1.Delete;

end;

end.

Размещено на