千家论坛_智能建筑与智能家居技术交流社区

标题: 订餐＋份饭管理系统加源代码 [打印本页]

作者: cwjjack 时间: 2005-12-8 14:18
标题: 订餐＋份饭管理系统加源代码
今天心情好：再发个贴纸来玩玩。
需求：
1、员工订餐才能吃饭、定餐可人员定餐和定手工订餐。人员定餐指本人自己到卡钟上去打卡定餐，今天定明天的餐。如：准备一台定餐的机器：早上时间打卡代表定明天早上的餐次，.....(看要求可以自己设置定餐时间和就餐的范围)
2、员工一餐只能吃一份饭，吃了一份饭后不管在哪里一台卡钟打卡，卡钟都可以报警。
3、可分权限就餐，如员工不能到职员就餐去打卡。

如有什么不明白地可以打电话给我哈。碰什么比较烦的方案可以找我聊聊。
国海实时一卡通
曹望君 QQ：17571611
TEL：0769-2062459 13713313384 FAX:0769-2314127
EMAIL:CWJJACK@163.COM
<a href="http://www.dgguohai.com" target="_blank" >http://www.dgguohai.com</A>
实时TCP/IP考勤、门禁、消费机
只做TCP/IP实时系列一卡通，和OEM产品。
。
<%
if request("CardId")="" or request("jihao")="" then
 Response.Write "Ricom Systemswww.ricom.com.hk"&"count=0&"&"gzbh=&"&"xm="&"TransErr"&"&bmbh=&"&"ksbh=1"&"&"&"ly="
 response.end
else
 dim jobb,dtime,ddate,skkhtemp,doorflag,defaultmoney,maxdate,bmbh,dateweek,lastbc,bc,maxlastdate,jihao
 dim jobb1,nowtime,beforetime,aftertime,jobb31,countcc,dccc,lastcc,cc,gzbh,gzbhid,xm,sbtimes,xbtimes,place
 ddate=year(now)&"-"&month(now)&"-"&day(now)
if hour(now)<10 then
 dtime="0"&hour(now)
else
 dtime=hour(now)
end if
if minute(now)<10 then
 dtime=dtime&":"&"0"&minute(now)
else
 dtime=dtime&":"&minute(now)
end if
if second(now)<10 then
 dtime=dtime&":"&"0"&second(now)
else
 dtime=dtime&":"&second(now)
end if

nowtime=ddate&" "&dtime
dateweek=getweek(ddate)

'nowtime='2003-05-01 10:00:00'
skkhtemp=Right("0000000000"&trim(request("CardId")),8)
jihao=clng(trim(request("jihao")))
end if 

 '这台机器无设置
rs.open "select doorflag,intervall,place from kq_hardware_parameter where coding="&clng(trim(request("jihao"))),,1,3
if rs.eof then
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=机器设置错误&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 rs.close
 conn.close
 response.end
else
 doorflag=rs("doorflag")
 beforetime=rs("intervall")
 place=rs("place")
 rs.close
end if
'是否在厂员工
rs.open "select KQ_CS_GZB.xm,KQ_CS_GZB.gzbh,KQ_CS_GZB.gzbhid,KQ_CS_GZB.bmbh from KQ_CS_GZB,KQ_CS_SKKHDJ where KQ_CS_SKKHDJ.SKKH ='"&skkhtemp&"' and KQ_CS_GZB.gzbhid=KQ_CS_SKKHDJ.gzbhid and KQ_CS_SKKHDJ.KHNUMBER=1 and (KQ_CS_GZB.outf is null or KQ_CS_GZB.outf>'"&ddate&"')",,1,3
if rs.eof then
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=无效卡&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 rs.close
 conn.close
 response.end
else
 xm=rs("xm")
 gzbh=rs("gzbh")
 gzbhid=rs("gzbhid")
 bmbh=rs("bmbh")
 rs.close
end if
'doorflag=D定餐机

if doorflag="D" or doorflag="d" then
 rs.Open "select xh,dccc from ST_CS_CC_DC where jhfw like '%"&trim(request("jihao"))&"%' and dcdate1<='"&nowtime&"' and dcdate2>='"&nowtime&"'",,1,3
 if rs.eof then
rs.close
Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=未到定餐时间&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 else
 dccc=rs("dccc")
 rs.close
conn.execute "insert into ST_RECORD_DC(poskh,fdate,skrq,sksj,DevID,gzbh,dccc)values('"&skkhtemp&"','"&ddate&"','"&ddate&" "&left(dtime,5)&"','"&left(dtime,5)&"',"&clng(trim(request("jihao")))&",'"&gzbh&"',"&dccc&")"
Response.Write "Ricom Systemswww.ricom.com.hk"&"count=1&gzbh="&gzbh&"&"&"xm="&xm&"定餐"&dccc&""&"&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 end if
end if

'doorflag=C是就餐机
if doorflag="C" or doorflag="c" then
 rs.Open "select * from ST_CS_CC where jhfw like '%"&trim(request("jihao"))&"%' and qssjc<='"&dtime&"' and zzsjc>='"&dtime&"'",,1,3
 if rs.eof then
Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=未在就餐时间&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
rs.close
 else
cc=rs("cc")
defaultmoney=cdbl(rs("defaultmoney"))
rs.close

rs.Open "select cc,flag from ST_RECORD_DC_RESULT_TEMP where fdate='"&ddate&"' and gzbh='"&gzbh&"' and cc="&cc&" and flag='T'",,1,3
 if rs.eof then
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=未定餐&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 rs.close
 conn.close
 response.end
 else
 rs.close
 end if

rs.Open "Select * from ST_RECORD_TEMP Where gzbh='"&gzbh&"' and fdate='"&ddate&"' and cc="&cc&" order by skrq desc"
if rs.Eof then
rs.close
conn.execute "insert into ST_RECORD_TEMP(gzbh,poskh,fdate,skrq,jcje,cc,posid) Values('"&gzbh&"','"&skkhtemp&"','"&ddate&"','"&ddate&" "&dtime&"',"&defaultmoney&","&cc&","&clng(trim(request("jihao")))&")"
conn.execute "insert into ST_RECORD(gzbh,poskh,fdate,skrq,jcje,cc,posid) Values('"&gzbh&"','"&skkhtemp&"','"&ddate&"','"&ddate&" "&dtime&"',"&defaultmoney&","&cc&","&clng(trim(request("jihao")))&")"
Response.Write "Ricom Systemswww.ricom.com.hk"&"count=1&"&"gzbh=&"&"xm="&xm&" "&defaultmoney&"元""&bmbh=&"&"ksbh=1"&"&"&"ly="
else
skrq=rs("skrq")
rs.close
if cdate(nowtime)<=cdate(dateadd("s",beforetime,skrq)) then
 Response.Write "Ricom Systemswww.ricom.com.hk"&"count=1&"&"gzbh=&"&"xm="&xm&" "&defaultmoney&"元&bmbh=&"&"ksbh=1"&"&"&"ly="
else
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=重复就餐&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
end if
end if
 end if
end if
conn.close

作者: kingwin2006 时间: 2005-12-13 21:22
有必要在刷卡机上订餐吗？做个B/S的软件，放在网上不就行了？可以搞台触摸屏。楼主的方案太麻烦了。

欢迎光临千家论坛_智能建筑与智能家居技术交流社区 (http://bbs.qianjia.com:8020/)