Автор работы: Пользователь скрыл имя, 05 Июня 2013 в 01:53, курсовая работа
Существует огромное количество разновидностей баз данных, отличающихся по различным критериям (например, в «Энциклопедии технологий баз данных» определяются свыше 50 видов БД).
Целью моего курсового проекта является разработка базы данных “Интернет-магазин”. Программа предназначена для ведения базы данных интернет-магазина и всех поступающих в нее товаров: для удобства работы с ними, подсчета их количества, ведения учета поставщиков и установки оптимальной цены. При проектировании БД был использовал реляционный подход, потому что реляционные базы получили наибольшее распространение в мире и они считаются наиболее перспективными в научном плане, т.к. большинство СУБД работают именно с такими базами.
Введение……………………………………………………………………………….4
1 Постановка задачи…………………………………………………………………..6
Формулировка задания……………………………………………………………6
Информационная база задачи…………………………………………………….6
2 Вычислительная система……………………………………………………………8
2.1 Инструментальные средства разработки проекта……………………………….8
2.2 Среда разработки………………………………………………………………….10
2.3 Требования к конфигурации аппаратного обеспечения……………………......11
3 Проектирование……………………………………………………………………..12
3.1 Проектирование интерфейса……………………………………………………..12
4 Описание программы……………………………………………………………….14
4.1 Структура модулей………………………………………………………………..14
4.2 Описание процедур и функций…………………………………………………..14
5 Испытание программы……………………………………………………………...16
5.1 Тестовые примеры………………………………………………………………...16
5.2 Результаты тестирования…………………………………………………………22
5.3 Ошибки при написании…………………………………………………………..22
6 Описание применения……………………………………………………………...23
Заключение……………………………………………………………………………24
Список использованной литературы………………………………………………..25
Список использованных Интернет-ресурсов……………………………………….25
Приложение А (обязательное)……………………………………………………….26
Приложение Б (обязательное)………………………………………………………..28
end;
Приложение Д
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls,XPMan, jpeg, ExtCtrls;
type
TForm5 = class(TForm)
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
Image1: TImage;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses unit2, Unit3;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);//Удаление информации из (БД2) и проверка
begin
dbgrid1.DataSource.DataSet.
if form5.DBGrid1.DataSource.
button1.Enabled:=false else
button1.Enabled:=true;
if form5.DBGrid1.DataSource.
button3.Enabled:=false else
button3.Enabled:=true;
end;
procedure TForm5.Button2Click(Sender: TObject);//Открытие главной формы
begin
form2.Show;
close;
end;
procedure TForm5.FormShow(Sender: TObject);//Проверка
begin
if form5.DBGrid1.DataSource.
button1.Enabled:=false else
button1.Enabled:=true;
if form5.DBGrid1.DataSource.
button3.Enabled:=false else
button3.Enabled:=true;
end;
procedure TForm5.Button3Click(Sender: TObject);//подсчитывание суммы
var n,i,s:integer;
begin
s:=0;
n:=ADOQuery1.RecordCount;
DBGrid1.DataSource.DataSet.
for i:=1 to n do
begin
s:=s+DBGrid1.DataSource.
if i<n then DBGrid1.DataSource.DataSet.
end;
label1.Caption:='Общая сумма покупки = '+inttostr(s)+' $';
end;
end.
Приложение Е
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls,XPman;
type
TForm6 = class(TForm)
Image1: TImage;
Label1: TLabel;
Memo1: TMemo;
Label2: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
end.
Приложение Ж
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, XPMan;
type
TForm7 = class(TForm)
Image1: TImage;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm7.Button2Click(Sender: TObject);//открытие главной формы
begin
form2.show;
form7.Close;
end;
procedure TForm7.Button1Click(Sender: TObject);//удаление информации из (БД) и открытие формы
begin
form2.dbgrid1.DataSource.
form2.Show;
form7.close;
end;
end.