📄 sheet_stock_print0120.inc
字号:
<%
'*******************************************************************************
Function SheetTop()
SheetTop = _
"<form name=""tableStatisticResult"" action=""sheet_stock_print.asp"">" & _
"<table cellspacing=0 cellpadding=3 width=""650"" align=center border=0>" & vbLF & _
" <tr height=80 bgcolor=white>" & vbLF & _
" <td align=center style=""color:black;font-size:20pt;font-weight:600;"">物料进出库明细表</td>" & vbLF & _
" </tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
Function SheetMasterUp()
SheetMasterUp = _
"<table cellspacing=0 cellpadding=3 width=""650"" align=center border=0>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td width=200 align=left style=""color:black;""> 类别： " & sGoodsDesc & "</td>" & vbLF & _
" <td width=250 align=left style=""color:black;"">日期： " & pOpdate1 & " — " & pOpdate2 & "</td>" & vbLF & _
" <td width=150 align=left style=""color:black;"">编号： </td>" & vbLF & _
" </tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
'*******************************************************************************
Function TableHeader()
TableHeader = _
"<table cellspacing=0 cellpadding=0 width=650 align=center bgcolor=silver style=""table-layout:fixed;border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:2px;border-left-width:1px;border-right-width:2px;"">" & vbLF & _
"<tr style=""display:none"">" & vbLF & _
" <td width=40>这一行仅用于控制表格的宽度</td>" & vbLF & _
" <td width=90></td>" & vbLF & _
" <td width=80></td>" & vbLF & _
" <td width=40></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=80></td>" & vbLF & _
" <td width=70></td>" & vbLF & _
" <td width=""*""></td></tr>" & vbLF & _
"<tr height=30 bgcolor=white>" & _
"<td class=tdHead align=center>序号</td>" & _
"<td class=tdHead align=center>物品名称</td>" & _
"<td class=tdHead align=center>型号规格</td>" & _
"<td class=tdHead align=center>单位</td>" & _
"<td class=tdHead align=center>出入库数量</td>" & _
"<td class=tdHead align=center>日期</td>" & _
"<td class=tdHead align=center>出入库单类型</td>" & _
"<td class=tdHead align=center>验收仓库</td>" & _
"<td class=tdHead align=center>备注</td>" & _
"</tr>"
End Function
'*******************************************************************************
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
dim sTemp : sTemp = "" ' 临时字符串变量
dim j ' 临时循环变量
'------------------------------------
' 分页所需的变量定义
'------------------------------------
Dim iCounter : iCounter = 1
Dim iPrevPage, iNextPage
Dim rowCount : rowCount = 0
'------------------------------------
' 获取数据库连接
'------------------------------------
dim rs : set rs = Openrs(conn,sSQL)
dim sGoodsID, sGoodsName,sSheetID, sModel, sUnit, sQuantity, sOpdate, sDepotName, sRemark
dim sOptype,sTypeName
''response.write sSQL : response.end
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
if Not rs.EOF then
rs.move (iCurrentPage - 1) * iRecordsPerPage
rowCount = rowCount + (iCurrentPage - 1) * iRecordsPerPage
end if
while not rs.EOF and iCounter <= iRecordsPerPage
rowCount = rowCount + 1
sGoodsID = rs("goods_id")
sGoodsName = rs("goods_name")
sSheetID = rs("sheet_id")
sModel = rs("model")
sUnit = rs("unit")
sQuantity = rs("quantity")
sOpdate = rs("opdate")
sDepotName = rs("depot_name")
sRemark = rs("remark")
sql = "select optype from t_stock_master where sheet_id =" & sSheetID
sOptype = DLookUp(conn,sql)
sql = "select type_desc from t_op_type where type_id =" & sOptype
sTypeName = DLookUp(conn,sql)
sTemp = sTemp & "<tr bgcolor=white height=30>" & _
"<td class=tdlist align=center nowrap>" & rowCount & "</td>" & _
"<td class=tdlist align=center title=""" & sGoodsName & """ nowrap>" & sGoodsName & " </td>" & _
"<td class=tdlist align=center title=""" & sModel & """ nowrap>" & sModel & " </td>" & _
"<td class=tdlist align=center title=""" & sUnit & """ nowrap>" & sUnit & " </td>" & _
"<td class=tdlist align=center title=""" & sQuantity & """ nowrap>" & sQuantity & " </td>" & _
"<td class=tdlist align=center title=""" & sOpdate & """ nowrap>" & sOpdate & " </td>" & _
"<td class=tdlist align=center title=""" & sTypeName & """ nowrap>" & sTypeName & " </td>" & _
"<td class=tdlist align=center title=""" & sDepotName & """ nowrap>"& sDepotName &" </td>" & _
"<td class=tdlist align=center title=""" & sRemark & """ nowrap>"& sRemark &" </td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
rs.Close()
set rs = nothing
' 填补空白行
sTemp = sTemp & WhiteRowsMod(iCols, iCounter, iRecordsPerPage)
TableRecords = _
sTemp & _
"</table>"
End Function
'*******************************************************************************
Function SheetMasterDown
SheetMasterDown = _
"<table cellspacing=0 cellpadding=3 width=""650"" align=center border=0>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td width=200 align=left style=""color:black;""> 仓库主管： </td>" & vbLF & _
" <td width=250 align=left style=""color:black;"">验收人： </td>" & vbLF & _
" <td width=150 align=left style=""color:black;"">保管员： </td>" & vbLF & _
" </tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
Function SheetBottom()
SheetBottom = _
"<table cellspacing=0 cellpadding=3 width=""650"" align=center border=0>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td align=right style=""color:black;"">仲量联行上海信息大楼物业管理中心 </td>" & vbLF & _
" </tr>" & vbLF & _
"</table></form>" & vbLF
End Function
'*******************************************************************************
function TableAction()
dim sTemp : sTemp = ""
if hasright(ID_STOCK) < RIGHT_WRITE then
else
sTemp = _
" <a title=""进入打印界面!"" style=""color:blue"" target=_blank href=""sheet_stock_print.asp?opdate1=" & pOpdate1 & "&opdate2=" & pOpdate2 &"&depot_id="& pDepotID & "&forprint=1""><img border=0 src=""../images/edit.gif""> 察看打印版</a>" & vbLF & _
" " & vbLF
end if
TableAction = _
"<table width=600 cellspacing=0 cellpadding=5 height=30 align=center>" & vbLF & _
" <tr>" & vbLF & _
" <td align=center>" & _
sTemp & _
" <a title=""返回进出库汇总查询界面!"" style=""color:blue"" href=""sheet_stock.asp""><img border=0 src=""../images/delete.gif""> 返回</a>" & vbLF & _
sTemp & vbLF & _
"</td>" & vbLF & _
" </tr>" & vbLF & _
"</table>"
end function
'*******************************************************************************
Function WhiteRowsMod(piCols, piStart, piRecordsPerPage)
dim i, j, sTemp, iCols, iStart, iRecordsPerPage
iCols = piCols
iStart = piStart
iRecordsPerPage = piRecordsPerPage
'' 如果起始行已经等于或超过每页总行数，则返回空字串
'' 如果从第一行开始就是空行，则显示（哎呀，一条记录也没有找到！）
'' 否则，就从起始行开始填补空行
if iStart > iRecordsPerPage then
sTemp = ""
else
sTemp = "<tr bgcolor=white height=30>"
sTemp = sTemp & "<td class=tdlist align=center>" & iStart+(iCurrentPage-1)*iRecordsPerPage & "</td>"
for i = 2 to iCols
sTemp = sTemp & "<td class=tdlist> </td>"
next
sTemp = sTemp & "</tr>"
end if
for j = iStart + 1 to iRecordsPerPage step 1
sTemp = sTemp & "<tr bgcolor=white height=30>"
sTemp = sTemp & "<td class=tdlist align=center>" & j+(iCurrentPage-1)*iRecordsPerPage & "</td>"
for i = 2 to iCols
sTemp = sTemp & "<td class=tdlist> </td>"
next
sTemp = sTemp & "</tr>"
next
WhiteRowsMod = sTemp
End Function
'*******************************************************************************
Function TableLink()
TableLink = _
"<table width=""100%"" cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
"<tr height=10>" & vbLF & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
"</tr>" & vbLF & _
"<tr>" & vbLF & _
" <td width=600> " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_query.asp"">库存查询</a>" & vbLF & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_input.asp"">物品入库</a>" & vbLF & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/output.asp"">物品出库</a>" & vbLF & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_move.asp"">物品移动</a>" & vbLF &_
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/sheet_mgr.asp"">出入库单管理</a></td>" & vbLF & _
"</tr>" & vbLF & _
"</table>" & vbLF
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -