?? day.asp
字號:
<!--#include file="conn.asp" -->
<%if request("act")<>"" and request("1")<>"" and request("2")<>"" and request("4")<>"" then
'定義session
session("1")=request("1")
session("2")=request("2")
session("4")=request("4")
if request("3")<>"" then
session("3")=request("3")
else
session("3")=""
end if
'增加做工記錄
if request("j")<>"" then
j=request("j")
for i=1 to j
if request("4")<>"" then
if request(""&i&"gongren")="" then
' msg="填寫不完整，請選擇操作工人，您可以點<a href=javascript:history.back(-1);><font color=red>后退</font></a>修改表單。"
else
'檢查是否有工號
set rs4=server.createobject("adodb.recordset")
sql="select * from men where mid like '"&request(""&i&"gongren")&"' "
rs4.open sql,conn,1,1
if rs4.eof or rs4.bof then
response.Write(""&request(""&i&"gid")&"填寫錯誤，沒有您輸入的工號，您可以點<a href=javascript:history.back(-1);><font color=red>后退</font></a>修改表單。")
response.End()
end if
rs4.close
set rs=server.createobject("adodb.recordset")
sql="select * from daylu "
rs.open sql,conn,3,2
rs.addnew
rs("卡號")=request("1")
rs("貨號")=request("3")
if request("3")<>"" then rs("型號")=request("2")
rs("數量")=request("4")
if request("riqi")<>"" then
rs("日期")=request("riqi")
else
rs("日期")=date()
end if
rs("工序")=request(""&i&"gongxu")
rs("工序號")=request(""&i&"gid")
rs("工號")=request(""&i&"gongren")
if request(""&i&"smoney")<>"" then
rs("工資")=request(""&i&"smoney")
gz=request(""&i&"smoney")
else
rs("工資")=request(""&i&"cankao")
gz=request(""&i&"cankao")
end if
rs("數量")=request("4")
rs("合計工資")=request("4")*gz
rs.update
rs.close
msg="錄入已經提交"
end if
end if
next
i=i+1
response.Redirect("ok.asp")
response.End()
end if
'清空request 防止重復錄入
'完成日路
end if%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #FFffff;
}
-->
</style>
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FF0000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div align="center">
<table width="100%" border="0" cellspacing="3" cellpadding="3">
<tr>
<td> <div align="right">
<% If session("admin")<>"yes" Then
response.write("系統超時，您需要<font color=red><b>重新登陸</font></b>。 ")
response.end
Else %>
您現在處于管理狀態。
<%end if%>
<strong><a href="javascript:self.location.reload();"><font color="#FF0000">刷新</font></a></strong>
</div></td>
</tr>
<tr>
<td valign="top"> <strong>工作日錄：</strong><br> <br> <table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td><div align="center"><strong><font color="#0000FF"><%= msg %> <%= msg2 %> </font><a href="db.asp"><font color="#FF0000">查看日報表</font></a>
<a href="ka.asp"></a> <a href="kamore.asp"><font color="#FF0000">工序卡詳細做工</font></a>
</strong></div></td>
</tr>
</table>
<br> <table width="98%" border="0" cellpadding="2" cellspacing="2" class="front">
<tr>
<td valign="top"> <form name="form1" method="post" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>卡號：</td>
<td><input name="1" type="text" id="mid3" value="<%=session("1")%>"" size="10" maxlength="10"></td>
<td>貨號：</td>
<td><input name="2" type="text" id="2" value="<%=session("2")%>"" size="10" maxlength="10"></td>
<td>型號：</td>
<td><input name="3" type="text" id="3" value="<%=session("3")%>"" size="10" maxlength="10"></td>
<td>數量：</td>
<td><input name="4" type="text" id="4" value="<%=session("4")%>"" size="10" maxlength="10"></td>
<td>日期：</td>
<td><input name="riqi" type="text" id="riqi" value="<%=date()%>"" size="10" maxlength="10"></td>
</tr>
</table>
<div align="center">
<hr size="1" noshade>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr valign="top" bgcolor="#EBEBEB">
<td><div align="center"><strong>工序</strong></div></td>
<td><div align="center"><strong>參考工資</strong></div></td>
<td><div align="center"><strong>操作工人（必須數字）</strong></div></td>
<td><div align="center"><strong>實際工資<br>
空則以參考工資為準</strong></div></td>
</tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from gongxu order by gid asc"
rs.open sql,conn,3,1
dim d,j
i=1
j=rs.recordcount
if rs.eof or rs.bof then
response.Write("還沒有工序設置")
else
do while not rs.eof or rs.bof
%>
<tr bgcolor="#FFFFFF">
<td><strong><%=rs("gid")%>:</strong> <%=rs("name")%></td>
<td><%=rs("money")%>元/件
<input name="<%=i%>cankao" type="hidden" id="gid3" value="<%=rs("money")%>">
<input name="<%=i%>gid" type="hidden" id="gid4" value="<%=rs("gid")%>">
<input name="<%=i%>gongxu" type="hidden" id="<%=d%>gid" value="<%=rs("name")%>">
</td>
<td> <select " id="">
<option value="">參考</option>
<%set rs2=server.createobject("adodb.recordset")
sql="select * from men order by mid asc"
rs2.open sql,conn,3,1
if rs2.eof or rs2.bof then
else
do while not rs2.eof or rs2.bof
%>
<option value="<%=rs2("mid")%>"><%=rs2("mid")%><%=rs2("name")%></option>
<%rs2.movenext
loop
end if
rs2.close%>
</select>
（參考不用選）
<input name="<%=i%>gongren" type="text" value="" size="8" maxlength="8">
</td>
<td> <input name="<%=i%>smoney" type="text" id="mid233"
value="<%if session("2")<>"" then
set rs2=server.createobject("adodb.recordset")
sql="select * from huo where 工序號="&rs("gid")&""
rs2.open sql,conn,3,1
if rs2.eof or rs2.bof then
'response.Write("0")
jg=""
else
do while not rs2.eof
' '%"&request("key")&"%'
a=LCase(CStr(session("2")))
b=LCase(CStr(rs2("貨號條件")))
w=InstrRev(a,b)
jg=""
if w>0 then
jg=rs2("單價")
' break
exit do
end if
rs2.movenext
loop%> <%=jg%>
<%
end if
rs2.close
end if%>" size="5" maxlength="15">
元/件 </td>
</tr>
<%
rs.movenext
i=i+1
loop
end if
rs.close%>
</table>
<input name="act" type="submit" id="act" value="添 加">
<%= ms %>
<input name="j" type="hidden" id="j" value="<%=j%>">
</div>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">提示：如果只填寫工序卡提交后則只把工序卡寫入。其它空缺項目不寫入。同樣，各工序不填寫則不寫入。</td>
</tr>
</table>
</div>
</BODY>
</HTML> <%
conn.close%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -