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

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

Введение

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

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

В настоящее время существует множество систем управления базами данных, таких как FoxPro, dBase, Inter Base, Paradox и другие. Для хранения информации я буду использовать в своей программе таблицей в системе управления Paradox, так как использование данного типа хранения информации не требует никакого дополнительного программного обеспечения кроме самой базы данных.

Язык Borland Delphi 7.0 был выбран мной, потому как он является самым оптимальным выбором для решения данной задачи.

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

Системные требования:

- процессор Intel Pentium 133 или более мощный;

- объем оперативной памяти не менее 32 Мб;

- видеокарта 8 Mb и выше;

- 5 Mb свободного места на жёстком диске;

- манипулятор мышь;

- операционная система семейства Windows9X, WinNT.

Запуск программы осуществляется через: файл BD Sport Shoes NIKE.exe, находящийся в каталоге:

1. Пояснительная записка

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

Необходимо написать программное обеспечение - базу данных спортивной обуви NIKE, которая будет включать в себя: кроссовки, таблицу данных, которая должна содержать следующие поля:

- код товара;

- наименование;

- цена (в рублях);

- количество;

- цена, у.е (в условных единицах);

- гарантия.

В программном обеспечении «База данных «Sports Shoes NIKE» должны

выполняться следующие операции над данными:

- производить поиск данных по коду товара;

- производить поиск данных по гарантии;

- производить поиск данных по количеству;

- производить поиск данных по цене;

- производить сортировку по коду товара;

- производить сортировку по наименованию;

- производить сортировку по гарантии;

- производить сортировку по количеству;

- производить сортировку по цене;

- производить добавление записей;

- производить удаление записей;

- производить выборку по коду товара и цене;

- производить редактирование записей;

- производить печать информации.

1.2 Описание алгоритма

Рассмотрим работу БД на примерах работы основных модулей и блоков.

Модуль поиска.

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

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

Во время работы с программой пользователю может понадобиться осуществить поиск какого-либо интересующего его элемента. На мой взгляд осуществить поиск можно только одним способом -- найти точное условие введённое пользователем (рисунок 1).

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

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

Рисунок 1 - Модуль поиска

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

1. Вход пользователем в форму поиска из главного меню;

2. Ввод данных (в зависимости от выбора пользователя это может быть: наименование товара, гарантия, цена), введение условия в блок ввода, вывод данных осуществляется в отдельно подписанных ячейках;

3. Далее следует небольшая проверка, если условие не введено, поиск не имеет смысла;

4. Если условие введено, тогда деактивируется компонент Query1, очищается, и добавляется новое условие;

5. Вывод данных в отдельно подписанных ячейках;

6. Завершение процесса поиска.

Модуль Сортировка.

Сортировка - процесс упорядочения элементов по определённому критерию. По желанию пользователя сортировка может происходить как по коду товара, так и по наименованию, количеству, гарантии и цене.

Рисунок 2 - Модуль сортировки

В данной базе данных процесс сортировки происходит ТОЛЬКО по возрастанию. На рисунке 2 показана блок-схема сортировки.

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

1. Началом работы модуля будет считаться блок начало;

2. Присваиваем компоненту Edit1 пустое значение ;

3. Деактивируем компонент Query1;

4. Очищаем компонент Query1;

5. Добавление в компонент Query1 нового условия;

6. Оператор case -- считывает индекс выбранной строки в компоненте RadioGroup1;

7. Если индекс=0, значит выполнение сортировки по виду товара;

8. Если индекс=1, значит выполнение сортировки по наименованию;

9. Если индекс=2, значит выполнение сортировки по изготовителю;

10. Если индекс=3, значит выполнение сортировки по количеству;

11. Если индекс=4, значит выполнение сортировки по цене;

12. Активирование компонента Query1.

13. Вывод данных в виде таблицы.

Модуль добавления.

Этот модуль предназначен для добавления данных в таблицу, который расположен на второй форме. Добавление происходит с помощью процедуры описанной ниже (рисунок 3):

Началом работы модуля считается символ начало.

Ввод данных в таблицу осуществляется в поля для ввода расположенных в блоке ввода.

По команде «BitBtn.click» данные записываются в таблицу.Добавление завершено символ начало и конец алгоритма.

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

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

Рисунок 3-Модуль добавления

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

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

Рассмотрим подробнее листинг блоков и форм.

