Вы можете помочь мне с моими кодами? Я действительно усердно работаю над этим потому что это мой первый раз когда я разрабатываю систему посещаемости времени с использованием устройства отпечатков пальцев digital persona
Я уже скачал и установил SDK для своей цифровой персоны 4500
У меня есть эти формы внутри моей кнопки регистрации из основной формы:
Captureform
Enrollmentform
VerificationForm
Все работает и может сохранить мой отпечаток пальца в моей БД.
im создает систему учета рабочего времени с использованием отпечатков пальцев vb.net
Что я уже пробовал:
я попробовал эту идею, которая заключается в том, что я только что прочитал ее.
я создаю новую форму, которая является моей основной формой.
это мой код внутри моей основной формы
Imports System.Data.SqlClient Imports System.Data Imports DPFP 'when i put these code, my capture form enrollment and verification are not working anymore Private WithEvents verifyControl As DPFP.Gui.Verification.VerificationControl Private matcher As DPFP.Verification.Verification Private matchResult As DPFP.Verification.Verification.Result Public template As DPFP.Template Private Sub CreateDPControl(ByRef control As DPFP.Gui.Verification.VerificationControl) Try control = New DPFP.Gui.Verification.VerificationControl() control.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink control.Name = "verifyControl" control.Location = New System.Drawing.Point(25, 1000) control.ReaderSerialNumber = "00000000-0000-0000-0000-000000000000" control.Visible = True control.Enabled = True control.BringToFront() Me.Controls.Add(control) Catch ex As Exception MessageBox.Show("exception") End Try End Sub Private Function ConnectString() As String Dim connectionString As String connectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Enrollment\BTA.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True" Return connectionString End Function Private Sub VerifyBiometric_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load matcher = New DPFP.Verification.Verification() matchResult = New DPFP.Verification.Verification.Result CreateDPControl(verifyControl) Me.verifyControl.Focus() End Sub Private Sub verifyControl_OnComplete(ByVal Control As Object, ByVal FeatureSet As DPFP.FeatureSet, ByRef EventHandlerStatus As DPFP.Gui.EventHandlerStatus) Handles verifyControl.OnComplete Dim dataSet As DataSet = New DataSet() Dim adapter As SqlDataAdapter = New SqlDataAdapter() Dim sqlCommand As SqlCommand = New SqlCommand() Dim cn As New SqlConnection(ConnectString()) Dim lrd As SqlDataReader Dim bytes As Byte() = Nothing Dim tpl8 As DPFP.Template = New DPFP.Template Try sqlCommand.CommandText = "Select * FROM FPRegistration" sqlCommand.CommandType = CommandType.Text sqlCommand.Connection = cn cn.Open() lrd = sqlCommand.ExecuteReader Do While (lrd.Read()) With Me .lblID.Text = lrd(1).ToString .emp_n.Text = lrd(2).ToString .Pos.Text = lrd(3).ToString .Dpt.Text = lrd(4).ToString bytes = lrd.Item("FP1") tpl8.DeSerialize(bytes) matcher.Verify(FeatureSet, tpl8, matchResult) End With If matchResult.Verified Then EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Success Call employee() lblStat.Visible = True lblStat2.Visible = False emp_n.Visible = True Label5.Visible = True Label6.Visible = True Exit Do End If If Not matchResult.Verified Then EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Failure lblStat2.Visible = True lblStat.Visible = False emp_n.Visible = False Label5.Visible = False Label6.Visible = False End If Loop Finally End Try cn.Close() End Sub Public Sub employee() Try Dim con As New SqlConnection() Dim com As SqlCommand = con.CreateCommand Dim reader As SqlClient.SqlDataReader con.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Enrollment\BTA.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") con.Open() com.CommandText = "SELECT * from DTR WHERE Emp_Id='" & lblID.Text & "' AND TimeOut='NUll' AND TimeIn='NUll'" reader = com.ExecuteReader If reader.HasRows Then Call limit() While reader.Read End While Else Call logout() End If If reader.HasRows Then Call limit() While reader.Read End While Else Call login() End If Catch ex As Exception MessageBox.Show("Error in scanning", ex.Message) End Try End Sub
OriginalGriff
И что же?
Что он делает такого, чего вы не ожидали, или не делает того, что вы сделали?
Где ты застрял?
Какая помощь вам нужна?
Fitz Patrick Yanes
Я ожидаю, что даже если я поставлю эти коды на свою основную форму, все равно смогу зарегистрировать новый отпечаток пальца. Мне все еще нужно удалить эти коды, чтобы снова зарегистрировать отпечаток пальца. Не могли бы вы помочь мне с этим?
OriginalGriff
Нет, потому что я понятия не имею, что ты пытаешься сказать. И мы не можем видеть ваш экран, получить доступ к вашему жесткому диску или прочитать ваши мысли - мы получаем только то, что вы печатаете для работы.
Поэтому подробно объясните, что именно создает для вас проблему и как это создает для вас проблему. Любые сообщения об ошибках и информация, которую вы действительно получили! Чем лучше ваш вопрос, тем лучше решение, которое мы можем предоставить.
Используйте виджет "улучшить вопрос", чтобы отредактировать свой вопрос и предоставить более подробную информацию.
Fitz Patrick Yanes
я застрял на своей основной форме, и мой захват, регистрация и верификация, которая является моей регистрацией для нового fp, не работает из-за этого кода. Я попробовал этот код для получения моего зарегистрированного fp для тайм-аута и тайм-аута.