资源描述:
《指纹录入的程序》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、指纹录入的程序PrivategnFplmage(MAX_FP_WIDTH,MAX_FP_HEIGHT)AsByteDimapstrMessAsStringDimvnRegMin(DEF_REG_MINSIZE)AsByteDimvnRetAsLongPrivateSubCmd_Add_Click(),添加学牛.基本信息DimvniiAsLong,vnRetAsLong,vnlDAsLongDimvnlnMin(DEF_EXT_MINSIZE,3)AsByteDimvstrlDAsString,vstrMessAsStringDimvnStartTimeAsDa
2、teDimiAsInteger'定义整型变量循环计数lfTxt_student(O).Text=""Then,如果学生信息为空MsgBox”学生姓名不能为空蔦vbCritical'提示对话框Txt_student(0).SetFocus'设置焦点位置ExitSubEndIfvstrlD=Trim(Txt_student(3).Text)IfLen(vstrlD)=0OrNotIsNumeric(vstrlD)ThenvstrlD=“00“Txt_student(3).Text=vstrlDDoEventsEndIfvnlD=val(vstrlD)'录入指纹Fo
3、rvnii=1To3IbIMessage.Caption=11Putonyourfinger-11+Str(vnii)+"I11DoEventsvnRet=FPMGetLivelmage(gnFplmage(Oz0),MAX_DELAY_TIME,Pic_finger.hWnd,IMAGE_QUALITY),釆集指纹图像IfvnRet<>RUN_SUCCESSThenExitForEndIfIbIMessage.Caption="Takeoffyourfinger!”DoEventsvnRet=FPMGetMinutiae(gnFplmage(O,0),vnl
4、nMin(0,vnii-1))'从指纹图像中提取指纹特征值IfvnRet<>RUN_SUCCESSThenExitForEndIfNextIfvnRet=RUNSUCCESSThenvnRet=FPMMatchForRegister(vnlnMin(0,0),vnlnMin(0,1),vnlnMin(0,2),vnRegMin(O),DEF_SECURITY)注册指纹IfvnRet=RUN_SUCCESSThenvnRet=FPMSetDataToDB(vnlD,vnRegMin(O)),将登记的指纹特征值添加到数据库EndIfEndIfShowErrorMe
5、ssagevnRetEndSubPrivateSubCtrClear()'自定义过程清空控件内容DimiAsIntegerFori=0ToTxt_student.UBoundTxt_student(i).Text=""NextiTxt_student(0).SetFocus'将焦点设置在学生姓名上Pic_finger.ClsIbIMessage.Caption=""EndSubPrivateSubCmd_Exit_Click()UnloadMeLoadFrm_mainFrm_main.ShowEndSub'卸载木窗体'加载“指纹注册”窗体''显示“指纹注册”窗
6、体'PrivateSubCmd_Save_Click()'保存指纹信息DimiAsIntegerAdodcl.Recordsource="select*frombasic_Messagewhere学号=+Txt_student(3).Text+Adodcl.RefreshIfAdodcl.Recordset.RecordCount>0Then,已经存在吋显示存在信息MsgBox"己经存在该学生的指纹信息!vbCriticalTxt_student(0).SetFocusExitSubElselfAdodcl.Recordset.RecordCount=0The
7、n,录入新的信息Adodcl.Recordset.AddNewFori=0ToTxt_student.UBoundAdodcl.Recordset.Fields(i+1)=Txt_student(i).Text'添加新记录内容NextiAdodcl.Recordset.Update〔更新数据库MsgBox"学牛信息保存成功!",vblnformationEndIfCtrClear'调用口定义过程清空控件内容EndSubPrivateSubcmdGetSetting_Click()DimbrightnessAsByteDimcontrastAsBytebrigh
8、tness=0contrast=0FP