в язаних АРМ фахівців, на якіх застосовуються ПЕОМ.
Розподілена база даних - це сукупність логічно зв язаних баз даних або частин однієї бази, Які розпаралелені поміж декількома територіально - розподіленімі ПЕОМ и забезпечені відповіднімі можливіть для управління цімі базами або їх частинами. Тобто, розподілена база даних реалізується на різніх просторово розосередженіх обчислювальних засобими, вместе с організаційнімі, технічними и програмні засоби ее создания и ведення.
Розділ 3. Меблевий магазин «Місто меблів»
3.1 Створена база даних
База даних складається з 2 таблиць: «Категорія» та «Товари» Які з єднані зв язком один-до-багатьох (мал.3.1).
Мал..3.1
Таблиця «Категорія» має Наступний структуру:
Назва поляТіп даніхОпіс «Ім'я» «Текстовий» Назва категорії товару
Таблиця «Товари» має Наступний структуру
Назва поляТіп даніхОпіс «ID» «Лічильник» Унікальний Ідентифікатор товару, что буде застосовуватіся при оформлені замовлення «Категорія» «Текстовий» Поле в якому вказується відповідність товару до певної категорії, заповнюється помощью автопідстановкі «Найменування» «Текстовий» Назва товару «Опис» «Поле МЕМО» Детальний опис товару «Ціна» «Грошовий» Поле в якому вказується ціна товару «Наявність» «Логічний» Поле в якому вказується наявність товару на складі магазину
. 2 Лістінг програми
Програма складається з 3 форм:
· Korzina
· Poisk
· Magazin
Форма Magazin має Наступний вигляд:
Ця форма Виступає основною в даного проекті. На ній відображаються всі товари, что містяться у базі даних з детальний опис та фотографією. Зліва вікорістовується список категорій товарів наявний у магазині, а праворуч - ПЕРЕЛІК товарів даної категорії
Програмний код:
var
pos1, pos2: boolean;
symma_zakaza: real;
procedure TSDIAppForm.FormCreate (Sender: TObject);
begin.Brush.Bitmap:=TBitMap.Create;.Brush.Bitmap.LoadFromFile(laquo;resfon.bmpraquo;);.Picture.LoadFromFile(laquo;restemp.pngraquo;);.Picture.LoadFromFile(laquo;resemblema.pngraquo;);.Picture.LoadFromFile(laquo;resfind.pngraquo;);:=true;:=true;_zakaza:=0;;
procedure TSDIAppForm.FormDestroy (Sender: TObject);
begin.Brush.Bitmap.Destroy ;;
procedure TSDIAppForm.FormResize (Sender: TObject);
var dl:integer;.Left:=Round(SDIAppForm.ClientWidth*0.015);.Width:=Round(SDIAppForm.ClientWidth*0.97);.Top:=Round(SDIAppForm.ClientHeight*0.015);.Height:=Round(SDIAppForm.ClientHeight*0.97);.Top:=Round(SDIAppForm.ClientHeight*0.08)- 22; .Left:=Round (SDIAppForm.ClientWidth * 0.97-141) ;. Top:=Round (SDIAppForm.ClientHeight * 0.08) - 20;.Left:=Round(SDIAppForm.ClientWidth*0.97-18);.Top:=Round(SDIAppForm.ClientHeight*0.08)+7;.Left:=Round(SDIAppForm.ClientWidth*0.97-141);.Left:=Round(SDIAppForm.ClientWidth*0.015);.Top:=Round(SDIAppForm.ClientHeight*0.015);.Height:=Round(SDIAppForm.ClientHeight*0.13);.Top:=Round(SDIAppForm.ClientHeight*0.15);.Left:=Round(SDIAppForm.ClientWidth*0.03);.Top:=Round(SDIAppForm.ClientHeight*0.15);.Left:=Round(SDIAppForm.ClientWidth*0.97-90);.Top:=Round(SDIAppForm.ClientHeight*0.15+35);.Left:=Round(SDIAppForm.ClientWidth*0.03);.Width:=Round(SDIAppForm.ClientWidth*0.18);.Height:=Round(SDIAppForm.ClientHeight*0.8-30);.Width:=Round(SDIAppForm.ClientWidth*0.18);.Height:=Round(SDIAppForm.ClientHeight*0.8-30);.Top:=Round(SDIAppForm.ClientHeight*0.15+35);.Left:=Round(SDIAppForm.ClientWidth*0.97- DBLookUpListBox2.Width);.Top:=Round(SDIAppForm.ClientHeight*0.15+40);.Left:=DBLookUpListBox1.Left+DBLookUpListBox2.Width+10;.Width:=Round(SDIAppForm.ClientWidth*0.56);:=0;SDIAppForm.ClientWidthgt;800 then dl:=dl + 20; SDIAppForm.ClientWidth gt; 1 000 then dl:=dl + 30; SDIAppForm.ClientWidth gt; 1 200 then dl:=dl+30;.Top:=Round(SDIAppForm.ClientHeight*0.15+80);.Left:=DBLookUpListBox1.Left+DBLookUpListBox2.Width+Round(SDIAppForm.ClientWidth*0.015)+dl;.Width:=Round(SDIAppForm.ClientWidth*0.35);.Height:=Round(SDIAppForm.ClientHeight*0.5-80);.Left:=DBLookUpListBox1.Left+DBLookUpListBox2.Width+25;.Top:=Round(SDIAppForm.ClientHeight*0.65+15);.WordWrap:=false;.Left:=DBLookUpListBox1.Left+DBLookUpListBox2.Width+10;.Top:=Round(SDIAppForm.ClientHeight*0.65+45);.Width:=Round(SDIAppForm.ClientWidth*0.56);.Height:=Round(SDIAppForm.ClientHeight*0.27-30);.WordWrap:=true;.Top:=Round(SDIAppForm.ClientHeight*0.15+80);.Left:=...
