| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 538 人关注过本帖
标题:我想在以下报表里加一列需要显示的项目,请问怎么加啊,我如果直接加的话, ...
只看楼主 加入收藏
lixiangchui
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-4-22
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:5 
我想在以下报表里加一列需要显示的项目,请问怎么加啊,我如果直接加的话,时间跟操作显示的就会错位,请问怎么改正,我是菜鸟,说的详细点!
程序代码:
<%@language=vbscript codepage=936 %>
<%
if session("name") <> "admin" then 
response.Redirect "index.asp" 
end if

%>
<style type="text/css">
<!--

td {
font-size: 12px;

}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
-->
</style>
<!-- #include file="BGMConn.asp" -->
<!-- #include file="LIB/Functionn.asp" -->
<%
dim strFileName
const MaxPerPage=30
dim totalPut,CurrentPage,TotalPages
dim i,j
dim ID
dim Title
dim sql,rs
dim BigClassName,SmallClassName,SpecialName
dim PurviewChecked
dim strAdmin,arrAdmin
PurviewChecked=false
session("purview")=3
strFileName="gzmanage.asp"

Title=Trim(request("Title"))

ID=Request("ID")

select_tine=Trim(request("select_t"))

if request("page")<>"" then
  currentPage=cint(request("page"))
else
currentPage=1
end if

sql="select * from jhgz "

if Title<>"" then
sql=sql & " where name like '%" & Title & "%' "
end if

if select_tine<>"" then
sql=sql & "where time=#"&select_tine&"# "
'session("select_tine")=select_tine
end if

sql=sql & " order by ID desc"

'Response.Write(sql)

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open sql,conn,1,1

%>
<SCRIPT language=javascript>
function unselectall()
{
  if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
  }
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
  {
  var e = form.elements[i];
  if (e.Name != "chkAll")
  e.checked = form.chkAll.checked;
  }
  }
function ConfirmDel()
{
  if(confirm("确定要删除选中的用户吗?一旦删除将不能恢复!"))
  return true;
  else
  return false;

 
}

function CheckForm()
{
if(document.form1.select.value=="0")
{
alert("请输入查询时间!");
document.form1.select.focus();
return false;
}




}


</SCRIPT>
<link href="Css.css" rel="stylesheet" type="text/css">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse:collapse">
  <tr>
  <td align="center" valign="top"><br>
  <b> </b>
  <p align="center"><strong>工 资 
  管 理</strong>&nbsp;&nbsp;&nbsp; </p>
  <p align="center"><a href="addgz.asp" >添加工资单</a>&nbsp;&nbsp;
<a href="xlsdaoaccesst.asp" target="_blank">导入用户数据</a> 
&nbsp; <a href="daogzdsjt.asp" target="_blank">导入主工资单数据</a>&nbsp;
<a href="daogzdsjtqt.asp" target="_blank">导入其他工资单数据</a>&nbsp;
<a href="usrmanage.asp" target="_blank">用户管理&nbsp; </a>
<a href="loigoout.asp" >退出</a> 

 
</p>
  <a href="javascript:window.print();">打印工资单</a>
<form id="form1" name="form1" method="post" action="gzmanage.asp" onSubmit="return CheckForm();">

 
  <select name="select_t" size="1">
  <option value="0" >请选择查询时间</option>
  <% dim char(21) 
i=0
see=0
sql="select * from jhgz "
set time_rs=server.CreateObject("adodb.recordset")
time_rs.open sql,conn,1,1
do while Not time_rs.EOF  

for j=0 to i

if char(j) = month(time_rs("time")) then 

 
see=1

 
  exit for

 
else 

 
see = 0

 
end if

 
next

 
if see=0 then 
char(i)=month(time_rs("time"))

%>
  <option value="<%=time_rs("time")%>"><%=time_rs("time")%></option>
<%  
'char(i)=time_rs("time")
i=i+1
end if
time_rs.movenext
loop
time_rs.close
set time_rs = nothing 
%>
  
  </select>


 
  <input type="submit" name="Submit1" value="查询" />
  <input type="reset" name="Submit1" value="重置" />
  
</form>
  <form name="del" method="Post" action="delgz.asp" onSubmit="return ConfirmDel();">
   
<table width="972" height="29" border="1" cellpadding="0" cellspacing="1" style="border-collapse:collapse" >
  <tr >
  <td width="534" height="25"><a href="gzmanage.asp">&nbsp;工资管理</a> &gt;&gt;
  <%
if request.querystring="" then
response.write "所有用户"
else
if request("Query")<>"" then
if Title<>"" then
response.write "名称中含有“<font color=blue>" & Title & "</font>”的用户"
else
response.Write("所有用户")
end if

 
end if
end if
%>




  </td>
  <td width="429" align="right">&nbsp;
  <%
  if rs.eof and rs.bof then
response.write "共找到 0 个用户</td></tr></table>"
else
  totalPut=rs.recordcount
if currentpage<1 then
  currentpage=1
  end if
  if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if

  end if
response.Write "共找到 " & totalPut & " 个用户"
%>
  </td>
  </tr>
  </table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
  <tr>
  <td> </td>
  </tr>
</table>


  <%
if currentPage=1 then
  showContent
  showpage strFileName,totalput,MaxPerPage,true,false,"个用户",select_tine
  else
  if (currentPage-1)*MaxPerPage<totalPut then
  rs.move (currentPage-1)*MaxPerPage
  dim bookmark
  bookmark=rs.bookmark
  showContent
  showpage strFileName,totalput,MaxPerPage,true,false,"个用户",select_tine
  else
currentPage=1
  showContent
  showpage strFileName,totalput,MaxPerPage,true,false,"个用户",select_tine