Данный проект содержит 11 форм, которые являются основой проектируемого приложения Delphi.

Первая форма представлено загрузочным окном, её листинг выглядит следующим образом:

1) XPmanifest - использование оформление стиля WindowsXP.

2) Label - предназначен для помещения на форму надписей.

unit Unit1;

interface

uses

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

Dialogs, ComCtrls, ExtCtrls, XPMan, jpeg, StdCtrls;

type

TForm1 = class(TForm)

XPManifest1: TXPManifest;

Timer1: TTimer;

ProgressBar1: TProgressBar;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3;

{$R *.dfm}

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.

Вторая форма. На этой форме представлен просмотр базы данных. Листинг данной формы выглядит следующим образом:

unit Unit2;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls, DBCtrls, XPMan, Grids, DBGrids, StdCtrls,

xmldom, Xmlxform;

type

TForm3 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

XPManifest1: TXPManifest;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

DBGrid1: TDBGrid;

N11: TMenuItem;

N12: TMenuItem;

Button8: TButton;

Panel1: TPanel;

Timer1: TTimer;

Label11: TLabel;

Label12: TLabel;

XMLTransformClient1: TXMLTransformClient;

Image1: TImage;

N13: TMenuItem;

procedure N8Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N10Click(Sender: TObject);

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

procedure N12Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure N13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,Unit12,

Unit11;

{$R *.dfm}

Третья форма является формой сортировки базы данных. На ней представлено множество компонентов: RadioGroup1, RadioGroup2, Edit1, DataSource1, Query1, XPManifest1, button1, button2. Листинг третьей формы:

Edit1, Edit2, Edit3, Edit4, Edit5, Edit6 -- предназначены для ввода данных в базу данных;

unit Unit3;

interface

uses

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

Dialogs, XPMan, StdCtrls, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

GroupBox1: TGroupBox;

RadioButton5: TRadioButton;

Button1: TButton;

Button2: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton6: TRadioButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

IF RADIOBUTTON1.Checked THEN

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

IF RADIOBUTTON2.Checked THEN

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

IF RADIOBUTTON3.Checked THEN

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

IF RADIOBUTTON4.Checked THEN

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

IF RADIOBUTTON5.Checked THEN

DATAMODULE2.ADOTable1.SORT:='Гарантия';

IF RADIOBUTTON6.Checked THEN

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

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form3.show;

Form3.Visible:=False;

end;

end.

Четвёртая форма является окном добавления данных в базу данных. Листинг четвёртой формы:

unit Unit4;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, XPMan;

type

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

Panel1: TPanel;

Label5: TLabel;

Label6: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Image1: TImage;

Image2: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

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

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

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

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2, Unit3;

{$R *.dfm}

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

:=EDIT4.Text;

