ER-диаграмма
Рисунок 10
Заключение
Главным результатом проведенной работы явилось создание функционирующей программы, которая осуществляет хранение информации о магазине Оптика и поиск данных по основным характеристикам, и реализует все необходимые требования, которые предъявлялись в постановке задания к настоящему курсовому проекту.
Перспективы дальнейшего развития программы связаны с расширением ее функциональных возможностей.
Список используемой литературы
1.Климова Л.М. Delphi 7. Основы программирования. Решение типовых задач. Самоучитель. - М.: КУДИЩ - ОБРАЗ, 2006. - 450 с.
. Тюкачев Н.А. Программирование в Delphi для начинающих. - СПб.: БХВ - Петербург, 2007. - 672 с.
.Сорников Я.А. Учебник по АИБС МАРК-SQL. - М: Учебный центр АНО «ФИО», 2007. - 61 с.
4.Тюкачев Н.А. Программирование в Delphi для начинающих. - СПб.: БХВ - Петербург, 2007. - 672 с.
5.Максим Кузнецов, Игорь Симдянов MySQL 5. В подлиннике, БХВ - Петербург, 2010.
6.Нил Дж. Рубенкинг.Язык программирования Delphi для «чайников». Введение в Borland Delphi 2006 = Delphi for Dummies. - М.:Диалектика, 2007;
.Максим Кузнецов, Игорь Симдянов, MySQL 5, БХВ-Петербург 2010.
Приложение
Листинг программного кода
Листинг Unit 1Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids,
DBGrids;
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOTable2: TADOTable;
DataSource2: TDataSource;
ADOTable3: TADOTable;
DataSource3: TDataSource;
ADOTable4: TADOTable;
DataSource4: TDataSource;
ADOTable5: TADOTable;
DataSource5: TDataSource;
ADOTable6: TADOTable;
DataSource6: TDataSource;
ADOTable7: TADOTable;
DataSource7: TDataSource;
N9: TMenuItem;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Button1: TButton;
DBGrid1: TDBGrid;
DBNavigator2: TDBNavigator;
TabSheet2: TTabSheet;
Button2: TButton;
Button3: TButton;
DBGrid2: TDBGrid;
TabSheet3: TTabSheet;
Button4: TButton;
Button5: TButton;
DBGrid3: TDBGrid;
DBNavigator1: TDBNavigator;
TabSheet4: TTabSheet;
Button6: TButton;
Button7: TButton;
DBGrid4: TDBGrid;
DBNavigator4: TDBNavigator;
TabSheet5: TTabSheet;
Button8: TButton;
Button9: TButton;
DBGrid5: TDBGrid;
DBNavigator5: TDBNavigator;
TabSheet6: TTabSheet;
Button10: TButton;
DBGrid6: TDBGrid;
DBNavigator6: TDBNavigator;
N10: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure DBGrid4KeyPress(Sender: TObject; var Key: Char);
procedure Button12Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;Unit2, Unit3;
{$R *.dfm}TForm1.N2Click(Sender: TObject);
TabSheet1.Show;;TForm1.N3Click(Sender: TObject);
TabSheet2.Show;;TForm1.N4Click(Sender: TObject);
TabSheet3.Show;;TForm1.N5Click(Sender: TObject);
TabSheet4.Show;;TForm1.N6Click(Sender: TObject);
TabSheet5.Show;;TForm1.N7Click(Sender: TObject);
TabSheet6.Show;;TForm1.N8Click(Sender: TObject);
close;TForm1.Button1Click(Sender: TObject);
TabSheet2.Show;;TForm1.Button2Click(Sender: TObject);
TabSheet1.Show;;TForm1.Button3Click(Sender: TObject);
TabSheet3.Show;;TForm1.Button4Click(Sender: TObject);
TabSheet2.Show;;TForm1.Button5Click(Sender: TObject);
TabSheet4.Show;;TForm1.Button6Click(Sender: TObject);
TabSheet3.Show;;TForm1.Button7Click(Sender: TObject);
TabSheet5.Show;;TForm1.Button8Click(Sender: TObject);
TabSheet4.Show;;TForm1.Button9Click(Sender: TObject);
TabSheet6.Show;;TForm1.Button10Click(Sender: TObject);
TabSheet5.Show;;TForm1.DBGrid4KeyPress(Sender: TObject; var Key: Char);s2:array[0..0] of Char;
s2[0]:=Key;
if DBGrid4.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);
Key:=s2[0];;TForm1.Button12Click(Sender: TObject);
TabSheet5.Show;;TForm1.N9Click(Sender: TObject);
Form2.Show;
form3.Show;;.
Листинг Unit 2
unit Unit2;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;
TForm2 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form2: TForm2;
{$R *.dfm}TForm2.Button1Click(Sender: TObject);
ADOQuery1.Close;
ADOQuery1.sql.Clear;
ADOQuery1.SQL.Add('select * from zakazy where Kod_tovara=2');
ADOQuery1.Open;
datasource1.DataSet.Close;
datasource1.dataset:=adoquery1;
DBGrid1.DataSource:= datasource2;;TForm2.Button2Click(Sender: TObject);
begin
close;;
Листинг Unit 3
unit Unit3;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form3: TForm3;
{$R *.dfm}TForm3.Button1Click(Sender: TObject);
close;.