База данных спортивного инвентаря

Логическая структура:

Для того чтобы лучше разобраться с программой рассмотрим работу модуля базы данных.

Модуль сортировки базы данных

На рисунке 1 предоставлена схема алгоритма базы данных, где можно выполнять сортировку данных в таблице.

Данный модуль работает следующим образом:

- началом модуля считается блок начало;

- выполнение сортировки будет выполняться по условию, который находится в логическом блоке;

- сортировка происходит по возрастанию (для числовых значений) и по алфавиту (для прописных значений);

- после проведения операции сортировать.

Размещено на http://www.allbest.ru/

Рисунок 1 - Модуль сортировки базы данных

2. Практическая часть

2.1 Листинг программы с комментариями

Для создания программного продукта необходимо воспользоваться программой «Borland Delphi». Для этого двойным щелчком мыши открыть «Delphi 7» находящийся либо на рабочем столе, либо нажать: Пуск - Программы - Borland Delphi - Delphi 7. Сохранить проект, нажав на панели инструментов: Файл - Сохранить как.

Первую форму проекта нужно переименовать как «Загрузка данных». Для этого щелкнуть по форме и в свойстве Caption и ввести через клавиатуру название «Загрузка данных». Затем на форме, из закладки «Стандартные», находящееся на панели компонентов установить два компонента Label, а в свойстве Caption необходимо ввести название темы: «База данных «спортивного инвентаря»». Затем на форме установить три компонента Timer, XP Manifest и Progress Bar. Они необходимы для визуального оформления загрузочной формы и автоматического перехода на главную форму программы

Листинг данной формы:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ProgressBar1.Position:=5;

sleep(150);

ProgressBar1.Position:=10;

sleep(150);

ProgressBar1.Position:=20;

sleep(150);

ProgressBar1.Position:=25;

sleep(150);

ProgressBar1.Position:=30;

sleep(150);

ProgressBar1.Position:=35;

sleep(150);

ProgressBar1.Position:=40;

sleep(150);

ProgressBar1.Position:=45;

sleep(150);

ProgressBar1.Position:=50;

sleep(150);

ProgressBar1.Position:=55;

sleep(150);

ProgressBar1.Position:=60;

sleep(150);

ProgressBar1.Position:=65;

sleep(150);

ProgressBar1.Position:=70;

sleep(150);

ProgressBar1.Position:=75;

sleep(150);

ProgressBar1.Position:=80;

sleep(150);

ProgressBar1.Position:=85;

sleep (150);

ProgressBar1.Position:=90;

sleep(150);

ProgressBar1.Position:=98;

sleep(150);

ProgressBar1.Position:=100;

Timer1.Enabled:=false;

Form1.Visible:=false;

form3.show;

end;

end.

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

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

· Файл - Редактирование, Сортировка, Поиск, Добавление, Удаление, Печать, Выборка, Выход;

· Справка - О программе, о Создателе.

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

При выборе главного меню «Справка» команды «О программе» открывается новая форма, к которой описаны права на пользования данной программы.

При выборе - «Справка» команды «О создателе» открывается окно в котором содержится информация об авторе.

Также на форму помещены компоненты Button с аналогичными названиями и функциями как главное меню «Файл» .

На форме расположены компоненты DBGrid, Timer, XPManifest, DBNavigator, Panel и 2 компонента Label. DBGrid предназначен для отображения базы данных. DBNavigator предназначен для упрощённой работы с базой данных: Добавление, удаление, перемещения по базе. Label предназначены для отображения даты и времени.

Листинг главной формы:

procedure TForm3.N8Click(Sender: TObject);//Печать

begin

Form3.Print;

end;

procedure TForm3.Button7Click(Sender: TObject);//Выход

begin

Application.Terminate;

end;

procedure TForm3.Button6Click(Sender: TObject);//Печать

begin

Form3.Print;

end;

procedure TForm3.Button5Click(Sender: TObject);//Окно Удаления

begin

Form12.show;

end;

procedure TForm3.N7Click(Sender: TObject);//Удаление

begin

DataModule2.ADOTable1.Delete;

end;

procedure TForm3.Button2Click(Sender: TObject);//Сортировка

begin

Form4.Show;

end;

procedure TForm3.N4Click(Sender: TObject);// Сортировка

begin

Form4.Show;

end;

procedure TForm3.N6Click(Sender: TObject);//Добавление

begin

Form5.Show;

end;

procedure TForm3.Button4Click(Sender: TObject);//Добавление

begin

Form5.Show;

end;

procedure TForm3.N5Click(Sender: TObject);// Поиск

begin

Form6.Show;

end;

procedure TForm3.Button3Click(Sender: TObject);//Поиск

begin

Form6.Show;

end;

procedure TForm3.N3Click(Sender: TObject);//Редактирование

begin

form9.show;

end;

procedure TForm3.Button1Click(Sender: TObject);//Редактирование

begin

form9.show;

end;

procedure TForm3.N10Click(Sender: TObject);// О программе

begin

Form8.show;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Application.Terminate;

end;

procedure TForm3.N12Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm3.N9Click(Sender: TObject);//Выборка

begin

Form7.Show;

end;

procedure TForm3.N11Click(Sender: TObject);

begin

Form10.show;

end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin

Label11.Caption:=TimeToStr(Time); //установка времени

Label12.Caption:=DateToStr(Date); //установка даты

end;

procedure TForm3.Button8Click(Sender: TObject);

begin

Form7.Show;

end;

end.

Сортировка. Это четвёртая форма в программе, она предназначена для сортировки базы по определённым признакам:

· Код товара;

· Наименование;

· Количество;

· Цена белорусских рублей;

На данной форме расположены компоненты: GroupBox, 6 RadioButton и 2 Button. RadioButton предназначены для выбора по какому критерию необходимо провести сортировку. Первый Button предназначен для выполнения процедуры сортировки, а второй Button для закрытия формы.

Листинг формы сортировки:

procedure TForm4.Button1Click(Sender: TObject);

begin

IF RADIOBUTTON1.Checked THEN

DATAMODULE2.ADOTable1.SORT:='Код_товара';

IF RADIOBUTTON2.Checked THEN

DATAMODULE2.ADOTable1.SORT:='Наименование';

IF RADIOBUTTON4.Checked THEN

DATAMODULE2.ADOTable1.SORT:='Цена_руб';

IF RADIOBUTTON6.Checked THEN

DATAMODULE2.ADOTable1.SORT:='Количество';

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form3.show;

Form4.Visible:=False;

end;

end.

Добавление. Это пятая форма программы, оно предназначено для добавления новых данных в базу. Данная форма содержит следующие компоненты: 2 Button, 4 Label, 4 Edit, Panel и Image. Первый Button предназначен для выполнения процедуры добавления данных в базу, второй Button предназначен для закрытия формы. Компоненты Edit привязаны к каждому столбцу базы данных, в каждый Edit вводиться необходимое значение. Label предназначены для ориентирования в какой Edit следует ввести ту или иную информацию.

Листинг формы Добавление:

procedure TForm5.Button1Click(Sender: TObject);

begin

DATAMODULE2.ADOTable1.Insert;

DATAMODULE2.ADOTable1.FieldByName('Код_товара').AsString :=EDIT1.Text;

DATAMODULE2.ADOTable1.FieldByName('Наименование').AsString :=EDIT2.Text;

DATAMODULE2.ADOTable1.FieldByName('Количество').AsString :=EDIT3.Text;

DATAMODULE2.ADOTable1.FieldByName('Цена_руб').AsString:=edit5.Text;

DATAMODULE2.ADOTable1.Post;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit5.Text:='';

Form5.Visible:=False;

close;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit5.Text:='';

Form3.Show;

Form5.Visible:=False;

end;

procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm5.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm5.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm5.Edit8KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

end.

Поиск. Это шестая форма программы, он предназначен для поиска необходимой информации по базе. Поиск осуществляется по наименованию товара. Данная форма содержит компоненты: GroupBox, 4 Edit, 4 Label и 3 Button. Первый Button предназначен для выполнения процедуры поиска, второй Button - для сброса введённого запроса, третий Button - возврат на главную форму.

Листинг формы Поиск:

procedure TForm6.Button1Click(Sender: TObject);

var

a,b,c,d,e,f:variant;

begin

a:=DataModule2.ADOTable1.Lookup('Наименование',Edit8.Text,'Наименование');

if VarType(a)=varNull then

MessageDlg('Данные с именем"'+Edit8.Text+'"не обнаружены!',mtInformation,[mbOK],0)

else

begin

b:=DataModule2.ADOTable1.Lookup('Наименование',Edit8.Text,'Код_товара');

Edit1.Text:=b;

e:=DataModule2.ADOTable1.Lookup('Наименование',Edit8.Text,'Цена_руб');

Edit4.Text:=e;

f:=DataModule2.ADOTable1.Lookup('Наименование',Edit8.Text,'Количество');

Edit5.Text:=f;

end;

End;

procedure TForm6.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit8.Text:='';

end;

procedure TForm6.Button5Click(Sender: TObject);

begin

Edit1.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit8.Text:='';

Form3.Show;

Form6.Visible:=False;

end;

procedure TForm6.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit9KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit10KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit13KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit15KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

procedure TForm6.Edit16KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

end.

Выборка. Это седьмая форма программы, осуществляется по определённым критериям:

· Код товара;

· Цена в белорусских рублях.

Так же необходимо выбрать условие >, <, =. И указать значение.

На форме расположены следующие компоненты: 2 GroupBox, Edit, 3 Button, 5 RadioButton, DBGrid. RadioButton предназначены для выбора выборки и её условия. В Edit необходимо указать необходимое значение зависимое от критерия выборки. Первый Button предназначен для выполнения процедуры выборки, второй Button осуществляет сброс критерия выборки, третий Button предназначен для возврата на главную форму. DBGrid предназначен для отображения результатов выборки.

Листинг формы Выборка.

procedure TForm7.Button1Click(Sender: TObject);

var

t,r:variant;

begin

if radiobutton1.Checked then t:='Код_товара';

if radiobutton5.Checked then t:='Цена_руб';

if radiobutton9.Checked then r:='=';

if radiobutton11.Checked then r:='<';

if radiobutton10.Checked then r:='>';

with DATAMODULE2.ADOTable2 do begin

Filtered := False;

Filter:= t + r + edit1.text;

Filtered := True; end;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Form7.Visible:=False;

Form3.show;

end;

procedure TForm7.Button3Click(Sender: TObject);

begin

edit1.Text:='';

radiobutton1.Checked:=false;

radiobutton5.Checked:=False;

radiobutton9.Checked:=false;

radiobutton10.Checked:=false;

radiobutton11.Checked:=false;

with DATAMODULE2.ADOTable2 do begin

Filtered := False;

end;

end;

end.

О программе. Это восьмая форма, содержит информацию о программе. На форме расположены компоненты Button, Memo, Label. Компонент Button предназначен для возврата на главную форму.

Листинг формы О программе:

procedure TForm8.Button1Click(Sender: TObject);

begin

Form3.show;

Form8.Visible:=False;

end;

end.

Редактирование. Это девятая форма программы, предназначено для редактирования выбранного товара. На данной форме расположены следующие компоненты: 2 Button, 4 Label, 4 DBEdit. Первый Button предназначен для выполнения процедуры редактирования, второй для выхода. Каждый DBEdit привязан к определённому столбцу базы через свойство DataField, в них отображается содержимое базы.

Листинг формы Редактирование:

procedure TForm9.Button1Click(Sender: TObject);

begin

if DataModule2.ADOTable1.Modified then

DataModule2.ADOTable1.Post;

end;

procedure TForm9.Button2Click(Sender: TObject);

begin

Close;

end;

end.

Удаление. Это форма-запрос, предназначенная для дополнительной надёжности при удалении записи с базы. Данная форма содержит следующие компоненты: Panel, Label, Image.

Листинг формы Удаление:

procedure TForm12.Label4Click(Sender: TObject);

begin

Form3.Show;

Form12.Visible:=False;

end;

procedure TForm12.Label3Click(Sender: TObject);

begin

DataModule2.ADOTable1.Delete;

close;

end;

end.

2.2 Методика испытаний

Рассмотрим работу программы:

1. Запустим проект Имя диска:\Курсовая\Project1.exe. или с:\Documents and Settings\Администратор\Рабочий стол\ Project1

2. После запуска появиться окно загрузки

Рисунок 2 - Форма загрузки

3. После формы загрузки появиться главная форма с таблицей (база данных).

Рисунок 3 - Основная форма

программа база данные редактирование

4. Таблицу с данными можно изменять различными способами. Один из них - редактирование. Запускается редактирование из главной формы кнопкой Редактирование.

Рисунок 4 - Редактирование

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

Рисунок 5 - Добавление

6. Форма поиска данных. Запускается также из главной формы кнопкой Поиск.

Рисунок 6 - Поиск

7. Форма сортировки данных. Запускается из главной формы с помощь кнопки Сортировка.

Рисунок 7 - Сортировка

8. Чтобы узнать о создателе проекта необходимо на главной форме в контекстном меню выбрать кнопку Справка, затем о создателе, после чего увидим следующую форму.

Рисунок 9 - О создателе

Рисунок 10 - Общая графическая схема представления проекта

Если пользователь неправильно установит базу данных на компьютер, то возникнет ошибка о том, что таблица имеет неверный путь

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

Использовать данный программный продукт очень просто, поэтому он предназначен для всех пользователей персональных компьютеров.

Условия выполнения программы

Для работы с данной базой данных необходимо наличие следующих аппаратных средств:

? процессор не менее 133 МГц;

? не менее 16 Мб оперативной памяти;

? не менее 7 Мб свободного места на диске;

? операционная система Windows 95/2000/Me/NT/ XP;

Выполнение программы

В приведённой ниже форме можно увидеть окно загрузки