Розробка автоматизованої системи обліку бухгалтерських операцій для органів державного казначейства України
Аналіз організації бухгалтерського обліку в державному казначействі України. Сучасні засоби розробки програмного забезпечення. Вибір серверної платформи й системи керування базами даних. Взаємодія користувачів з автоматизованою системою, її вихідні форми.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | дипломная работа |
Язык | украинский |
Дата добавления | 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%> (Перегляд) <%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"> Дата </div></td>
<td><input type="text" id="txtDate" name="txtDate" maxlength="8" size="8" disabled></td>
<td width="1"><div class="var"> Код </div></td>
<td><input type="text" id="txtID" name="txtID" maxlength="20" size="10" disabled></td>
<td width="1"><div class="var"> Нотація </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; "> Запис: перегляд</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> </div></td>
</tr>
</table>
</body>
<script type="text/javascript" language="JavaScript1.5">
var names_Ord = Array ("Дата","Код","Нотація","Користувач","Дата редагування")
var tbl_Ord = new table (0, " <%=Session ("TreID") %> ~ Меморіальні ордери", "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 = " Запис: перегляд"
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"," Підтвердити <sub>Y</sub> ","12px cursive","#FFFFFF", ok_row);
var btnCancel = new button ("#3366FF","#0033FF"," Відмовитися <sub>N</sub> ","12px cursive","#FFFFFF", cancel_row);
var btnAdd = new button ("#3366FF","#0033FF"," Додати <sub>Ins</sub> ","12px cursive","#FFFFFF", add_row);
var btnChn = new button ("#3366FF","#0033FF"," Змінити <sub>C</sub> ","12px cursive","#FFFFFF", chn_row);
var btnDel = new button ("#3366FF","#0033FF"," Вилучити <sub>Del</sub> ","12px cursive","#FFFFFF", del_row);
var btnRes = new button ("#3366FF","#0033FF"," Відновити <sub>R</sub> ","12px cursive","#FFFFFF", res_row);
var btnEditOpr = new button ("#3366FF","#0033FF"," По операціям <sub>O</sub> ","12px cursive","#FFFFFF", edit_opr);
var btnEditAcc = new button ("#3366FF","#0033FF"," По рахункам <sub>R</sub> ","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 = " Запис: зміна"
btn_confirm ()
txtDate. disabled = false;
txtID. disabled = false;
txtNote. disabled = false;
}
function add_row () {
type_edit = "add";
Mode. innerHTML = " Запис: додавання"
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 = " Запис: вилучення"
btn_confirm ()
}
function res_row () {
type_edit = "res";
Mode. innerHTML = " Запис: відновлення"
btn_confirm ()
}
function cancel_row () {
type_edit = null;
Mode. innerHTML = " Запис: перегляд"
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"," Печатна форма <sub>P</sub> ","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"> Рах</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"> Д</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"> К</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; "> Дов </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"," Підтвердити [Enter] ","12px cursive","#FFFFFF", ok_row);
var btnCancel = new button ("#3366FF","#0033FF"," Відмовитися [Esc] ","12px cursive","#FFFFFF", cancel_row);
var btnAdd = new button ("#3366FF","#0033FF"," Додати [Ins] ","12px cursive","#FFFFFF", add_row);
var btnChn = new button ("#3366FF","#0033FF"," Змінити [C] ","12px cursive","#FFFFFF", chn_row);
var btnDel = new button ("#3366FF","#0033FF"," Вилучити [Del] ","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"> Опр</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"> Сум</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; "> Дов </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"," Підтвердити [Enter] ","12px cursive","#FFFFFF", ok_row);
var btnCancel = new button ("#3366FF","#0033FF"," Відмовитися [Esc] ","12px cursive","#FFFFFF", cancel_row);
var btnAdd = new button ("#3366FF","#0033FF"," Додати [Ins] ","12px cursive","#FFFFFF", add_row);
var btnChn = new button ("#3366FF","#0033FF"," Змінити [C] ","12px cursive","#FFFFFF", chn_row);
var btnDel = new button ("#3366FF","#0033FF"," Вилучити [Del] ","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">
Аутентифікація в системі, як<br>
Казначейство = "визначений_код"<br>
Оператор = "<%=Session ("VisitorID") %>"<br>
Пароль = "<%=Session (VisitorPass) %>"<br>
дозволяє Вам лише переглядати інформацію<br>
</div>
</td>
</tr>
</table>
</form>
</body>
<script type="text/javascript" language="JavaScript1.5">
var btnOk = new button ("#3366FF", "#0033FF", " Пройти <sub> </sub> ", "12px cursive", "#FFFFFF", send_form);
var names_tre = Array ("Код","Нотація")
var tbl_tre = new table (0, " Казначейства, заведені у систему", "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