📄 g_plan.asp
字号:
End Sub
Sub focusto(x)
'将游标定位于表单(Form)的某个栏位
document.form1.elements(x).focus()
End Sub
sub kh()
'当下面的输入框中有一个不为空时提示。
' txttime=document.form1.txttime.value
' tmonth=document.form1.Tmonth.value
' tdate=document.form1.Tdate.value
' txtway=document.form1.txtway.value
' txtmd=document.form1.txtmd.value
' khxh=document.form1.khxh.value
'if txttime<>"" or tmonth<>"" or tdate<>"" or txtway<>"" or txtmd<>"" then
' a=msgbox("若重新选择客户，您刚才输入的有关信息将丢失。是否继续此项操作？",vbYesNo + vbExclamation + vbDefaultButton2)
'end if
'if a=7 then
' exit sub
' else
'选择客户时，新开一个窗口
tyear=document.form1.Tyear.value
tmonth=document.form1.Tmonth.value
tdate=document.form1.Tdate.value
kfkhlx=document.form1.kfkhlx.value
if kfkhlx="" then
msgbox"请先选择“开发新/已有客户”！"
exit sub
end if
window.open "G_Clientinfo1.asp?tyear="+tyear+"&tmonth="+tmonth+"&tdate="+tdate+"&kfkhlx="+kfkhlx,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
'end if
end sub
sub kfkh()
kfkhlx=document.form1.kfkhlx.value
if kfkhlx="新客户" then
'msgbox"uu"
form1.khxh.value=""
form1.khmc.value=""
form1.txtobject.value=""
form1.dxzw.value=""
form1.khxh.disabled=true
form1.cmdsearch.disabled=true
form1.txtobject.disabled=true
form1.dxzw.disabled=true
else
form1.khxh.disabled=false
form1.cmdsearch.disabled=false
form1.txtobject.disabled=false
form1.dxzw.disabled=false
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">
</font><font size="2">客户跟进计划</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="POST" action="G_planInfo.asp" name="form1" >
<table border="1" width="603" cellspacing="0" height="24" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolordark="#F7F4E5">
<tr>
<td width="79" height="23" align="right">
业务员
</td>
<td width="173" height="23">
<input type="text" size="12" value="<%=Session("StuffName")%>" name="tt" Readonly tabindex="1" readonly style="background-color: #edefef">
<input type="hidden" name="txtywy" value="<%=Session("UserID")%>">
<td width="100" height="23" align="right">
<p align="right">
开发新/已有客户
<td width="233" height="23" colspan="2">
<font size="2"><select size="1" name="kfkhlx" style="width: 109; height: 23" onchange="kfkh()">
<option value=""></option>
<option value="新客户" >开发新客户</option>
<option value="老客户" <%if kfkhlx="老客户" then%> selected <%end if%>>跟进已有客户</option>
</select>
</font>
</tr>
<tr>
<td width="79" height="23" align="right">
<font size="2">客户序号
</font>
</td>
<td width="173" height="23">
<input type="text" name="khxh" size="17" value="<%=khxh%>" onkeyup="keyup()" tabindex="2" >
<input type="button" value="..." name="cmdsearch" onclick="kh()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
<td width="100" height="23" align="right" colspan="2">
<p align="right">
<font size="2">客户名称
</font>
</p>
</td>
<td width="233" height="23" >
<input type="text" name="khmc" size="32" value="<%=khmc%>" tabindex="3" readonly style="background-color: #edefef">
<input type="hidden" name="khjb" value="<%=khjb%>">
</td>
</tr>
<tr>
<td width="79" height="23" align="right">
<font size="2">跟进日期
</font>
</td>
<td width="173" height="23">
<% if T_year<>"" then%>
<input type="text" name="Tyear" size="4" value="<%=T_year%>" tabindex="3">
<% else%>
<input type="text" name="Tyear" size="4" value="<%=year(date())%>" tabindex="4">
<%end if %>
<font size="2">年
<select size="1" name="Tmonth" tabindex="5" >
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -