|
p align="left">$bd=mysql_select_db(kr,$soed); if ($bd == truе) { echo "База данных выбрана! <br>";} else { echo "Соединение с базой невозможно! <br>";exit;} echo "<br>"; $udal = "truncate table student"; $zapros = mysql_query($udal,$soed) or die (mysql_error()); $sql="load data local infile 'L:\\student.txt' replace into table student fields terminated by ';' enclosed by '\"' lines terminated by '\r\n' ;"; $zapros1=mysql_query($sql,$soed) or die(mysql_error()) ; echo "Данные занесены!!! Можете закрыть это окно"; ?> Программный код php-скрипта для вывода отчета по студенту на web-страницу <?php echo "<TITLE>Контрольные работы</TITLE>"; echo "<H1 align = center> Контрольные работы </H1> <HR> <HR>"; echo "<BR> <p> Сводные данные студента:"; $Fam=$_POST['Familiya']; $FNAME=$_POST['Name']; $LNAME=$_POST['Otchestvo']; $soed=mysql_connect('localhost:3306','root',''); mysql_query("set names cp1251"); $bd=mysql_select_db(kr,$soed); echo $Fam; echo "<br>"; echo $FNAME; echo "<br>"; echo $LNAME; echo "<br> <br> "; mysql_real_escape_string($Fam); mysql_real_escape_string($LNAME); mysql_real_escape_string($FNAME); $sql="SELECT student.Nomer_bileta FROM student WHERE ((`student`.`FamiliaST`='$Fam') AND (`student`.`ImayST`='$FNAME') AND (`student`.`OtchestvoST`='$LNAME'));"; $zapros1=mysql_query($sql,$soed) or die(mysql_error()) ; $stroki1=mysql_num_rows($zapros1); $polya1=mysql_num_fields($zapros1); for ($st=0; $st<$stroki1; $st++){ $bilet =mysql_fetch_array($zapros1); $nombil= $bilet[Nomer_bileta]; echo "Номер студенческого билета: $bilet[Nomer_bileta] <br>";} echo "<br>"; mysql_real_escape_string($nombil); $sql2 = " SELECT distinct kontrolnay_rabota.data_registr, kontrolnay_rabota.nomer_kontr_raboty, kontrolnay_rabota.data_proverki, kontrolnay_rabota.Shifr_disziplina, kontrolnay_rabota.id_ozenki FROM kontrolnay_rabota WHERE (`kontrolnay_rabota`.`Nomer_bileta` ='$nombil');"; $zapros2=mysql_query($sql2,$soed) or die(mysql_error()) ; $stroki2=mysql_num_rows($zapros2); $polya2=mysql_num_fields($zapros2); echo "<TABLE BORDER=0.5 width=70%> <TR> <TD> Дата регистрации КР </TD> <TD> Номер КР </TD> <TD> Дата проверки </TD> <TD> Оценка </TD> <TD> Дисциплина </TD> <TR> </TABLE> <BR>"; for ($st2=0; $st2<$stroki2; $st2++){ $kr =mysql_fetch_array($zapros2); $oc=$kr[id_ozenki]; if ($oc == "1" ) { $kr[id_ozenki] = " " ;} if ($oc == "2" ) { $kr[id_ozenki] = "зачет" ;} if ($oc == "3" ) { $kr[id_ozenki] = "незачет" ; } echo "<TABLE BORDER=0 width=70%> <TR> <TD width=32%>$kr[data_registr] </TD> <TD width=15%> $kr[nomer_kontr_raboty] </TD> <TD width=22%> $kr[data_proverki] </TD> <TD width=12%> $kr[id_ozenki] </TD> <TD width=19%> $kr[Shifr_disziplina] </TD> <TR> </TABLE> <BR>";} ?> Приложение В Запросы Запрос для «Отчет по преподавателю» SELECT Kontrolnay_rabota.data_proverki, Disziplina.naimen_disziplina, Student.Shifr_gruppa, [familiaST] & ' ' & Mid([imayST],1,1) & '.' & Mid([otchestvoST],1,1) & '.' AS Выражение1, Kontrolnay_rabota.nomer_kontr_raboty, [familiaPR] & ' ' & [imayPR] & ' ' & [otchestvopr] AS Выражение2 FROM Student INNER JOIN ((Kontrolnay_rabota INNER JOIN Disziplina ON Kontrolnay_rabota.Shifr_disziplina = Disziplina.Shifr_disziplina) INNER JOIN Prepodavatel ON Kontrolnay_rabota.Tabel_nomer = Prepodavatel.Tabel_nomer) ON Student.Nomer_bileta = Kontrolnay_rabota.Nomer_bileta WHERE (((Kontrolnay_rabota.data_proverki) Between ([Forms]![frm_vvod_perioda]![cbodata1].[Value]) And ([Forms]![frm_vvod_perioda]![cbodata2].[Value])) AND ((Student.Shifr_gruppa) Not Like "В_*") AND ((Kontrolnay_rabota.Tabel_nomer)=[Forms]![frm_vvod_perioda]![cboprepod].[Value])); Запрос для «Отчет по студенту» SELECT Kontrolnay_rabota.data_proverki, [familiaSt] & ' ' & [ImaySt] & ' ' & [OtchestvoSt] AS Выражение1, [familiaPR] & ' ' & Mid([imayPR],1,1) & '.' & Mid([otchestvoPR],1,1) & '.' AS Выражение2, Spezialnost.Naimenovanie_spezialnosti, Kontrolnay_rabota.data_registr, Disziplina.naimen_disziplina FROM (Spezialnost INNER JOIN (Gruppa INNER JOIN Student ON Gruppa.Shifr_gruppa = Student.Shifr_gruppa) ON Spezialnost.Shifr_spezialnosti = Gruppa.Shifr_spezialnosti) INNER JOIN ((Kontrolnay_rabota INNER JOIN Prepodavatel ON Kontrolnay_rabota.Tabel_nomer = Prepodavatel.Tabel_nomer) INNER JOIN Disziplina ON Kontrolnay_rabota.Shifr_disziplina = Disziplina.Shifr_disziplina) ON Student.Nomer_bileta = Kontrolnay_rabota.Nomer_bileta WHERE (((Kontrolnay_rabota.data_proverki) Between ([Forms]![frm_vvod_perioda]![cbodata1].[Value]) And ([Forms]![frm_vvod_perioda]![cbodata2].[Value])) AND ((Kontrolnay_rabota.Nomer_bileta)=[Forms]![frm_vvod_perioda]![cbostudent].[Value])); Запрос для «Отчет по всем преподавателям» SELECT [familiaPR] & ' ' & Mid([imaypr],1,1) & '.' & Mid([otchestvopr],1,1) & '.' AS Выражение1, Disziplina.naimen_disziplina, Sum(([vremia_proverki])/60) AS выражение2, Kontrolnay_rabota.Shifr_disziplina, Count(Kontrolnay_rabota.nomer_kontr_raboty) AS [Count-nomer_kontr_raboty] FROM Student INNER JOIN ((Kontrolnay_rabota INNER JOIN Prepodavatel ON Kontrolnay_rabota.Tabel_nomer = Prepodavatel.Tabel_nomer) INNER JOIN Disziplina ON Kontrolnay_rabota.Shifr_disziplina = Disziplina.Shifr_disziplina) ON Student.Nomer_bileta = Kontrolnay_rabota.Nomer_bileta WHERE (((Kontrolnay_rabota.data_proverki) Between ([Forms]![frm_vvod_perioda]![cbodata1].[Value]) And ([Forms]![frm_vvod_perioda]![cbodata2].[Value]))) GROUP BY [familiaPR] & ' ' & Mid([imaypr],1,1) & '.' & Mid([otchestvopr],1,1) & '.', Disziplina.naimen_disziplina, Kontrolnay_rabota.Shifr_disziplina; Запрос для отчета «Рецензия» SELECT Last(Kontrolnay_rabota.data_registr) AS [Last-data_registr], Last(Kontrolnay_rabota.nomer_kontr_raboty) AS [Last-nomer_kontr_raboty], Last(Kontrolnay_rabota.data_proverki) AS [Last-data_proverki], Last(Kontrolnay_rabota.vremia_proverki) AS [Last-vremia_proverki], Last(Prepodavatel!FamiliaPR & " " & Prepodavatel!ImayPR & " " & Prepodavatel!OtchestvoPR) AS Выражение1, Last(ozenka.Naimenovanie_ozenka) AS [Last-Naimenovanie_ozenka], Last(Disziplina.naimen_disziplina) AS [Last-naimen_disziplina], Last(Student!FamiliaST & " " & Student!ImayST & " " & Student!OtchestvoST) AS Выражение2, Last(Gruppa.Shifr_gruppa) AS [Last-Shifr_gruppa], Last(Spezialnost.Shifr_spezialnosti) AS [Last-Shifr_spezialnosti] FROM ozenka RIGHT JOIN ((Spezialnost RIGHT JOIN (Gruppa RIGHT JOIN Student ON Gruppa.Shifr_gruppa = Student.Shifr_gruppa) ON Spezialnost.Shifr_spezialnosti = Gruppa.Shifr_spezialnosti) RIGHT JOIN ((Kontrolnay_rabota LEFT JOIN Prepodavatel ON Kontrolnay_rabota.Tabel_nomer = Prepodavatel.Tabel_nomer) LEFT JOIN Disziplina ON Kontrolnay_rabota.Shifr_disziplina = Disziplina.Shifr_disziplina) ON (Student.data_postupleniya = Kontrolnay_rabota.data_postupleniya) AND (Student.Nomer_bileta = Kontrolnay_rabota.Nomer_bileta)) ON ozenka.id_ozenki = Kontrolnay_rabota.id_ozenki; Запрос для формы «Журнал регистрации» "INSERT INTO zhurnal ( nomer_kontr_raboty, data_registr, Выражение1, data_proverki, Выражение2, id_ozenki ) " & _ "SELECT Kontrolnay_rabota.nomer_kontr_raboty, Kontrolnay_rabota.data_registr, [familiaST] & ' ' & [imaySt] & ' ' & [OtchestvoST] AS Выражение1, Kontrolnay_rabota.data_proverki, [familiaPR] & ' ' & [imayPR] & ' ' & [otchestvoPR] AS Выражение2, Kontrolnay_rabota.id_ozenki " & _ "FROM ozenka INNER JOIN ((Gruppa INNER JOIN Student ON Gruppa.Shifr_gruppa = Student.Shifr_gruppa) INNER JOIN (Kontrolnay_rabota INNER JOIN Prepodavatel ON Kontrolnay_rabota.Tabel_nomer = Prepodavatel.Tabel_nomer) ON Student.Nomer_bileta = Kontrolnay_rabota.Nomer_bileta) ON ozenka.id_ozenki = Kontrolnay_rabota.id_ozenki " & _ "WHERE (((Gruppa.Shifr_gruppa) = [Forms]![Frm_zhurnal_nachalo]![cbovuborg].[Value]) And ((Kontrolnay_rabota.Shifr_disziplina) = [Forms]![Frm_zhurnal_nachalo]![cbovubord].[Value])) " & _ "ORDER BY Kontrolnay_rabota.nomer_kontr_raboty;" Запрос, выполняющийся при проверке контрольной работы на форме «Журнал регистрации» "UPDATE Kontrolnay_rabota SET Kontrolnay_rabota.data_proverki = [dp], Kontrolnay_rabota.id_ozenki = [oc] " & _ "WHERE (((Kontrolnay_rabota.nomer_kontr_raboty)=[u]));" Запрос выполняющийся при закрытии формы «Журнал регистрации» "DELETE zhurnal.* " & _ "FROM zhurnal;" Приложение Г Отчеты Отчет по проверенным контрольным работам за определенный период выбранным преподавателем представлен на рисунке Г1. Рисунок Г1 - Отчет по преподавателю Отчет по проверенным контрольным работам выбранного студента за определенный период представлен на рисунке Г2. Рисунок Г2 - Отчет по студенту Отчет по всем преподавателям отображающий количество проверенных контрольных работ и количество затраченного на это времени представлен на рисунке Г3. Рисунок Г3 - Отчет по всем преподавателям Рецензия для контрольной работы представлена на рисунке Г4. Рисунок Г4 - Рецензия для контрольной работы. Отчет по студенту отображающий сданные контрольные работы выбранным студентом представлен на рисунке Г5. Рисунок Г5 - Отчет по студенту Отчет по сданным контрольным работам преподавателю представлен на рисунке Г6. Рисунок Г6 - Отчет по преподавателю. Отчет по контрольным работам студента на web странице представлен на рисунке Г7 Рисунок Г7 - контрольные работы выведенные на web странице. Приложение Д Руководство пользователя Алгоритм работы секретаря 1. Открыть главную форму приложения, которая представлена на рисунке Д1 Рисунок Д1 - главная форма приложения 2. Нажать «Регистрация контрольных». На открывшейся форме «Регистрация контрольных» представленной на Рисунке Д2 сделать следующее: - выбрать группу, если необходимой группы нет, то нажать кнопку 1 и в открывшейся форме, представленной на Рисунке Д3 ввести нужное; - выбрать студента, если нужного студента нет, то нажав кнопку 2 откроется форма (Рисунок Д4), где можно занести нового студента; - выбрать дисциплину, если нужное нет то. Нажать кнопку 12и в открывшейся форме (Рисунок Д5) занести новую дисциплину; - выбрать преподавателя, если нужного нет, то нажать кнопку 11 и в открывшейся форме (Рисунок Д6) занести преподавателя; - нажать кнопку 9; - для просмотра рецензии нажать кнопку 7; - для печати рецензии нажать кнопку 6. Рисунок Д2 - форма регистрации контрольных Рисунок Д3 - Форма добавления новой группы Рисунок Д4 - Фома добавления нового студента Рисунок Д5 - Форма занесения новой дисциплины Рисунок Д6 - Форма занесения нового преподавателя Для занесения оценки контрольной работы нажать кнопку «Журнал регистрации» на главной форме приложения (Рисунок Д1), после чего откроется форма «Журнал регистрации» представленная на Рисунке Д7. На ней выбрать группу и дисциплину, после чего откроется форма с зарегистрированными контрольными работами, представленная на Рисунке Д8. Найдя нужную контрольную работу в соответствующих окнах указать дату проверки и поставленную оценку. Нажать кнопку «ОК», после этого появится окно (Рисунок Д9), в которое нужно ввести URL адрес и нажать «ОК». Откроется окно браузера(Рисунок Д10) которое следует просто закрыть. Рисунок Д7 - Форма журнала регистрации Рисунок Д8 - Форма зарегистрированных контрольных работ Рисунок Д9 - окно ввода URL адреса Рисунок Д10 - окно браузера
Страницы: 1, 2, 3, 4, 5
| 
