Контрольная работа

Контрольная работа по Основам объектно-ориентированного программирования

Работа добавлена на сайт bukvasha.net: 2015-10-25

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 15.3.2025




Риддер

қ
.
Құмаш

Ңұрғалиев

атындағы

колледж

меке
месінің
филиалы



Филиал учреждения «Колледж имени Кумаша Нургалиева»

г. Риддер
Обязательная контрольная работа

По дисциплине «Основы объектно-ориентированного программирования»

обучающегося IV курса группы 07-ПРО    VII семестра

 специальности 3706002 «Программное обеспечение

вычислительной техники и автоматизированных систем»

Богдаева Евгения
Вариант IV
г. Риддер
,
2011 год


Задание
  1. Создать удаленную базу данных с двухзвенной архитектурой с помощью SQL-сервера Interbase, в которую входят таблица «Магазины» с полями: название, адрес и таблица «Игрушки» включающая поля: наименование, цена, его производитель. Таблицы связаны отношением один-ко-многим.
  2. Создать приложение в Delphi. Найти , в которой цена на введенное в режиме диалога лекарства наименьшая.
  3. Построить диаграмму, отображающую стоимость данного лекарства в каждой аптеке. Создать SQL-запрос и отчет.



C:\Users\Twisted\Desktop\Снимок.JPG

Логическая модель
            1)Создание Базы данных в
InterBase



            Таблица магазины

/* Table: MAGAZINI, Owner: SYSDBA */

CREATE TABLE "MAGAZINI"

(

  "NOMER"     INTEGER NOT NULL,

  "NAZVANIE"           CHAR(20) CHARACTER SET WIN1251,

  "ADRESS"    CHAR(20) CHARACTER SET WIN1251,

 PRIMARY KEY ("NOMER")

);

SET TERM ^ ;

/* Triggers only will work for SQL triggers */
CREATE TRIGGER "TRI_DO" FOR "MAGAZINI"

ACTIVE BEFORE INSERT POSITION 0

AS

BEGIN

NEW.nomer = GEN_ID(geni, 1);

END

 ^

CREATE TRIGGER "TRI_IZM" FOR "MAGAZINI"

ACTIVE BEFORE UPDATE POSITION 0

AS

BEGIN

  IF (OLD.nomer  <> NEW.nomer)

  THEN UPDATE  igruchki

    SET nomer_i = NEW.nomer

     WHERE nomer_i = OLD.nomer;

END

 ^
CREATE TRIGGER "TRI_1" FOR "MAGAZINI"

ACTIVE AFTER DELETE POSITION 0

AS

BEGIN

DELETE FROM igruchki

WHERE igruchki.nomer_i = magazini.nomer;

END

 ^

COMMIT WORK ^

SET TERM ;^
Таблица игрушки
/* Table: IGRUSHKI, Owner: SYSDBA */

CREATE TABLE "IGRUSHKI"

(

  "NOMER_IG"           INTEGER NOT NULL,

  "NOMER"     INTEGER NOT NULL,

  "NAZVANIE"           CHAR(20) CHARACTER SET WIN1251,

  "CENA"        INTEGER,

  "PROIZVODITEL"   CHAR(20) CHARACTER SET WIN1251,

  "VOZRAST" INTEGER,

 PRIMARY KEY ("NOMER_IG")

);

ALTER TABLE "IGRUSHKI" ADD FOREIGN KEY ("NOMER") REFERENCES MAGAZINI ("NOMER");
Заполнение таблиц



Главная таблица «Магазины»



Дочерняя таблица «Игрушки»
2)Создание приложения

Главная форма программы





                                                                              База данных программы





Форма на которой отображаются Магазины и Игрушки.

Так же на этой форме имеется «поиск по возрасту»

procedure TForm1.Edit1Change(Sender: TObject);

begin

     if Length(Edit1.Text)>0 then

DM.igrushki.Filtered:=true

else

DM.igrushki.Filtered:=false;

DM.igrushki.Filter:='vozrast='''+Edit1.Text+'''';

end;
    Диаграмма «производителей»



Отчет


SELECT Magazini.NAZVANIE, Igrushki.NAZVANIE, Igrushki.CENA, Igrushki.VOZRAST

FROM IGRUSHKI Igrushki

   INNER JOIN MAGAZINI Magazini

   ON  (Magazini.NOMER = Igrushki.NOMER) 

ORDER BY Igrushki.VOZRAST

1. Реферат на тему Men According To Bly Essay Research Paper
2. Реферат Экономические аспекты организации универсального обслуживания
3. Реферат на тему Семантический анализатор
4. Реферат Искусство России в ХVIII веке
5. Реферат Языческие воззрения славянских народов
6. Реферат на тему Cival War Essay Research Paper Civil War
7. Шпаргалка Шпаргалка по Психологии 6
8. Реферат на тему Французская литература XVII века и проза Афры Бен
9. Реферат на тему Old Testament Essay Research Paper The Old
10. Реферат на тему Discuss Fully Hawthrones Strong Women And Morally