二代证读卡器
表单添加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
