Управление базой данных Sport Shoes NIKE
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
3 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit9KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit10KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit13KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit15KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);;;TForm5.Edit16KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);
end;;.
Шестая форма: Производит выборку данных по заданному условию
пользователя.Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls, XPMan;= class(TForm): TGroupBox;: TGroupBox;: TEdit;: TButton;: TButton;: TButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TXPManifest;: TDBGrid;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);
{ Private declarations }
{ Public declarations };: TForm6;Unit2, Unit3;
{$R *.dfm}TForm6.Button1Click(Sender: TObject);,r:variant;
if radiobutton1.Checked then t:=_;radiobutton4.Checked then t:=__;radiobutton5.Checked then t:=_;;
;DATAMODULE2.ADOTable2dobegin:=False;:=t+r+edit1.text;:=True;end;;TForm6.Button2Click(Sender:TObject);.Text:=;.Visible:=False;.show;;TForm6.Button3Click(Sender:TObject);.Text:=;.Checked:=false;.Checked:=False;.Checked:=False;.Checked:=false;.Checked:=false;.Checked:=false;DATAMODULE2.ADOTable2dobegin:=False;;;TForm6.Edit1KeyPress(Sender:TObject;varKey:Char);Keyof">if radiobutton9.Checked then r:==;radiobutton11.Checked then r:=;DATAMODULE2.ADOTable2 do begin:= False;:= t + r + edit1.text;:= True; end;;TForm6.Button2Click(Sender: TObject);.Text:=;.Visible:=False;.show;;TForm6.Button3Click(Sender: TObject);.Text:=;.Checked:=false;.Checked:=False;.Checked:=False;.Checked:=false;.Checked:=false;.Checked:=false;DATAMODULE2.ADOTable2 do begin:= False;;;TForm6.Edit1KeyPress(Sender: TObject; var Key: Char);Key of
0..9: ;
#8 : ;
#13 : Edit1.SetFocus;Key:=Chr(0);
end;;end.
Седьмая форма: Форма О программе.
unit Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls, XPMan;= class(TForm): TButton;: TXPManifest;: TImage;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm7;Unit3;
{$R *.dfm}TForm7.Button1Click(Sender: TObject);.show;.Visible:=False;;end.
Восьмая форма: Производит редактирование данных.
unit Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls;= class(TForm): TButton;: TButton;: TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TImage;Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm8;Unit2;
{$R *.dfm}TForm8.Button1Click(Sender: TObject);DataModule2.ADOTable1.Modified then.ADOTable1.Post;;TForm8.Button2Click(Sender: TObject);
Close;
end;
end.
Девятая форма: О создателе
unit Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, XPMan, jpeg, ExtCtrls;= class(TForm): TButton;: TXPManifest;: TImage;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm9;Unit3;
{$R *.dfm}TForm9.Button1Click(Sender: TObject);.show;.Visible:=False;;end.
Одиннадцатая форма: Запрос на удаление
unit Unit11;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, jpeg;= class(TForm): TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TImage;Label4Click(Sender: TObject);Label3Click(Sender: TObject);
{ Private declarations }
{ Public declarations }; var: TForm11;Unit3, Unit2;
{$R *.dfm}TForm11.Label4Click(Sender: TObject);.Show;.Visible:=False;;TForm11.Label3Click(Sender: TObject);.ADOTable1.Delete;;
end;.
.2 Методика испытания
Любой программа подразумевает под собой наличие ошибок при её разработке. Эти ошибки могут возникнуть из-за несоответствия типов, неправильных связей с файлами, требуемыми для работоспособности программы. Для того чтобы этого не допустить программу требуется тестировать подбирая великое множество самых различных способов тестирования. Например, предусмотреть что будет, если при работе с программой пользователь ошибётся при вводе данных в таблицу, сделает неправильный запрос и т.д. Ниже приведены примеры ошибок, которые могут возникать при неаккуратной работе с программой.
Если в выборке данных не указать выборку или условие выборки, то покажет ошибку, указанную на рисунке 3:
база данные сортировка поиск
Рисунок 3 - Сообщение о неверном типе аргументов.
Если база данных будет указана в несоответствующем формате, то это вызовет фатальную ошибку (рисунок 4), которая приведет к принудительному завершению работы с программой.
Рисунок 4 - Фатальная ошибка
В программе прописан путь к месту-источнику, где располагается файл базы данных. Если файл базы данных не обнаружен, то возникает ошибка и на экран выводится сообщение об ошибке (рисунок 5).
Рисунок 5 - О не нахождении файла
Рисунок 5- Сообщение об ошибке в случае отсутствия файлов базы данных Ошибка может возникнуть при попытке удалении пустой ячейки таблицы, когда там нет никаких данных. Будет выведено сообщение (рисунок 6).
Рисунок 6 - Фатальная ошибка
После того, как исправлены все возможные ошибки, программа работает без сбоев, и получаются следующие результаты.
Примеры работы с программой:
Выполнение выборки - к примеру нам нужно выбрать из всех наименований цена (у.е) которых >56 (рисунок 7.):
Рисунок 7- Выполнение выборки
Выполнение сортировки-к примеру нам нужно сортировать все товары по гарантии (рисунок 8.):
Рисунок 8- Пример сортировки
Главная форма выглядит следующим образом (рисунок 9):
Рисунок 9- Главная форма
Пример выполнения поиска через наименование товара производится (рисунок 10):
Рисунок 10- Пример выполнения поиска
3. Графическая часть
.1 Структурная схема представления проекта
Учреждение образования
Гомельский торгово-экономический колледж Белкоопсоюза
&