Рисунок 4 – Отчёт по расписанию предназначенный для вывода на печать Программный код данного отчёта представлен в приложении 3.
Получившийся отчёт аналогичен предыдущему. Он, как и планировалось, выполнен в чёрно-белом варианте, для последующей возможности вывода его на печать.
CSS (каскадные таблицы стилей) представляет собой ни что иное, как набор правил оформления и форматирования, который может быть применен к различным элементам страницы, в нашем случае к таблице. Для присвоения какому-либо элементу определённых характеристик следует один раз описать этот элемент и определить это описание как стиль, а в дальнейшем просто указывать, что элемент, который вы хотите оформить соответствующим образом, должен принять свойства стиля описанного вами. В нашем случае, описание каскадных таблиц стилей выделено в отдельный файл, что позволяет изменить оформление страниц, изменив стиль лишь в оном месте, что является очень удобным.
В разработанном файле rsp.css было описано:
−Цвет ячеек таблицы;
−Цвет таблицы;
−Шрифт надписей;
−Кегль надписей;
−Выравнивание в ячейках таблицы.
Таким образом, в разработанном файле описаны шрифт и его атрибуты, а также цвета ячеек.
Код данного файла представлен в приложении 4.
В результате проделанной работы была создана информационная технология «Электронная версия публикации расписания». Для оценки эффективности данной разработки был проведён социологический опрос. В нём участвовало 20 студентов первого курса. Результаты опроса представлены в таблице 2.
Таблица 4 – Опрос студентов
| № вопроса | Задаваемые вопросы | Да | Нет |
| 1 | Соответствует ли интерфейс требованиям эргономики? | 18 | 2 |
| 2 | Является ли выбор периодов удобным? | 16 | 4 |
| 3 | Достаточно ли понятно отображаются данные в «шахматке»? | 20 | 0 |
| ИТОГО: | 54 | 6 |
В результате проведённого опроса большинство студентов положительно оценила разработанную технологию. Из этого следует, что данная информационная технология получилась удачной, является пригодной к использованию. Интерфейс соответствует требованиям эргономики. Из этого следует, что поставленная нами задача успешно выполнена.
В данном курсовом проекте была решена задача разработки информационной технологии «Электронная версия публикации расписания»:
1. В качестве основной среды разработки была выбрана технология ASP.
2. Были предъявлены требования к оформлению интерфейса:
1. выбрана голубовато-синяя цветовая гамма.
2. шрифт Times New Roman, кегль - 12pt.
3. выявлено расположение объектов.
3. С помощью социологического опроса были выбраны подходящие периоды дат.
4. Был разработан интерфейс с учётом эргономики и требований к оформлению.
5. Был разработан новый вид отчёта, сделанный в виде «шахматки».
6. Был проведён социологический опрос эффективности данной информационной технологии. В ходе которого выявилась её действительная эффективность.
В приложениях приведены программные коды разработанной информационной технологии.
1. ИС по автоматизации составления расписания в ТФ СГАУ. – ТФ СГАУ, 2007.
2. Забродин Д.В. – Автоматизированная система публикации расписания. – ТФ СГАУ, 2007.
3. Доступ к источникам данных. – электронный документ:
http://www.codenet.ru/webmast/iis/htm/asp/iiwadata.php, 2007.
4. Гончаров А. Самоучитель HTML. – СПб.: Питер, 2002. – 240с.: ил.
5. Вайк А. JavaScript. Энциклопедия пользователя. Пер. с англ./Ален Вайк.
– К.: ООО “ТИД ДС”, 2001. – 480с.
6. Рамел Д. VisualBasic.Net. Справочник программиста/Практ. пособ./Пер.
с англ. – М.: Издательство ЭКОМ, 2002. – 352с.: ил.
Код файла form.asp
<SCRIPT LANGUAGE = "vbscript"> //язык сценария
Sub Week1 //название подпрограммы
Dim today, k, day1, day2, month1, month2, year1, year2 //определение переменных today=WeekDay(now-1)
For k=1 to 7
If today=k then
day1=Day(DateValue(now-k+1)) day2=Day(DateValue(now+6-k)) //определение
month1=Month(DateValue(now-k+1)) month2=Month(DateValue(now+6-k))
year1=Year(DateValue(now-k+2)) year2=Year(DateValue(now+7-k))
End If
Next
Document.query.d1.value = day1
Document.query.d2.value = day2
Document.query.m1.value = month1
Document.query.m2.value = month2
Document.query.y1.value = year1
Document.query.y2.value = year2 End Sub
Sub Week2
Dim today, k, day1, day2, month1, month2, year1, year2 today=WeekDay(now-1)
For k=1 to 7
If today=k then
day1=Day(DateValue(now-k+8)) day2=Day(DateValue(now+13-k)) month1=Month(DateValue(now-k+8)) month2=Month(DateValue(now+13-k)) year1=Year(DateValue(now-k+8))
year2=Year(DateValue(now+13-k))
End If
Next
Document.query.d1.value = day1 Document.query.d2.value = day2
Document.query.m1.value = month1 Document.query.m2.value = month2
Document.query.y1.value = year1
Document.query.y2.value = year2
End Sub
Sub Week3
Document.query.d1.value = ""
Document.query.d2.value = ""
Document.query.m1.value = ""
Document.query.m2.value = ""
Document.query.y1.value = ""
Document.query.y2.value = ""
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function Semestr
{
if (query.sem.value=="13.02.2006-31.05.2006") {document.query.d1.value=13}
}
</SCRIPT>
<%@ Language=VBScript %>
<html>
<head>
<title>Запрос на расписание</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<body onLoad="VBScript: week1()">
<table align="center" border="1" bgcolor="#B5D8FB">
<tr>
<th colspan="2" bgcolor="66ADF4"><h2>РАСПИСАНИЕ</h2></th>
<form name="query" method="get" action="rasp.asp">
<tr><td><b>Группа:</b></td>
<td>
<%
Dim Conn, RS, strSQL1, RS2, strSQL2
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=D:\СГАУ\текущие
предметы\ИТ\Курсовой проект\kp\db1.mdb;" Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strProvider
Set RS = Server.CreateObject("ADODB.Recordset") Set RS2 = Server.CreateObject("ADODB.Recordset")
strSQL1 = "SELECT name_grp FROM T_grp"
RS.Open strSQL1, Conn RS.MoveFirst
strSQL2 = "SELECT S_Data, E_Data, Name FROM семестры" RS2.Open strSQL2, Conn
Response.Write "<select name=""group"">"
Do While Not RS.EOF
Response.Write "<option>" & RS.Fields("name_grp") & "</option>"
RS.MoveNext
Loop
Response.Write "</select><br>"
RS.Close
Set RS = Nothing
%>
</td>
</tr>
<tr>
<td colspan="2"><b>Период:</b><p>
<input type="radio" name="Week" value="This" checked onClick="VBScript: week1()"><b>На эту неделю</b><br>
<input type="radio" name="Week" value="Next" onClick="VBScript: week2()"><b>На следующую неделю</b><br> </td></tr>
<tr onKeyPress="javascript: sem.checked = true;" onClick="javascript: sem.checked = true;">
<td><input type="radio" name="Week" value="Semestr" id="sem"><b>На семестр</b><br></td> <td align="center"><select name="Sem">
<% Do While Not RS2.EOF
Response.Write "<option value="&RS2.Fields("S_Data") & "-" & RS2.Fields("E_Data")& ">" &RS2.Fields("Name")&"</option>"
RS2.MoveNext
Loop
Response.Write "</select><br>"
%>
</td>
</tr>
<tr><td valign="top" colspan="2">
<input type="radio" name="Week" value="User" id="user" onClick="VBScript: week3()" ><b>На заданный период</b><p>
<table align="center" onKeyPress="javascript: user.checked = true;" onClick="javascript: user.checked = true;">
<tr>
<th></th>
<th>день</th>
<th>месяц</th>
<th>год</th>
</tr>
<%
Dim today, k, day1, day2, month1, month2, year1, year2
today=WeekDay(now-1)
For k=1 to 7
If today=k then
day1=Day(DateValue(now-k+1)) day2=Day(DateValue(now+6-k))
month1=Month(DateValue(now-k+1)) month2=Month(DateValue(now+6-k))
year1=Year(DateValue(now-k+2)) year2=Year(DateValue(now+7-k))
End If
Next
%>
<tr>
<th>с</th>
<td><%Response.Write "<input type=""text"" name=""d1"" maxlength=""2"" size=""3"" value=" & day1 & ">"%></td>
<td><select name="m1">
<option value="1">январь</option>
<option value="2">февраль</option>
<option value="3">март</option>
<option value="4">апрель</option>
<option value="5">май</option>
<option value="6">июнь</option>
<option value="7">июль</option>
<option value="8">август</option>
<option value="9">сентябрь</option>
<option value="10">октябрь</option>
<option value="11">ноябрь</option>
<option value="12">декабрь</option>
</select> </td>
<td><%Response.Write "<input type=""text"" name=""y1"" maxlength=""4"" size=""3"" value=" & year1 & ">" %></td>
</tr>
<tr>
<th>по</th>
<td><%Response.Write "<input type=""text"" name=""d2"" maxlength=""2"" size=""3"" value=" & day2 & ">"%></td>
<td><select name="m2">
<option value="1">январь</option>
<option value="2">февраль</option>
<option value="3">март</option>
<option value="4">апрель</option>
<option value="5">май</option>
<option value="6">июнь</option>
<option value="7">июль</option>
<option value="8">август</option>
<option value="9">сентябрь</option>
<option value="10">октябрь</option>
<option value="11">ноябрь</option>
<option value="12">декабрь</option>
</select> </td>
<td><%Response.Write "<input type=""text"" name=""y2"" maxlength=""4"" size=""3"" value=" & year2 & ">" %></td>
</tr>
</table><br></td>
<%Conn.Close
Set Conn = Nothing%>
</tr>
<tr>
<td colspan="2" align="right"><input type="submit" accesskey="#013" value=" Показать "><input type="reset" value=" Сброс "></td>
</form> </tr>
</table>
</body>
</html>
Код файла rasp.asp
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> <title>Расписание занятий группы
<%
Dim group,date1,date2,v,w,k,today group = Request.QueryString("group")
date1SQL =Request.QueryString("m1") & "/" & Request.QueryString("d1") & "/" & Request.QueryString("y1")
date2SQL = Request.QueryString("m2") & "/" & Request.QueryString("d2") & "/" & Request.QueryString("y2")
date1 =Request.QueryString("d1") & "." & Request.QueryString("m1") & "." & Request.QueryString("y1")