简单的人员派车系统

最新推荐文章于 2023-02-28 15:07:16 发布
最新推荐文章于 2023-02-28 15:07:16 发布
阅读量1k 收藏 1
点赞数
分类专栏： asp ajax 文章标签： class ajax button javascript div function
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ttt2/article/details/4272145
版权
asp 同时被 2 个专栏收录
18 篇文章 0 订阅
订阅专栏
ajax
3 篇文章 0 订阅
订阅专栏

媳妇单位搬家，太远，得车接车送，而且都是小车，派车是个问题，并且车辆不固定，人员不固定

 

前台部分

 


<!-- #include file="conn_me.asp" -->
<%
set cn=server.createobject("adodb.connection")
cn.open connstr

set rs=server.createobject("adodb.recordset")
rs.open "select * from car order by car_zt asc,id asc",cn,1,1

set rsr=server.createobject("adodb.recordset")
rsr.open "select * from people where car_id=0 order by id asc",cn,1,1

set rsp=server.createobject("adodb.recordset")

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>人员派车</title>
<style>
body{font-size:12px}
.clearb{clear:both}

.car_info{width:100%;height:200px;border:0px #ccc solid}
.car_item{width:210px;height:170px;border:1px #ccc dashed;float:left;margin-right:10px;background:#FFFFFF}
.car_total{width:100%;height:24px;line-height:24px;font-size:14px;margin-top:4px;}

.car_title{width:100%;height:22px;line-height:22px;}

.car_people{width:100%;margin-top:5px;padding-left:5px;}
.car_people_item{width:60px;height:25px;border:1px #ccc dashed;float:left;margin-right:4px;line-height:25px;text-align:center;margin-bottom:5px;overflow:hidden;background:#EFF8FC}

.people_info{width:100%;height:200px;border:1px #ccc solid;padding-top:5px;padding-left:5px;background:#EFF8FC}
.people_item{width:80px;height:25px;border:1px #ccc dashed;float:left;margin-right:10px;line-height:25px;background:#FFFFFF}

</style>

<script language="javascript" src="ajaxobject.js"></script>

<script language="javascript">
    function ajax(orders,a,b) { //orders功能,a车id,b人id
   
     url="ajax_car.asp?orders="+orders+"&a="+a+"&b="+b+"&r="+new Date().getTime()
    
     xmlhttp_request=new getXMLRequester();
        xmlhttp_request.onreadystatechange = function()
        {
            if (xmlhttp_request.readyState == 4) {
            if (xmlhttp_request.status == 200) {

               //document.getElementById("cylb").innerHTML=xmlhttp_request.responseText;
               
               var returnstr=xmlhttp_request.responseText;
               
      //--
      switch(orders)
      {
      case 1: //全部下车
       <%
       while not rs.eof
       %>
       document.getElementById("car_people_<%=rs("id")%>").innerHTML=""
       <%
       rs.movenext
       wend
       %>
       document.getElementById("people_info").innerHTML =returnstr
      //alert("ok")
      break;
      
      case 2: //单人上车
       
       if(returnstr=="0")
       {
        alert("该车人数已满，请换车!")
       }
       else
       {
        //alert(returnstr)
        var temp1=returnstr.split("||")
        //alert(temp1[1])
        document.getElementById("people_info").innerHTML =temp1[0]
        document.getElementById("car_people_"+a).innerHTML=temp1[1]
        
       }
       
      break;
      
      case 3: //单车下车
       document.getElementById("car_people_"+a).innerHTML=""
       document.getElementById("people_info").innerHTML =returnstr
      break;
      
      case 4: //单人下车
        var temp1=returnstr.split("||")
        //alert(temp1[1])
        document.getElementById("people_info").innerHTML =temp1[0]
        document.getElementById("car_people_"+a).innerHTML=temp1[1]
      break;
      }
      //--     

            } else {
                alert(xmlhttp_request.status);
                //alert("发生错误，请与赵水运联系!")
            }
        }
       
       
        };
       xmlhttp_request.open('GET', url, true);
       xmlhttp_request.send(null);

    }
   
   
    function addcar(c1) //上车
    {
    var t=false;
   
    if(document.all("peopleid").length==null)
    {
     if(document.getElementById("peopleid").checked==true)
     {
      ajax(2,c1,document.getElementById("peopleid").value)
     }
     else
     {
     alert("请选择人员后点击该按钮！")
     }
    }
    else
    {
    for(var i=0;i<document.all("peopleid").length;i++)
     {
      if(document.all("peopleid")[i].checked==true)
      {
      
      t=true
      ajax(2,c1,document.all("peopleid")[i].value)
      }
     }
     
     if(t==false)
     {
     alert("请选择人员后点击该按钮！")
     }
    } 
    }
</script>

</head>

<body>


<!-- 车辆信息 begin-->
<div id="car_info" class="car_info">
 <% 
 rs.movefirst
 while not rs.eof
 %>
 <div id="car_<%=rs("id")%>" class="car_item">
  <div class="car_title">&nbsp;<%=rs("car_name")%>&nbsp;&nbsp;可载<%=rs("car_count")%>人&nbsp;&nbsp;<%if rs("car_zt")=0 then%>可用<%else%><font color=red>不可用</font><%end if%></span> &nbsp;[<a href="#" οnclick="ajax(3,<%=rs("id")%>,0)"><font color="green">下车</font></a>]</div>
  <div class="car_people" id="car_people_<%=rs("id")%>">
   <%
   rsp.open "select * from people where car_id="&rs("id")&" order by id asc",cn,1,1
   while not rsp.eof
   %>
   <div id="car_people_item" class="car_people_item"><a href="#" οnclick="ajax(4,<%=rs("id")%>,<%=rsp("id")%>)"><font color="red">X</font></a>&nbsp;<%=rsp("people_name")%></div>
   <%
   rsp.movenext
   wend
   rsp.close
   %>   
  </div>
 </div>
 <%
 rs.movenext
 wend
 %>
 <div class="car_total clearb">共有:<%=rs.recordcount%>辆车</div>
</div>
<!-- 车辆信息 end -->
<br>
<!-- 人员信息 begin -->
<div id="people_info" class="people_info">
 <%
 while not rsr.eof
 %>
 <div class="people_item">&nbsp;<input type="radio" value="<%=rsr("id")%>" name="peopleid"><%=rsr("people_name")%></div>
 <%
 rsr.movenext
 wend
 %>
</div>
<!-- 人员信息 end-->
<!-- 车辆按钮 begin-->
<div class="car_button" id="car_button">
<br>
<%
rs.movefirst
while not rs.eof
%>
<input type="button" value="上‘<%=rs("car_name")%>’的车" οnclick="addcar(<%=rs("id")%>)" <%if rs("car_zt")=0 then%><%else%>disabled<%end if%> id="button_<%=rs("id")%>">
<%
rs.movenext
wend
%>
</div>
<!-- 车辆按钮 end -->

<!--功能区 -->
<br><br>
<div>
 <input type="button" value="全部下车" οnclick="ajax(1,0,0)">
</div>

</body>

</html>

后台部分

<%Response.CharSet="gb2312" %>
<!-- #include file="conn_me.asp" -->
<%


a=request.querystring("a")   '''车辆id 
b=request.querystring("b")   '''人员id

if a="" then a=0
if b="" then b=0

a=cint(a)
b=cint(b)

set cn=server.createobject("adodb.connection")
cn.open connstr

orders=request.querystring("orders")
orders=cint(orders)
select case orders
case 1
 call clearall
case 2
 call addcar
case 3
 call clearone 
case 4
 call clearonepeople 
end select

 

%>

<%
sub clearall '''全清

sql="update people set car_id=0"
cn.execute sql

call refushpeople

%>
<%
end sub
%>

<% sub addcar '''上车

set rs1=server.createobject("adodb.recordset")
rs1.open "select * from car where id="&a,cn,1,1 ''车载人数
if not rs1.eof then
czrs=rs1("car_count")
else
czrs=0
end if
rs1.close
set rs1=nothing

'response.write czrs

set rs2=server.createobject("adodb.recordset")
rs2.open "select count(*) from people where car_id="&a,cn,1,1 '''实际载人数
if not rs2.eof then
sjrs=rs2(0)
else
sjrs=0
end if
rs2.close
set rs2=nothing

if sjrs>=czrs then
 response.write "0"
else
 sql="update people set car_id="&a&" where id="&b
 cn.execute sql
 
 call refushpeople
 response.write "||"
 call refushcar(a)
 
end if

end sub
%>

<%
sub clearone  ''下车

 sql="update people set car_id=0 where car_id="&a
 cn.execute sql
 
 call refushpeople


end sub
%>
<%
sub clearonepeople  ''单人下车
 sql="update people set car_id=0 where id="&b
 cn.execute sql
 
 call refushpeople
 response.write "||"
 call refushcar(a) 
 
end sub
%>

<% sub refushpeople  ''刷新人员函数
set rsr=server.createobject("adodb.recordset")
rsr.open "select * from people where car_id=0 order by id asc",cn,1,1

 
 while not rsr.eof
 %>
 <div class="people_item">&nbsp;<input type="radio" value="<%=rsr("id")%>" name="peopleid"><%=rsr("people_name")%></div>
 <%
 rsr.movenext
 wend
 rsr.close
 set rsr=nothing
 %>
<%end sub%>
<%
sub refushcar(c1) ''刷新车
   set rsp=server.createobject("adodb.recordset")
   rsp.open "select * from people where car_id="&c1&" order by id asc",cn,1,1
   while not rsp.eof
   %>
   <div id="car_people_item" class="car_people_item"><a href="#" οnclick="ajax(4,<%=c1%>,<%=rsp("id")%>)"><font color="red">X</font></a>&nbsp;<%=rsp("people_name")%></div>
   <%
   rsp.movenext
   wend
   rsp.close

set rsp=nothing
end sub
%>

 

ttt2
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
车辆派遣管理系统——需求
weixin_38380811的博客
06-20 513
客车派遣管理系统主要用于公司的客车派遣及其核算，因此分成三个部分：业务管理部分、档案管理部分、查询统计部分（统计和分析管理）。
企业派车管理小程序，单位派车管理小程序，派车管理微信小程序
11-27 273
基于PC后台管理的小程序用户端后台需维护单位信息，车辆信息，员工信息，司机信息微信扫下面二维码进入小程序。
关于列表里面的链接，点击后可查看文件以及列表数据翻译
黄小堆
10-10 691
1、bootstrap-vue表格里面做文字转译，将后台返回的状态码翻译 &lt;b-table striped bordered hover :items="list" :fields="theads" show-empty empty-text="没有查询到数据" style="text-align:center;table-layout:fixed;"&gt; &lt;template ...
大型车辆管理系统源码 移动派车系统 车管系统asp.net.rar
05-21
大型车辆管理系统源码 移动派车系统 车管系统asp.net,代码结构清楚，内容丰富，代码结构清楚，带有数据库
C# B/S 、C/S模式派车系统
11-25
电话来电功能提示、车辆派车、车辆管理、驾驶员管理、派车报表的打印、人员信息管理。
启明星公务用车申请系统源代码
03-18
启明星厂车使用系统car 用于企业内部员工申请公司用车。... 审批完后，行政派车时，可以支持手机短信通知司机。 除了申请以外，系统还支持汽车的日常维护与保养，公司司机人员的维护等。 系统使用ASP
车动态辆信息管理系统
12-09
用车管理:派车申请、用车审批、回车登记、车辆出入门管理、加油管理、用车档案； 费用管理: 费用信息、车辆投保信息、费用统计； 其他管理:一周工作安排、规章制度、通讯录、资产管理、单位活动、修理厂信息、油料...
基于BS车辆调度管理系统
03-06
汽车调度管理系统是集派车登记，驾驶员信息管理，机动车信息管理，里程信息管理与一体的多功能系统。而原本的汽车调度管理人工登记是一个十分复杂的过程，在以前全部的登记表都是个人手工填写完成的，手续十分繁琐。...
启明星公务用车申请系统
04-06
审批完后，行政派车时，可以支持手机短信通知司机。 除了申请以外，系统还支持汽车的日常维护与保养，公司司机人员的维护等。 系统使用ASP.NET4.5+MSQQL2008 Express开发，快速安装方法： （1）建立数据库car,运行 ...
启明星公务用车申请系统源码v18.0
07-25
启明星厂车使用系统car 用于企业内部员工申请公司用车。 系统支持 零级审批，一级审批，二级审批和三级审批四种模式。 审批完后，行政派车时，可以支持手机短信通知司机。 除了申请以外，系统还支持汽车的日常维护与保养，公司司机人员的维护等。 系统使用ASP.NET4.5 MSQQL2008 Express开发，快速安装方法： （1）建立数据库car,运行 app_data下的 car.s
车辆管理系统源码
05-02
车辆管理系统源码，随书光盘里的 随着社会经济的发展，使用车辆的人越来越多，对于拥有各种类型车辆的机关企事业单位，车辆的管理成为日常事务中的一项重要工作。如何让事务管理人员及时了解每一辆车的情况，提高车辆的使用效率，就成为各单位亟待解决的一个难题。针对这种状况，吉林省明日科技有限公司开发出一套专门进行车辆管理的软件《车辆管理系统》，本系统是一套对车辆档案、驾驶人员、车辆费用、车辆运营和交通事故等信息进行全面管理的系统。通过采集车辆日常工作中所产生的各种原始数据，根据管理的要求，对数据进行分类、汇总，建立程序化、制度化、规范化的车辆计算机软件管理系统，并根据日常的数据对驾驶员进行发放工资，为车辆节约增效提供先进的科学管理手段，规范了车辆管理工作。
通用 OA系统源代码
11-22
通用OA系统源代码 通用OA系统源代码 通用OA系统源代码 通用OA系统源代码 通用OA系统源代码
车辆管理系统源码(asp.net)
02-19
后台包括部门管理、车辆管理、用户管理、车辆公告、司机管理、用车记录等 由于是正在实用的商业化程序，所以功能比较齐全 已经把其中部分涉及到隐私的内容进行了模糊化 数据库文件在DB文件夹下，打开企业管理器附加即可 默认超级管理员帐号admin 密码 51aspx
PHP+Mysql车辆管理系统（车管所）
03-25
本源码是基于PHP+Mysql实现的车辆管理系统（车管所），包括用户与管理员的角色，实现了完整的增删改查功能模块，结构简单，思路清晰，代码严谨但不复杂。运行环境是WAMPSERVER，开发工具使用的是Dreamweaver，适合用于PHP入门级学员的学习交流，或者简单课设的参考源码。
车辆派遣管理系统-档案管理
k610327749的博客
07-17 427
前言：内容主要为页面设计和档案管理模块 一、系统管理后台登录 css源码 *{ padding:0; margin:0; outline:none; } body{ background:#9df; } .loginDiv{ width:1100px; margin:170px auto; } .left{ float:left; width:500px; height:300px; margin-top:30px; } .right{ width:300px; padd
车辆派遣管理系统-04-单车月结算
k610327749的博客
07-31 209
功能模块：单车月结算 需要角色：财务（其他角色不能操作） 数据加载：月结算信息列表、车辆信息、动态加载近三年年份、动态加载月份并匹配当前月、所有查询月份的派车单信息 数据验证：非空验证、日期必须为合理日期，不能结算当前月，只能结算历史月份 列表分页：AJAX分页查询 业务描述： 财务进行派车单的收款以后，需要财务进行一个月内指定车牌号的派车单的结算，结算营业额和毛利润 财务人员登录以后，可以进行指定车辆的派车单的月结算，点击左侧“业务管理”下的“单车月结算”菜单后，加载打开财务收款子页面，页面
这一次升级，让称重系统更加智能
jinda_soft的博客
02-28 123
1.1添加派车：客户（运输公司）在平台派车模块中登录各自公司账号，提前录入派车信息车辆信息（包括司机姓名、电话、身份证号、车牌号、预装量、轴数、货名、规格、原发重量等信息），并关联合同计划。2.2客户账号：与本单位有业务来往的客户向本单位申请账号，本单位工作人员创建客户的公司账号（可统一分配），该账号具有创建司机账号的权限，及在管理平台上添加派车权限。1.2派车审核：客户（运输公司）添加派车成功后，派车进入审核状态，各部门业务人员或负责人对派车信息进行核对，核对该信息的真实有效性，审核通过方可生效。
java 车辆派车系统,MoveBooking 顺风搬家预约管理系统，对 ，派车 ，城市 采用Java平台，并且 B/S模 Other systems 其他行业 243万源代码下载- www.pudn...
weixin_39975744的博客
03-13 283
文件名称: MoveBooking下载 收藏√ [5 4 3 2 1]开发工具: Java文件大小: 1108 KB上传时间: 2015-08-13下载次数: 0提 供 者: 王红详细说明：顺风搬家预约管理系统，对搬家预约，派车管理，城市管理采用Java平台，并且采用B/S模式应用, 框架与技术的选择：Struts+Hibernate+Spring+Ajax-The managem...
python 人员信息管理系统
最新发布
01-01
总而言之，Python人员信息管理系统是一款简单易用但功能强大的应用程序，适用于需要高效管理大量人员信息的场景。通过使用该系统，用户能够更加方便地进行数据录入、查询统计和信息管理等工作，提高工作效率，减少...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值