📄 f_contract1.asp
字号:
}
}
}
</script>
<script language="javascript">
//输入工程师名序号时响应
var Pcount;
var tj;
tj=0;
Pcount=0;
lucy = new Array();
<%count = 0
set rsywy1=server.CreateObject("adodb.recordset")
rsywy1.open "SELECT * FROM A_stuffInfo where stuffNum<>'"&Session("UserID")&"' ",Pubconn,1,3
if rsywy1.recordcount> 0 then
do while not rsywy1.eof%>
lucy[<%=count%>] = new Array("<%= trim(rsywy1("Stuffnum"))%>","<%=trim(rsywy1("name"))%>");
<%count = count + 1
rsywy1.movenext
loop
end if
rsywy1.close
set rsywy1=nothing%>
Pcount=<%=count%>;
function cx()
{
//工程师名称响应
var tag;
tag=0;
for (i=0;i<Pcount;i++)
{
if(document.form1.gcsxh.value==lucy[i][0])
{
document.form1.gcsmc.value=lucy[i][1];
tag=1;
break;
}
}
if (tag==0)
{document.form1.gcsmc.value="";}
}
</script>
<script language="vbscript">
'工程师选择时新开的一个窗口
sub gcs()
hth=document.form1.hth.value
window.open "F_stuffinfo1.asp?hth="+hth,"员工信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
'需方选择时新开的一个窗口
sub kh()
hth=document.form1.hth.value
gcsxh=document.form1.gcsxh.value
window.open "F_ClientInfo2.asp?hth="+hth+"&gcsxh="+gcsxh,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
</script>
<script language="vbscript">
'以下判断只有为数字型才能输入
sub wd1_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.wd1.value,"Num",window.event.keyCode)
end sub
sub wd2_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.wd2.value,"Num",window.event.keyCode)
end sub
sub wd3_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.wd3.value,"Num",window.event.keyCode)
end sub
sub zdl_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.zdl.value,"Num",window.event.keyCode)
end sub
sub bfb1_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.bfb1.value,"Num",window.event.keyCode)
end sub
sub zxl_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.zxl.value,"Num",window.event.keyCode)
end sub
sub bfb2_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.bfb2.value,"Num",window.event.keyCode)
end sub
sub rknd_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.rknd.value,"Num",window.event.keyCode)
end sub
sub pfyq_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.pfyq.value,"Num",window.event.keyCode)
end sub
sub clfl_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.clfl.value,"Num",window.event.keyCode)
end sub
sub xtfy_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.xtfy.value,"Num",window.event.keyCode)
end sub
sub gdnum1_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.gdnum1.value,"Num",window.event.keyCode)
end sub
sub gdnum2_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.gdnum2.value,"Num",window.event.keyCode)
end sub
sub zbyear_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.zbyear.value,"Num",window.event.keyCode)
end sub
sub power_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.power.value,"Num",window.event.keyCode)
end sub
'在输入客户序号时，若工程师为空，则先输入工程师
'sub khxh_onkeypress
' if document.form1.gcsxh.value="" then
' alert("请先选择工程师！")
' document.form1.khxh.value=""
' exit sub
' end if
'end sub
</script>
<body bgcolor="#FFFFFF" >
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15">
</font>
<font size="2">技术合同
</font>
</b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="POST" action="F_contractInfo1.asp" name="form1" >
<table border="0" width="100%" cellspacing="0" height="15" bgcolor="#F7F4E5">
<tr>
<td width="717" align="right" colspan="4">
<p align="left">
合同号<input type="text" name="hth" size="14" <%if hth<>"" then%> value="<%=hth%>" <%end if %> value="<%=getdj("F_tblcontract1","contractnum","H")%>">
销售代表<input type="text" name="xsdb" size="10" value="<%=Session("StuffName")%>" readonly style="background-color: #edefef" >
工程师序号 <input type="text" name="gcsxh" size="7" value="<%=gcsxh%>" onkeyup="cx()" >
<input type="button" value="..." name="cmdsearch1" onclick="gcs()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
工程师姓名<input type="text" name="gcsmc" size="9" value="<%=gcsmc%>" readonly style="background-color: #edefef" >
</td>
</tr>
<tr>
<td width="134" align="right">
<font size="2">需方序号
</font>
</td>
<td width="169">
<input type="text" name="khxh" size="17" value="<%=khxh%>" onkeyup="keyup()">
<input type="button" value="..." name="cmdsearch" onclick="kh()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
<td width="139" align="right">
<font size="2">需方名称
</font>
</td>
<td width="263" >
<input type="text" name="khmc" size="37" value="<%=khmc%>" tabindex="3" readonly style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="134" align="right">
<font size="2">联系人
</font>
</td>
<td width="169">
<font size="2"><select size="1" name="lxr" style="width: 111; height: 23" tabindex="8">
<option value=""></option>
<% if khxh<>"" then
set rs2=Server.CreateObject("ADODB.RecordSet")
sql="select * from D_LinkMan where ClientNum='"&khxh&"'"
rs2.open sql,Pubconn,1
do while not rs2.eof
%>
<option value="<%=rs2("LinkMan")%>"><%=rs2("LinkMan")%></option>
<%
rs2.movenext
loop
rs2.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -