📄 designstep1.asp
字号:
<!-- #include file = "../../../include/asphead.asp" -->
<!-- #include file = "../../../include/function.asp" -->
<%CheckUser()%>
<link href="../../../include/main.css" rel="stylesheet" type="text/css">
<script src="../../../include/function.js" type="text/javascript"></script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function LocalDC()
{
var Caption;
Caption=JTrim(frmData.Caption.value);
if(Caption=="")
{
alert("您未填写报表名称，请填写。");
return(false);
}
return true;
}
function Next()
{
if(LocalDC()==true)
{
DisableButton();
document.frmData.target ="SaveArea";
document.frmData.action="savecaption.asp";
document.frmData.submit();
}
}
function Cancel()
{
var discard;
discard=confirm(frmData.btnCancel.value+"报表设计吗？");
if(discard==true)
{
parent.window.returnValue = false;
parent.window.close();
}
}
function DisableButton()
{
frmData.btnCancel.disabled =true;
frmData.btnPre.disabled =true;
frmData.btnNext.disabled =true;
}
function EnableButton()
{
frmData.btnCancel.disabled =false;
frmData.btnNext.disabled =false;
}
function OpenSample(file) {
try
{
window.open (file,'Sample')
}
catch(e)
{
alert('打开报表式样失败。\n请检查当前浏览器版本，建议使用IE6.0以上版本。')
}
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Report")
dim SheetID,NewReport,ReportID
SheetID=Request.Cookies("System")("ReportSheetID")
dim Exist
dim WExcel2
set WExcel2=server.CreateObject("WExcel.System")
Exist=WExcel2.SheetExist(cint(UserID),cint(SheetID))
set WExcel2=nothing
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=2"
end if
if Request.QueryString("NewReport")="1" then
Response.Cookies("System")("NewReport")="1"
Response.Cookies("System")("ReportID")=""
ReportID=""
Response.Cookies("System")("CreateReport")="1"
else
Response.Cookies("System")("CreateReport")="0"
end if
if Request.QueryString("ReportID")<>"" then
ReportID=Request.QueryString("ReportID")
Response.Cookies("System")("NewReport")="0"
Response.Cookies("System")("ReportID")=ReportID
end if
NewReport=Request.Cookies("System")("NewReport")
ReportID=Request.Cookies("System")("ReportID")
dim Caption,Description,ReportType,ReportStatus
if ReportID<>"" then
Exist=WExcel.ReportExist(cint(UserID),cint(SheetID),cint(ReportID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=报表&Depth=2"
end if
WExcel.GetReportInfo cint(UserID),cint(SheetID),cint(ReportID),Caption,Description,ReportType,ReportStatus
else
Caption=""
Description=""
ReportType=1
end if
if NewReport="1" then
Cancel="取消"
else
Cancel="退出"
end if
CheckErr
%>
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<BODY>
<form METHOD="post" name="frmData">
<table width="100%" border=0 cellPadding=0 cellSpacing=0>
<tr height=35>
<td>
<b>第1步：定义报表名称、报表类型</b>
</td>
</tr>
<tr height=205 valign=top>
<td>
<table width="80%" border=0 cellPadding=0 cellSpacing=0>
<tr>
<td width="30%">
<p align=right>报表名称<FONT color=red>*</FONT></p>
</td>
<td width="70%">
<input TYPE="input" NAME="Caption" style="width:210px;" value="<%=server.HTMLEncode(Caption)%>" maxLength=50>
</td>
</tr>
<tr>
<td width="30%">
<p align=right>报表类型</p>
</td>
<td width="70%">
<select name="ReportType" style="width:210px;">
<%if ReportType=1 then%>
<option selected=true value=1>分类明细表</option>
<option value=3>分类统计表</option>
<option value=2>透视分析表</option>
<%elseif ReportType=2 then%>
<option value=1>分类明细表</option>
<option value=3>分类统计表</option>
<option selected=true value=2>透视分析表</option>
<%else%>
<option value=1>分类明细表</option>
<option selected=true value=3>分类统计表</option>
<option value=2>透视分析表</option>
<%end if%>
</select>
</td>
</tr>
<tr>
<td width="30%">
<p align=right>说明</p>
</td>
<td width="70%">
<input TYPE="input" NAME="Description" style="width:210px;" value="<%=server.HTMLEncode(Description)%>" maxLength=100 >
</td>
</tr>
<tr>
<td width="30%">
<p align=right>式样示例</p>
</td>
<td width="70%">
<p align=right>
<table align=center width="85%" border=0>
<tr>
<td style="CURSOR: hand;" onclick="javascript:OpenSample('listreport.jpg')"><U>薪资明细表</U>
</td>
<td style="CURSOR: hand;" onclick="javascript:OpenSample('sumreport.jpg')"><U>薪资统计表</U>
</td>
<td style="CURSOR: hand;" onclick="javascript:OpenSample('analyzereport.jpg')"><U>薪资透视表</U>
</td>
</tr>
</table>
</p>
</td>
</tr>
</table>
</td>
</tr>
<tr height=40 valign=top>
<td colspan=2>
说明：完成报表设计后还要指定其访问权限，位置：角色权限→统计报表权限。
</td>
</tr>
<tr height=40 valign=bottom>
<td colspan=2>
<table align=center width="50%">
<tr>
<td width="33%"><input id="btnCancel" type="button" value="<%=Cancel%>" name="btnCancel" style="CURSOR: hand; HEIGHT: 24px; WIDTH: 65px" LANGUAGE="javascript" onclick="return Cancel()"></td>
<td width="33%"><input id="btnPre" type="button" disabled value="上一步" name="btnPre" style="CURSOR: hand; HEIGHT: 24px; WIDTH: 65px" LANGUAGE="javascript" onclick="return Pre()"></td>
<td width="33%"><input id="btnNext" type="button" value="下一步" name="btnNext" style="CURSOR: hand; HEIGHT: 24px; WIDTH: 65px" LANGUAGE="javascript" onclick="return Next()"></td>
</tr>
</table>
</td>
</tr>
<iframe id="SaveArea" name="SaveArea" style="VISIBILITY: hidden" width="0" height="0" frameborder="0" src="">
</iframe>
</table>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -