只有考勤才能吃饭的两种解决方案讨论...

<TABLE border=0 class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%">

<TR>
<TD width="100%"><IMG align=absMiddle border=0 src="http://www.1000bbs.com/Skins/Default/topicface/face1.gif"> 

谢谢大家！各家的产品不同，解决方案也不仅相同，总体上有两种：
一、ID卡考勤和售饭使用同一套软件，系统时时通讯，考勤的数据可以下传到就餐的数据里，相当与给那些正常上班的人进行“解冻”，就可在消费机上就餐了，否则报警。
二、IC卡考勤时考勤机给IC些个标记，吃饭的时候，由另外的消费机识别是否考勤，如果考勤才能吃饭，注：好多厂家是用两台考勤机来实现，只能记次消费。
请大家多指教，是否还有其他成熟的方案，按照班次更准确的进行考勤就餐管理的系统？
QQ;4817930 电话：0311-83030430 </TD></TR></TABLE>

davei · 发表于 2005-6-21 18:12:06

同意楼主所说，不过第一种情况，考勤和餐饮机都要是全实时的，线路不能有一点问题，还有就是早餐，是不是也只有打了上班卡才能吃。

cwjjack · 发表于 2005-6-23 16:06:19

这样呀，太简单了用ID卡就可以了。发一个定餐＋混饭的源代码,B/S结构
<%
'http://192.168.200.100/kaoq/kcardsea.asp?cardid=0000999999&jihao=10261
'这条是表示卡钟向服务器IP地址为192.168.200.100发送为卡号为0000999999和发送这台卡钟的机器编号10261
if request("CardId")="" or request("jihao")="" then
Response.Write "Ricom Systemswww.ricom.com.hk"&"count=0&"&"gzbh=&"&"xm="&"TransErr"&"&bmbh=&"&"ksbh=1"&"&"&"ly="
 '卡钟自动上传卡号，和机器编号，如果上传为空值，就发一条数据告诉卡钟没有接收成功。
else
'定义时间变量。
 dim jobb,dtime,ddate,skkhtemp
dim jobb1,nowtime,beforetime,aftertime
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=cdate(ddate&" "&dtime)
nowtime1=ddate&" "&dtime
'nowtime='2003-05-01 10:00'

skkhtemp=Right("0000000"&trim(request("CardId")),7)
 '定义卡号不足7位地自动在前补0
end if

set jobb0=server.CreateObject("adodb.recordset")
set jobb0.activeconnection=conn
jobb0.open "select beforetime from ST_CS_SYSTEM ",,1,3
if jobb0.eof then
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=参数没有设置&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
response.end
else
 beforetime=dateadd("s",- jobb0("beforetime"),nowtime)
aftertime=dateadd("s",jobb0("beforetime"),nowtime)
end if

set jobb1=server.CreateObject("adodb.recordset")
set jobb1.activeconnection=conn
'查找数据库里是否有这张卡的人事资料,如果没有就在卡钟显示非法卡，并且可以外接报警灯，提示工作人员
jobb1.open "select xm,gzbh,poskh,mustpre from ST_CS_GZB where gzbh ='"&skkhtemp&"' and (outf is null or outf>'"&ddate&"')",,1,3
if jobb1.eof then
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=非法卡&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
response.end
else
 '这里判是就餐还是定餐
 set jobb2=server.CreateObject("adodb.recordset")
 set jobb2.activeconnection=conn
 jobb2.open "select machine_fun from parameter where coding ="&clng(trim(request("jihao"))),,1,3
 if jobb2.eof then
 '在数据库查找，这台卡钟是否设置了
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=卡钟未设置&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 response.end
 else
 if jobb2("machine_fun")=1 then '订餐
 'response.write trim(request("CardId"))&"abc"
 'response.write ddate&"abc"
 'response.write ddate&" "&dtime&"abc"
 'response.write dtime&"abc"
 'response.write clng(trim(request("jihao")))&"abc"
 'response.write jobb2("machine_fun")&"abc"
 'response.write jobb1("gzbh")
 'response.end
 set jobb21=server.CreateObject("adodb.recordset")
 set jobb21.activeconnection=conn
 '判断卡钟是否是在订餐时间内
 jobb21.Open "select xh from ST_CS_CC_DC where jhfw like '%"&trim(request("jihao"))&"%' and dcdate1<='"&nowtime1&"' and dcdate2>='"&nowtime1&"'",,1,3
 if jobb21.eof then
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=未在定餐时间内&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 else
 conn.execute "insert into ST_RECORD_DC(poskh,fdate,skrq,sksj,DevID,machine_fun,gzbh)values('"&trim(request("CardId"))&"','"&ddate&"','"&ddate&" "&left(dtime,5)&"','"&left(dtime,5)&"',"&clng(trim(request("jihao")))&","&jobb2("machine_fun")&",'"&jobb1("gzbh")&"')"
 Response.Write "Ricom Systemswww.ricom.com.hk"&"count=1&gzbh="&jobb1("gzbh")&"&"&"xm="&jobb1("xm")&skkhtemp&"订餐成功"&"&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 end if 
 response.end
