Создание web-приложения для табеля учета рабочего времени

Размещено на http://www.allbest.ru/

НОВОСИБИРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ И УПРАВЛЕНИЯ

Кафедра экономической информатики

КУРСОВАЯ РАБОТА

Тема: «Создание Web - приложения для табеля учета рабочего времени»

Квашнин А.А.

Проверил:

зав каф. прикладных ИТ, к.т.н., доцент

Осипов А.Л.

Новосибирск 2017



В качестве объекта практического исследования бизнес - процесса по учету рабочего времени выбрана организация ООО торгово-производственная компания «Сладости Сибири».

ООО «Сибирские сладости» это одна пекарня и сеть кондитерских магазинов г.Новосибирска. Административное звено организации состоит из директора, главного бухгалтера, главного инженера, менеджера по персоналу, начальника торгового отдела. Главный инженер следит за работой технического оборудования (Печное оборудование, холодильники и вентиляция). Начальник торгового отдела ведет работу с поставщиками. Так же в организации имеются завхоз, секретарь, кассир, продавцы, пекари, охранник(В административном здании), оператор чистоты и торговый представитель (следит за ассортиментом в магазинах и оформляет заказ поставок).

ООО «Сибирские сладости» это организация, у которой есть свое административное здание, совмещенное с пекарней. Учет рабочего времени ведется автоматически по средствам автоматизированных турникетов на проходной. У каждого работника есть свой персональный пропуск. Табель учета рабочего времени (форма Т13) составляется в единственном экземпляре в конце месяца, подписывается менеджером по персоналу и передается в бухгалтерию. В бухгалтерии, согласно правилам, начисляется заработная плата работникам организации.

Табель учета использования рабочего времени - первичный документ применяется:

- для учета использования рабочего времени;

- для контроля за соблюдением работниками установленного режима рабочего времени;

- для расчетов с работниками по заработной плате;

- для получения данных об отработанном времени.

Для отражения ежедневных затрат рабочего времени за месяц на каждого работника в табеле отведено четыре строки (по две на каждую половину месяца) и соответствующее число граф (15 и 16).

Форма N Т-13 "Табель учета рабочего времени" применяется при автоматизированной обработке учетных данных. При составлении табеля по форме N Т-13: При записи учетных данных для начисления заработной платы только по одному виду оплаты и корреспондирующему счету, общим для всех работников, включенных в Табель, заполняются реквизиты "код вида оплаты", "корреспондирующий счет" над таблицей с графами с 7 - 9 и графа 9 без заполнения граф 7 и 8;

При записи учетных данных для начисления заработной платы по нескольким (от двух до четырех) видам оплаты и корреспондирующих счетов заполняются графы 7 - 9. Дополнительный блок с идентичными номерами граф предусмотрен для заполнения данных по видам оплаты, если их количество больше четырех.

Таблица «Employee(Сотрудник)»

employee_id	Id сотрудника
name	Имя
s_name	Фамилия
pat_name	Отчество

Реляционная модель данных

На данном этапе концептуальная модель преобразуется в реляционную модель базы данных.

Таблица «Post_kind( Вид должности)»

post_kind_id	Id должности
post_name	Наименование

Бланки табеля по форме N Т-13 с частично заполненными реквизитами могут быть изготовлены с применением средств вычислительной техники. К таким реквизитам относятся: структурное подразделение, фамилия, имя, отчество, должность (специальность, профессия), табельный номер и т.п. - то есть данные, содержащиеся в справочниках условно-постоянной информации организации. В этом случае форма табеля изменяется в соответствии с принятой технологией обработки учетных данных.

Таблица «Employee_list(Список сотрудников)»

employee_list_id	Id списка сотрудников
employee_id	Id сотрудника
post_kind_id	Id должности

Таблица «Absence_reasonsПричины неявки»

absence_reasons_id	Id причины неявки
employee_id	Id сотрудника
absence_reasons_date	дата
absence_kind_id	Id вида неявки

Таблица «Absence_kind(Вид неявки)»

