【调度系统】广东民航医疗快线调度系统源代码
wlzboy
2025-09-06 2decf5219e3476e30095fd9dbf6e49c55e105563
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!--#include virtual="/inc/chkadmin.gds"-->
<!--#include virtual="/inc/function.gds"-->
<%
If isDepartment("0603")=0 Then Response.Redirect "/"
CarOrdClass=trim(Request("CarOrdClass"))
If CarOrdClass="" Then CarOrdClass="SA"
 
'各种返回信息
SystemMessageType=trim(Request("SystemMessageType"))
SMT=trim(Request("SMT"))
if SystemMessageType<>"" then
  if SMT="1" then
    SystemMessageTXT="班表保存完成"
  elseif SMT="2" then
    SystemMessageTXT="请填写必要数据"
  elseif SMT="3" then
    SystemMessageTXT="微信OA同步失败,请联系IT部!!"
  elseif SMT="4" then
    SystemMessageTXT="发出关注邀请完成,新员工默认密码:000000.请首次登陆后尽快修改"
  elseif SMT="5" then
    SystemMessageTXT="发出关注邀请失败,请点击[<a href=""/weixin/user_list.gds?departmentID="&departmentID&""">刷新数据</a>]并修改微信相关联系方式后再次发送"
  end if
end if
 
Set rs = Server.CreateObject("ADODB.Recordset")
 
'单据类型表列
OrdClassTypes = ""
sql="select vID,vtext,vOrder2 from dictionary where vType=2 and vtitle='OrderClass' order by vOrder"
rs.open Sql,objConn,1,1
do while not rs.Eof
    ClassName=replace(rs("vtext"),"调度单","地区")
    OrdClassTypes = OrdClassTypes & rs("vOrder2") &","& ClassName & "|"
    If CarOrdClass=rs("vOrder2") Then OrdClassName=ClassName
rs.movenext
Loop
rs.close()
OrdClassTypes = left(OrdClassTypes,len(OrdClassTypes)-1)
OrdClassTypesPS = SPLIT(OrdClassTypes,"|")
 
page_URL="&departmentID="&departmentID&"&searchTXT="&searchTXT&"&h_menu1_1=1"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
    <head>
        <title><%=LindemanAdmin%></title>
        <!--#include virtual="/inc/ccs.gds"-->
    </head>
    <body onkeydown="xKeyEvent(event)">
        <!--#INCLUDE FILE="menu_header.gds" -->
        <!-- content -->
        <div id="content">
            <!--#INCLUDE FILE="AdminUser_menu_left.gds" -->
            <!-- content / right -->
            <div id="right">
                <!-- table -->
                <div class="box box1">
                    <!-- box / title -->
                    <div class="title" style="margin: 0 0 1px 0;">
                        <h5>车辆排序 <%=OrdClassName%></h5>
                        <ul class="links">
                            <li>
                                <div class="search">
                                <div id="OrdClass_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_OrdClassType()">
                                    <span class="select-content" style="width: 46px;">车辆地区:<%=OrdClassName%></span><span class="arrow" id="OrdClass_arrow"></span>
                                </div>
                                <div id="OrdClass_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 77px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
                                    <div class="jspContainer" style="width: 75px;">
                                        <div style="padding: 0px; top: 0px; width: 80px;">
                                        <%for z = 0 to UBOUND(OrdClassTypesPS)
                                          OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
                                          vID=OrdClassTypesPS1(0)
                                          vtext=OrdClassTypesPS1(1)
                                          %>
                                          <span title="<%=vtext%>" onmouseover="JS_OrdClassTypeMouseover('OrdClassType_<%=vID%>')" onclick="JS_OrdClassTypeJump('<%=vID%>')" id="OrdClassType_<%=vID%>" class="list-option<%if vID=OrdClassName then Response.Write "  option"%>"><%=vtext%></span>
                                        <%next%>
                                        </div>
                                    </div>
                                </div>
                                </div>
                            </li>
                            <li><a href="/CarData.gds">返回</a></li>
                        </ul>
                    </div>
                    <script type="text/javascript">
 
                        //单据类型显示下拉菜单
                        function JS_OrdClassType(){
                          if (OrdClass_container.className!="select-container select-container-show-list"){
                            OrdClass_container.className="select-container select-container-show-list";
                            OrdClass_arrow.className="arrow arrow-up";
                            OrdClass_list.style.display="block";
                            Date_container.className="select-container";
                            Date_arrow.className="arrow";
                            Date_list.style.display="none";
                            OrdDateTypeCreate.style.display="none";
                          }
                          else {
                            OrdClass_container.className="select-container";
                            OrdClass_arrow.className="arrow";
                            OrdClass_list.style.display="none";
                          }
                        }
                        //单据类型指针移动到下拉菜单
                        function JS_OrdClassTypeMouseover(id){
                          var d=document.getElementById(id);
                          <%for z = 0 to UBOUND(OrdClassTypesPS)
                          OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
                          vID=OrdClassTypesPS1(0)
                          vtext=OrdClassTypesPS1(1)
                          %>
                          document.getElementById("OrdClassType_<%=vID%>").className="list-option";
                          <%next%>
                          document.getElementById("OrdClassType_0").className="list-option";
                          d.className="list-option option";
                        }
                        //表列转跳
                        function JS_OrdClassTypeJump(id){
                            window.location.href='CarData_Schedules.gds?CarOrdClass='+id;
 
                        }
                        
                    </script>
                    <!-- end box / title -->
            <%
            acc1=clng(request("page"))
            if acc1=empty then acc1=clng(1)
            QuantityInt = 20
            acc2=0
            acc3=0
 
            if searchTXT<>"" then
              searchSql=" (OA_User like '%"&searchTXT&"%' or OA_weixinUserID like '%"&searchTXT&"%' or OA_Name like '%"&searchTXT&"%' or OA_mobile='"&searchTXT&"' or OA_email='"&searchTXT&"' or OA_email='"&searchTXT&"') "
            else
              'searchSql=" OA_execLevel in (0,1) and (OA_B2bID=0 or OA_B2bID in (select SupplierID from B2B_Supplier where Supplier_is=0) or OA_B2bID in (select DealerID from B2B_Dealer where Dealer_is=0))"
              searchSql=" OA_DepartmentID="&departmentID&" "
            end if
 
            sql="select * from CarData where CarState>0 order by CarID desc"
            'rs.open sql,objConn,1,1
            'if not rs.eof then
            'rs.pagesize=QuantityInt
            'rs.absolutepage=acc1
            'acc2=rs.pagecount
            'acc3=rs.recordcount
            'else
            'SystemMessageType=2
            'SystemMessageTXT="数据库中相关无数据!"
            'end if
            %>
                    <!--#include virtual="/inc/SystemMessages.gds" -->
                    <div class="table">
                        <div class="MAIN_PANE" style="width: 800px;">
<form id="post_form" method="post" action="admin_save.gds">
<input name="admin_save" type="hidden" value="132">
<table width="100%">
<tbody><tr>
<td class="SBLANK"></td>
<td>
<table class="FRAMEWORK" style="width: auto;">
<tbody>                              
 
 
<td style="width:220px;">
<table class="FRAMEWORK" cellspacing="0" cellpadding="0">
<tbody><tr>
<td align="center"><span id="t_binduser" class="CFG_DATA">包含车辆</span></td>
</tr>
<tr>
<td style="width: 220px;">
<select name="groupview_binded" size="10" id="groupview_binded" multiple="" style="width:204px;height:700px;" ondblclick="groupview_moveSelected(document.all.groupview_binded,document.all.groupview_unbind);">
<%sql="select * from CarData where CarState>0 and CarOrdClass like '%"&CarOrdClass&"%' order by CarTop,CarID desc"
rs.open sql,objConn,1,1
do while not rs.Eof
    CarID=rs("CarID")
    CarLicense=rs("CarLicense")&" "&rs("CarStateTXT")
%>
<option value="<%=CarID%>"><%=CarLicense%></option>
<%
rs.movenext
loop
rs.close()%>
</select>   
<input type="hidden" name="Schedules" id="Schedules" value="">
<input type="hidden" name="CarOrdClass" id="CarOrdClass" value="<%=CarOrdClass%>">
 
<script type="text/javascript">
function selectAll(){
    document.getElementById('Schedules').value="";
    var sltSrc=document.getElementById('groupview_binded');
    for (var i=0;i<sltSrc.options.length;i++){
        var temOption=sltSrc.options[i];
        document.getElementById('Schedules').value=document.getElementById('Schedules').value+','+temOption.value
    }   
}
</script>
<script type="text/javascript">
function UpOrDown(direct, selectId) {//direct : 1:Up, -1:Down
 var obj = document.getElementById(selectId);
 var len = obj.length;
 var index = obj.selectedIndex;
 //如果:1.没有选中的项; 2.向上,但已是最上; 3.向下,但是最下,不作处理
 if ( (index == -1) || (direct == -1 && index == 0) || (direct == 1 && index >= len - 1) )
  return;
 var swapIndex = index + direct;
 var tempOptions = new Array();
 for (var i = 0; i < len; i++){
  tempOptions[tempOptions.length] = obj.options[i == index?swapIndex:(i == swapIndex?index:i)];
 }
 obj.options.length = 0;
 for (var i = 0; i < len; i++)
  obj.options.add(tempOptions[i]);
}
 
</script>
</td>
<td style="vertical-align: top;" height="24px">
    <input class="BTN_NORMAL" type="button" value="↑" width="55px" onclick="UpOrDown(-1,'groupview_binded')" style="margin-left: -15px;margin-bottom: 10px;">
    <input class="BTN_NORMAL" type="button" value="↓" width="55px" onclick="UpOrDown(1,'groupview_binded')" style="margin-left: -15px;margin-bottom: 10px;">
</td>
</tr>
</tbody></table>
</td>
 
</tr>
</tbody></table>
</td>
<td class="RIGHT"><table>
<tbody><tr>
<td> </td>
</tr>
<tr>
<td class="BTN_WRAPPER"><span id="s_save" class="BTN">
<input type="button" value="保存" id="btn_save" name="set" onclick="doSet();" class="BTN_NORMAL" tabindex="5">
</span> </td>
</tr>
</tbody></table>
</td>
</tr>
</tbody></table>
</td>
<td class="SBLANK"></td>
 
</tr>
</tbody></table>
<input type="hidden" name="selectgroup2" id="selectgroup2" value="">
<input type="hidden" name="selectuser2" id="selectuser2" value="">
<input type="hidden" name="slt_user2" id="slt_user2" value="">
<input type="hidden" name="slt_group2" id="slt_group2" value="">
</form>
<div class="BOTTOMLINE"></div> 
<script language="javascript">
 
/* 公共参数 */
var pageName = "/AdminUser_Schedules.gds";
function groupview_chooseGroup()
{
var CompetencyID = document.getElementById('CompetencyID').value;
var SchedulesShiftID = document.getElementById('SchedulesShiftID').value;
var SchedulesDate = document.getElementById('SchedulesDate').value;
var str = pageName + "?CompetencyID=" + CompetencyID+"&SchedulesShiftID="+SchedulesShiftID+"&SchedulesDate="+SchedulesDate;
location.href = str;
}
function doSet()
{   
selectAll();
post_form.submit();
}
 
/* 移动select的部分内容,必须存在value,此函数以value为标准进行移动
*
* oSourceSel: 源列表框对象 
* oTargetSel: 目的列表框对象
*/
function groupview_moveSelected(oSourceSel,oTargetSel)
{
/*存储目前的binded和unbind*/
/*修改binded和unbind*/
/*重新渲染binded和unbind*/
//建立存储value和text的缓存数组
var arrSelValue = new Array();
var arrSelText = new Array();
//此数组存贮选中的options,以value来对应
var arrValueTextRelation = new Array();
var index = 0;//用来辅助建立缓存数组
//存储源列表框中所有的数据到缓存中,并建立value和选中option的对应关系
for(var i=0; i<oSourceSel.options.length; i++)
{
if(oSourceSel.options[i].selected)
{
//存储
arrSelValue[index] = oSourceSel.options[i].value;
arrSelText[index] = oSourceSel.options[i].text;
//建立value和选中option的对应关系
arrValueTextRelation[arrSelValue[index]] = oSourceSel.options[i];
index ++;
}
}
//增加缓存的数据到目的列表框中,并删除源列表框中的对应项
for(var i=0; i<arrSelText.length; i++) 
{
//增加
var oOption = document.createElement("option");
oOption.text = arrSelText[i];
oOption.value = arrSelValue[i];
/*忽略division*/
if(-514 == arrSelValue[i])
{
continue;
}
try
{
oTargetSel.add(oOption,null); // standards compliant
}
catch(ex)
{
oTargetSel.add(oOption); // IE only
}
/* oTargetSel.add(oOption);*/
//删除源列表框中的对应项
oSourceSel.removeChild(arrValueTextRelation[arrSelValue[i]]);
}
}
function printStr(str)
{
if(str)
return str;
else
return spanNull;
}
 
function showMyOwnDiv()
{
var CompetencyID = document.getElementById('CompetencyID').value;
var SchedulesShiftID = document.getElementById('SchedulesShiftID').value;
var SchedulesDate = document.getElementById('SchedulesDate').value;
var str = pageName + "?CompetencyID=" + CompetencyID+"&SchedulesShiftID="+SchedulesShiftID+"&SchedulesDate="+SchedulesDate+"&SchedulesDate_old="+GetDateStr(-1,SchedulesDate);
location.href = str;
}
function SchedulesDate_js()
{
var CompetencyID = document.getElementById('CompetencyID').value;
var SchedulesShiftID = document.getElementById('SchedulesShiftID').value;
var SchedulesDate = document.getElementById('SchedulesDate').value;
var str = pageName + "?CompetencyID=" + CompetencyID+"&SchedulesShiftID="+SchedulesShiftID+"&SchedulesDate="+SchedulesDate;
location.href = str;
}
 
function GetDateStr(AddDayCount,SchedulesDate) { 
var dd = new Date(SchedulesDate); 
dd.setDate(dd.getDate()+AddDayCount);//获取AddDayCount天后的日期 
var y = dd.getFullYear(); 
var m = dd.getMonth()+1;//获取当前月份的日期 
var d = dd.getDate(); 
return y+"-"+m+"-"+d; 
 
</script>
</div>
                    </div>
        
                </div>
                <!-- end table -->
    
    
                
            </div>
            <!-- end content / right -->
        </div>
        <!-- end content -->
        <!--#include FILE="vicgame.asp"-->
    </body>
</html>