📄 workflow_unit_controlplan.asp
字号:
<%
'文件名：workflow_unit_controlplan.asp
'作者：展亮
'功能：显示公文流程控制框
'参数：form_name'表单名,flow_name'流程名
'开发时间：2003-11-2 20:51
%>
<%
sub workflow_unit_controlplan()
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../css.css">
<script Language="JavaScript">
function form_check(){
var l1=document.form2.flow_no.value;
l1int=parseInt(l1);
if(l1!=l1int||l1int<1){
window.alert("流程序号必须填写且为正整数!");
document.form2.flow_no.focus();
return false;
}
if(document.form2.flow_title.value.length<=0){
window.alert("描述说明必须填写!");
document.form2.flow_title.focus();
return false;
};
}
</script>
</head>
<table border="0" style="border-collapse: collapse" cellspacing="0" cellpadding="0">
<form method="post" name="form2" action="flowstep_control.asp" OnSubmit="return form_check()">
<tr>
<td nowrap>
流程序号：
</td>
<td>
<input type="text" size=12 name="flow_no">
</td>
</tr>
<tr>
<td>
上步序号：
</td>
<td>
<select name="parent_no" size=1 style="width: 95;">
<%
set rs=server.createobject("adodb.recordset")
sql="select DISTINCT flow_no from workflow_flow_construction where flow_name='" & cstring(flow_name) & "' order by flow_no desc"
rs.open sql,oConn,1
while not rs.eof and not rs.bof
%>
<option value="<%=rs("flow_no")%>"><%=rs("flow_no")%></option>
<%
rs.movenext
wend
rs.close
%>
<option value=0>0</option>
</select>
</td>
</tr>
<tr>
<td>
描述说明：
</td>
<td>
<input type="text" name="flow_title" size=12>
</td>
</tr>
<tr>
<td>
执行动作：
</td>
<td>
<select size=1 name="action_type" style="width: 95;" onchange="chang();">
<option value="开始">开始</option>
<option value="结束">结束</option>
<option value="判断">判断</option>
<option value="审批">审批</option>
<option value="通知">通知</option>
<option value="归档">归档</option>
</select>
</td>
</tr>
<tr>
<td>
通知类型：
</td>
<td>
<select size=1 name="tell_type" style="width: 95;" onchange="chang();">
<option value="通知表单提交人">通知表单提交人</option>
<option value="通知所有人">通知所有人</option>
<option value="通知指定人">通知指定人</option>
<option value="通知表单单元人员">通知表单单元人员</option>
</select>
</td>
</tr>
<tr>
<td>
判断类型：
</td>
<td>
<select size=1 name="judge_type" style="width: 95;" onchange="chang();">
<option value="审批判断">审批判断</option>
<option value="表单判断">表单判断</option>
</select>
</td>
</tr>
<tr>
<td>
是否同意：
</td>
<td>
<select size=1 name="judge_result" style="width: 95;" onchange="chang();">
<option value="yes">同意</option>
<option value="no">不同意</option>
</select>
</td>
</tr>
<tr>
<td>
表单单元：
</td>
<td>
<select size=1 name="form_unit" style="width: 95;">
<%
call displayformoption(flow_name)
%>
</select>
</td>
</tr>
<tr>
<td>
成立条件：
</td>
<td>
<select size=1 name="judge_symbol" style="width: 60;">
<option value=">">></option>
<option value="<"><</option>
<option value=">=">>=</option>
<option value="<="><=</option>
<option value="=">=</option>
<option value="前">前包括</option>
<option value="中">中包括</option>>
<option value="后">后包括</option>
</select><input type="text" name="judge_value" size=4>
</td>
</tr>
<tr>
<td>
审批人员：
</td>
<td>
<select size=1 name="check_member" style="width: 95;" onchange="chang();">
<option value="负责人">负责人</option>
<option value="公司成员">公司成员</option>
</select>
</td>
</tr>
<script src="../js/front_chec.js"></script>
<script src="../js/user_select.js"></script>
<SCRIPT LANGUAGE=javascript>
function doselry(){
if(document.form2.action_type.value=="审批"&&document.form2.check_member.value=="负责人"){
strtmpusers = SelectUsers(form2.blrylb.value);
if (strtmpusers != "") {
strtmpusers=strtmpusers.split("_")
form2.blrylb.value=strtmpusers[0]
form2.blryxmlb.value=(strtmpusers[1].length >4)?strtmpusers[1].substr(0,3)+"...":strtmpusers[1].substr(0,4);
}
}else{alert("现在不能选择审批需要的负责人列表")}
}
xyblr=new Array()
function checkxyblr(){
if (xyblr[frmxx.blgzbh.value] == 1) {
selectblry.style.display='none';
}else{selectblry.style.display='';}
}
</SCRIPT>
<td>负责人</td>
<td>
<input type=hidden id=blrylb name=blrylb value="">
<input type="text" readonly id=blryxmlb name=blryxmlb class="input" value="" size=12 style="cursor:hand" onclick="doselry()">
</td>
<tr>
<td>
公司成员：
</td>
<td>
<select size=1 name="company_member" style="width: 95;">
<%
set rs=server.createobject("adodb.recordset")
sql="select Loginname,name from tbioaUser"
rs.open sql,oConn,1
while not rs.eof and not rs.bof
%>
<option value="<%=rs("Loginname")%>"><%=rs("name")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td colspan="2" align=center>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr height=3>
<td></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr height=1 bgcolor=red>
<td bgcolor="#3F608F"></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr height=3>
<td></td>
</tr>
</table>
<input type="submit" name="submit1" value="修改" disabled>
<input type="submit" name="submit2" value="删除" disabled>
<input type="submit" name="submit3" value="增加">
<input type="hidden" name="flow_name" value="<%=flow_name%>">
<input type="hidden" name="id" value="0">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr height=3>
<td></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr height=1 bgcolor=red>
<td bgcolor="#3F608F"></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr height=3>
<td></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<%
end sub
%>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -