会议管理系统的分析与设计 - 图文(6)

共

23

5.3.5 统计界面

图6-5 会议室类型汇总报表

实现代码：

set rs=server.CreateObject(\

dim sql:sql=\rs.open sql,conn,1,1 %>

<% dim sqls:sqls=\ set rs2=conn.execute(sqls) if not rs2.eof then do while not rs2.eof %>

月份：

<% for i=1 to 12 dim selected:selected=\ if request.Form(\ if cint(request.Form(\

24

selected=\ end if end if response.Write \第\月份\ next %>

 

选择 编号 姓名 电话 身份证 类型 房号 入住时间 预计天数 预交房款 实际花费 退房时间 <% dim sql5 dim sql6 dim rs5,rs6 dim where:where=\ if request.Form(\ where=where&\ end if if request.Form(\ if where<>\ where=where&\ end if where=where&\ end if if where<>\ where=\ end if sql5=\ set rs5=conn.execute(sql5) sql6=\营业总额 from (select * from [Working] \ set rs6=conn.execute(sql6) if not rs5.eof then do while not rs5.eof %>

25

if not ns1.eof then response.Write ns1(\ end if %> <%

response.Write rs5(\ %> <%=rs5(\ <%=rs5(\ <%=rs5(\ <%=rs5(\ <%=rs5(\ <% rs5.movenext loop else %>

<% end if %>

营业总额：<%=rs6(\营业总额\

26

5.3.6 按月汇总图

图6-6 月收入直方图

27