DATAMODULE2.ADOTable1.FieldByName('Цена_руб).AsString

:=edit5.Text;

DATAMODULE2.ADOTable1.FieldByName('Гарантия').AsString

:=edit6.Tеxt;

DATAMODULE2.ADOTable1.Post;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

Form4.Visible:=False;

close;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

Form3.Show;

Form4.Visible:=False;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;end.

Пятая форма: форма поиска, поиск значений по заданному пользователем критерию.

unit Unit5;

interface

uses

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

Dialogs, ExtCtrls, jpeg, StdCtrls, XPMan;

type

TForm6 = class(TForm)

GroupBox1: TGroupBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit8: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

Button5: TButton;

XPManifest1: TXPManifest;

Image1: TImage;

Edit5: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

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

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

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

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

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

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

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

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

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

var

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

begin

a:=DataModule2.ADOTable1.Lookup(;

if VarType(a)=varNull then

else

begin

b:=DataModule2.ADOTable1.Lookup;

Edit1.Text:=b;

c:=DataModule2.ADOTable1.Lookup;

Edit2.Text:=c;

d:=DataModule2.ADOTable1.Lookup;

Edit3.Text:=d;

e:=DataModule2.ADOTable1.Lookup

Edit4.Text:=e;

f:=DataModule2.ADOTable1.Lookup;

Edit5.Text:=f;

end;

End;

procedure TForm5.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit8.Text:='';

end;

procedure TForm5.Button5Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit8.Text:='';

Form3.Show;

Form6.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.Edit3KeyPress(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.Edit6KeyPress(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.Edit9KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

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

begin

case Key of

'0'..'9': ;

#8 : ;

#13 : Edit1.SetFocus;

else Key:=Chr(0);

end;

end;

end.

Шестая форма: Производит выборку данных по заданному условию

пользователя.

unit Unit6;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls, XPMan;

type

TForm6 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

RadioButton1: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton9: TRadioButton;

RadioButton10: TRadioButton;

RadioButton11: TRadioButton;

XPManifest1: TXPManifest;

DBGrid1: TDBGrid;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

var

t,r:variant;

begin

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

if radiobutton4.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 TForm6.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Form6.Visible:=False;

Form3.show;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

edit1.Text:='';

radiobutton1.Checked:=false;

radiobutton4.Checked:=False;

radiobutton5.Checked:=False;

radiobutton9.Checked:=false;

radiobutton10.Checked:=false;

radiobutton11.Checked:=false;

with DATAMODULE2.ADOTable2 do begin

Filtered := False;

end;

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;end.

Седьмая форма: Форма «О программе».

unit Unit7;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, XPMan;

type

TForm7 = class(TForm)

Button1: TButton;

XPManifest1: TXPManifest;

Image1: TImage;

StaticText1: TStaticText;

StaticText2: TStaticText;

StaticText3: TStaticText;

StaticText4: TStaticText;

StaticText5: TStaticText;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

Form3.show;

Form7.Visible:=False;

end;end.

Восьмая форма: Производит редактирование данных.

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls;

type

TForm8 = class(TForm)

Button1: TButton;

Button2: TButton;

Panel1: TPanel;

Label3: TLabel;

Label2: TLabel;

Label1: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

if DataModule2.ADOTable1.Modified then

DataModule2.ADOTable1.Post;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

Close;

end;

end.

Девятая форма: «О создателе»

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, XPMan, jpeg, ExtCtrls;

type

TForm9 = class(TForm)

Button1: TButton;

XPManifest1: TXPManifest;

Image1: TImage;

StaticText1: TStaticText;

StaticText2: TStaticText;

StaticText3: TStaticText;

StaticText4: TStaticText;

StaticText5: TStaticText;

StaticText6: TStaticText;

StaticText7: TStaticText;

StaticText8: TStaticText;

StaticText9: TStaticText;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

begin

Form3.show;

Form10.Visible:=False;

end;end.

Одиннадцатая форма: «Запрос на удаление»

unit Unit11;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm12 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Image1: TImage;

procedure Label4Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end; var

Form11: TForm11;

implementation

uses Unit3, Unit2;

{$R *.dfm}

procedure TForm11.Label4Click(Sender: TObject);

begin

Form3.Show;

Form11.Visible:=False;

end;

procedure TForm11.Label3Click(Sender: TObject);

begin

DataModule2.ADOTable1.Delete;

close;

end;

end.

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

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

Если в выборке данных не указать выборку или условие выборки, то покажет ошибку, указанную на рисунке 3:

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

Рисунок 3 - Сообщение о неверном типе аргументов.

Если база данных будет указана в несоответствующем формате, то это вызовет фатальную ошибку (рисунок 4), которая приведет к принудительному завершению работы с программой.

Рисунок 4 - Фатальная ошибка

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



Рисунок 5 - О не нахождении файла

Рисунок 5- Сообщение об ошибке в случае отсутствия файлов базы данных Ошибка может возникнуть при попытке удалении пустой ячейки таблицы, когда там нет никаких данных. Будет выведено сообщение (рисунок 6).

Рисунок 6 - Фатальная ошибка

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

Примеры работы с программой:

Выполнение выборки - к примеру нам нужно выбрать из всех наименований цена (у.е) которых >56 (рисунок 7.):



Рисунок 7- Выполнение выборки

Выполнение сортировки--к примеру нам нужно сортировать все товары по гарантии (рисунок 8.):

Рисунок 8- Пример сортировки

Главная форма выглядит следующим образом (рисунок 9):

Рисунок 9- Главная форма

Пример выполнения поиска через наименование товара производится (рисунок 10):

Рисунок 10- Пример выполнения поиска

3. Графическая часть

3.1 Структурная схема представления проекта

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

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

Учреждение образования

«Гомельский торгово-экономический колледж» Белкоопсоюза

БАЗА ДАННЫХ «Sports Shoes NIKE»

Руководство программиста

КП.2400101.02464.033-011

Листов 2

Разработал Д. И. Романовский

Руководитель О. Л. Иткина

2011

Иткина О.Л.

Назначение и условие применения программы:

Данная программа предназначена для любого пользователя с персональным компьютером, который интересуется обувью NIKE.

Системные требования:

- процессор Intel Pentium 133 или более мощный;

- объем оперативной памяти не менее 32 Мб;

- видеокарта 8 Mb и выше;

- 5 Mb свободного места на жёстком диске;

- манипулятор мышь;

- операционная система семейства Windows9X, WinNT,7.

Характеристики программы:

База данных написана на языке визуального программирования Delphi. Содержит 8 Form. Размер базы данных составляет 16.3 МБ, около 10 наименований.

Обращение к программе:

Запуск программы осуществляется через:файл BD Sports Shoes NIKE.exe.

Входные и выходные данные:

Входные записи заносятся или изменяются при поступлении новой информации об обуви с заполнением всех имеющих полей, все введенные данные сохраняются в базу.

Выходные данные являются: результат сделанной сортировки, выборки, поиска с заданными вашими параметрами.

Сообщения:

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

Учреждение образования

«Гомельский торгово-экономический колледж» Белкоопсоюза

БАЗА ДАННЫХ «Sports Shoes NIKE»

Руководство оператора

КП.2400101.02464.034-011

Листов 7

Разработал Д. И. Романовский

Руководитель О. Л. Иткина

2011

Иткина О.Л.

Назначение программы:

Данная программа предназначена для любого пользователя с персональным компьютером, который интересуется обувью NIKE.

Системные требования:

- процессор Intel Pentium 133 или более мощный;

- объем оперативной памяти не менее 32 Мб;

- видеокарта 8 Mb и выше;

- 5 Mb свободного места на жёстком диске;

- манипулятор мышь;

- операционная система семейства Windows9X, WinNT,7.

Характеристики программы:

База данных написана на языке визуального программирования Delphi. Содержит 8 Form. Размер базы данных составляет 16.3 МБ, 10 наименований

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

Выполнение программы начинается с её запуска. Для этого необходимо загрузить файл BD Sports Shoes NIKE.exe.

Вид окна приветствия:

На этой форме производятся все действия над базой.

Окно «Редактирование базы данных» представляет собой окно с таблицей, компонентом управления таблицей.

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



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

Поиск. Выбрав критерий по которому Вы хотите выполнить поиск и задав нужный параметр следует нажать на кнопку «Поиск»

При выборе в приветственном окне кнопку «О программе», откроется окно, в котором можно узнать о программе.

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



Сообщения оператору:

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

Если база находится не по указанному адресу, то это вызовет фатальную ошибку, которая приведет к «поломке».

Заключение

Данная программа предназначена для работы с базой данных «Sports Shoes NIKE». На форме редактирования базы данных находятся кнопки удаления, добавления, сортировки, поиска, печати и выборки, для корректировки исходной базы данных.

В результате проделанной работы был получен полноценный продукт, предназначенный для работы с базой данных Sport Shoes NIKE.

Созданная программа представляет собой программу, которую можно обновлять, путём замены файла таблицы Base.DB на более новый.

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

При разработке данной курсовой работы выполнены следующие задачи:

- систематизация знаний, полученных при изучении дисциплины;

- приобретение опыта в комплексной разработке и реализации практических задач с использованием СУБД;

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

- анализ возможных подходов и методов решения с обоснованием выбранного подхода;

- совершенствование практических навыков в использовании и разработке современных информационных систем.

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

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

Литература

1. Информационные технологии: практикум: учеб. пособие / С.К. Койпыша. - Мн.: Выш. шк., 2005. - 219 с.: ил.

2. Бэнкс М.А. Информационная защита ПК. - М.: Энроп, 2001.

3. Прикладная информатика / Е.А. Гришина, С.К.Койпыш, М.Г. Манюк и др.; под общ. ред. С.В.Сочнева. - Мн.: Выш. шк., 2002.

4. Фленов М. Е. Библия Delphi .-СПб.: БХВ-Петербург, 2004г. 880 с.: ил. Isbn 5-94157-456-8.

5. Фаронов В. В. Программирование баз данных в Delphi7 . Учебный курс БХВ-Петербург.: 2006г.-459с.:ил

Размещено на Allbest.ru