提交不良品统计表设计 :
拉线,产品名称,供应商获取方法
<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更新对应的不良数量字段
接下来写入基本信息,合格数,合格率等
因为这个是新增数据,目前设计时未考虑是否重新提交,后续同步数据采用查找更新数据模式对看板数据更新,目前测试阶段,暂不检测同一个时间段的重复提交,车间可能存在这个现象,保留不判断,如是要加一个检测字段。