Розробка автоматизованої системи обліку бухгалтерських операцій для органів державного казначейства України

Аналіз організації бухгалтерського обліку в державному казначействі України. Сучасні засоби розробки програмного забезпечення. Вибір серверної платформи й системи керування базами даних. Взаємодія користувачів з автоматизованою системою, її вихідні форми.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык украинский
Дата добавления 01.05.2011
Размер файла 2,2 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

var openresults=get_cookie (window. location. pathname). split (" ")

for (i=0; i < openresults. length; i++) {

foldinglist [openresults [i]]. style. display=''

document. all [foldinglist [openresults [i]]. sourceIndex -

1]. style. listStyleImage="url (IMAGE/open. gif)"

}

}

if (document. all) {

var nodelength=foldinglist. length-1

var nodes=new Array (nodelength)

var openones=''

}

function check () {

for (i=0; i <= nodelength; i++) {

if (foldinglist [i]. style. display=='')

openones=openones + " " + i

}

document. cookie=window. location. pathname+"="+openones

}

if (document. all)

document. body. onunload=check

// -->

</script>

</body>

</html>

Файл MBMenu. asp

<% @ LANGUAGE="VBScript" %>

<% Response. Expires=0 %>

<! DOCTYPE HTML PUBLIC "- // W3C // DTD HTML 4.0 Transitional // EN">

<html>

<head>

<title>Меморіальній ордер</title>

<link rel="stylesheet" href="mb. css" type="text/css" media="screen">

</head>

<! - #include file = "_Button. js" - ->

<! - #include file = "_Table. js" - ->

<! - #include file = "_getdate. js" - ->

<script type="text/javascript" language="JavaScript1.5">

window. top. frsMenu. cols="20,*"

</script>

<%If Session ("TreID") ="" Then%>

<script type="text/javascript" language="JavaScript1.5">

document. URL = "MBPas. asp"

</script>

<% Response. End

End If%>

<body bottommargin=2 leftmargin=2 rightmargin=2 topmargin=2>

<%Dim Rst

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

'Добавление записи

If Request. QueryString ("Add") ="yes" Then

Session ("Con"). Execute "insert Ord (TreID,Date, ID,Note,ChnUsr) values ('" & _

Session ("TreID") & "','" & _

Request. QueryString ("Date") & "','" & _

Request. QueryString ("ID") & "','" & _

Request. QueryString ("Note") & "','" & _

Session ("UsrNote") & "')"

End If

'Изменение записи

If Request. QueryString ("Chn") ="yes" and Request. QueryString ("OldID") ="" Then

Session ("Con"). Execute "update Ord set Note='" & Request. QueryString ("Note") & "'," & _

"ChnUsr='" & Session ("UsrNote") & _

"' where TreID='" & Session ("TreID") & _

"' and Date='" & Request. QueryString ("Date") & _

"' and ID='" & Request. QueryString ("ID") & "'"

Else

Session ("Con"). Execute "update Ord set " & _

"Date='" & Request. QueryString ("Date") & "'," & _

"ID='" & Request. QueryString ("ID") & "'," & _

"Note='" & Request. QueryString ("Note") & "'," & _

"ChnUsr='" & Session ("UsrNote") & _

"' where TreID='" & Session ("TreID") & _

"' and Date='" & Request. QueryString ("OldDate") & _

"' and ID='" & Request. QueryString ("OldID") & "'"

End If

'Удаление записи

If Request. QueryString ("Del") ="yes" Then

Session ("Con"). Execute "delete from Ord where TreID='" & Session ("TreID") & _

"' and Date='" & Request. QueryString ("Date") & _

"' and ID='" & Request. QueryString ("ID") & "'"

End If

'Восстановление записи

If Request. QueryString ("Res") ="yes" Then

Session ("Con"). Execute "update Ord set Deleted=0 where TreID='" & Session ("TreID") & _

"' and Date='" & Request. QueryString ("Date") & _

"' and ID='" & Request. QueryString ("ID") & "'"

End If

TblRst. Open "select convert (char (8),Date,112) as Date, " & _

"ltrim (rtrim (ID)) as ID, " & _

"ltrim (rtrim (Note)) as Note, " & _

"ltrim (rtrim (ChnUsr)) as ChnUsr, " & _

"convert (char (8),ChnDate,112) as ChnDate, Deleted " & _

"from Ord where TreID='" & Session ("TreID") & "'" & _

"order by Date desc, ID",Session ("Con"),0,1,1 %>

<table width="100%" height="100%" cellpadding=0 cellspacing=0>

<tr height=1>

<td colspan="3"><div name='title' class='title'>Меморіальні ордери<%If Session ("EditOrd") ="no" Then%>&nbsp; (Перегляд) <%End If%></div></td><tr>

<tr height="80%">

<td width="80%">

<div style="width: 100%; height: 100%; ">

<! - #include file = "_Tbl. asp" - -></div></td>

<td width="20%" id="btn" name="btn" align="center" valign="top"></td>

<tr height="1">

<td colspan="2">

<table width="100%">

<tr height="1">

<td width="1"><div class="var">&nbsp; &nbsp; Дата&nbsp; &nbsp; </div></td>

<td><input type="text" id="txtDate" name="txtDate" maxlength="8" size="8" disabled></td>

<td width="1"><div class="var">&nbsp; &nbsp; Код&nbsp; &nbsp; </div></td>

<td><input type="text" id="txtID" name="txtID" maxlength="20" size="10" disabled></td>

<td width="1"><div class="var">&nbsp; &nbsp; Нотація&nbsp; &nbsp; </div></td>

<td><input type="text" id="txtNote" name="txtNote" maxlength="255" size="40" disabled></td>

<td width="20%"><div id="Mode" name="Mode" class="atantion" style="text-align: center; ">&nbsp; &nbsp; Запис: &nbsp; перегляд</div></td></tr>

</table>

</td></tr>

<tr><td></td></tr>

<tr height="1">

<td><div id="help" class="help">

Заповнення реквізитів<br>

Дата ордеру: формат ГГГГММДД (8-м цифр) <br>

Код ордеру: 20 символів (цифри та букви) <br>

Нотація: пояснення до ордера<br>&nbsp; </div></td>

</tr>

</table>

</body>

<script type="text/javascript" language="JavaScript1.5">

var names_Ord = Array ("Дата","Код","Нотація","Користувач","Дата&nbsp; редагування")

var tbl_Ord = new table (0, "&nbsp; <%=Session ("TreID") %>&nbsp; ~&nbsp; Меморіальні&nbsp; ордери", "14px cursive", "#000080", "#FFFFFF", names_Ord, "12px cursive", "#FFFFFF", "#3366FF", "16px monotype", "Navy", "#FFFFFF", "#F0F8FF", "#ccffcc", "#99CCFF", set_row)

tbl_Ord. set ();

function set_row () {

type_edit = null;

Mode. innerHTML = "&nbsp; &nbsp; Запис: &nbsp; перегляд"

txtDate. value = document. all (tbl_Ord. TblRow. index). cells (0). innerText;

txtID. value = document. all (tbl_Ord. TblRow. index). cells (1). innerText;

txtNote. value = document. all (tbl_Ord. TblRow. index). cells (2). innerText;

<%If Session ("EditOrd") = "yes" Then%>

btnAdd. access ();

btnChn. access ();

if (document. all (tbl_Ord. TblRow. index). id == 0) {

btnDel. access ();

btnRes. unaccess ();

btnEditOpr. access ();

btnEditAcc. access ();

}

else {

btnDel. unaccess ();

btnRes. access ();

btnEditOpr. unaccess ();

btnEditAcc. unaccess ();

}

btnOk. unaccess ();

btnCancel. unaccess ();

<%End If%>

btnPrint. access ();

txtDate. disabled = true;

txtID. disabled = true;

txtNote. disabled = true;

}

<%If Session ("EditOrd") = "yes" Then%>

var btnOk = new button ("#3366FF","#0033FF","&nbsp; &nbsp; Підтвердити&nbsp; <sub>Y</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", ok_row);

var btnCancel = new button ("#3366FF","#0033FF","&nbsp; &nbsp; Відмовитися&nbsp; <sub>N</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", cancel_row);

var btnAdd = new button ("#3366FF","#0033FF","&nbsp; &nbsp; Додати&nbsp; <sub>Ins</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", add_row);

var btnChn = new button ("#3366FF","#0033FF","&nbsp; &nbsp; &nbsp; Змінити&nbsp; <sub>C</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", chn_row);

var btnDel = new button ("#3366FF","#0033FF","&nbsp; &nbsp; Вилучити&nbsp; <sub>Del</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", del_row);

var btnRes = new button ("#3366FF","#0033FF","&nbsp; &nbsp; Відновити&nbsp; <sub>R</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", res_row);

var btnEditOpr = new button ("#3366FF","#0033FF","&nbsp; &nbsp; По&nbsp; операціям&nbsp; <sub>O</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", edit_opr);

var btnEditAcc = new button ("#3366FF","#0033FF","&nbsp; &nbsp; По&nbsp; рахункам&nbsp; <sub>R</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", edit_acc);

btnAdd. insert (document. all. item ("btn"));

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<br>");

btnChn. insert (document. all. item ("btn"));

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<br>");

btnDel. insert (document. all. item ("btn"));

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<br>");

btnRes. insert (document. all. item ("btn"));

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<br>");

btnOk. insert (document. all. item ("btn"));

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<br>");

btnCancel. insert (document. all. item ("btn"));

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<br>");

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<div class='atantion' style='text-align: center; '>Корегування</div>");

btnEditOpr. insert (document. all. item ("btn"));

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<br>");

btnEditAcc. insert (document. all. item ("btn"));

document. all. item ("btn"). insertAdjacentHTML ("BeforeEnd","<br>");

btnAdd. access ();

var type_edit = null;

function chn_row () {

type_edit = "chn";

Mode. innerHTML = "&nbsp; &nbsp; Запис: &nbsp; зміна"

btn_confirm ()

txtDate. disabled = false;

txtID. disabled = false;

txtNote. disabled = false;

}

function add_row () {

type_edit = "add";

Mode. innerHTML = "&nbsp; &nbsp; Запис: &nbsp; додавання"

txtDate. value = uf_getdate ();

txtID. value = '';

txtNote. value = '';

btn_confirm ()

txtDate. disabled = false;

txtID. disabled = false;

txtNote. disabled = false;

}

function del_row () {

type_edit = "del";

Mode. innerHTML = "&nbsp; &nbsp; Запис: &nbsp; вилучення"

btn_confirm ()

}

function res_row () {

type_edit = "res";

Mode. innerHTML = "&nbsp; &nbsp; Запис: &nbsp; відновлення"

btn_confirm ()

}

function cancel_row () {

type_edit = null;

Mode. innerHTML = "&nbsp; &nbsp; Запис: &nbsp; перегляд"

if (tbl_Ord. TblRow. index! = null) {

set_row ()

}

else {

txtDate. value = "";

txtID. value = "";

txtNote. value = "";

}

btnOk. unaccess ();

btnCancel. unaccess ();

btnAdd. access ();

btnPrint. access ();

txtDate. disabled = true;

txtID. disabled = true;

txtNote. disabled = true;

}

function ok_row () {

var Msg;

var Date = txtDate. value;

var ID = txtID. value;

var Note = txtNote. value;

switch (type_edit) {

case "add":

Msg = "Підтвердіть додавання МО: \n";

Msg += "Дата ордера: " + Date + "\n";

Msg += "Код: " + ID + "\n";

Msg += "Нотація: " + Note;

if (window. confirm (Msg) ==true) {

document. URL = "MBMO. asp? Add=yes&Date=" + Date +"&ID=" + ID + "&Note=" + Note

}

break;

case "chn":

var OldDate = document. all (tbl_Ord. TblRow. index). cells (0). innerText;

var OldID = document. all (tbl_Ord. TblRow. index). cells (1). innerText;

var OldNote = document. all (tbl_Ord. TblRow. index). cells (2). innerText;

if (Date! = OldDate || ID! = OldID) {

Msg = "Підтвердіть зміну МО: \n";

Msg += "з \n";

Msg += "Дата ордера: " + OldDate + "\n";

Msg += "Код: " + OldID + "\n";

Msg += "Нотація: " + OldNote + "\n";

Msg += "на \n";

Msg += "Дата ордера: " + Date + "\n";

Msg += "Код: " + ID + "\n";

Msg += "Нотація: " + Note;

if (window. confirm (Msg) ==true) {

document. URL = "MBMO. asp? Chn=yes&OldDate=" + OldDate +"&OldID=" + OldID +

"&OldNote=" + OldNote + "&Date=" + Date +"&ID=" + ID +

"&Note=" + Note;

}

}

else {

Msg = "Підтвердіть зміну нотації для МО: \n";

Msg += "Дата ордера: " + Date + "\n";

Msg += "Код: " + ID + "\n";

Msg += "Нова нотація: " + Note;

if (window. confirm (Msg) ==true) {

document. URL = "MBMO. asp? Chn=yes&Date=" + Date +"&ID=" + ID +

"&Note=" + Note;

}

}

break;

case "del":

Msg = "Підтвердіть вилучення МО: \n";

Msg += "Дата ордера: " + Date + "\n";

Msg += "Код: " + ID + "\n";

Msg += "Нотація: " + Note;

if (window. confirm (Msg) ==true) {

document. URL = "MBMO. asp? Del=yes&Date=" + Date +"&ID=" + ID

}

break;

case "res":

Msg = "Підтвердіть відновлення МО: \n";

Msg += "Дата ордера: " + Date + "\n";

Msg += "Код: " + ID + "\n";

Msg += "Нотація: " + Note;

if (window. confirm (Msg) ==true) {

document. URL = "MBMO. asp? Res=yes&Date=" + Date +"&ID=" + ID

}

break;

}

cancel_row ();

}

function edit_opr () {

var ID = txtID. value;

var Date = txtDate. value;

window. open ("MBMOOpr. asp? OrdID=" + ID +"&OrdDate=" + Date, null, "status=yes,scrollbars=yes,toolbar=no,menubar=no,location=no,resizable=yes");

}

function edit_acc () {

var ID = txtID. value;

var Date = txtDate. value;

window. open ("MBMOAcc. asp? OrdID=" + ID +"&OrdDate=" + Date, null, "status=yes,scrollbars=yes,toolbar=no,menubar=no,location=no,resizable=yes");

}

function btn_confirm () {

btnOk. access ();

btnCancel. access ();

btnAdd. unaccess ();

btnChn. unaccess ();

btnDel. unaccess ();

btnRes. unaccess ();

btnEditOpr. unaccess ();

btnEditAcc. unaccess ();

btnPrint. unaccess ();

}

<%End If%>

var btnPrint = new button ("#3366FF","#0033FF","&nbsp; &nbsp; Печатна&nbsp; форма&nbsp; <sub>P</sub>&nbsp; &nbsp; ","12px cursive","#FFFFFF", prn);

btnPrint. insert (document. all. item ("btn"));

btnPrint. access ();

function prn () {

var ID = txtID. value;

var Date = txtDate. value;

window. open ("MBPrnOrd. asp? OrdID=" + ID +"&OrdDate=" + Date, null, "status=yes,scrollbars=yes,toolbar=no,menubar=yes,location=no, resizable=yes");

}

</script>

<%TblRst. Close

Set TblRst = Nothing %>

</html>

Файл MBMO. asp

<% @ LANGUAGE="VBScript" %>

<% Response. Expires=0 %>

<% If Request. QueryString ("OrdID") <> "" and Request. QueryString ("OrdDate") <> "" Then

Session ("OrdID") = Request. QueryString ("OrdID")

Session ("OrdDate") = Request. QueryString ("OrdDate")

End If %>

<! DOCTYPE HTML PUBLIC "- // W3C // DTD HTML 4.0 Transitional // EN">

<html>

<head>

<title>МО <%=Session ("OrdID") %>/<%=Session ("OrdDate") %>/<%=Session ("TreID") %> Acc - в частині рахунків</title>

<link rel="stylesheet" href="mb. css" type="text/css" media="screen">

</head>

<! - #include file = "_Button. js" - ->

<! - #include file = "_Table. js" - ->

<script type="text/javascript" language="JavaScript1.5">

window. opener. top. frsMenu. cols="20,*"

</script>

<%If Session ("TreID") = "" Then %>

<script type="text/javascript" language="JavaScript1.5">

window. opener. document. URL = "MBPas. asp"

window. close ()

</script>

<% Response. End

End If

If Session ("OrdID") = "" or Session ("EditOrd") ="no" Then %>

<script type="text/javascript" language="JavaScript1.5">

document. URL = "MBMO. asp"

</script>

<% Response. End

End If %>

<body bottommargin=2 leftmargin=2 rightmargin=2 topmargin=2>

<%Dim Rst

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

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

'Добавление записи

If Request. QueryString ("Add") ="yes" Then

Session ("Con"). Execute "insert BookAcc (TreID,OrdDate,OrdID,Acc,Debit,Credit) values ('" & _

Session ("TreID") & "','" & _

Session ("OrdDate") & "','" & _

Session ("OrdID") & "','" & _

Request. QueryString ("Acc") & "'," & _

Replace (Request. QueryString ("Debit"),",",". ") & "," & _

Replace (Request. QueryString ("Credit"),",",". ") & ")"

Session ("Con"). Execute "update Ord set ChnUsr='" & Session ("UsrNote") & _

"' where TreID='" & Session ("TreID") & _

"' and Date='" & Session ("OrdDate") & _

"' and ID='" & Session ("OrdID") & "'"

End If

'Изменение записи

If Request. QueryString ("Chn") ="yes" Then

Session ("Con"). Execute "update BookAcc set Debit=" & Request. QueryString ("Debit") & "," & _

"Credit=" & Request. QueryString ("Credit") & _

" where TreID='" & Session ("TreID") & _

"' and OrdDate='" & Session ("OrdDate") & _

"' and OrdID='" & Session ("OrdID") & _

"' and Acc='" & Request. QueryString ("Acc") & "'"

Session ("Con"). Execute "update Ord set ChnUsr='" & Session ("UsrNote") & _

"' where TreID='" & Session ("TreID") & _

"' and Date='" & Session ("OrdDate") & _

"' and ID='" & Session ("OrdID") & "'"

End If

'Удаление записи

If Request. QueryString ("Del") ="yes" Then

Session ("Con"). Execute "delete from BookAcc where TreID='" & Session ("TreID") & _

"' and OrdDate='" & Session ("OrdDate") & _

"' and OrdID='" & Session ("OrdID") & _

"' and Acc='" & Request. QueryString ("Acc") & _

"' and Debit=" & Request. QueryString ("Debit") & _

" and Credit=" & Request. QueryString ("Credit")

Session ("Con"). Execute "update Ord set ChnUsr='" & Session ("UsrNote") & _

"' where TreID='" & Session ("TreID") & _

"' and Date='" & Session ("OrdDate") & _

"' and ID='" & Session ("OrdID") & "'"

End If

TblRst. Open "select ltrim (rtrim (Acc)) as Acc, " & _

"ltrim (rtrim (Debit)) as Debit, " & _

"ltrim (rtrim (Credit)) as Credit " & _

"from BookAcc where TreID='" & Session ("TreID") & "' and " & _

"OrdDate='" & Session ("OrdDate") & "' and " & _

"OrdID='" & Session ("OrdID") & "' " & _

"order by Acc",Session ("Con"),0,1,1

AccRst. Open "select ltrim (rtrim (Acc)) as Acc from Acc " & _

"where TreID='" & Session ("TreID") & "' and Deleted=0",Session ("Con"),0,1,1 %>

<table width="100%" height="100%" cellpadding=0 cellspacing=0>

<tr height=1><td id="btn" name="btn" align="left" valign="middle"></td></tr>

<tr height=1><td>

<table width="100%">

<tr height="1">

<td width="1"><div class="var">&nbsp; Рах</div></td>

<td width="1"><input type="text" id="txtAcc" name="txtAcc" maxlength="20" size="8" tabindex="1" disabled></td>

<td width="1"><div class="var">&nbsp; Д</div></td>

<td width="1"><input type="text" id="txtDebit" name="txtDebit" maxlength="20" size="20" tabindex="2" disabled></td>

<td width="1"><div class="var">&nbsp; К</div></td>

<td width="1"><input type="text" id="txtCredit" name="txtCredit" maxlength="20" size="20" tabindex="3" disabled></td>

<td><span class='help'> [Tab] </span></td>

<td width="1"><div class="var" style="text-align: right; ">&nbsp; Дов&nbsp; </div></td>

<td width="1"><select id="lstAcc" name="lstAcc" tabindex="-1">

<% AccRst. MoveFirst

Do While not AccRst. Eof %>

<option><%=AccRst ("Acc") %></option>

<% AccRst. MoveNext

Loop %>

</select></td></tr>

</table></td></tr>

<tr><td><div style="width: 100%; height: 100%; ">

<! - #include file = "_Tbl. asp" - -></div></td></tr>

</table>

</body>

<script type="text/javascript" language="JavaScript1.5">

var names_MOAcc = Array ("Рахунок","Дебит","Кредит")

var tbl_MOAcc = new table (0, "", "14px cursive", "#000080", "#FFFFFF", names_MOAcc, "12px cursive", "#FFFFFF", "#3366FF", "16px monotype", "Navy", "#FFFFFF", "#F0F8FF", "#ccffcc", "#99CCFF", set_row)

tbl_MOAcc. set ();

function set_row () {

type_edit = null;

txtAcc. value = document. all (tbl_MOAcc. TblRow. index). cells (0). innerText;

txtDebit. value = document. all (tbl_MOAcc. TblRow. index). cells (1). innerText;

txtCredit. value = document. all (tbl_MOAcc. TblRow. index). cells (2). innerText;

btnAdd. access ();

btnChn. access ();

btnDel. access ();

btnOk. unaccess ();

btnCancel. unaccess ();

txtAcc. disabled = true;

txtDebit. disabled = true;

txtCredit. disabled = true;

}

var btnOk = new button ("#3366FF","#0033FF","&nbsp; Підтвердити&nbsp; [Enter] &nbsp; ","12px cursive","#FFFFFF", ok_row);

var btnCancel = new button ("#3366FF","#0033FF","&nbsp; Відмовитися&nbsp; [Esc] &nbsp; ","12px cursive","#FFFFFF", cancel_row);

var btnAdd = new button ("#3366FF","#0033FF","&nbsp; Додати&nbsp; [Ins] &nbsp; ","12px cursive","#FFFFFF", add_row);

var btnChn = new button ("#3366FF","#0033FF","&nbsp; Змінити&nbsp; [C] &nbsp; ","12px cursive","#FFFFFF", chn_row);

var btnDel = new button ("#3366FF","#0033FF","&nbsp; Вилучити&nbsp; [Del] &nbsp; ","12px cursive","#FFFFFF", del_row);

btnAdd. insert (document. all. item ("btn"));

btnChn. insert (document. all. item ("btn"));

btnDel. insert (document. all. item ("btn"));

btnOk. insert (document. all. item ("btn"));

btnCancel. insert (document. all. item ("btn"));

btnAdd. access ();

var select_row = 0

var type_edit = null;

if (tbl_MOAcc. TblRow. rows. length! = 0) {

tbl_MOAcc. TblRow. rows (0). cells (0). click ();

}

document. onkeydown = key;