end if
end if
end if
%>
  <%  
sub showContent
  dim i
  i=0
%>
  <table width="100%" border="1" cellpadding="0" cellspacing="1" style="border-collapse:collapse" >
  <tr class="title">
  <td width="34" height="25" align="center"><strong>选中</strong></td>
  <td width="55" align="center">姓名</td>
  <td width="50" align="center">线别</td>
  <td width="55" align="center">出勤工资</td>
  <td width="50" align="center">加班工资</td>
  <td width="40" align="center">岗位津贴</td>
  <td width="40" align="center">其他津贴</td>
  <td width="40" align="center">工龄补贴</td>
  <td width="40" align="center">中餐津贴</td>
  <td width="30" align="center">晚餐津贴</td>
  <td width="35" align="center">考核奖</td>
  <td width="50" align="center">实发合计</td>
  <td width="44" align="center">补发工资</td>
  <td width="43" align="center">应发合计</td>
  <td width="35" align="center">个税</td>
  <td width="42" align="center">社保费</td>
  <td width="53" align="center">住房公积金</td>
  <td width="50" align="center">水电费</td>
  <td width="50" align="center">其他扣款</td>
  <td width="50" align="center">扣款合计</td>
  <td width="87" align="center">时间</td>
  <td width="60" align="center" ><strong>操作</strong></td>
  </tr>
  <%do while not rs.eof%>

 
  <tr class="tdbg">

 

 
  <td width="34" height="22" align="center" > 
  <input name='ID' type='checkbox' onClick="unselectall()" id="ID" value='<%=cstr(rs("ID"))%>'>
  </td>
  <td align="center"><a href="seetable.asp?id=<%=cstr(rs("ID"))%>" target="_blank"><%= rs(1)%>&nbsp;</a></td>
  <%

 
  tr_i=2

 Do While tr_i < rs.Fields.Count - 6

 
  %>
  <td align="center"><%= rs(tr_i)%>&nbsp;</td>
  <% 
  tr_i=tr_i+1
  loop
   
  %>
  <td align="center"><%= rs("time")%>&nbsp;</td>  
  <td width="81" align="center" ><a href="gzedit.asp?ID=<%=rs("ID")%>">修改</a>&nbsp;<a href="delgz.asp?ID=<%=rs("ID")%>" onClick="return ConfirmDel();">删除</a></td>
  </tr>
  <%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
  </table>
  <table width="549" border="0" cellpadding="0" cellspacing="0">
  <tr> 
  <td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
  选中本页显示的所有用户</td>
  <td width="335"><input name="submit" type='submit' value='删除选定的用户' > 
  <input name="Action" type="hidden" id="Action" value="Del"></td>
  </tr>
  </table>
  <%
  end sub 
%>
  </form>
  <br>
  <table width="970" border="0" cellpadding="0" cellspacing="0" class="border">
  <tr class="tdbg">
  <form name="searchsoft" method="get" action="gzmanage.asp">
  <td width="794" height="30"><strong>查找工资单:</strong>
  <input name="Title" type="text" class=smallInput id="Title" size="10" maxlength="20">
  <input name="Query" type="submit" id="Query" value="查 询">
  &nbsp;&nbsp;请输入“用户名“ 或 ”姓“ 或 ”名“。如果为空,则查找所有用户</td>
  </form>
  </tr>
  </table></td>
  </tr>
</table>
<%
rs.close 
conn.close 
set rs=nothing  

set conn=nothing 
%>


[ 本帖最后由 lixiangchui 于 2011-4-24 14:43 编辑 ]
搜索更多相关主题的帖子: 时间 
2011-04-24 14:29
lixiangchui
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-4-22
收藏
得分:0 
我想在扣款合计后边加一列实发合计,但是我直接加的话,就变成这样了!
图片附件: 游客没有浏览图片的权限,请 登录注册

没加是这样显示@


图片附件: 游客没有浏览图片的权限,请 登录注册
2011-04-24 14:40
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:20 
程序代码:
  <%

  tr_i=2
Do While tr_i < rs.Fields.Count - 6

  %>
  <td align="center"><%= rs(tr_i)%>&nbsp;</td>
  <%
  tr_i=tr_i+1
  loop
  
  %>
上面这一段,最好老老实实一个字段一个字段写,再定义一个实发工资的变量sfgz,该加的加,该减的减
中间不写了,按你的字段自己改改
程序代码:
<%
sfgz=0
Response.Write "<td align=""center"">"&Rs(1)&"</td>"
sfgz=sfgz+Rs(1)
Response.Write "<td align=""center"">"&Rs(1)&"</td>"
sfgz=sfgz+Rs(1)

.....

Response.Write "<td align=""center"">"&Rs(8)&"</td>"
sfgz=sfgz-Rs(8)

Response.Write "<td align=""center"">"&sfgz&"</td>"
%>

 




 

----我怎能在别人的苦难面前转过脸去----
2011-04-24 18:04
lixiangchui
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-4-22
收藏
得分:0 
回复 3楼 dzt0001
实发工资的字段数据库里边有,字段名是sfgz,我想问怎么直接调用啊?
2011-04-24 18:12
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:0 
那就在<td align="center"><%= rs("time")%>&nbsp;</td>  前加一行

  <td align="center"><%= rs("sfgz")%>&nbsp;</td>  

----我怎能在别人的苦难面前转过脸去----
2011-04-24 18:15
lixiangchui
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-4-22
收藏
得分:0 
回复 5楼 dzt0001
搞定了,谢谢哈!
2011-04-24 18:30
快速回复:我想在以下报表里加一列需要显示的项目,请问怎么加啊,我如果直接加的 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.099442 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved