Fitz Patrick Yanes Ответов: 0

Вы можете помочь мне с моими кодами? Я действительно усердно работаю над этим потому что это мой первый раз когда я разрабатываю систему посещаемости времени с использованием устройства отпечатков пальцев 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 для тайм-аута и тайм-аута.

0 Ответов