newfirm.inc

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

			"               <td class=tdValue colspan=2 nowrap><input type=""text"" name=""fax""  size=28 maxlength=18></td>" & vbLF & _
			"		<td align=center>电子邮件</td>" & vbLF & _
			"               <td class=tdValue colspan=2 nowrap><input type=""text"" name=""email""  size=28 maxlength=25></td>" & vbLF & _		
			"	</tr>" & vbLF & _	
			"	<tr bgcolor=white>" & vbLF & _
			"		<td align=center>备   注</td>" & vbLF & _
			"		<td valign=center colspan=5 style=""word-wrap:break-word;""><textarea name='Remark' cols=80 rows=6 onkeypress='this.style.color=red' onchange='this.style.color=red'></textarea></td>" & vbLF 		
	        end if
	        
	        	
		FormFirmTable = FormFirmTable & _
		"<tr bgcolor=white height=30>" & _
		"	<td colspan=6 align=center>" & sTempButtons & _
		"	</td>" & _
		"</tr>" & _
		"<tr bgcolor=white ><td colspan=6>" & _
		"   <input type=hidden name=formaction>" & _
		"   <input type=hidden name=firmid value="""&iFirmid&""">" & _
		"</td ></tr>" & _
		"</form>" & _
		"</table>" 
		
	end if
 	CloseRS(rs)
End Function


'************************************************************************************************
' 函数名　: UpdateFirm()
' 输　入　: 
' 输　出　: 
' 功能描述: 新增、更新、删除
' 调用模块: newFirm.asp
' 作　者　: 魏霖
' 日　期　: 2002-10-31
' 版　本　: 
'************************************************************************************************
Sub UpdateFirm()
'	定义变量
	dim sSQL, sError, sFormaction, crs, rs, sName,sAddress,sZip,sPerson,sPhone,sFax,sEmail,sRemark
	dim newid, temp,iRow
'   获取表单的数据
 
	sFormaction = GetParam("formaction")
	sName = GetParam("name")
        sAddress = GetParam("address")
        sZip = GetParam("zip")
        sperson = GetParam("person")
        sPhone = GetParam("phone")
        sFax = GetParam("fax")
        sEmail = GetParam("email")
        sRemark = GetParam("remark")
        

	select case sFormaction
	case "add"'新增商户
		'检查有没有相同的商户名称，如果有的话，给出消息，不允许相同
		sSQL = "select * from t_firm where name = "&Tosql(sName,"text")		
		set rs = openRS(conn,sSQL)
		if not rs.eof then
			response.write "<script language=javascript >window.alert('对不起，该商户已经存在，请另选商户名称！')</script>"
			response.write "<script language=javascript >history.go(-1)</script>"
			response.end
		end if
		closeRS(rs)
		sSQL = "insert into T_firm values("&ToSQL(sName,"text")&","&ToSQL(sAddress,"text")&","&ToSQL(sZip,"text")&","&ToSQL(sperson,"text")&_
		                ","&ToSQL(sPhone,"text")&","&ToSQL(sFax,"text")&","&ToSQL(sEmail,"text")&","&ToSQL(sRemark,"text")&" )"
		'执行新增商户到t_firm表中
		conn.Execute(sSQL)
		sError=ProcessError(conn)
		if sError <> "" then
			response.write "<script language=""javascript"">alert('对不起，新增商户失败！')</script>"
		else
			response.write "<script language=""javascript"">alert('新增商户成功！')</script>"
		end if
'		response.end
		
		response.write "<script language=vbscript>window.navigate(""newfirm.asp"")</script>"
	case "upd"'更新商户
			sSQL = "select * from T_firm where id = "&iFirmid
			
			set rs = openRS(conn,sSQL)
			if rs.eof then 			
				response.write "<script language=""javascript"">alert('对不起，不存在该商户！')</script>"
				response.write "<script language = vbscript>window.navigate(""list_firm.asp"")</script>"
				response.end
			end if
			CloseRs(rs)
			
			
			
		 	
			'定义更新角色名称的sSQL语句
			sSQL = "update T_firm set address="& ToSQL(sAddress,"text") &_
				                          ",zip="& ToSQL(sZip,"text") &_
				                          ",person="& ToSQL(sPerson,"text") &_
				                          ",phone="& ToSQL(sPhone,"text") &_
				                          ",fax="& ToSQL(sFax,"text") &_
				                          ",email="& ToSQL(sEmail,"text") &_
				                          ",remark="& ToSQL(sRemark,"text") &_				                          
				                          " where id=" & iFirmid  
				'执行角色名称的更新
			conn.Execute( sSQL)
			sError=ProcessError(conn)
			if sError <> "" then
				response.write "<script language=""javascript"">alert('对不起，商户信息更新失败！')</script>"
				response.write "<script language=vbscript>window.navigate(""newfirm.asp?firmid="&iFirmid&""")</script>"
				response.end
			else
				response.write "<script language=""javascript"">alert('商户信息更新成功！')</script>"
				response.write "<script language=vbscript>window.navigate(""list_firm.asp?page="&iPage&""")</script>"
				response.end
			end if
			
			
	case "del"'删除商户	
	     iRow=0
	     iRow=DLookUp(conn,"select count(*) from t_equipment where supplier="&ToSQL(iFirmid,"number"))
	     if iRow=0 then
	          iRow=DLookUp(conn,"select count(*) from t_stock_detail where supplier="&ToSQL(iFirmid,"number"))
	          if iRow=0 then
	               iRow=DLookUp(conn,"select count(*) from t_purchase_master where supplier="&ToSQL(iFirmid,"number"))	     
	          end if	     
	     end if
	     if iRow>0 then	     
	         response.write "<script language=""javascript"">alert('对不起，该商户使用中，不能删除！')</script>"
		 response.write "<script language=vbscript>window.navigate(""newfirm.asp?firmid="&iFirmid&""")</script>"
		 response.end
	     end if				
		sSQL = "delete from t_firm where id="&ToSQL(iFirmid,"number")
				
		conn.Execute( sSQL)
		sError=ProcessError(conn)
		if sError <> "" then
			response.write "<script language=""javascript"">alert('对不起，商户删除失败！')</script>"
			response.write "<script language=vbscript>window.navigate(""newfirm.asp?firmid="&iFirmid&""")</script>"
				response.end
		else
			response.write "<script language=""javascript"">alert('商户删除成功！')</script>"
			response.write "<script language=vbscript>window.navigate(""list_firm.asp?page="&iPage&""")</script>"
			response.end
		end if
		
	end select
End Sub

'************************************************************************************************
' 函数名　: TableLink()
' 输　入　: 
' 输　出　: 
' 功能描述: 人事管理相关连接
' 调用模块: list_firm.asp
' 作　者　: 魏霖
' 日　期　: 2002-10-31
' 版　本　: 
'************************************************************************************************
Function TableLink()
	dim sTemp : sTemp = ""
	
		sTemp = _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""list_firm.asp"">商户管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF
		
	

	TableLink = _
		"<table width=600 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 & _
		sTemp & vbLF & _
		"</tr>" & vbLF & _
		"</table>" & vbLF
End Function
%>