goods_input.inc

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

<%
'#############################################################################################
'#
'#	文件名	 : goods_input.inc
'#	
'#      创建人	 : yaoxiaohui
'#      日期	 : 2002-11-06
'#
'#	修改历史  : ****年**月**日 ****** 
'#      修改内容  : *********************************
'#
'#	功能描述	 : 库存物品和设备选择入库方式函数文件
'#      版  　本	 : v1.0
'#
'#      Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'#############################################################################################

'***************************************************************************************************
'	Name		: TableChoose
'	Function	: Table for Choose Input Method
'	In		: sInputMethod
'	Out		: No
'	Return		: Table head of table record
'	Comment		: No
'
'---------------------------------------------------------------------------------------------------
Function TableChoose()

	TableChoose = _
		TableTitle("选择入库方式", 600, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center>" & _

		"<form method=""post"" name=""frmNext"" action=""goods_input.asp"">" & _
		"<input type=""hidden"" name=""FormAction"">" & _
		
		"<tr height=60>" & _
		"  <td width=250 align=right>入库方式：</td>" & _
		"  <td width=350 align=left><select name=""input_method"" style=""width:150"">" & _
		"            <option value=""1"">采购入库</option>" & _
		"            <option value=""2"">移交入库</option>" & _
		"            <option value=""3"">归还入库</option>" & _
		"  </td>" & _
		"</tr>" & _
		
		"<tr height=60>" & _
		"  <td width=600 align=center colspan=2>" & _
		"    <img border=0 src=""../images/button_2.gif"" onclick=""btnNext_OnClick()"" style=""cursor:hand"">" & _
		"  </td>" & _
		"</tr>" & _
		
		"</form></table>"
End Function
'***************************************************************************************************

sub NextStep()

Dim sInputMethod        : sInputMethod            = GetParam("input_method")

select case sInputMethod
case "1"              ''采购入库
Response.Redirect "purchase_input.asp"
case "2"              ''移交入库
Response.Redirect "handover_input.asp"
case "3"              ''归还入库
Response.Redirect "borrow_input.asp"
end select
Response.end

end sub
'*******************************************************************************
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>&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../stock/goods_query.asp"">库存查询</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../stock/output.asp"">物品出库</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../stock/goods_move.asp"">物品移动</a>" & vbLF &_
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../stock/sheet_mgr.asp"">出入库单管理</a></td>" & vbLF & _

		"</tr>" & vbLF & _
		"</table>" & vbLF
End Function
%>