formtype_control.asp
来自「OFFICE办公自动化」· ASP 代码 · 共 429 行
ASP
429 行
<%
'文件名：formtype_control.asp
'作者：展亮
'功能：编辑表单格式
'参数：form_name'表单名
'开发时间：2003-11-1 16:43
'修改人：董力勤
'修改日期：2003-11-3
'修改内容：表单下拉框 58行－－60行
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="../asp/displayform.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/flowstep.css" type=text/css>
<title>main</title>
</head>
<%
dim sql_stmt
oabusyusername=Session("LoginName")
'-----------------------------------------------------
'-----------------------------------------------------
form_name=request("form_name")
submit1=request("submit1")
submit2=request("submit2")
submit3=request("submit3")
form_arrno=request("form_arrno")
form_title=request("form_title")
form_type=request("form_type")
form_remark=request("form_remark")
form_len=request("form_len")
form_bak=request("form_bak")
id=request("id")
%>
<center>
<%
'set rs=server.createobject("adodb.recordset")
'sql="select allow_edit_workflow from userinf where username='" & cString(oabusyusername)&"'"
'rs.open sql,oConn,1
'allow_edit_workflow=rs("allow_edit_workflow")
if allow_edit_workflow="yes" then
response.write "<br><br><br><font color=red size=3>你没有编辑流程的权限！</font>"
response.end
end if
%>
<table>
<tr>
<%
'取得表单名称
'set myrs=server.createobject("wk_workflow_v20.form")
'set rs=myrs.rsformname()
'set myrs=nothing
set rs=server.createobject("adodb.recordset")
sql_stmt="select * from workflow_form_name"
rs.open sql_stmt,oconn,1,1
if not rs.eof and not rs.bof then form_name=rs("form_name")
if request("form_name")<>"" then form_name=request("form_name")
if form_name<>"" then
%>
<form method="post" action="formtype_control.asp" name="form6" >
<td><b><font color="#3F608F">编辑表单格式：</font></b>
<select name="form_name" size=1 style="width:100;" onchange="document.form6.submit();">
<%
while not rs.eof and not rs.bof
%>
<option value="<%=rs("form_name")%>"<%=selected(form_name,rs("form_name"))%>><%=rs("form_name")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
</td>
</form>
<form method="post" action="form_member.asp">
<td>
<input type="submit" name="submit" value="成员">
<input type="hidden" name="form_name" value="<%=form_name%>">
</td>
</form>
<%
end if
%>
</tr>
</table>
</center>
<br>
<center>
<br>
<%
'-------------------------------------------------------
if form_name<>"" then
if submit1="修改" then
set rs=server.createobject("adodb.recordset")
sql="select * from workflow_form_construction where form_name='" & cString(form_name) & "' and form_arrno=" & form_arrno & " and id<>" & id
rs.open sql,oConn,1
if not rs.eof and not rs.bof then
%>
<font color=red>修改单元失败！--排列序号重复！</font>
<%
else
sql = "update workflow_form_construction set "
sql = sql & "form_arrno=" & form_arrno & ","
sql = sql & "form_title='" & form_title & "',"
sql = sql & "form_remark='" & form_remark & "',"
sql = sql & "form_len=" & form_len & ","
sql = sql & "form_bak='" & form_bak & "',"
sql = sql & "form_type='" & form_type & "' where id=" & id
oConn.Execute sql
%>
<font color=red>成功修改单元！</font>
<%
end if
rs.close
set rs=nothing
end if
'------------------------------------------------------
if submit2="删除" then
sql="delete from workflow_form_construction where id=" & id
oConn.Execute sql
%>
<font color=red>成功删除单元！</font>
<%
end if
'---------------------------------------------------
if submit3="增加" then
set rs=server.createobject("adodb.recordset")
sql="select * from workflow_form_construction where form_name='" & cString(form_name) & "' and form_arrno=" & form_arrno
rs.open sql,oConn,1
if not rs.eof and not rs.bof then
%>
<font color=red>增加单元失败！--排列序号重复！</font>
<%
else
sql = "Insert Into workflow_form_construction (form_name,form_arrno,form_title,form_remark,form_len,form_type) Values("
sql = sql & "'" & form_name & "',"
sql = sql & form_arrno & ","
sql = sql & "'" & form_title & "',"
sql = sql & "'" & form_remark & "',"
sql = sql & form_len & ","
sql = sql & "'" & form_type & "')"
oConn.Execute sql
%>
<font color=red>增加单元成功！</font>
<%
end if
rs.close
set rs=nothing
end if
'---------------------------------------------------
%>
<table width="95%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td align=center valign=top class="td2">
<table border="0" cellspacing="0" cellpadding="0" width="100%"><br>
<tr><td align="center"><b><font color="#3F608F">预览：</font></b><%=form_name%></td></tr>
</table>
<hr>
<table border="0" cellspacing="0" cellpadding="0" width="100%" height=15>
<tr><td></td></tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%" height=5 style="border-collapse: collapse" bordercolor="#111111">
<tr><td></td></tr>
</table>
<table>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from workflow_form_construction where form_name='" & cString(form_name) & "' order by form_arrno"
rs.open sql,oConn,1
while not rs.eof and not rs.bof
%>
<tr>
<td height=30 align=center class="td3">
<a href="" onclick="
document.form1.id.value='<%=rs("id")%>';
document.form1.form_arrno.value='<%=rs("form_arrno")%>';
document.form1.form_title.value='<%=rs("form_title")%>';
document.form1.form_remark.value='<%=rs("form_remark")%>';
document.form1.form_len.value='<%=rs("form_len")%>';
document.form1.form_bak.value='<%=rs("form_bak")%>';
var optionlen=document.form1.form_type.options.length;
for(var i=optionlen-1;i>=0;--i){
if(document.form1.form_type.options(i).value=='<%=rs("form_type")%>'){
document.form1.form_type.options(i).selected=true;
}
};
document.form1.submit1.disabled='';
document.form1.submit2.disabled='';
return false;"><b><%=rs("form_title")%></b></a>
</td>
<td bordercolor="#3F608F">
<%
call displayform(rs("form_type"),rs("form_len"),rs("form_arrno"),rs("form_remark"),rs("form_bak"))
%> </td>
</tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</table>
<input type="submit" value="确定">
</td>
<td valign=top width=167 class="td3">
<table border="0" cellspacing="0" cellpadding="0">
<form method="post" name="form1" action="formtype_control.asp">
<tr>
<td>
排列序号：
</td>
<td>
<%
'计算目前序号
set rs=server.createobject("adodb.recordset")
sql="select top 1 form_arrno from workflow_form_construction where form_name='" & cString(form_name) & "' order by form_arrno desc"
rs.open sql,oConn,1
nowno=0
if not rs.eof and not rs.bof then nowno=rs("form_arrno")+1
rs.close
set rs=nothing
%>
<input type="text" name="form_arrno" size=13 value=<%=nowno%>>
</td>
</tr>
<tr>
<td>
单元标题：
</td>
<td>
<input type="text" name="form_title" size=13>
</td>
</tr>
<tr>
<td>
单元备注：
</td>
<td>
<input type="text" name="form_remark" size=13>
</td>
</tr>
<tr>
<td>
单元长度：
</td>
<td>
<input type="text" name="form_len" size=13 value=10>
</td>
</tr>
<tr>
<td>
单元格式：
</td>
<td>
<script language="JavaScript" type="text/JavaScript">
<!--
function window.document.form1.onChange(){
MM_jumpMenu(document.form1.form_type);
}
function MM_jumpMenu(selObj){ //v3.0
var i,j;
switch (selObj.options[selObj.selectedIndex].value){
case "ft_text":
//document.form1.form_bak.disabled="False";
j=document.form1.form_bak.length
for (i=0;i<j;i++){document.form1.form_bak.remove(0);}
var k = document.createElement("option");k.value = "";k.text = "其他";document.form1.form_bak.add(k);
var k = document.createElement("option");k.value = "user";k.text = "用户确定";document.form1.form_bak.add(k);
var k = document.createElement("option");k.value = "dep";k.text = "部门名称确定";document.form1.form_bak.add(k);
var k = document.createElement("option");k.value = "role";k.text = "职位确定";document.form1.form_bak.add(k);
document.form1.form_bak.disabled=false;
break;
case "ft_dictionary":
//document.form1.form_bak.disabled="False";
j=document.form1.form_bak.length
for (i=0;i<j;i++){document.form1.form_bak.remove(0);}
<%
set Rstmp=server.createobject("adodb.recordset")
str = "select * from tbioa_dictionarytype order by id"
Rstmp.open str,oConn,1,1
while not Rstmp.eof
'response.write "<option value="&Rstmp("id")&" selected>"&server.htmlencode(trim(Rstmp("word"))) & vbcrlf
response.write "var k = document.createElement(""option"");"
response.write "k.value = '"&Rstmp("id")&"';"
response.write "k.text = '"&server.htmlencode(trim(Rstmp("wordtypename")))&"';"
response.write "document.form1.form_bak.add(k);"& vbcrlf
Rstmp.MoveNext
wend
Rstmp.close
set Rstmp=nothing
%>
document.form1.form_bak.disabled=false;
break;
default:
document.form1.form_bak.disabled=true;
}
}
//-->
</script>
<select size=1 name="form_type" onChange="MM_jumpMenu(this)">
<option value="ft_text">单行文本框</option>
<option value="ft_textarea">滚动文本框</option>
<option value="ft_member">员工下拉菜框</option>
<option value="ft_group">组成员下拉</option>
<option value="ft_date">日期框</option>
<option value="ft_file">附件框</option>
<option value="ft_number">数字框</option>
<option value="ft_dictionary">字典中选择</option>
</select>
</td>
</tr>
<tr>
<td>
其他信息：
</td>
<td>
<select size=1 name="form_bak">
<option value="">其他</option>
<option value="user">用户确定</option>
<option value="dep">部门名称确定</option>
<option value="role">职位确定</option>
</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 bordercolor="#000000" bgcolor="#000000"></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 onclick="return form_check();">
<input type="submit" name="submit2" value="删除" disabled onclick="return window.confirm('你确定要删除此单元吗？');">
<input type="submit" name="submit3" value="增加" onclick="return form_check();">
<input type="hidden" name="form_name" value="<%=form_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 bordercolor="#000000" bgcolor="#000000"></td>
</tr>
</table>
</td>
</tr>
<form>
</table>
<br><br>
说明：
<ol>
<li>排列序号必须填写且为0或正整数。</li>
<li>单元标题必须填写。</li>
<li>单元长度必须填写且为正整数。</li>
</ol>
</td>
</tr>
</table>
<script Language="JavaScript">
function form_check(){
var l1=document.form1.form_arrno.value;
l1int=parseInt(l1);
if(l1!=l1int||l1int<0){
window.alert("排列序号必须填写且为0或正整数!");
document.form1.form_arrno.focus();return (false);
}
var l2=document.form1.form_title.value;
if(l2.length<=0){
window.alert("单元标题必须填写!");
document.form1.form_title.focus();return (false);
};
var l3=document.form1.form_len.value;
l3int=parseInt(l3);
if(l3!=l3int||l3int<1){
window.alert("单元长度必须填写且为正整数!");
document.form1.form_len.focus();return (false);}
}
</script>
<%
else
%>
<br><br><br>
<font color=red size=3>请在表单名称编辑处增加表单再来！</font>
<%
end if
%>
</center>
<%
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?