//以下是RFID系统的部分源程序
procedureOpenComm:
var
CC:TCOMMCONFIG:
Temp:string
Buffer:array[0.256]ofchar:
begin
Temp:=CaM+lntToStr(pDataModuleDataModulelPort).//
选择所要打开的COM
StrPCopy(Buffer.Temp)
DataModule1hComm:=CreateFile(Buffer.GENERIC—READor
GENERIC—WRITE0nilOPEN—EXISTING00\//开CaM
if(DataModule1.hComm=INVALID_HANDLE—VALUE)thenbegin
//如果CaM未打开
MessageBox(0.打开通信端口错误,”,MB—OK);
DataModule1.hC0mm:=0:
exit:
end
GetCommState(DataModulelhc0mm.CCdcb)://得知目前
CaM的状态
CCdcbBaudRate:=CBR一9600://设置波特率为9600
CC.dcb.ByteSize:=8;//字节为8bit
CCdcbParity=NOPARITY1//ParityNoneCCdcb
StopBits:=ONESTOPBIT//1个Stopbit
ifnotSetCommState(DataModulelhComm.CC.dcb)thenbegin/
/设置COM的状态
MessageBox(0,通信端口设置错误Jfl“.”,MB—OK):
CloseHandle(DataModulelhComm):
DataModulelhCOmm:=0.
exit;
end:
end;
本文采用软件工程的方法运用Delphi7和SQLSERVER2000作为开发工具,实现了一个较好的基于RFID技术的贵宾管理系统。在系统的设计与实现中,解决了四个关键的问题:其一是设计了科学、合理、人性化的客户积分体系.较好地提供了个性化的会员消费、积分、返点等完善的会员管理解决方案其二通过事务处理编程技术解决了数据修改时相关表中数据的一致性和完整性的问题:其三是采用ADO数据库访问方式,解决了在客户量增大时系统的负载和访问速度问题其四是解决了RFlD与计算机的串口数据通信问题。从最终实现的系统来看.系统具有操作简单、界面友善、灵活性好安全性高、运行稳定等特点。
,RFID技术在贵宾管理系统中应该如何应用