Создание web-приложения для табеля учета рабочего времени
Особенность формирования реляционной модели данных. Создание таблиц в программе. Характеристика разработки web-интерфейса. Анализ вывода информации о каждом сотруднике. Образование листинга программных кодов. Суть удаления и редактирования извещений.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 14.01.2018 |
| Размер файла | 621,5 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
RS3.Open strSQL3, Conn3
RS3.MoveFirst
Do While Not RS3.EOF
strOut3 = strOut3 & "<option>" & RS3.Fields("post_name") & "</option>"
RS3.MoveNext
Loop
RS3.Close
Set RS3 = Nothing
Conn3.Close
Set Conn3 = Nothing
Response.Write strOut3
%>
</select>
</div>
<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>З/П: <select name=payment id="jumpMenu2" onchange="MM_jumpMenu('parent',this,0)" style="margin-left:95px;">
<%
Dim Conn7, RS7, strSQL7, strSQL_dol17, strSQL_dol27, strOut7
strOut7 = ""
Set Conn7 = Server.CreateObject("ADODB.Connection")
Conn7.Open "dsn=tab"
Set RS7 = Server.CreateObject("ADODB.Recordset")
strSQL7 = "select * from dbo.payment_kind"
RS7.Open strSQL7, Conn7
RS7.MoveFirst
Do While Not RS7.EOF
strOut7 = strOut7 & "<option>" & RS7.Fields("payment_name") & "</option>"
RS7.MoveNext
Loop
RS7.Close
Set RS7 = Nothing
Conn7.Close
Set Conn7 = Nothing
Response.Write strOut7
%>
</select>
</div>
<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Подразделение: <select name=division id="jumpMenu2" onchange="MM_jumpMenu('parent',this,0)" style="margin-left:12px;">
<%
Dim Conn9, RS9, strSQL9, strSQL_dol19, strSQL_dol29, strOut9
strOut9 = ""
Set Conn9 = Server.CreateObject("ADODB.Connection")
Conn9.Open "dsn=tab"
Set RS9 = Server.CreateObject("ADODB.Recordset")
strSQL9 = "select * from dbo.division_list"
RS9.Open strSQL9, Conn9
RS9.MoveFirst
Do While Not RS9.EOF
strOut9 = strOut9 & "<option>" & RS9.Fields("division_name") & "</option>"
RS9.MoveNext
Loop
RS9.Close
Set RS9 = Nothing
Conn9.Close
Set Conn9 = Nothing
Response.Write strOut9
%>
</select>
</div>
<input name="submit" type="submit" value="Обновить данные">
</form>
</div>
</strong></p>
</div>
<p class="meta"></p>
</div>
</div>
<!-- end content -->
</div>
<div style="clear: both; height: 30px"> </div>
<!-- end page -->
<div id="footer">
<p>© 2017 Квашнин А.А.</p>
</div>
</body>
</html>
Данные успешно обновлены.
Листинг программного кода employee_update_step2.asp
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>Табель учета рабочего времени - Сотрудники</title>
<meta name="keywords" content="" />
<meta name="description" content="" />
<link href="default.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body>
<!-- start header -->
<div id="header">
<h1>Табель учета рабочего времени</h1>
</div>
<!-- end header -->
<!-- start menu -->
<div id="menu">
<ul>
<li><a href="../index.asp">Главная</a></li>
<li><a href="employee.asp">Сотрудники</a></li>
<li><a href="../devision/devision.asp">Подразделения</a></li>
<li><a href="../mark/mark.asp">Посещаемость</a></li>
</ul>
</div>
<!-- end menu -->
<!-- start page -->
<div id="page">
<!-- start content -->
<div id="content">
<div class="post">
<h1 class="title">Список сотрудников</h1>
<div class="entry">
<p><strong>
<%
dim id
dim s_name
dim nam
dim pat_name
dim dol
dim payment
dim division
id=Request("id")
s_name=Request("s_name")
nam=Request("nam")
pat_name=Request("pat_name")
dol=Request("dol")
payment=Request("payment")
division=Request("division")
Dim con
Dim rst
Set con=Server.CreateObject("ADODB.Connection")
con.Open "DSN=tab"
Set rst=Server.CreateObject("ADODB.Recordset")
rst=con.execute("UPDATE dbo.employee SET name='"+nam+"', s_name='"+s_name+"', pat_name='"+pat_name+"' WHERE employee_id='"+id+"'")
con.close
%>
<%
Dim Conn2, RS2, strSQL2, strOut2
strOut2 = ""
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "dsn=tab"
Set RS2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT * FROM Post_kind WHERE post_name like '"+dol+"'"
RS2.Open strSQL2, Conn2
RS2.MoveFirst
Do While Not RS2.EOF
strOut2 = strOut2 & RS2.Fields("post_kind_id")
RS2.MoveNext
Loop
RS2.Close
Set RS2 = Nothing
Conn2.Close
Set Conn2 = Nothing
%>
<%
Dim Conn3, RS3, strSQL3, strOut3
strOut3 = ""
Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open "dsn=tab"
Set RS3 = Server.CreateObject("ADODB.Recordset")
strSQL3 = "SELECT * FROM Payment_kind WHERE payment_name like '"+payment+"'"
RS3.Open strSQL3, Conn3
RS3.MoveFirst
Do While Not RS3.EOF
strOut3 = strOut3 & RS3.Fields("payment_kind_id")
RS3.MoveNext
Loop
RS3.Close
Set RS3 = Nothing
Conn3.Close
Set Conn3 = Nothing
%>
<%
Dim Conn4, RS4, strSQL4, strOut4
strOut4 = ""
Set Conn4 = Server.CreateObject("ADODB.Connection")
Conn4.Open "dsn=tab"
Set RS4 = Server.CreateObject("ADODB.Recordset")
strSQL4 = "SELECT * FROM division_list WHERE division_name like '"+division+"'"
RS4.Open strSQL4, Conn4
RS4.MoveFirst
Do While Not RS4.EOF
strOut4 = strOut4 & RS4.Fields("division_list_id")
RS4.MoveNext
Loop
RS4.Close
Set RS4 = Nothing
Conn4.Close
Set Conn4 = Nothing
%>
<%
Dim con5
Dim rst5
Set con5=Server.CreateObject("ADODB.Connection")
con5.Open "DSN=tab"
Set rst5=Server.CreateObject("ADODB.Recordset")
rst5=con5.execute("UPDATE dbo.working_hours SET payment_kind_id='"+strOut3+"' WHERE employee_id='"+id+"'")
con5.close
%>
<%
Dim con6
Dim rst6
Set con6=Server.CreateObject("ADODB.Connection")
con6.Open "DSN=tab"
Set rst6=Server.CreateObject("ADODB.Recordset")
rst6=con6.execute("UPDATE dbo.employee_list SET post_kind_id='"+strOut2+"' WHERE employee_id='"+id+"'")
con6.close
%>
<%
Dim con7
Dim rst7
Set con7=Server.CreateObject("ADODB.Connection")
con7.Open "DSN=tab"
Set rst7=Server.CreateObject("ADODB.Recordset")
rst7=con7.execute("UPDATE dbo.division SET division_list_id='"+strOut4+"' WHERE employee_id='"+id+"'")
con7.close
Response.write("Данные успешно обновлены!")
%>
<form action=employee.asp method=post>
<input type="submit" value="Вернуться к списку сотрудников">
</form>
</strong></p>
</div>
<p class="meta"></p>
</div>
</div>
<!-- end content -->
</div>
<div style="clear: both; height: 30px"> </div>
<!-- end page -->
<div id="footer">
<p>© 2017 Квашнин А.А.</p>
</div>
</body>
</html>
Удаление данных
В данном Web приложении предусмотрено удаление из базы данных информации о сотруднике. Чтобы перейти к удалению, необходимо со стартовой страницы пройти путь: сотрудники / Удалить сотрудника. Сначала необходимо выбрать порядковый номер сотрудника.
Листинг программного кода employee_del.asp
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>Табель учета рабочего времени - Сотрудники</title>
<meta name="keywords" content="" />
<meta name="description" content="" />
<link href="default.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body>
<!-- start header -->
<div id="header">
<h1>Табель учета рабочего времени</h1>
</div>
<!-- end header -->
<!-- start menu -->
<div id="menu">
<ul>
<li><a href="../index.asp">Главная</a></li>
<li><a href="employee.asp">Сотрудники</a></li>
<li><a href="../devision/devision.asp">Подразделения</a></li>
<li><a href="../mark/mark.asp">Посещаемость</a></li>
</ul>
</div>
<!-- end menu -->
<!-- start page -->
<div id="page">
<!-- start content -->
<div id="content">
<div class="post">
<h1 class="title" style=" margin-left:80px;">Удаление сотрудника</h1>
<div class="entry">
<p><strong>
<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>
<form name=dalee action='employee_del_step2.asp'>
Сотрудник №: <select name=id id="jumpMenu" onchange="MM_jumpMenu('parent',this,0)">
<%
Dim Conn3, RS3, strSQL3, strSQL_dol13, strSQL_dol23, strOut3, id
strOut3 = ""
Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open "dsn=tab"
Set RS3 = Server.CreateObject("ADODB.Recordset")
strSQL3 = "select * from dbo.employee"
RS3.Open strSQL3, Conn3
RS3.MoveFirst
Do While Not RS3.EOF
strOut3 = strOut3 & "<option>" & RS3.Fields("employee_id") & "</option>"
RS3.MoveNext
Loop
RS3.Close
Set RS3 = Nothing
Conn3.Close
Set Conn3 = Nothing
Response.Write strOut3
%>
</select>
<input name="submit" type="submit" value="Далее">
</form> </div>
</strong></p>
</div>
<p class="meta"></p>
</div>
</div>
<!-- end content -->
</div>
<div style="clear: both; height: 30px"> </div>
<!-- end page -->
<div id="footer">
<p>© 2017 Квашнин А.А.</p>
</div>
</body>
</html>
Данные о сотруднике удалены.
Листинг программного кода employee_del_step2.asp
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>Табель учета рабочего времени - Сотрудники</title>
<meta name="keywords" content="" />
<meta name="description" content="" />
<link href="default.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body>
<!-- start header -->
<div id="header">
<h1>Табель учета рабочего времени</h1>
</div>
<!-- end header -->
<!-- start menu -->
<div id="menu">
<ul>
<li><a href="../index.asp">Главная</a></li>
<li><a href="employee.asp">Сотрудники</a></li>
<li><a href="../devision/devision.asp">Подразделения</a></li>
<li><a href="../mark/mark.asp">Посещаемость</a></li>
</ul>
</div>
<!-- end menu -->
<!-- start page -->
<div id="page">
<!-- start content -->
<div id="content">
<div class="post">
<h1 class="title" align="center">Сотрудник удален</h1>
<div class="entry">
<p><strong>
<%
Const adOpenKeyset=1
Const adLockOptimistic=3
dim id
id=Request("id")
Dim Conn, RS, strSQL, strOut
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=tab"
Set RS=Server.CreateObject("ADODB.Recordset")
StrSQL="delete from dbo.employee where employee_id="+id
RS.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Conn.Close
%>
<p align="center">Данные о сотруднике успешно удалены</p>
<div style="margin:auto;">
<form name=dalee action='employee.asp'>
<input name="submit" type="submit" value="Вернуться в раздел Сотрудники">
</form> </div>
</strong></p>
</div>
<p class="meta"></p>
</div>
</div>
<!-- end content -->
</div>
<div style="clear: both; height: 30px"> </div>
<!-- end page -->
<div id="footer">
<p>© 2017 Квашнин А.А.</p>
</div>
</body>
</html>
ЗАКЛЮЧЕНИЕ
В данной работе было реализовано приложение с доступом к базе данных через web интерфейс. Данное приложение существенно облегчит работу служащих, ответственных за работу с базой данных.
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
1. Знакомство с технологией Microsoft ASP.NET 2.0 AJAX Дино Эспозито Издательство: Русская Редакция, Питер Год: 2014
2. Microsoft ASP.NET 2.0. Базовый курс - Дино Эспозито
3. Вилдермьюс, Шон. Практическое использование ADO.NET. Доступ к данным в Internet
Размещено на Allbest.ru
Подобные документы
Создание автоматизированной системы – "Агентство по трудоустройству". Проектирование таблиц для хранения данных. Разработка запросов и отчетов, предназначенных для просмотра, редактирования и вывода информации. Разработка пользовательского интерфейса.
курсовая работа [4,9 M], добавлен 29.01.2011Особенности разработки инфологической модели и создание структуры реляционной базы данных. Основы проектирования базы данных. Разработка таблиц, форм, запросов для вывода информации о соответствующей модели. Работа с базами данных и их объектами.
курсовая работа [981,4 K], добавлен 05.11.2011Разработка пользовательского интерфейса. Цели и задачи базы данных. Создание информационно-структурной модели для предприятия и обеспечение в этой сети необходимого уровня защиты информации от некомпетентных действий некоторых сотрудников предприятия.
курсовая работа [1,1 M], добавлен 27.12.2009Теоретические основы разработки приложения для автоматизации данных по Олимпиаде. Основные свойства объектов, связей, их атрибуты. Создание отчета на примере "спортсмены занявшие места с 1 по 3". Структура запросов, таблиц базы данных в Microsoft Access.
курсовая работа [1,1 M], добавлен 09.12.2013Задачи реляционной модели данных. Работа с БД посредством SQL запросов. Требования к программе. Система просмотра отчета. Способы вывода информации: на бумажный носитель и в табличный процессор Microsoft Excel. Средства защиты и хранения данных.
курсовая работа [245,7 K], добавлен 22.06.2009Создание БД с информацией о сотрудниках на основе таблиц: "Сотрудники", "Отдел". Поиск, сортировка и фильтрация данных в таблицах. Запросы на выборку данных, удаления и замены. Создание форм и отчетов на основе запросов и таблиц. Диспетчер кнопочных форм.
лабораторная работа [136,7 K], добавлен 01.12.2011Основные этапы разработки web-сайта факультета информатики: структурная схема функционирования, разработка интерфейса (регистрация посетителей, просмотр новостей, просмотр информации о факультете). Прописывание основных программных кодов приложения.
контрольная работа [4,9 M], добавлен 02.12.2009Структура обязательной информации, включаемой в базу данных компьютерной фирмы. Создание таблиц с помощью Microsoft Access, содержащих сведения о компьютерах, покупателях, оплате. Разработка форм для выполнения расчетов, просмотра и редактирования данных.
контрольная работа [2,3 M], добавлен 10.04.2012Среды создания баз данных. Установка программного продукта MS Access 2000, построение реляционной базы данных, поддержка языка XML. ER-диаграмма (схема "сущность-связь"). Заполнение форм, создание таблиц. Действия для создания и редактирования списка.
курсовая работа [954,9 K], добавлен 22.12.2010Выбор программных и аппаратных средств для создания базы данных. Описание структуры программы. Описание разработки приложения. Подключение к базе данных, выполняемое с помощью компонента ADOConnectio. Создание средств защиты информации в программе.
курсовая работа [2,1 M], добавлен 16.02.2015
