preview.inc

物业管理和办公自动化系统

<%
'#############################################################################################
'#
'#	文件名	 : preview.inc
'#	Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'#	创建人	 : BinZha
'#  日　期	 : 2002-07-19
'#
'#	修改历史  : ****年**月**日 ****** 修改内容:**********************************************
'#
'#	功能描述	 : 打印低值易耗品卡片函数文件
'#  版  　本	 :
'#
'#############################################################################################

Function FormDetail()
	dim sSQL2, crs, rs
	dim sApplicant, sApplyDate, sHandler, sStatus, sSigner, sOperator, sUserName
	dim pSerial, pName, pType, pUnit, pAmount

	FormDetail = TableHeader() & TableRecords(sSQL & sWhere)
		
		FormDetail = FormDetail & _
				"<BR><form method=post name=frmCard action=""preview.asp"">" & _
				"<input type=""hidden"" name=""FormAction"">" & _
				"<tr class=noprint>" & _ 
				"	<td colspan=8 align=center>" & _
				"		<img border=0 src=""../images/button/print.gif"" onclick=""btnPrint_OnClick()"" style=""cursor:hand""></td>" & _
				"</tr>" & _
				"</form>" & _
				"</td></tr></table>"

	
End Function

Function TableHeader()
	TableHeader = _
		"<table cellspacing=0 cellpadding=0 width=640 align=center>" & _
		"	<tr>" & _
		"		<td colspan=8 align=center style=""font=14"" height=20 ><strong>低值易耗品卡片汇总表</strong></td>" & _
		"	</tr><tr><td colspan=8>" & _
		"<table cellspacing=0 cellpadding=0 width=640 align=center class=tablelist>" & _
		"	<tr>" & _
		"		<td class=tdHead width=60 align=center>卡片编号</td>" & _
		"		<td class=tdHead width=120 align=center>资产名称</td>" & _
		"		<td class=tdHead width=120 align=center>规格程式</td>" & _
		"		<td class=tdHead width=60 align=center>单位</td>" & _
		"		<td class=tdHead width=60 align=center>数量</td>" & _
		"		<td class=tdHead width=80 align=center>使用部门</td>" & _
		"		<td class=tdHead width=70 align=center>使用人</td>" & _
		"		<td class=tdHead width=70 align=center>建卡日期</td>" & _
		"	</tr>"
End Function
					
Function TableRecords(sSQL)
	dim sTemp				: sTemp = ""	' 临时字符串变量

	'------------------------------------
	' 获取数据库连接
	'------------------------------------
	dim crs					: set crs = New CRecordset
	dim rs					: set rs = crs.open(dbLocal,sSQL)
	dim ID, sSerial, sName, sType, sUnit, sAmount, sDepartment, sUserName, sApplyDate

	while not rs.EOF
		sSerial				= crs.GetValue("Serial")
		sName				= crs.GetValue("Name")
		sType				= crs.GetValue("Type")
		sUnit				= crs.GetValue("Unit")
		sAmount				= crs.GetValue("Amount")
		sDepartment			= crs.GetValue("Department")
		sUserName			= crs.GetValue("UserName")
		sApplyDate			= crs.GetValue("ApplyDate")

		sTemp = sTemp & _
			"<tr bgcolor=white>" & _
			"	<td class=tdlist align=center>&nbsp;" & Bref(sSerial,10) & "&nbsp;</td>" & _
			"	<td class=tdlist align=center>&nbsp;" & Bref(sName,20) & "&nbsp;</td>" & _
			"	<td class=tdlist align=center>&nbsp;" & Bref(sType,10) & "&nbsp;</td>" & _
			"	<td class=tdlist align=center>&nbsp;" & Bref(sUnit,20) & "&nbsp;</td>" & _
			"	<td class=tdlist align=center>&nbsp;" & sAmount & "&nbsp;</td>" & _
			"	<td class=tdlist align=center>&nbsp;" & Bref(sDepartment, 10) & "&nbsp;</td>" & _
			"	<td class=tdlist align=center>&nbsp;" & Bref(sUserName, 8) & "&nbsp;</td>" & _
			"	<td class=tdlist align=center>&nbsp;" & sApplyDate & "&nbsp;</td>" & _
			"</tr>"
		rs.movenext
	wend
	crs.Close()

	sTemp = sTemp & "</table>"
	TableRecords = sTemp

End Function

%>