📄 cartogram.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="function.asp"-->

<%
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
tx=request("tx"):if tx="" then tx="2" '统计图类型
tjlx=request("tjlx"):if tjlx="" then tjlx="xb" '统计类型
'------------------------------------------------
%>

<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<link rel="stylesheet" href="../css/main.css" type=text/css>
	<title>main</title>
	<STYLE>
	v\:* { Behavior: url(#default#VML) }
	o\:* { behavior: url(#default#VML) }
	</STYLE>
</head>
<body topmargin="10" leftmargin="10">
<!--#include file="menu.html"-->
<hr width="100%" size=1 color="#000000">
<a href="?tx=<%=tx%>&tjlx=xb">[男女比例]</a>
<a href="?tx=<%=tx%>&tjlx=gzdw">[工作单位]</a>
<a href="?tx=<%=tx%>&tjlx=nn">[年龄]</a>
<a href="?tx=<%=tx%>&tjlx=zzmm">[政治面貌]</a>
<a href="?tx=<%=tx%>&tjlx=zgxl">[最高学历]</a>
<a href="?tx=<%=tx%>&tjlx=gz">[工种]</a>
<a href="?tx=<%=tx%>&tjlx=rznx">[入职年限]</a>
<a href="?tx=<%=tx%>&tjlx=rzzt">[入职状态]</a>
<a href="?tx=<%=tx%>&tjlx=hyzk">[婚姻状况]</a>
<a href="?tx=<%=tx%>&tjlx=znzk">[子女状况]</a>
<a href="?tx=<%=tx%>&tjlx=ghhy">[工会会员]</a>
<br><br>
<%
SELECT CASE tjlx
CASE "xb"
	sql="SELECT COUNT(*) AS value, xb AS name FROM tbioaHrmBase where mod>=0 GROUP BY xb"
	cartogram tx,"男女比例","","人",sql
CASE "gzdw"
	sql="SELECT Name AS name, ID AS value FROM tbioaDepartment WHERE (ParentID = 1) GROUP BY Name, ID"
	cartogram_gzdw tx,"工作单位","","人",sql
CASE "nn"
	sql="SELECT COUNT(*) AS value, '' AS name FROM tbioaHrmBase WHERE mod>=0 and (DATEDIFF(year, csrq, GETDATE()) is null)"_
     &"UNION ALL SELECT COUNT(*) AS value, '18岁以下' AS name FROM tbioaHrmBase WHERE mod>=0 and (DATEDIFF(year, csrq, GETDATE()) BETWEEN 0 AND 17)"_
     &"UNION ALL SELECT COUNT(*) AS value, '18~25岁' AS name FROM tbioaHrmBase WHERE mod>=0 and (DATEDIFF(year, csrq, GETDATE()) BETWEEN 18 AND 24)"_
     &"UNION ALL SELECT COUNT(*) AS value, '25~35岁' AS name FROM tbioaHrmBase WHERE mod>=0 and (DATEDIFF(year, csrq, GETDATE()) BETWEEN 25 AND 34)"_
     &"UNION ALL SELECT COUNT(*) AS value, '35~45岁' AS name FROM tbioaHrmBase WHERE mod>=0 and (DATEDIFF(year, csrq, GETDATE()) BETWEEN 35 AND 44)"_
     &"UNION ALL SELECT COUNT(*) AS value, '45~55岁' AS name FROM tbioaHrmBase WHERE mod>=0 and (DATEDIFF(year, csrq, GETDATE()) BETWEEN 45 AND 54)"_
     &"UNION ALL SELECT COUNT(*) AS value, '55~60岁' AS name FROM tbioaHrmBase WHERE mod>=0 and (DATEDIFF(year, csrq, GETDATE()) BETWEEN 55 AND 59)"_
     &"UNION ALL SELECT COUNT(*) AS value, '60岁以上' AS name FROM tbioaHrmBase WHERE mod>=0 and (DATEDIFF(year, csrq, GETDATE()) BETWEEN 60 AND 1000)"
	'response.write sql
	cartogram tx,"年龄","","人",sql
CASE "zzmm"
	sql="SELECT COUNT(*) AS value, zzmm AS name FROM tbioaHrmBase where mod>=0 GROUP BY zzmm"
	cartogram tx,"政治面貌","","人",sql
CASE "zgxl"
	sql="SELECT COUNT(*) AS value, xl AS name FROM tbioaHrmBase where mod>=0 GROUP BY xl"
	cartogram tx,"最高学历","","人",sql
CASE "gz"
	sql="SELECT COUNT(*) AS value, gz AS name FROM tbioaHrmBase where mod>=0 GROUP BY gz"
	cartogram tx,"工种","","人",sql
CASE "rznx"
	sql="SELECT COUNT(*) AS value, convert(varchar(10),DATEDIFF(year, rzdate, GETDATE()),100)+'年' AS name FROM tbioaHrmBase where mod>=0 GROUP BY convert(varchar(10),DATEDIFF(year, rzdate, GETDATE()),100)+'年'"
	cartogram tx,"入职年限","","人",sql
CASE "rzzt"
	sql="SELECT COUNT(*) AS value, rzzt AS name FROM tbioaHrmBase where mod>=0 GROUP BY rzzt"
	cartogram tx,"入职状态","","人",sql
CASE "hyzk"
	sql="SELECT COUNT(*) AS value, hyzk AS name FROM tbioaHrmBase where mod>=0 GROUP BY hyzk"
	cartogram tx,"婚姻状况","","人",sql
CASE "znzk"
	sql="SELECT COUNT(*) AS value, znzk AS name FROM tbioaHrmBase where mod>=0 GROUP BY znzk"
	cartogram tx,"子女状况","","人",sql
CASE "ghhy"
	sql="SELECT COUNT(*) AS value, sfghhy AS name FROM tbioaHrmBase where mod>=0 GROUP BY sfghhy"
	cartogram tx,"工会会员","","人",sql
CASE ELSE
	response.Write "<B>请选择统计类型</B>"
END SELECT
%>
</body>
</html>

<%'释放对象变量
oConn.close
set oConn=nothing
%>

<%
sub cartogram(tx,title,unit_x,unit_y,sql)
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,oConn,1,1
Count=rs.RecordCount
Redim total(Count,2)
for i=1 to rs.RecordCount
	total(i,1)=rs("value")
	if rs("name")<>"" then name=rs("name") else name="未知"
	total(i,2)=name
	rs.MoveNext
next
rs.close
set rs=nothing
call table(tx,total,title,unit_x,unit_y)
end sub

sub cartogram_gzdw(tx,title,unit_x,unit_y,sql)
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,oConn,1,1

Count=rs.RecordCount+1
Redim total(Count,2)
rs1=oConn.Execute("SELECT COUNT(tbioaHrmBase.id) AS value,tbioaDepartment.name AS name FROM tbioaHrmBase,tbioaDepartment where tbioaHrmBase.xgzdw=tbioaDepartment.id and tbioaHrmBase.xgzdw=1 and mod>=0 GROUP BY tbioaDepartment.Name")
total(1,1)=rs1("value")
total(1,2)=rs1("name")
for i=2 to rs.RecordCount+1
	total(i,1)=oConn.Execute("SELECT COUNT(tbioaHrmBase.id) AS value FROM FunDepartment("&rs("value")&") b INNER JOIN tbioaDepartment a ON b.id = a.ID INNER JOIN tbioaHrmBase ON a.ID = tbioaHrmBase.xgzdw where mod>=0")(0)
	if rs("name")<>"" then name=rs("name") else name="未知"
	total(i,2)=name
	rs.MoveNext
Next
rs.close
set rs=nothing
call table(tx,total,title,unit_x,unit_y)
end sub
%>

<%
'参数含义(图形类别，数组，图表标题，X轴单位，Y轴单位)
function table(tx,stat_array,table_title,X_unit,Y_unit)
SELECT CASE tx
CASE "1"
	call table1(stat_array,10,62,700,400,table_title,X_unit,Y_unit)
CASE "2"
	call table2(stat_array,10,62,700,400,table_title,Y_unit)
END SELECT
end function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -