Реферат Створення інформаційної системи &Меблевий магазин&

Тема: Курсовые проекты

Image4.Left+Image4.Width+Round(SDIAppForm.ClientWidth*0.02);.Top:=Round(SDIAppForm.ClientHeight*0.15+110);.Left:=Image4.Left+Image4.Width+Round(SDIAppForm.ClientWidth*0.02);.Top:=Round(SDIAppForm.ClientHeight*0.15+Image4.Height+15);.Left:=Image4.Left+Image4.Width+Round(SDIAppForm.ClientWidth*0.02);.Top:=Round(SDIAppForm.ClientHeight*0.15+Image4.Height+50);.Left:=Image4.Left+Image4.Width+Round(SDIAppForm.ClientWidth*0.02);.Top:=Round(SDIAppForm.ClientHeight*0.15);.Left:=Round(SDIAppForm.ClientWidth*0.03)+DBLookUpListBox1.Width+2;.Height:=Round(SDIAppForm.ClientHeight*0.8);pos2=true then Panel1.Width:=Round (SDIAppForm.ClientWidth * 0.57 + 2); pos1=true then Panel1.Width:=Round (SDIAppForm.ClientWidth * 0.76) ;;

procedure TSDIAppForm.Button1Click (Sender: TObject);

var: TListItem;:=Korzina.Form1.ListView1.Items.Add; .Caption:=ADOQuery1.FieldByName(laquo;Категорияraquo;).AsString;.SubItems.Add(ADOQuery1.FieldByName(laquo;Наименованиеraquo;).AsString);.SubItems.Add( ADOQuery1.FieldByName(laquo;IDraquo;).AsString);.SubItems.Add(ADOQuery1.FieldByName(laquo;Ценаraquo;).AsString);_zakaza:=symma_zakaza+ADOQuery1.FieldByName(laquo;Ценаraquo;).AsFloat;.Caption:=laquo;Корзина: + FloatTostr (symma_zakaza) + грн. raquo ;;. Form1.Label1.Caption:= Товарів у кошику: + IntToStr (Korzina.Form1.ListView1.Items.Count) ;. Form1.Label2.Caption:= Сума замовлення: + FloatToStr (Magazin.symma_zakaza) + грн. ;;

procedure TSDIAppForm.DBLookupListBox1Click (Sender: TObject);

begin:=false; .Caption:= Виберіть модель --- gt; raquo;;.Width:=Round(SDIAppForm.ClientWidth*0.57+2);.Text:=laquo;Поиск...raquo;;.SQL.Clear;.SQL.Add(laquo;SELECT * ) ;. SQL.Add ( FROM Товари ) ;. SQL.Add ( WHERE Товари.Категорія= + DBLookupListBox1.SelectedItem + laquo ;; ) ; .Active:=True ;;

procedure TSDIAppForm.DBLookupListBox2Click (Sender: TObject);

begin.Hide; .Caption:=ADOQuery1.FieldByName ( Категорія ). AsString + серії + ADOQuery1.FieldByName ( Найменування ). AsString + raquo ;;. Caption:= Код товара: + ADOQuery1.FieldByName ( ID ). AsString; (ADOQuery1.FieldByName ( Наявність ). AsString= True ) then.Font.Color:=clLime; .Font.Color:=clLime; .Enabled :=true;

Label6.Caption:= Є в наявності raquo ;;

end.Font.Color:=clRed; .Font.Color:=clRed; .Enabled:=false;

Label6.Caption:= Немає в наявності raquo ;;

end; .Caption:= Ціна: + ADOQuery1.FieldByName ( Ціна ). AsString + грн.raquo;;.Text:=ADOQuery1.FieldByName(laquo;Описаниеraquo;).AsString;.Picture.LoadFromFile(laquo;resdblaquo;+ADOQuery1.FieldByName(raquo;IDlaquo;).AsString+raquo;.jpglaquo;);Image4.Picture.LoadFromFile(raquo;resdblaquo;+ADOQuery1.FieldByName(raquo;IDlaquo;).AsString+raquo;.pnglaquo;);Image4.Picture.LoadFromFile(raquo;resdblaquo;+ADOQuery1.FieldByName(raquo;IDlaquo;).AsString+raquo;.bmplaquo;);(raquo;not load any picture ) ;;;;;;. Text:= Пошук ... raquo ;;;

procedure TSDIAppForm.Edit1Change (Sender: TObject);

begin ((Edit1.Text lt; gt; ) and (Edit1.Text lt; gt; Пошук ... )) thenpos1 then:=false; .Caption:= Виберіть модель --- gt; raquo ;;. Width:=Round (SDIAppForm.ClientWidth * 0.57 + 2) ;;

. SQL.Clear; .SQL.Add ( SELECT * ) ;. SQL.Add ( FROM Товари ) ;. SQL.Add ( WHERE Товари.Наіменованіе Like ( % + Edit1.Text + % ) or ) ;. SQL.Add ( Товари.ID Like ( + Edit1.Text + % ); ) ;. Active:=True ;;;

procedure TSDIAppForm.Edit1Enter (Sender: TObject);

beginEdit1.Text= Пошук ... then Edit1.Text:= raquo ;;;

procedure TSDIAppForm.FileExit1Execute (Sender: TObject);

begin ;;

procedure TSDIAppForm.HelpAbout1Execute (Sender: TObject);

begin.ShowModal ;;

procedure TSDIAppForm.Image3Click (Sender: TObject);

begin.Form2.Show ;;

procedure TSDIAppForm.Image3MouseEnter (Sender: TObject);

begin.Picture.LoadFromFile ( res find_.png ) ;;

procedure TSDIAppForm.Image3MouseLeave (Sender: TObject);

begin.Picture.LoadFromFile ( res find.png ) ;;