function key () {

// alert (window. event. keyCode)

switch (window. event. keyCode) {

case 45: // [Insert]

if (type_edit == null) {

add_row ();

window. event. returnValue = false;

}

break;

case 46: // [Deleted]

if (type_edit == null) {

del_row ();

window. event. returnValue = false;

}

break;

case 67: // [C]

if (type_edit == null) {

chn_row ();

window. event. returnValue = false;

}

break;

case 13: // [Enter]

if ( (type_edit! = null) && (Acc_exists (txtAcc)) &&

(txtDebit. value! = "") && (txtCredit. value! = "")) {

ok_row ()

window. event. returnValue = false;

}

else {

if (Acc_exists (txtAcc)) {

if (txtDebit. value == "") { txtDebit. focus () }

else { txtCredit. focus () }

}

else {txtAcc. focus () }

}

break;

case 27: // [Esc]

if (type_edit! = null) {

cancel_row ()

window. event. returnValue = false;

}

break;

case 38: // [Up]

if (select_row > 0 && tbl_MOAcc. TblRow. rows. length! = 0) {

select_row = select_row - 1

tbl_MOAcc. TblRow. rows (select_row). cells (0). click ();

window. event. returnValue = false;

}

break;

case 40: // [Down]

if (select_row < tbl_MOAcc. TblRow. rows. length-1) {

select_row = select_row + 1

tbl_MOAcc. TblRow. rows (select_row). cells (0). click ();

window. event. returnValue = false;

}

break;

}

}

function chn_row () {

type_edit = "chn";

btn_confirm ();

txtAcc. disabled = true;

txtDebit. disabled = false;

txtCredit. disabled = false;

txtDebit. focus ();

}

function add_row () {

type_edit = "add";

txtAcc. value = '';

txtDebit. value = '';

txtCredit. value = '';

btn_confirm ();

txtAcc. disabled = false;

txtDebit. disabled = false;

txtCredit. disabled = false;

txtAcc. focus ();

}

function del_row () {

type_edit = "del";

btn_confirm ();

}

function cancel_row () {

type_edit = null;

if (tbl_MOAcc. TblRow. index! = null) {

set_row ();

}

else {

txtAcc. value = "";

txtDebit. value = "";

txtCredit. value = "";

}

btnAdd. access ();

txtAcc. disabled = true;

txtDebit. disabled = true;

txtCredit. disabled = true;

}

function ok_row () {

if (Acc_exists (txtAcc) && txtDebit. value! = "" && txtCredit. value! ="") {

var Acc = txtAcc. value;

var Debit = txtDebit. value;

var Credit = txtCredit. value;

switch (type_edit) {

case "add":

document. URL = "MBMOAcc. asp? Add=yes&Acc=" + Acc +"&Debit=" + Debit + "&Credit=" + Credit

break;

case "chn":

document. URL = "MBMOAcc. asp? Chn=yes&Acc=" + Acc +"&Debit=" + Debit + "&Credit=" + Credit

break;

case "del":

document. URL = "MBMOAcc. asp? Del=yes&Acc=" + Acc +"&Debit=" + Debit + "&Credit=" + Credit

break;

}

}

else {

alert (window. status);

}

cancel_row ();

}

txtAcc. onblur = Acc_blur;

function Acc_blur () { Acc_exists (txtAcc) }

function Acc_exists (txtObj) {

for (var i=0; i < lstAcc. options. length; i++) {

if (lstAcc. options (i). text == txtObj. value) {

window. status = "OK"

return (true)

}

}

window. status = "Введений рахунок " + txtObj. value + " відсутній у довіднику рахунків"

return (false)

}

lstAcc. onchange = AccFocus_change;

function AccFocus_change () {

if (type_edit=="add") {

txtAcc. value=lstAcc. options (lstAcc. selectedIndex). text

txtAcc. focus ()

}

}

function btn_confirm () {

btnOk. access ();

btnCancel. access ();

btnAdd. unaccess ();

btnChn. unaccess ();

btnDel. unaccess ();

}

// Позиционирование

if (tbl_MOAcc. TblRow. rows. length! = 0) {

for (var i = 0; i < tbl_MOAcc. TblRow. rows. length; ++i) {

if (tbl_MOAcc. TblRow. rows (i). cells (0). innerText == "<%=Request. QueryString ("Acc") %>") {

tbl_MOAcc. TblRow. rows (i). cells (0). focus ();

tbl_MOAcc. TblRow. rows (i). cells (0). click ();

}

}

}

</script>

<%TblRst. Close

Set TblRst = Nothing %>

</html>

Файл MBMOAcc. asp

<% @ LANGUAGE="VBScript" %>

<% Response. Expires=0 %>

<% If Request. QueryString ("OrdID") <> "" and Request. QueryString ("OrdDate") <> "" Then

Session ("OrdID") = Request. QueryString ("OrdID")

Session ("OrdDate") = Request. QueryString ("OrdDate")

End If %>

<! DOCTYPE HTML PUBLIC "- // W3C // DTD HTML 4.0 Transitional // EN">

<html>

<head>

<title>МО <%=Session ("OrdID") %>/<%=Session ("OrdDate") %>/<%=Session ("TreID") %> Opr - в частині операцій</title>

<link rel="stylesheet" href="mb. css" type="text/css" media="screen">

</head>

<! - #include file = "_Button. js" - ->

<! - #include file = "_Table. js" - ->

<script type="text/javascript" language="JavaScript1.5">

window. opener. top. frsMenu. cols="20,*"

</script>

<%If Session ("TreID") = "" Then %>

<script type="text/javascript" language="JavaScript1.5">

window. opener. document. URL = "MBPas. asp"

window. close ()

</script>

<% Response. End

End If

If Session ("OrdID") = "" or Session ("EditOrd") ="no" Then %>

<script type="text/javascript" language="JavaScript1.5">

document. URL = "MBMO. asp"

</script>

<% Response. End

End If %>

<body bottommargin=2 leftmargin=2 rightmargin=2 topmargin=2>

<%Dim Rst

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

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

'Добавление записи

If Request. QueryString ("Add") ="yes" Then

Session ("Con"). Execute "insert BookOpr (TreID,OrdDate,OrdID,OprID,Amount) values ('" & _

Session ("TreID") & "','" & _

Session ("OrdDate") & "','" & _

Session ("OrdID") & "','" & _

Request. QueryString ("OprID") & "'," & _

Replace (Request. QueryString ("Amount"),",",". ") & ")"

Session ("Con"). Execute "update Ord set ChnUsr='" & Session ("UsrNote") & _

"' where TreID='" & Session ("TreID") & _

"' and Date='" & Session ("OrdDate") & _

"' and ID='" & Session ("OrdID") & "'"

End If

'Изменение записи

If Request. QueryString ("Chn") ="yes" Then

