everyday.asp

oa办公系统asp程序

<!--#include file="../title.asp" -->
<script LANGUAGE="VBSCRIPT">
<%
z=1
do while z<=8
%>
sub moring_<%=z%>_onchange
	if everyday.moring_<%=z%>.value<>"" then
		if not isnumeric(everyday.moring_<%=z%>.value) then
			alert("早班只允许输入数字,请修改！1")
			everyday.moring_<%=z%>.value=0
		end if
	else
		everyday.moring_<%=z%>.value=0
	end if
	if everyday.afternoon_<%=z%>.value<>"" then
		if not isnumeric(everyday.afternoon_<%=z%>.value) then
			alert("中班只允许输入数字,请修改！2")
			everyday.afternoon_<%=z%>.value=0
		end if
	else
		everyday.afternoon_<%=z%>.value=0
	end if
	if everyday.everying_<%=z%>.value<>"" then
		if not isnumeric(everyday.everying_<%=z%>.value) then
			alert("晚班只允许输入数字,请修改！3")
			everyday.everying_<%=z%>.value=0
		end if
	else
		everyday.everying_<%=z%>.value=0
	end if
	everyday.all_<%=z%>.value=Csng(everyday.moring_<%=z%>.value)+csng(everyday.everying_<%=z%>.value)
	if everyday.bad_<%=z%>.value<>"" then
		if not isnumeric(everyday.bad_<%=z%>.value) then
			alert("坏布只允许输入数字,请修改！")
			everyday.everying_<%=z%>.value=0
		end if
	else
		everyday.bad_<%=z%>.value=0.000
	end if
	everyday.fact_<%=z%>.value=csng(everyday.all_<%=z%>.value)-csng(everyday.bad_<%=z%>.value)
end sub

sub afternoon_<%=z%>_onchange
	if everyday.moring_<%=z%>.value<>"" then
		if not isnumeric(everyday.moring_<%=z%>.value) then
			alert("早班只允许输入数字,请修改！")
			everyday.moring_<%=z%>.value=0
		end if
	else
		everyday.moring_<%=z%>.value=0
	end if
	if everyday.afternoon_<%=z%>.value<>"" then
		if not isnumeric(everyday.afternoon_<%=z%>.value) then
			alert("中班只允许输入数字,请修改！")
			everyday.afternoon_<%=z%>.value=0
		end if
	else
		everyday.afternoon_<%=z%>.value=0
	end if
	if everyday.everying_<%=z%>.value<>"" then
		if not isnumeric(everyday.everying_<%=z%>.value) then
			alert("晚班只允许输入数字,请修改！")
			everyday.everying_<%=z%>.value=0
		end if
	else
		everyday.everying_<%=z%>.value=0
	end if
	everyday.all_<%=z%>.value=csng(everyday.moring_<%=z%>.value)+csng(everyday.afternoon_<%=z%>.value)+csng(everyday.everying_<%=z%>.value)
	if everyday.bad_<%=z%>.value<>"" then
		if not isnumeric(everyday.bad_<%=z%>.value) then
			alert("坏布只允许输入数字,请修改！")
			everyday.everying_<%=z%>.value=0
		end if
	else
		everyday.bad_<%=z%>.value=0
	end if
	everyday.fact_<%=z%>.value=csng(everyday.all_<%=z%>.value)-csng(everyday.bad_<%=z%>.value)
end sub

sub everying_<%=z%>_onchange
	if everyday.moring_<%=z%>.value<>"" then
		if not isnumeric(everyday.moring_<%=z%>.value) then
			alert("早班只允许输入数字,请修改！")
			everyday.moring_<%=z%>.value=0
		end if
	else
		everyday.moring_<%=z%>.value=0
	end if
	if everyday.afternoon_<%=z%>.value="" then
		if not isnumeric(everyday.afternoon_<%=z%>.value) then
			alert("中班只允许输入数字,请修改！")
			everyday.afternoon_<%=z%>.value=0
		end if
	else
		everyday.afternoon_<%=z%>.value=0
	end if
	if everyday.everying_<%=z%>.value<>"" then
		if not isnumeric(everyday.everying_<%=z%>.value) then
			alert("晚班只允许输入数字,请修改！")
			everyday.everying_<%=z%>.value=0
		end if
	else
		everyday.everying_<%=z%>.value=0
	end if
	everyday.all_<%=z%>.value=csng(everyday.moring_<%=z%>.value)+csng(everyday.afternoon_<%=z%>.value)+csng(everyday.everying_<%=z%>.value)
	if everyday.bad_<%=z%>.value<>"" then
		if not isnumeric(everyday.bad_<%=z%>.value) then
			alert("坏布只允许输入数字,请修改！")
			everyday.everying_<%=z%>.value=0
		end if
	else
		everyday.bad_<%=z%>.value=0
	end if
	everyday.fact_<%=z%>.value=csng(everyday.all_<%=z%>.value)-csng(everyday.bad_<%=z%>.value)
end sub

sub bad_<%=z%>_onchange
	if everyday.moring_<%=z%>.value<>"" then
		if not isnumeric(everyday.moring_<%=z%>.value) then
			alert("早班只允许输入数字,请修改！")
			everyday.moring_<%=z%>.value=0
		end if
	else
		everyday.moring_<%=z%>.value=0
	end if
	if everyday.afternoon_<%=z%>.value<>"" then
		if not isnumeric(everyday.afternoon_<%=z%>.value) then
			alert("中班只允许输入数字,请修改！")
			everyday.afternoon_<%=z%>.value=0
		end if
	else
		everyday.afternoon_<%=z%>.value=0
	end if
	if everyday.everying_<%=z%>.value<>"" then
		if not isnumeric(everyday.everying_<%=z%>.value) then
			alert("晚班只允许输入数字,请修改！")
			everyday.everying_<%=z%>.value=0
		end if
	else
		everyday.everying_<%=z%>.value=0
	end if
	everyday.all_<%=z%>.value=csng(everyday.moring_<%=z%>.value)+csng(everyday.afternoon_<%=z%>.value)+csng(everyday.everying_<%=z%>.value)
	if everyday.bad_<%=z%>.value<>"" then
		if not isnumeric(everyday.bad_<%=z%>.value) then
			alert("坏布只允许输入数字,请修改！")
			everyday.bad_<%=z%>.value=0
		end if
	else
		everyday.bad_<%=z%>.value=0
	end if
	everyday.fact_<%=z%>.value=csng(everyday.all_<%=z%>.value)-csng(everyday.bad_<%=z%>.value)
end sub
'-------------------
sub moring_p_<%=z%>_onchange
	if everyday.moring_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.moring_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.moring_p_<%=z%>.value=0
		end if
	else
		everyday.moring_p_<%=z%>.value=0
	end if
	if everyday.afternoon_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.afternoon_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.afternoon_p_<%=z%>.value=0
		end if
	else
		everyday.afternoon_p_<%=z%>.value=0
	end if
	if everyday.everying_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.everying_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.everying_p_<%=z%>.value=0
		end if
	else
		everyday.everying_p_<%=z%>.value=0
	end if
	everyday.all_p_<%=z%>.value=csng(everyday.moring_p_<%=z%>.value)+csng(everyday.afternoon_p_<%=z%>.value)+csng(everyday.everying_p_<%=z%>.value)
end sub

sub afternoon_p_<%=z%>_onchange
	if everyday.moring_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.moring_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.moring_p_<%=z%>.value=0
		end if
	else
		everyday.moring_p_<%=z%>.value=0
	end if
	if everyday.afternoon_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.afternoon_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.afternoon_p_<%=z%>.value=0
		end if
	else
		everyday.afternoon_p_<%=z%>.value=0
	end if
	if everyday.everying_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.everying_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.everying_p_<%=z%>.value=0
		end if
	else
		everyday.everying_p_<%=z%>.value=0
	end if
	everyday.all_p_<%=z%>.value=csng(everyday.moring_p_<%=z%>.value)+csng(everyday.afternoon_p_<%=z%>.value)+csng(everyday.everying_p_<%=z%>.value)
end sub

sub everying_p_<%=z%>_onchange
	if everyday.moring_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.moring_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.moring_p_<%=z%>.value=0
		end if
	else
		everyday.moring_p_<%=z%>.value=0
	end if
	if everyday.afternoon_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.afternoon_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.afternoon_p_<%=z%>.value=0
		end if
	else
		everyday.afternoon_p_<%=z%>.value=0
	end if
	if everyday.everying_p_<%=z%>.value<>"" then
		if not isnumeric(everyday.everying_p_<%=z%>.value) then
			alert("这里只允许输入数字,请修改！")
			everyday.everying_p_<%=z%>.value=0
		end if
	else
		everyday.everying_p_<%=z%>.value=0
	end if
	everyday.all_p_<%=z%>.value=csng(everyday.moring_p_<%=z%>.value)+csng(everyday.afternoon_p_<%=z%>.value)+csng(everyday.everying_p_<%=z%>.value)
end sub

<%
z=z+1
loop
%>
</script>
<form method="POST" action="rs_everyday.asp" id="everyday">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="765" id="AutoNumber1">
<tr><td>
  <p align="center"><b><font size="5" face="黑体">威　康　纺　织　工　业　有　限　公　司</font></b></p>
  <p align="right">日期:<select size="1" name="input_year">
  <%
  x=2002
  do while x<=2010 
  %>
    <option value="<%=x%>" <%if x=year(now) then%>selected<%end if%>><%=x%></option>
  <%
  x=x+1
  loop
  %>
    </select>年<select size="1" name="input_month">
  <%
  x=1
  do while x<=12 
  %>
    <option value="<%=x%>" <%if x=month(now) then%>selected<%end if%>><%=x%></option>
  <%
  x=x+1
  loop
  %>
    <option>10</option>
    </select>月<select size="1" name="input_day">
  <%
  x=1
  do while x<=31
  %>
    <option value="<%=x%>" <%if x=day(now) then%>selected<%end if%>><%=x%></option>
  <%
  x=x+1
  loop
  %>
    <option>12</option>
    </select>日</td></tr>
<tr><td>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber1">
  <tr align="center">
    <td width="79">机台</td>
    <td width="79">针距</td>
    <td width="163">纱别</td>
    <td width="44">码重</td>
    <td width="72">订单号码</td>
    <td width="51">早班</td>
    <td width="28">匹数</td>
    <td width="48">中班</td>
    <td width="28">匹数</td>
    <td width="48">夜班</td>
    <td width="27">匹数</td>
    <td width="48">总计</td>
    <td width="41">匹数</td>
    <td width="41"><span lang="zh-cn">坏布</span></td>
    <td width="41"><span lang="zh-cn">实际</span></td>
  </tr>
  <%
  x=1
  do while x<=8
  %>
  <tr>
    <td width="79"><select size="1" name="machine_<%=x%>">
    <%
    sql="select * from machine"
    rs.open sql,conn,1,3
    do while not rs.eof
    %>
    <option value="<%=rs("id")%>"><%=rs("name")%></option>
    <%
    rs.movenext
    loop
    rs.close
    %>
    </select></td>
    <td width="79"><select size="1" name="knitting_<%=x%>">
    <%
    sql2="select * from knit"
    rs2.open sql2,conn,1,3
    do while not rs2.eof
    %>
    <option value="<%=rs2("id")%>"><%=rs2("name")%></option>
    <%
    rs2.movenext
    loop
    rs2.close
    %>
    </select></td>
    <td width="163">
    <input type="text" name="fabric_<%=x%>" id="fabric_<%=x%> size="20" size="20">
    </td>
    <td width="44"><input type="text" name="yard_<%=x%>" size="5"></td>
    <td width="72"><input type="text" name="ref_no_<%=x%>" size="9"></td>
    <td width="51">
    <input type="text" name=moring_<%=x%> size="4" id=moring_<%=x%>></td>
    <td width="28"><input type="text" name="moring_p_<%=x%>" size="2" id="moring_p_<%=x%>"></td>
    <td width="48">
    <input type="text" name="afternoon_<%=x%>" size="4" id="afternoon_<%=x%>"></td>
    <td width="28"><input type="text" name="afternoon_p_<%=x%>" size="2" id="afternoon_p_<%=x%>"></td>
    <td width="48">
    <input type="text" name="everying_<%=x%>" size="4" id="everying_<%=x%>"></td>
    <td width="27"><input type="text" name="everying_p_<%=x%>" size="2" id="everying_p_<%=x%>"></td>
    <td width="48">
    <input type="text" name="all_<%=x%>" size="4" id="all_<%=x%>"></td>
    <td width="41"><input type="text" name="all_p_<%=x%>" size="3" id="all_p_<%=x%>"></td>
    <td width="41">
    <input type="text" name="bad_<%=x%>" size="4" id="bad_<%=x%>"></td>
    <td width="41">
    <input type="text" name="fact_<%=x%>" size="4" id="fact_<%=x%>"></td>
  </tr>
  <%
  x=x+1
  loop
  %>
  <tr><td colspan="15" align="center" width="763"><br><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></td></tr>
   
</table>
</td>
</tr>
</table>
 </form>
 <!--#include file="../copyright.asp" -->