else '就餐
 'machine_fun=2

 set jobb3=server.CreateObject("adodb.recordset")
 set jobb3.activeconnection=conn
 '判断卡钟的就餐时间
 jobb3.Open "select xh,defaultmoney,defaultmoney1,ghfw from ST_CS_CC where ghfw like '%"&left(skkhtemp,1)&"%' and jhfw like '%"&trim(request("jihao"))&"%' and qssjc<='"&dtime&"' and zzsjc>='"&dtime&"'",,1,3
 if jobb3.eof then
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=未在就餐时间&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 response.end
 end if

 '每餐只能就餐一次
 set jobb5=server.CreateObject("adodb.recordset")
 set jobb5.activeconnection=conn
 'response.write "Select gzbh from ST_RECORD Where gzbh='"&jobb1("gzbh")&"' and fdate='"&ddate&"' and skrq>='"&(beforetime)&"' and cc="&jobb3("xh")
 jobb5.Open "Select gzbh from ST_RECORD Where gzbh='"&jobb1("gzbh")&"' and fdate='"&ddate&"' and (skrq<'"&beforetime&"' or skrq>'"&aftertime&"') and cc="&jobb3("xh")
 if jobb5.Eof then
 set jobb52=server.CreateObject("adodb.recordset")
 set jobb52.activeconnection=conn
 jobb52.Open "Select gzbh from ST_RECORD Where gzbh='"&jobb1("gzbh")&"' and fdate='"&ddate&"' and (skrq>='"&beforetime&"' and skrq<='"&aftertime&"') and cc="&jobb3("xh")
 if jobb52.eof then '已就餐，但是还在定义的时间范围内，不报警
 else
 Response.Write "Ricom Systemswww.ricom.com.hk"&"count=1&gzbh="&jobb1("gzbh")&"&"&"xm="&jobb1("xm")&"&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 response.end
 end if
 else
　　　　　　　'重复就餐，并且报警
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=重复就餐&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 response.end
 end if

 '自己特别设置的就餐卡，不用定餐也可以就餐
 if left(skkhtemp,1)<>"1" and left(skkhtemp,1)<>"2" then
 set jobb4=server.CreateObject("adodb.recordset")
 set jobb4.activeconnection=conn
　　　　　　　　'判断是否已经定餐了，如果没有定餐就餐，报警
 jobb4.Open "Select gzbh from ST_RECORD_DC_RESULT Where gzbh='"&jobb1("gzbh")&"' and fdate='"&ddate&"' and cc="&jobb3("xh")&" and flag='T'"
 if jobb4.eof then
 Response.Write "Ricom Systemswww.ricom.com.hkcount=0&gzbh=&"&"xm=未定餐&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 response.end
 end if
 end if
 '判断不同人员就餐的金额
 if mid(skkhtemp,2,1)="1"then
 conn.execute "insert into ST_RECORD(atttime,gzbh,poskh,skrq,fdate,jcje,cc,oper,posid) Values('"&dtime&"','"&jobb1("gzbh")&"','"&trim(request("CardId"))&"','"&ddate&" "&dtime&"','"&ddate&"',"&jobb3("defaultmoney1")&","&jobb3("xh")&",0,"&clng(trim(request("jihao")))&")"
 else
 conn.execute "insert into ST_RECORD(atttime,gzbh,poskh,skrq,fdate,jcje,cc,oper,posid) Values('"&dtime&"','"&jobb1("gzbh")&"','"&trim(request("CardId"))&"','"&ddate&" "&dtime&"','"&ddate&"',"&jobb3("defaultmoney")&","&jobb3("xh")&",0,"&clng(trim(request("jihao")))&")"
 end if
 Response.Write "Ricom Systemswww.ricom.com.hk"&"count=1&gzbh="&jobb1("gzbh")&"&"&"xm="&jobb1("xm")&skkhtemp&"&"&"bmbh=&"&"ksbh=1"&"&"&"ly="
 '消费成功，并且在卡钟上显示姓名和工号，（这里可以自己随便定义显示的内容如：可以显示剩于金额和次数）
 response.end
end if
 end if
end if

conn.close
response.end

 %>
国海实时一卡通
曹望君 QQ：17571611
TEL：0769-2062459 13713313384 FAX:0769-2314127
EMAIL:CWJJACK@163.COM
实时TCP/IP考勤、门禁、消费机
只做TCP/IP实时系列一卡通，和OEM产品。

Awei · 发表于 2005-6-24 13:29:44

同意！！！

tqqyu168 · 发表于 2005-6-28 11:16:49

高手呀

jerryjxf · 发表于 2005-11-15 19:37:06

有谁有这种系统啊，我在平时很碰到过好多客户需要这种功能。如谁有这种功能的，请与我联系。我的QQ：106297000 MSN:jerryjxf@hotmail.com<a href="mailtjerryjxf@21cn.com" target="_blank" >jerryjxf@21cn.com</A>