Session ("Con"). Execute "update BookOpr set Amount=" & Request. QueryString ("Amount") & _

" where TreID='" & Session ("TreID") & _

"' and OrdDate='" & Session ("OrdDate") & _

"' and OrdID='" & Session ("OrdID") & _

"' and OprID='" & Request. QueryString ("OprID") & "'"

Session ("Con"). Execute "update Ord set ChnUsr='" & Session ("UsrNote") & _

"' where TreID='" & Session ("TreID") & _

"' and Date='" & Session ("OrdDate") & _

"' and ID='" & Session ("OrdID") & "'"

End If

'Удаление записи

If Request. QueryString ("Del") ="yes" Then

Session ("Con"). Execute "delete from BookOpr where TreID='" & Session ("TreID") & _

"' and OrdDate='" & Session ("OrdDate") & _

"' and OrdID='" & Session ("OrdID") & _

"' and OprID='" & Request. QueryString ("OprID") & _

"' and Amount=" & Request. QueryString ("Amount")

Session ("Con"). Execute "update Ord set ChnUsr='" & Session ("UsrNote") & _

"' where TreID='" & Session ("TreID") & _

"' and Date='" & Session ("OrdDate") & _

"' and ID='" & Session ("OrdID") & "'"

End If

TblRst. Open "select ltrim (rtrim (OprID)) as Acc, ltrim (rtrim (Amount))" & _

"from BookOpr where TreID='" & Session ("TreID") & "' and " & _

"OrdDate='" & Session ("OrdDate") & "' and " & _

"OrdID='" & Session ("OrdID") & "' " & _

"order by OprID",Session ("Con"),0,1,1

OprRst. Open "select ltrim (rtrim (ID)) as ID, " & _

"ltrim (rtrim (Note)) as Note from Opr " & _

"where TreID='" & Session ("TreID") & "' and Deleted=0",Session ("Con"),0,1,1 %>

<table width="100%" height="100%" cellpadding=0 cellspacing=0>

<tr height=1><td id="btn" name="btn" align="left" valign="middle"></td></tr>

<tr height=1><td>

<table width="100%">

<tr height="1">

<td width="1"><div class="var">&nbsp; Опр</div></td>

<td width="1"><input type="text" id="txtOprID" name="txtOprID" maxlength="20" size="8" tabindex="1" disabled></td>

<td width="1"><div class="var">&nbsp; Сум</div></td>

<td width="1"><input type="text" id="txtAmount" name="txtAmount" maxlength="20" size="20" tabindex="2" disabled></td>

<td><span class='help'> [Tab] </span></td></tr>

<tr height="1">

<td width="1"><div class="var" style="text-align: right; ">&nbsp; Дов&nbsp; </div></td>

<td colspan="4"><select id="lstOpr" name="lstOpr" tabindex="-1">

<% OprRst. MoveFirst

Do While not OprRst. Eof %>

<option value="<%=OprRst ("ID") %>">

<%=OprRst ("ID") %>/<%=OprRst ("Note") %></option>

<% OprRst. MoveNext

Loop %>

</select></td></tr>

</table></td></tr>

<tr><td><div style="width: 100%; height: 100%; ">

<! - #include file = "_Tbl. asp" - -></div></td></tr>

</table>

</body>

<script type="text/javascript" language="JavaScript1.5">

var names_MOOpr = Array ("Операція","Сума")

var tbl_MOOpr = new table (0, "", "14px cursive", "#000080", "#FFFFFF", names_MOOpr, "12px cursive", "#FFFFFF", "#3366FF", "16px monotype", "Navy", "#FFFFFF", "#F0F8FF", "#ccffcc", "#99CCFF", set_row)

tbl_MOOpr. set ();

function set_row () {

type_edit = null;

txtOprID. value = document. all (tbl_MOOpr. TblRow. index). cells (0). innerText;

txtAmount. value = document. all (tbl_MOOpr. TblRow. index). cells (1). innerText;

btnAdd. access ();

btnChn. access ();

btnDel. access ();

btnOk. unaccess ();

btnCancel. unaccess ();

txtOprID. disabled = true;

txtAmount. disabled = true;

}

var btnOk = new button ("#3366FF","#0033FF","&nbsp; Підтвердити&nbsp; [Enter] &nbsp; ","12px cursive","#FFFFFF", ok_row);

var btnCancel = new button ("#3366FF","#0033FF","&nbsp; Відмовитися&nbsp; [Esc] &nbsp; ","12px cursive","#FFFFFF", cancel_row);

var btnAdd = new button ("#3366FF","#0033FF","&nbsp; Додати&nbsp; [Ins] &nbsp; ","12px cursive","#FFFFFF", add_row);

var btnChn = new button ("#3366FF","#0033FF","&nbsp; Змінити&nbsp; [C] &nbsp; ","12px cursive","#FFFFFF", chn_row);

var btnDel = new button ("#3366FF","#0033FF","&nbsp; Вилучити&nbsp; [Del] &nbsp; ","12px cursive","#FFFFFF", del_row);

btnAdd. insert (document. all. item ("btn"));

btnChn. insert (document. all. item ("btn"));

btnDel. insert (document. all. item ("btn"));

btnOk. insert (document. all. item ("btn"));

btnCancel. insert (document. all. item ("btn"));

btnAdd. access ();

var select_row = 0

var type_edit = null;

if (tbl_MOOpr. TblRow. rows. length! = 0) {

tbl_MOOpr. TblRow. rows (0). cells (0). click ();

}

document. onkeydown = key;

