Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Модуль №2
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2024
Тип роботи:
Готова модульна робота
Предмет:
Бази даних та інформаційні системи
Частина тексту файла (без зображень, графіків і формул):
INSERT INTO Стипендія (НомерЗалікової, ДатаПочатку, ДатаЗавершення, РозмірСтипендії)
SELECT DISTINCT Студент .НомерЗалікової, #07/01/2004#, #06/30/2004#, 300
FROM ((Студент INNER JOIN Екзамен ON Студент.НомерЗалікової = Екзамен.НомерЗалікової)
INNER JOIN Викладач ON Екзамен.НомерПосвідчення = Викладач.НомерПосвідчення)
INNER JOIN Предмет ON Екзамен.НомерПредмету = Предмет. НомерПредмету
WHERE Студент.Група = «ПМ-21» AND
Екзамен.ДатаЕкзамену >= #06/01/2004# AND
Екзамен.ДатаЕкзамену <= #06/30/2004# AND
Предмет.НазваПредмету = «Математичний аналіз» AND
Викладач.ПосадаВикладача = «професор» AND
Викладач.ПрізвищеВикладача = «Іваненко» AND
Екзамен.ОцінкаЗПредмету > 95;
UPDATE Студент
SET Рейтинг = Рейтинг/2
WHERE Група LIKE “*-5#” AND
НомерЗалікової IN (SELECT DISTINCT НомерЗалікової FROM Екзамен WHERE
ОцінкаЗПредмету >=0 AND ОцінкаЗПредмету <50);
DELETE FROM Екзамен
WHERE НомерЗалікової IN (
SELECT Екзамен.НомерЗалікової FROM Екзамен INNER JOIN (
SELECT НомерЗалікової, COUNT (НомерЗалікової) AS CNT
FROM Екзамен
WHERE ОцінкаЗПредмету >=0 AND ОцінкаЗПредмету <50
GROUP BY НомерЗалікової
) AS s ON Екзамен.НомерЗалікової = s. НомерЗалікової
WHERE s.CNT>3
);
A
Dim db As Database
Dim tdf As TableDef
Dim fld As FieldDef
Set db = CurrentDb
Set tdf = db.CreateTableDef(“Екзамен”)
Set fld = tdf.CreateField(“НомерЗалікової”)
fld.Type = Integer
fld.Required = True
tdf.Fields.Append fld
fld = Nothing
Set fld = tdf.CreateField(“НомерПредмету”)
fld.Type = Integer
fld.Required = True
tdf.Fields.Append fld
fld = Nothing
Set fld = tdf.CreateField(“ДатаЕкзамену”)
fld.Type = DateTime
fld.Required = True
tdf.Fields.Append fld
fld = Nothing
Set fld = tdf.CreateField(“НомерПосвідчення”)
fld.Type = Integer
fld.Required = True
tdf.Fields.Append fld
fld = Nothing
Set fld = tdf.CreateField(“ОцінкаЗПредмету”)
fld.Type = Integer
fld.Required = True
fld.ValidationRule = “>= 0 And <= 50”
tdf.Fields.Append fld
fld = Nothing
Set idx = tdf.CreateIndex(“PK”)
Set fld = idx.CreateField(“НомерЗалікової”)
idx.Fields.Append fld
fld = Nothing
Set fld = idx.CreateField(“НомерПредмету”)
idx.Fields.Append fld
fld = Nothing
Set fld = idx.CreateField(“ДатаЕкзамену”)
idx.Fields.Append fld
fld = Nothing
idx.Primary = True
tdf.Indexes.Append idx
db.TableDefs.Append tdf
Set rel = db.CreateRelation(“FK_Stud_Exam”)
rel.Table = “Студент”
rel.ForeignTable = “Екзамен”
Set fld = rel.CreateField(“НомерЗалікової”)
rel.ForeignName = “НомерЗалікової”
rel.Fields.Append fld
db.Relations.Append rel
Public Function successful_count (GroupName)
successful_count = 0
Dim db As Database
Set db = CurrentDb
Set rs = db.OpenRecordset(“SELECT Студент.НомерЗалікової
FROM (Студент INNER JOIN (
SELECT НомерЗаліковки, MAX(Здачі1) AS Здачі
FROM (SELECT НомерЗаліковки, НомерПредмету, COUNT(НомерЗаліковки) AS Здачі1
FROM Екзамен
GROUP BY НомерЗаліковки, НомерПредмету
)
GROUP BY НомерЗаліковки
) AS s ON Студент.НомерЗалікової = s.НомерЗалікової) INNER JOIN (
SELECT НомерЗаліковки, SUM(ОцінкаЗПредмету) AS Сума_Оцінок, COUNT(ОцінкаЗПредмету) AS Кількість_Предметів, MIN(ОцінкаЗПредмету) AS min_val
FROM Екзамен
GROUP BY НомерЗаліковки
) AS ss ON Студент.НомерЗалікової = ss.НомерЗалікової
WHERE s.Здачі = 1 AND (ss.Сума_Оцінок/ ss.Кількість_Предметів)>=88 AND min_val>70 AND ss.Кількість_Предметів > 0
”)
Successful_count = rs.RecordCount
If (Successful_count>0) Then
rs.MoveFirst
For i = 0 To (rs.RecordCount -1)
Nu = rs(“НомерЗалікової”)
Set rs_1 = db.OpenRecordset(“SELECT ОцінкаЗПредмету FROM Екзамен
WHERE НомерЗалікової = “ & Nu & ”
ORDER BY ДатаЕкзамену”)
rs_1.MoveFirst
nw = rs_1(“ОцінкаЗПредмету”)
For j = 0 To rs_1.RecordCount -2
bf = nw
rs_1.MoveNext
nw = rs_1(“ОцінкаЗПредмету”)
If (nw<bf) Then
Successful_count = Successful_count – 1
Exit For
End If
Next
If (i<( rs.RecordCount -1)) Then rs.MoveNext
Next
End If
End Function
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора