表单添加olecontrol1（FirstActivex.ocx）
读取信息按钮代码：
SET SAFETY OFF
thisform.olecontrol1.Flag = 0 &&启用重复读卡
thisform.olecontrol1.setPortNum(0)
local lRtn As Long
lRtn = thisform.olecontrol1.ReadCard()
*thisform.olecontrol1.photopath=""
*If lRtn = 0x90 Then
thisform.edit1.Value=STR(lrtn)
If lRtn = 0x90
WITH thisform.olecontrol1
NameL1=.NameL()
Sex1=.Sex()
SexL1=.SexL()
Nation1=.Nation()
NationL1=.NationL()
Born1=.Born()
BornL1=.BornL()
Address1=.Address()
CardNo1=.CardNo()
police1=.Police()
Activity1=.Activity()
ActivityL1=.ActivityL()
ActivityLFrom1=.ActivityLFrom
ActivityLTo1=.ActivityLTo
ENDWITH
thisform.lblname.value=NameL1
thisform.lblsex.value=Sex1+"/"+SexL1
thisform.lblnation.value=Nation1+"/"+NationL1
thisform.lblyear.value=Born1+"/"+BornL1
thisform.lbladdress.value=Address1
thisform.lblidcard.value=CardNo1
thisform.lbldepartment.value=Police1
thisform.lblcanusedate.value=Activity1+"/"+ActivityL1
thisform.lblmonth.value=ActivityLFrom1
thisform.lblday.value=ActivityLTo1
ENDIF
