Загрузка...
Учебная работа. Контрольная работа: по Основам объектно-ориентированного программирования
қ
.
Құмаш
Ңұрғалиев
атындағы
институт
меке
месінің
филиалы
Филиал учреждения «Институт имени Кумаша Нургалиева»
г. Риддер
Неотклонимая контрольная работа
По дисциплине «Базы объектно-ориентированного программирования»
обучающегося IV
курса группы 07-ПРО
VII
семестра
специальности 3706002 «
Программное обеспечение
вычислительной техники и автоматических систем»
Богдаева Евгения
Вариант IV
г. Риддер
,
2011 год
Задание
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
]]>