absence_kind_id	Id вида неявки
absence_name	Наименование

Таблица «Marks_absence(Отметки о неявках)»

mark_absence_id	Id отметки о неявке
employee_id	Id сотрудника
m_a_date	дата
mark	Отметка

Таблица «Working_hours(Рабочее время)»

Id Раб.Вр.	workinn_hourse_id
employee_id	Id сотрудника
payment_kind_id	Id вида оплаты

Таблица «Payment_kind (Вид оплаты)»

payment_kind_id	Id вида оплаты
payment_name	Наименование

Таблица «Division(Подразделение)»

division_id	Id подразделения
division_list_id	Id списка подразделений
employee_id	Id сотрудника

Таблица «Division_list(Список подразделений)»

division_list_id	Id списка подразделений
division_name	наименование
kor_schet_id	Id счета

Таблица «Kor_schet(Корреспондирующий счет)»

kor_schet_id	Id кор. счета
kor_schet_num	№ счета

Модель данных в SQL server 2005

Таблицы

Создание таблиц

use tabel

go

CREATE TYPE absence_type FROM char(1)NOT NULL;

--сотрудник

CREATE TABLE employee(

employee_id int IDENTITY(1,1) PRIMARY KEY,

[name] char(50) NOT NULL,

s_name char(50) NOT NULL,

pat_name char(50) NOT NULL)

--список сотрудников

CREATE TABLE employee_list(

employee_list_id int IDENTITY(1,1) PRIMARY KEY,

employee_id int NOT NULL,

post_kind_id int NOT NULL,

FOREIGN KEY (employee_id)

REFERENCES employee(employee_id) ON DELETE CASCADE,

FOREIGN KEY (post_kind_id)

REFERENCES post_kind(post_kind_id) ON DELETE CASCADE)

--вид должности

CREATE TABLE post_kind(

post_kind_id int IDENTITY(1,1) PRIMARY KEY,

post_name char(50) NOT NULL)

--рабочее время

CREATE TABLE working_hours(

workinn_hourse_id int IDENTITY(1,1) PRIMARY KEY,

employee_id int NOT NULL FOREIGN KEY (employee_id)

REFERENCES employee(employee_id) ON DELETE CASCADE,

payment_kind_id int NOT NULL FOREIGN KEY (payment_kind_id)

REFERENCES payment_kind(payment_kind_id) ON DELETE CASCADE)

--вид оплаты

