📄 salesendcheck_view.asp
字号:
<%@ Language=VBScript %>
<%'******************************************************
'功能：查看送检页
'入口参数：
' 1,送检编号
'出口参数：
'作者：钟宇 日期：2001年6月14日
'******************************************************
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<%
Dim DBConn,Rs,LStr_Sql,TStr_SalID
TStr_SalID=Trim(Request("TStr_SalID"))
If TStr_SalID="" Then
Response.Write "网页已经过期，请重新登录系统！"
Response.End
End If
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout=Application("Connection2_ConnectionTimeout")
DBconn.cursorlocation=Application("Connection2_Cursorlocation")
DBconn.OPEN Application("Connection2_ConnectionString")
LStr_Sql="SELECT Sale_Sale.Sal_SalID, Sale_Sale.Sal_SalReceiver, Sale_Sale.Sal_SalRcvAddr,"
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalRcvZipCode, Sale_Sale.Sal_SalRcvTel, Basic_Category.Ctg_Name,"
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalQty, Sale_SendCheck.Sal_SCHandler, Sale_Sale.ApplyDate,"
LStr_Sql=LStr_Sql+"Basic_Staffer_a.Stf_Name AS Stf_Applier, Sale_Sale.AuditDate, Sale_Sale.Sal_SalFlgDeal,"
LStr_Sql=LStr_Sql+"Basic_Staffer_b.Stf_Name AS Stf_Auditor "
LStr_Sql=LStr_Sql+"FROM Basic_Category, Sale_Sale, Sale_SendCheck, Basic_Staffer Basic_Staffer_a,"
LStr_Sql=LStr_Sql+"Basic_Staffer Basic_Staffer_b "
LStr_Sql=LStr_Sql+"WHERE (Sale_Sale.Sal_SalID *= Sale_SendCheck.Sal_SalID) AND "
LStr_Sql=LStr_Sql+"(Sale_Sale.Applier = Basic_Staffer_a.Stf_ID) AND "
LStr_Sql=LStr_Sql+"(Sale_Sale.Auditor *= Basic_Staffer_b.Stf_ID) AND "
LStr_Sql=LStr_Sql+"(Sale_Sale.Ctg_ID = Basic_Category.Ctg_ID) AND "
LStr_Sql=LStr_Sql+"(Sale_Sale.Sal_SalID ='"& TStr_SalID &"')"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open LStr_Sql,DBConn
%>
<BODY>
<P><FONT size=5><STRONG>查看送检单</STRONG></FONT></P>
<P><STRONG><FONT size=5>
<HR>
</FONT></STRONG>
<P></P>
<table width="80%" border="0" style="HEIGHT: 394px; WIDTH: 427px">
<tr>
<td>
<P> 送检单号：<INPUT id=text1 name=text1 readOnly value=<%=Rs("Sal_SalID")%>
></P></td>
</tr>
<tr>
<td> 收货人：<INPUT id=text2 name=text2
style="HEIGHT: 22px; WIDTH: 313px" readOnly value=<%=Rs("Sal_SalReceiver")%>></td>
</tr>
<tr>
<td> 收货地址：<INPUT id=text3 name=text3
style="HEIGHT: 22px; WIDTH: 312px" readOnly value=<%=Rs("Sal_SalRcvAddr")%>
></td>
</tr>
<tr>
<td> 邮政编码：<INPUT id=text4 name=text4 readOnly value=<%=Rs("Sal_SalRcvZipCode")%>
></td>
</tr>
<tr>
<td> 联系电话：<INPUT id=text5 name=text5 readOnly value=<%=Rs("Sal_SalRcvTel")%>
></td>
</tr>
<tr>
<td> 送检品种：<INPUT id=text6 name=text6 readOnly value=<%=Rs("Ctg_Name")%>
></td>
</tr>
<tr>
<td> 送检数量：<INPUT id=text7 name=text7 readOnly value=<%=Rs("Sal_SalQty")%>
></td>
</tr>
<tr>
<td> 经手人：<INPUT id=text8
name=text8
readOnly value=<%=Rs("Sal_SCHandler")%>></td>
</tr>
<tr>
<td> 申请人：<INPUT id=text9
name=text9
readOnly value=<%=Rs("Stf_Applier")%>></td>
</tr>
<tr>
<td> 申请日期：<INPUT id=text10 name=text10 readOnly value=<%=Rs("ApplyDate")%>
></td>
</tr>
<tr>
<td> 审批人：<INPUT id=text11
name=text11
readOnly value=<%=Rs("Stf_Auditor")%>></td>
</tr>
<tr>
<td> 审批日期：<INPUT id=text12 name=text12 readOnly value=<%=Rs("AuditDate")%>
></td>
</tr>
<tr>
<td> 处理状态：<INPUT id=text13
name=text13 readOnly value=<%=Rs("Sal_SalFlgDeal")%>
></td>
</tr>
</table>
<P align=center>
<INPUT id=button1 name=button1 type=button value=关闭窗口>
</P>
<%
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
</BODY>
</HTML>
<SCRIPT LANGUAGE="vbscript">
<!--
function button1_OnClick()
window.close
end function
-->
</SCRIPT> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -