ASP 开发工厂不良品统计表+生产电子看板实践:3（输入表单）

提交不良品统计表设计 ：

拉线，产品名称，供应商获取方法

<select name="q" class="selectpicker  show-tick"  data-live-search="true"  >
<% set rrs=server.createobject("adodb.recordset") 
sql="SELECT * FROM laxian where dept='"&dept&"' "
rrs.open sql,conn,1,1
for i=1 to rrs.recordcount
			if rrs.bof or rrs.eof then exit for 
			response.write "<option>"&rrs("laxian")&"</option>"
	rrs.movenext	
    next 
	rrs.close
	set rrs=nothing	
	%>
</select>

不良项目：这里需要对当前页面的工序段进行判断，使用变量获得，动态获取table表头，这里我们用IDD字段判断 不良项目的先后顺序，同时需要对每一个进行编号，为后面提交表单后对应的字段进行不良数量的更新

<select id="select2_sample" name="name"    multiple="multiple" style="width:75%" >
<%
 set rrs=server.createobject("adodb.recordset")
sql="SELECT * FROM 不良项目列表  where 工序段='"&fl&"'  and  部门='"&dept&"' order by IDD  "
rrs.open sql,conn,1,1
blxm=rrs.recordcount
for i=1 to rrs.recordcount
			if rrs.bof or rrs.eof then exit for 
		ABC="<option value='"&i&"' >"&rrs("不良项目")&"</option> "
		blxmbt=blxmbt&"<td style='width:3px;'>"&rrs("不良项目")&"</td> "
		response.write(ABC)		
			rrs.movenext	
   next 
	rrs.close
	set rrs=nothing	
	%>
</select>

在使用SELECT 时，需要将所选的不良项目显示在输入框，这里采用select2，但这个有个缺点就是选了一个下拉框就退出了，需要重复点开下拉框，而使用bootstrap却不能显示所有选的项目，目前测试部门需求，最终只能克服。

已提交列表：

这个简单，就不贴出来了，直接获取数据库的内容，但这里要用到上面的动态数目，也就是对各部门各工序显示不同的不良项目，及数据内容。

 

提交表单检测：

因为存在不同情况：有多个不良项目，一个，0个， 这里需要进行判断。

dim  iid 
		iid = Split(request.form( "name" ),"," ) 
		dim blqty
		blqty = Split(request.form( "ps" ),"-" ) 
		if UBound (blqty) <> UBound (iid) then response.write "<script>alert('不良项目和不良数目不匹配');history.go(-1);</script>"
		tqty=0
		abcd=UBound (iid)
		 For  I = 0   To   UBound (iid) 
循环判断不良项目所对应的数字ID,针对ID更新对应的不良数量字段

接下来写入基本信息，合格数，合格率等

 

因为这个是新增数据，目前设计时未考虑是否重新提交，后续同步数据采用查找更新数据模式对看板数据更新，目前测试阶段，暂不检测同一个时间段的重复提交，车间可能存在这个现象，保留不判断，如是要加一个检测字段。