CREATE TABLE payment_kind(

payment_kind_id int IDENTITY(1,1) PRIMARY KEY,

payment_name char(50) NOT NULL,

--отметки о неявках

CREATE TABLE marks_absence(

mark_absence_id int IDENTITY(1,1) PRIMARY KEY,

employee_id int NOT NULL FOREIGN KEY (employee_id)

REFERENCES employee(employee_id) ON DELETE CASCADE,

m_a_date smalldatetime NOT NULL,

mark absence_type DEFAULT 'Y' CHECK

(mark in ('Y','N','O')))

--причины неявки

CREATE TABLE absence_reasons(

absence_reasons_id int IDENTITY(1,1) PRIMARY KEY,

employee_id int NOT NULL FOREIGN KEY (employee_id)

REFERENCES employee(employee_id) ON DELETE CASCADE,

absence_reasons_date smalldatetime NOT NULL,

absence_kind_id int NOT NULL FOREIGN KEY (absence_kind_id)

REFERENCES absence_kind(absence_kind_id) ON DELETE CASCADE)

--вид неявки

CREATE TABLE absence_kind(

absence_kind_id int IDENTITY(1,1) PRIMARY KEY,

absence_name char(50) NOT NULL)

--подразделение

CREATE TABLE division(

division_id int IDENTITY(1,1) PRIMARY KEY,

division_list_id int NOT NULL FOREIGN KEY (division_list_id)

REFERENCES division_list(division_list_id) ON DELETE CASCADE,

employee_id int NOT NULL FOREIGN KEY (employee_id)

REFERENCES employee(employee_id) ON DELETE CASCADE)

--список подразделений

CREATE TABLE division_list(

division_list_id int IDENTITY(1,1) PRIMARY KEY,

division_name char(50) NOT NULL,

kor_schet_id int NOT NULL FOREIGN KEY (kor_schet_id)

REFERENCES kor_schet(kor_schet_id) ON DELETE CASCADE)

--корреспондирующий счет

CREATE TABLE kor_schet(

kor_schet_id int IDENTITY(1,1) PRIMARY KEY,

kor_schet_num char(4) NOT NULL)

РАЗРАБОТКА WEB-ИНТРЕФЕЙСА

Главное меню. Поиск

При запуске Web приложения, пользователь попадает на главную страницу. Запуск осуществляется путем ввода в адресную строку браузера следующего адреса: http://localhost/tabel/index.asp. Также на стартовой странице расположена форма поиска сотрудников по личным и служебным данным. В качестве параметров поиска зададим значения: фамилия - начинается на «Ив», имя - начинается на «С», отчество - не известно, должность - директор, з/п и подразделение - не известно.

Листинг программного кода index.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"

<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/employee.asp">Сотрудники</a></li>

<li><a href="devision/devision.asp">Подразделения</a></li>

<li><a href="mark/mark.asp">Посещаемость</a></li>

<li><a href="payment/payment.asp">З/П</a></li>

</ul>

</div>

<!-- end menu -->

<!-- start page -->

<div id="page">

<!-- start content -->

<di id="content">

<div class="post">

<h1 class="title">Поиск</h1>

<p align="center">Введите полные или частичные данные о сотруднике</p>

<div class="entry">

<p><strong>

<div style='width:600px; margin:auto; margin-top:20px; padding:20px; border: 1px solid #CCCCCC; color:#FFFFFF;'>

<form action="serch/serch.asp" method="post">

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Фамилия: <input type=text name=s_name size=40 value="" style="margin-left:55px;"></div>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Имя: <input type=text name=nam size=40 value="" style="margin-left:90px;"></div>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Отчество: <input type=text name=pat_name size=40 value="" style="margin-left:55px;"></div>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Должность: <select name=dol id="jumpMenu" onchange="MM_jumpMenu('parent',this,0)" style="margin-left:45px;">

<option></option><%

Dim Conn3, RS3, strSQL3, strSQL_dol13, strSQL_dol23, strOut3

strOut3 = ""

Set Conn3 = Server.CreateObject("ADODB.Connection")

Conn3.Open "dsn=tab"

Set RS3 = Server.CreateObject("ADODB.Recordset")

strSQL3 = "select * from dbo.post_kind"

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;">

<option></option><%

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;">

<option></option><%

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="Поиск" style="margin:5px;">

</form>

</div>

</strong></p>

</div>

<p class="meta"></p>

</div>

</div>

<!-- end content -->

</div>

<div style="clear: both; height: 30px">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

Результат поиска



Листинг программного кода serch.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"

<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/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>

<%

On Error Resume Next

dim nam, s_name, pat_name, dol, payment, division, zap2, zap3, zap4, zap5, zap6

nam=request("nam")

s_name=request("s_name")

pat_name=request("pat_name")

dol=request("dol")

payment=request("payment")

division=request("division")

if (nam="" and s_name="" and pat_name="" and dol="" and payment="" and division="") then Response.Write("Вы не ввели критериев поиска, на странице показаны все сотрудники <a href='../index.asp'>Вернуться к поиску</a>") else Response.Write("") end if

if not(nam="") then zap2="and [name] like '"+nam+"%'" else zap2="" end if

if not(pat_name="") then zap3="and pat_name like '"+pat_name+"%'" else zap3="" end if

if not(dol="") then zap4="and post_name like '"+dol+"'" else zap4="" end if

if not(payment="") then zap5="and payment_name like '"+payment+"'" else zap5="" end if

if not(division="") then zap6="and division_name like '"+division+"'" else zap6="" end if

Dim Conn, RS, strSQL, strOut

strOut = ""

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "dsn=tab"

Set RS = Server.CreateObject("ADODB.Recordset")

strSQL = "select E.employee_id, E.s_name, E.[name], E.pat_name, PK.post_name, PM.payment_name, DIVL.division_name from dbo.employee as E inner join dbo.employee_list as EL on E.employee_id = EL.employee_id inner join dbo.post_kind as PK on EL.post_kind_id = PK.post_kind_id inner join dbo.working_hours as WH on WH.employee_id = E.employee_id inner join dbo.payment_kind as PM on PM.payment_kind_id = WH.payment_kind_id inner join dbo.division as DIV on DIV.employee_id = E.employee_id inner join dbo.division_list as DIVL on DIVL.division_list_id = DIV.division_list_id WHERE s_name like'"+s_name+"%' "+zap2+" "+zap3+" "+zap4+" "+zap5+" "+zap6+""

RS.Open strSQL, Conn

RS.MoveFirst

Do While Not RS.EOF

strOut = strOut & "<div style='width:600px; margin:auto; margin-top:20px; padding:20px; border: 1px solid #CCCCCC; color:#FFFFFF;'>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>№ Сотрудника: " & RS.Fields("employee_id") & "</div>"

strOut = strOut & "<div style='width:150px; display:block; padding:5px; float:left;'>Имя: " & RS.Fields("name") & "</div>"

strOut = strOut & "<div style='width:150px; display:block; padding:5px; float:left;'>Фамилия: " & RS.Fields("s_name") & "</div>"

strOut = strOut & "<div style='width:150px; display:block; padding:5px;'>Отчество: " & RS.Fields("pat_name") & "</div>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Должность: " & RS.Fields("post_name") & "</div>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Вид заработной платы: " & RS.Fields("payment_name") & "</div>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Подразделение: " & RS.Fields("division_name") & "</div>"

strOut = strOut & "</div>"

RS.MoveNext

Loop

RS.Close

Set RS = Nothing

Conn.Close

Set Conn = Nothing

Response.Write strOut

%>

</strong></p>

</div>

<p class="meta"></p>

</div>

</div>

<!-- end content -->

</div>

<div style="clear: both; height: 30px">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

Просмотр данных

Вывод сотрудников

Для вывода информации о каждом сотруднике, необходимо с главного меню перейти по ссылке «сотрудники»

Листинг программного кода employee.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>

<p style="margin-left:60px;"><a href="employee_insert_form.asp">Добавить сотрудника</a></p>

<p style="margin-left:60px;"><a href="employee_del.asp">Удаление сотрудника</a></p>

<p style="margin-left:60px;"><a href="employee_update_form.asp">Редактирование</a></p>

<p class="byline" style="margin-left:60px;"><small>На данной странице отображается таблица с информацией о каждом сотруднике.</small></p>

<div class="entry">

<p><strong>

<%

Dim Conn, RS, strSQL, strSQL_dol1, strSQL_dol2, strOut, id

strOut = ""

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "dsn=tab"

Set RS = Server.CreateObject("ADODB.Recordset")

strSQL = "select E.employee_id, E.s_name, E.[name], E.pat_name, PK.post_name, PM.payment_name, DIVL.division_name from dbo.employee as E inner join dbo.employee_list as EL on E.employee_id = EL.employee_id inner join dbo.post_kind as PK on EL.post_kind_id = PK.post_kind_id inner join dbo.working_hours as WH on WH.employee_id = E.employee_id inner join dbo.payment_kind as PM on PM.payment_kind_id = WH.payment_kind_id inner join dbo.division as DIV on DIV.employee_id = E.employee_id inner join dbo.division_list as DIVL on DIVL.division_list_id = DIV.division_list_id"

RS.Open strSQL, Conn

RS.MoveFirst

Do While Not RS.EOF

id=RS.Fields("employee_id")

strOut = strOut & "<div style='width:600px; margin:auto; margin-top:20px; padding:20px; border: 1px solid #CCCCCC; color:#FFFFFF;'>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>№ Сотрудника: " & RS.Fields("employee_id") & "</div>"

strOut = strOut & "<div style='width:150px; display:block; padding:5px; float:left;'>Имя: " & RS.Fields("name") & "</div>"

strOut = strOut & "<div style='width:150px; display:block; padding:5px; float:left;'>Фамилия: " & RS.Fields("s_name") & "</div>"

strOut = strOut & "<div style='width:150px; display:block; padding:5px;'>Отчество: " & RS.Fields("pat_name") & "</div>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Должность: " & RS.Fields("post_name") & "</div>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Вид заработной платы: " & RS.Fields("payment_name") & "</div>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Подразделение: " & RS.Fields("division_name") & "</div>"

strOut = strOut & "</div>"

RS.MoveNext

Loop

RS.Close

Set RS = Nothing

Conn.Close

Set Conn = Nothing

Response.Write strOut

%>

</strong></p>

</div>

<p class="meta"></p>

</div>

</div>

<!-- end content -->

</div>

<div style="clear: both; height: 30px">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

При переходе по ссылке «Подразделения», пользователь может посмотреть список подразделений данной организации.

Листинг программного кода devision.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/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>

<p class="byline" align="center"><small>На данной странице отображаются все подразделения данной организации и их штат.</small></p>

<div class="entry">

<p><strong>

<%

Dim Conn, RS, strSQL, strOut

strOut = ""

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "dsn=tab"

Set RS = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT division_name, count(DL.division_list_id) as KS FROM dbo.division as D inner join division_list as DL on D.division_list_id = DL.division_list_id group by division_name"

RS.Open strSQL, Conn

RS.MoveFirst

strOut = strOut & "<TABLE align=""center"" width=""500px"">"

strOut = strOut & "<TR><TH>Наименование подразделения</TH><TH>Количество сотрудников</TH></TR>"

Do While Not RS.EOF

strOut = strOut & "<TR>"

strOut = strOut & "<TD>" & RS.Fields("division_name") & "</TD>"

strOut = strOut & "<TD align=""center"">" & RS.Fields("KS") & "</TD>"

strOut = strOut & "</TR>"

RS.MoveNext

Loop

strOut = strOut & "</TABLE>"

strOut = strOut & "<HR>"

RS.Close

Set RS = Nothing

Conn.Close

Set Conn = Nothing

Response.Write strOut

%>

</strong></p>

</div>

<p class="meta"></p>

</div>

</div>

<!-- end content -->

</div>

<div style="clear: both; height: 30px">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

При переходе по ссылке «Посещаемость», пользователь может узнать, сколько пропусков у каждого сотрудника.

Листинг программного кода mark.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/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>

<p style="margin-left:60px;"><a href="mark_no.asp">Показать сотрудников не имеющих пропусков</a></p>

<p class="byline" style="margin-left:60px;"><small>На данной странице отображается таблица с информацией о посещении каждого сотрудника.</small></p>

<div class="entry">

<p><strong>

<%

Dim Conn, RS, strSQL, strSQL_dol1, strSQL_dol2, strOut, id

strOut = ""

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "dsn=tab"

Set RS = Server.CreateObject("ADODB.Recordset")

strSQL = "select s_name, count(MA.employee_id) as 'cemp' from dbo.employee as E inner join dbo.marks_absence as MA on E.employee_id = MA.employee_id group by s_name"

RS.Open strSQL, Conn

RS.MoveFirst

Do While Not RS.EOF

strOut = strOut & "<div style='width:600px; margin:auto; margin-top:20px; padding:20px; border: 1px solid #CCCCCC; color:#FFFFFF;'>"

strOut = strOut & "<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Фамилия сотрудника: " & RS.Fields("s_name") & "</div>"

strOut = strOut & "<div style='width:250px; display:block; padding:5px; float:left;'>Количество пропусков: " & RS.Fields("cemp") & "</div>"

strOut = strOut & "</div>"

RS.MoveNext

Loop

RS.Close

Set RS = Nothing

Conn.Close

Set Conn = Nothing

Response.Write strOut

%>

</strong></p>

</div>

<p class="meta"></p>

</div>

</div>

<!-- end content -->

</div>

<div style="clear: both; height: 30px">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

Добавление данных

В данном Web приложении предусмотрено добавление в базу данных информацию о сотруднике. Чтобы перейти к добавлению, необходимо со стартовой страницы пройти путь: сотрудники / добавить. Добавление происходит в несколько шагов. На первом шаге, необходимо ввести личные данные сотрудника.

Листинг программного кода employee_insert_form.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" />

<script type="text/javascript">

<!--

function MM_jumpMenu(targ,selObj,restore){ //v3.0

eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");

if (restore) selObj.selectedIndex=0;

}

//-->

</script>

</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:60px;">Личные данные.</h1>

<div class="entry">

<p><strong> интерфейс программный код редактирование

<div style='width:600px; margin:auto; margin-top:20px; padding:20px; border: 1px solid #CCCCCC; color:#FFFFFF;'>

<form action="employee_insert_step1.asp" method="post">

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Фамилия: <input type=text name=s_name size=40 value="" style="margin-left:55px;"></div>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Имя: <input type=text name=nam size=40 value="" style="margin-left:90px;"></div>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Отчество: <input type=text name=pat_name size=40 value="" style="margin-left:55px;"></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">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

На следующем шаге необходимо выбрать должность нового сотрудника.

Листинг программного кода employee_insert_step1.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>

<%

Dim s_name, nam, pat_name, dol, payment, division, id

s_name=Request("s_name")

nam=Request("nam")

pat_name=Request("pat_name")

dol=Request("dol")

payment=Request("payment")

division=Request("division")

Dim Conn, rst, strSQL

strSQL="INSERT INTO employee (s_name, [name], pat_name) VALUES ('"+s_name+"','"+nam+"','"+pat_name+"')"

Set Conn=Server.CreateObject("ADODB.Connection")

Conn.Open "DSN=tab"

Set rst=Server.CreateObject("ADODB.Recordset")

set rst=Conn.execute(strSQL)

Response.write("<BR><BR><center><b>Личные даннаые добавлены! Теперь выберите должность нового сотрудника!<b>")

Dim Conn2, RS2, strSQL2, strSQL_dol12, strSQL_dol22, strOut2

strOut2 = ""

Set Conn2 = Server.CreateObject("ADODB.Connection")

Conn2.Open "dsn=tab"

Set RS2 = Server.CreateObject("ADODB.Recordset")

strSQL2 = "select * from dbo.employee WHERE s_name like '"+s_name+"' and pat_name like '"+pat_name+"'"

RS2.Open strSQL2, Conn2

RS2.MoveFirst

Do While Not RS2.EOF

strOut2 = strOut2 & RS2.Fields("employee_id")

RS2.MoveNext

Loop

RS2.Close

Set RS2 = Nothing

Conn2.Close

Set Conn2 = Nothing

Response.Write strOut2

Response.write("id = "+strOut2)

%>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>

<form name=dalee action='employee_insert_step2.asp'>

Должность: <select name=dol id="jumpMenu" onchange="MM_jumpMenu('parent',this,0)">

<%

Dim Conn3, RS3, strSQL3, strSQL_dol13, strSQL_dol23, strOut3

strOut3 = ""

Set Conn3 = Server.CreateObject("ADODB.Connection")

Conn3.Open "dsn=tab"

Set RS3 = Server.CreateObject("ADODB.Recordset")

strSQL3 = "select * from dbo.post_kind"

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>

<input name="id" type="hidden" value="<%=strOut2%>" />

<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">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

Далее необходимо выбрать виз заработной платы.

Листинг программного кода employee_insert_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" style=" margin-left:80px;">Вид заработной платы</h1>

<div class="entry">

<p><strong>

<%

Dim id

id=Request("id")

%>

<!-- запрос на получение dol_id -->

<%

Dim dol

dol=Request("dol")

Dim Conn5, RS5, strSQL5, strOut5

strOut5 = ""

Set Conn5 = Server.CreateObject("ADODB.Connection")

Conn5.Open "dsn=tab"

Set RS5 = Server.CreateObject("ADODB.Recordset")

strSQL5 = "SELECT * FROM dbo.post_kind WHERE post_name like '"+dol+"'"

RS5.Open strSQL5, Conn5

RS5.MoveFirst

Do While Not RS5.EOF

strOut5 = strOut5 & RS5.Fields("post_kind_id")

RS5.MoveNext

Loop

RS5.Close

Set RS5 = Nothing

Conn5.Close

Set Conn5 = Nothing

%>

<!-- dol_id end -->

<%

Dim Conn, rst, strSQL

strSQL="INSERT INTO employee_list (employee_id, post_kind_id) VALUES ('"+id+"','"+strOut5+"')"

Set Conn=Server.CreateObject("ADODB.Connection")

Conn.Open "DSN=tab"

Set rst=Server.CreateObject("ADODB.Recordset")

set rst=Conn.execute(strSQL)

Response.write("<BR><BR><center><b>Теперь выберите вид заработной платы нового сотрудника!<b>")

%>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>

<form name=dalee action='employee_insert_step3.asp'>

З/П: <select name=payment id="jumpMenu2" onchange="MM_jumpMenu('parent',this,0)">

<%

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>

<input name="id" type="hidden" value="<%=id%>" />

<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">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

В заключении необходимо выбрать подразделение, к которому будет относиться новый сотрудник.



Листинг программного кода employee_insert_step3.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>

<%

Dim id

id=Request("id")

%>

<!-- запрос на получение dol_id -->

<%

Dim payment

payment=Request("payment")

Dim Conn5, RS5, strSQL5, strOut5

strOut5 = ""

Set Conn5 = Server.CreateObject("ADODB.Connection")

Conn5.Open "dsn=tab"

Set RS5 = Server.CreateObject("ADODB.Recordset")

strSQL5 = "SELECT * FROM dbo.payment_kind WHERE payment_name like '"+payment+"'"

RS5.Open strSQL5, Conn5

RS5.MoveFirst

Do While Not RS5.EOF

strOut5 = strOut5 & RS5.Fields("payment_kind_id")

RS5.MoveNext

Loop

RS5.Close

Set RS5 = Nothing

Conn5.Close

Set Conn5 = Nothing

%>

<!-- dol_id end -->

<%

Dim Conn, rst, strSQL

strSQL="INSERT INTO working_hours (employee_id, payment_kind_id) VALUES ('"+id+"','"+strOut5+"')"

Set Conn=Server.CreateObject("ADODB.Connection")

Conn.Open "DSN=tab"

Set rst=Server.CreateObject("ADODB.Recordset")

set rst=Conn.execute(strSQL)

Response.write("<center><b>Теперь выберите к какому подразделению относится новый сотрудник!<b></center>")

%>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>

<form name=dalee action='employee_insert_step4.asp'>

Подразделение: <select name=division id="jumpMenu2" onchange="MM_jumpMenu('parent',this,0)">

<%

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.division_list"

RS7.Open strSQL7, Conn7

RS7.MoveFirst

Do While Not RS7.EOF

strOut7 = strOut7 & "<option>" & RS7.Fields("division_name") & "</option>"

RS7.MoveNext

Loop

RS7.Close

Set RS7 = Nothing

Conn7.Close

Set Conn7 = Nothing

Response.Write strOut7

%>

</select>

<input name="id" type="hidden" value="<%=id%>" />

<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">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

Сотрудник добавлен.

Листинг программного кода employee_insert_step4.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:200px;">Сотрудник добавлен</h1>

<div class="entry">

<p><strong>

<%

Dim id

id=Request("id")

%>

<!-- запрос на получение dol_id -->

<%

Dim division

division=Request("division")

Dim Conn5, RS5, strSQL5, strOut5

strOut5 = ""

Set Conn5 = Server.CreateObject("ADODB.Connection")

Conn5.Open "dsn=tab"

Set RS5 = Server.CreateObject("ADODB.Recordset")

strSQL5 = "SELECT * FROM dbo.division_list WHERE division_name like '"+division+"'"

RS5.Open strSQL5, Conn5

RS5.MoveFirst

Do While Not RS5.EOF

strOut5 = strOut5 & RS5.Fields("division_list_id")

RS5.MoveNext

Loop

RS5.Close

Set RS5 = Nothing

Conn5.Close

Set Conn5 = Nothing

%>

<!-- dol_id end -->

<%

Dim Conn, rst, strSQL

strSQL="INSERT INTO division (employee_id, division_list_id) VALUES ('"+id+"','"+strOut5+"')"

Set Conn=Server.CreateObject("ADODB.Connection")

Conn.Open "DSN=tab"

Set rst=Server.CreateObject("ADODB.Recordset")

set rst=Conn.execute(strSQL)

Response.write("<BR><BR><center><b>Все данные о новом сотруднике занесены!<b>")

%>

<form name=dalee action='employee.asp'>

<input name="submit" type="submit" value="Просмотр сотрудников">

</form>

</strong></p>

</div>

<p class="meta"></p>

</div>

</div>

<!-- end content -->

</div>

<div style="clear: both; height: 30px">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

Изменение данных

В данном Web приложении предусмотрено редактирование в базе данных информации о сотруднике. Чтобы перейти к редактированию, необходимо со стартовой страницы пройти путь: сотрудники / редактирование. Сначала необходимо выбрать порядковый номер сотрудника.

Листинг программного кода employee_update_form.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">

<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_update.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">&nbsp;</div>

<!-- end page -->

<div id="footer">

<p>&copy; 2017 Квашнин А.А.</p>

</div>

</body>

</html>

На следующем шаге, необходимо внести нужные изменения.

Листинг программного кода employee_update.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>

<%

Dim id

id=Request("id")

Dim Conn11, RS11, strSQL11, strOut11, strOut12, strOut13

strOut11 = ""

strOut12 = ""

strOut13 = ""

Set Conn11 = Server.CreateObject("ADODB.Connection")

Conn11.Open "dsn=tab"

Set RS11 = Server.CreateObject("ADODB.Recordset")

strSQL11 = "SELECT * FROM Employee WHERE employee_id like '"+id+"'"

RS11.Open strSQL11, Conn11

RS11.MoveFirst

Do While Not RS11.EOF

strOut11 = strOut11 & RS11.Fields("s_name")

strOut12 = strOut12 & RS11.Fields("name")

strOut13 = strOut13 & RS11.Fields("pat_name")

RS11.MoveNext

Loop

RS11.Close

Set RS11 = Nothing

Conn11.Close

Set Conn11 = Nothing

%>

<div style='width:600px; margin:auto; margin-top:20px; padding:20px; border: 1px solid #CCCCCC; color:#FFFFFF;'>

<form action="employee_update_step2.asp" method="post">

<input name=id type="hidden" value="<%=id%>" />

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Фамилия: <input type=text name=s_name size=40 value="<%=strOut11%>" style="margin-left:55px;"></div>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Имя: <input type=text name=nam size=40 value="<%=strOut12%>" style="margin-left:90px;"></div>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Отчество: <input type=text name=pat_name size=40 value="<%=strOut13%>" style="margin-left:55px;"></div>

<div style='width:580px; padding:5px; margin:auto; text-align:left; border-bottom:1px dotted #999999;'>Должность: <select name=dol id="jumpMenu" onchange="MM_jumpMenu('parent',this,0)" style="margin-left:45px;">

<%

Dim Conn3, RS3, strSQL3, strSQL_dol13, strSQL_dol23, strOut3

strOut3 = ""

Set Conn3 = Server.CreateObject("ADODB.Connection")

Conn3.Open "dsn=tab"

Set RS3 = Server.CreateObject("ADODB.Recordset")

strSQL3 = "select * from dbo.post_kind"