function key () {

// alert (window. event. keyCode)

switch (window. event. keyCode) {

case 45: // [Insert]

if (type_edit == null) {

add_row ();

window. event. returnValue = false;

}

break;

case 46: // [Deleted]

if (type_edit == null) {

del_row ();

window. event. returnValue = false;

}

break;

case 67: // [C]

if (type_edit == null) {

chn_row ();

window. event. returnValue = false;

}

break;

case 13: // [Enter]

if ( (type_edit! = null) && (Opr_exists (txtOprID)) && (txtAmount. value! = "")) {

ok_row ()

window. event. returnValue = false;

}

else {

if (Opr_exists (txtOprID)) {txtAmount. focus () }

else {txtOprID. focus () }

}

break;

case 27: // [Esc]

if (type_edit! = null) {

cancel_row ()

window. event. returnValue = false;

}

break;

case 38: // [Up]

if (select_row > 0 && tbl_MOOpr. TblRow. rows. length! = 0) {

select_row = select_row - 1

tbl_MOOpr. TblRow. rows (select_row). cells (0). click ();

window. event. returnValue = false;

}

break;

case 40: // [Down]

if (select_row < tbl_MOOpr. TblRow. rows. length-1) {

select_row = select_row + 1

tbl_MOOpr. TblRow. rows (select_row). cells (0). click ();

window. event. returnValue = false;

}

break;

}

}

function chn_row () {

type_edit = "chn";

btn_confirm ();

txtOprID. disabled = true;

txtAmount. disabled = false;

txtAmount. focus ();

}

function add_row () {

type_edit = "add";

txtOprID. value = '';

txtAmount. value = '';

btn_confirm ();

txtOprID. disabled = false;

txtAmount. disabled = false;

txtOprID. focus ();

}

function del_row () {

type_edit = "del";

btn_confirm ();

}

function cancel_row () {

type_edit = null;

if (tbl_MOOpr. TblRow. index! = null) {

set_row ();

}

else {

txtOprID. value = "";

txtAmount. value = "";

}

btnAdd. access ();

txtOprID. disabled = true;

txtAmount. disabled = true;

}

function ok_row () {

if (Opr_exists (txtOprID) && txtAmount. value! ="") {

var OprID = txtOprID. value;

var Amount = txtAmount. value;

switch (type_edit) {

case "add":

document. URL = "MBMOOpr. asp? Add=yes&OprID=" + OprID +"&Amount=" + Amount

break;

case "chn":

document. URL = "MBMOOpr. asp? Chn=yes&OprID=" + OprID +"&Amount=" + Amount

break;

case "del":

document. URL = "MBMOOpr. asp? Del=yes&OprID=" + OprID +"&Amount=" + Amount

break;

}

}

else {

alert (window. status)

}

cancel_row ();

}

txtOprID. onblur = Opr_blur;

function Opr_blur () { Opr_exists (txtOprID) }

function Opr_exists (txtObj) {

for (var i=0; i < lstOpr. options. length; i++) {

if (lstOpr. options (i). value == txtObj. value) {

lstOpr. selectedIndex = i;

window. status = "OK";

return (true);

}

}

window. status = "Введена операція " + txtObj. value + " відсутня у довіднику операцій"

return (false)

}

lstOpr. onchange = OprFocus_change;

function OprFocus_change () {

if (type_edit=="add") {

txtOprID. value=lstOpr. options (lstOpr. selectedIndex). value

txtOprID. focus ()

}

}

function btn_confirm () {

btnOk. access ();

btnCancel. access ();

btnAdd. unaccess ();

btnChn. unaccess ();

btnDel. unaccess ();

}

// Позиционирование

if (tbl_MOOpr. TblRow. rows. length! = 0) {

for (var i = 0; i < tbl_MOOpr. TblRow. rows. length; ++i) {

if (tbl_MOOpr. TblRow. rows (i). cells (0). innerText == "<%=Request. QueryString ("OprID") %>") {

tbl_MOOpr. TblRow. rows (i). cells (0). focus ();

tbl_MOOpr. TblRow. rows (i). cells (0). click ();

}

}

}

</script>

<%TblRst. Close

Set TblRst = Nothing %>

</html>

Файл MBMOOpr. asp

<% @ LANGUAGE="VBScript" %>

<% Response. Expires=0 %>

<! DOCTYPE HTML PUBLIC "- // W3C // DTD HTML 4.0 Transitional // EN">

<html>

<head>

<meta name="vs_targetSchema" content="http://schemas. microsoft.com/intellisense/ie5">

<title>Головна книга - Аутентифікація</title>

<link rel="stylesheet" href="mb. css" type="text/css" media="screen">

</head>

<! - #include file = "_Button. js" - ->

<! - #include file = "_Table. js" - ->

<% Dim TreID, UsrID, Pass

TreID = Request. Form ("TreID")

UsrID = Request. Form ("UsrID")

Pass = Request. Form ("Pass")

Session ("Login") = "no"

Session ("EditTre") = "no"

Session ("EditUsr") = "no"

Session ("EditAcc") = "no"

Session ("EditOpr") = "no"

Session ("EditOrd") = "no"

If TreID<>"" Then

If UsrID = Session ("AdminID") and Pass = Session ("AdminPass") Then

Session ("UsrNote") = UsrID

Session ("Login") = "yes"

Session ("EditTre") = "yes"

Session ("EditUsr") = "yes"

Session ("EditAcc") = "yes"

Session ("EditOpr") = "yes"

Session ("EditOrd") = "yes"

ElseIf UsrID = Session ("VisitorID") and Pass = Session ("VisitorPass") Then

Session ("UsrNote") = UsrID

Session ("Login") = "yes"

ElseIf UsrID <> "" Then

Dim Rst

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

'Открываем набор

StrSQL = "select * from Usr where TreID='" & TreID & _

"' and ID='" & UsrID & _

"' and Pass='" & Pass & "'"

Rst. Open StrSQL,Session ("Con"),1,1,1

If not Rst. Eof Then

Session ("UsrNote") = Rst ("Note")

Session ("Login") = "yes"

Session ("EditAcc") = "yes"

Session ("EditOpr") = "yes"

Session ("EditOrd") = "yes"

End If

End If

'Пропускаем

If Session ("Login") = "yes" Then

Session ("MenuStatus") = "abl"

Session ("TreID") = TreID

Session ("UsrID") = UsrID

Session ("ContUrl") ="empty. htm" %>

<script type="text/vbscript" language="VBScript">

<! - -

Window. Top. document. all. item ("frmHead"). src="MBHead. asp"

Window. Top. document. all. item ("frmMenu"). src="MBMenu. asp"

Window. Top. document. all. item ("frmCont"). src="<%= Session ("ContURL") %>"

Window. Top. document. all. item ("frmStat"). src="MBStat. asp"

->

</script>

</html>

<% Response. End

End If

End If

Dim TblRst

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

TblRst. Open "select ltrim (rtrim (ID)) as ID, ltrim (rtrim (Note)) as Note, Deleted from Tre",Session ("Con"),0,1,1 %>

<body bottommargin="2" leftmargin="2" rightmargin="2" topmargin="2">

<form id="frmPass" action="MBPas. asp" method="post">

<table style="width: 100%; height: 100%; " cellpadding="0" cellspacing="0">

<tr>

<td align="center">

<div class="title">Аутентифікація</div>

<br>

<table>

<tr>

<td><div class="var">Казначейство</div>

</td>

<td><INPUT name="TreID" id="TreID"></td>

</tr>

<tr>

<td><div class="var">Оператор</div>

</td>

<td><INPUT name="UsrID" id="UsrID" value="<%=Session ("VisitorID") %>"></td>

</tr>

<tr>

<td><div class="var">Пароль</div>

</td>

<td><INPUT name="Pass" id="Pass" type="password"></td>

</tr>

</table>

<br>

<div id="btn"></div>

<br>

</td>

<td style="width: 450; height: 100%; " rowspan="2">

<div style="width: 100%; height: 100%; "><! - #include file = "_Tbl. asp" - -></div>

</td>

</tr>

<tr>

<td height="1"><div id="help" class="help">

Аутентифікація&nbsp; в&nbsp; системі,&nbsp; як<br>

&nbsp; &nbsp; &nbsp; Казначейство&nbsp; =&nbsp; "визначений_код"<br>

&nbsp; &nbsp; &nbsp; Оператор&nbsp; =&nbsp; "<%=Session ("VisitorID") %>"<br>

&nbsp; &nbsp; &nbsp; Пароль&nbsp; =&nbsp; "<%=Session (VisitorPass) %>"<br>

дозволяє&nbsp; Вам&nbsp; лише&nbsp; переглядати&nbsp; інформацію<br>

&nbsp; </div>

</td>

</tr>

</table>

</form>

</body>

<script type="text/javascript" language="JavaScript1.5">

var btnOk = new button ("#3366FF", "#0033FF", "&nbsp; &nbsp; Пройти&nbsp; <sub>&nbsp; </sub>&nbsp; &nbsp;", "12px cursive", "#FFFFFF", send_form);

var names_tre = Array ("Код","Нотація")

var tbl_tre = new table (0, "&nbsp; Казначейства, заведені у систему", "14px cursive", "#000080", "#FFFFFF", names_tre, "12px cursive", "#FFFFFF", "#3366FF", "16px monotype", "Navy", "#FFFFFF", "#F0F8FF", "#FFFFE0", "#99CCFF", set_TreID)

btnOk. insert (document. all. item ("btn"));

btnOk. access ();

tbl_tre. set ();

function set_TreID () {

document. all ("TreID"). value = document. all (tbl_tre. TblRow. index). cells (0). innerText;

}

function send_form () {

frmPass. submit ();

}

</script>

</html>

Размещено на Allbest.ru


Подобные документы

  • Вибір методів та засобів створення інформаційної системи для обліку і перегляду продукції на складі. Розробка моделі даних для реляційної бази даних, прикладного програмного забезпечення. Тестування програмного додатку, виявлення можливих проблем.

    курсовая работа [1,1 M], добавлен 22.09.2015

  • Оцінка необхідності створення на сучасному підприємстві автоматизованої інформаційної системи та її значення в процесі управління. Етапи розробки структури бази даних, зміст, призначення. Операційна інформація з обліку фінансово-розрахункових операцій.

    контрольная работа [29,4 K], добавлен 06.10.2010

  • Медична інформаційно-аналітична система "Емсімед". Аналіз програмних, апаратних засобів. Архітектурне проектування автоматизованої системи обліку медичних інструментів. Опис структурної та логічної схеми. Вибір мови програмування, керівництво користувача.

    дипломная работа [2,9 M], добавлен 26.07.2013

  • Аналіз задач, які вирішуються з використанням інформаційної системи. Вибір серверного вирішення, клієнтської частини, мережного вирішення, системного програмного забезпечення. Розробка підсистеми діагностики, керування, забезпечення безпеки даних.

    курсовая работа [1,5 M], добавлен 22.04.2011

  • Автоматизація планування та обліку методичної роботи. Особливовсті веб-орієнтованих інформаціних систем. Логічна модель роботи системи. Розробка структури бази даних та серверної частини. Вибір засобів розробки. Формування інструкції користувача.

    дипломная работа [4,9 M], добавлен 21.06.2014

  • Особливості функціонального складу автоматизованої інформаційної системи Казначейства. АРМ формування розпорядження та реєстру на здійснення видатків державного бюджету автоматизованої системи Держказначейства України. Призначення АС "Казна-Видатки".

    контрольная работа [27,1 K], добавлен 02.04.2010

  • Використання баз даних та програмних систем для автоматизованої інформаційної системи обліку та обслуговування електричних силових підстанцій. Розробка такого програмного забезпечення для спрощення та пришвидшення дій енергопостачальної компанії.

    дипломная работа [449,2 K], добавлен 25.06.2017

  • База даних як сумісно використовуваний набір логічно зв'язаних даних, передбачений для задоволення інформаційних потреб. Програмне забезпечення, яке взаємодіє з прикладними програмами користувачів, апаратне забезпечення, дані, процедури і користувачі.

    реферат [160,9 K], добавлен 20.06.2010

  • Етапи розробки проекту. Вимоги до апаратного і програмного забезпечення, до користувача. Специфікація та структура даних, які мають бути розміщеними в системі. Вигляд інтерфейсу системи програмного забезпечення. Розробка бази даних косметичного салону.

    дипломная работа [1,8 M], добавлен 21.02.2015

  • Автоматизація бібліотеки Тальнівського будівельно-економічного коледжу УДАУ. Методи автоматизації та проектування. Інфологічна, даталогічна моделі даних. Програмні засоби розробки бази даних. Розробка таблиць та звітів, встановлення зв’язків між таблиць.

    курсовая работа [4,9 M], добавлен 07.06.2010

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.