Thumbprint .. Bantu Saya ..

[musiclover 0]

Hai ..


Maaf kalo Soalan saya keterlaluan ... Saya Bekerja disebuah Syarikat Multimedia dan IT ... Ntah Ape Gile Bos Mintak saye hasilkan Produk Thumbprint ... Belom pernah ade pengalaman hasilkan Produk macam tu ... jadi sayi mintak Otai-otai bantu saye dalam masalah ni .. hampir seminggu saye carik solution untuk hasilkan Thumbprint ni ... saye Baru Tamat Blaja dalam Bidang IT ... jadi keje macam ni saye mmg tak ade pengalaman ... bantu saye untuk selesaikan masalah ni .. saye perlu hasilkan Produk Thumbprint tu Beserta systemnye .... jadi ape yang perlu saye lakukan ...? Gune JAVA ..? Ataupona de pendapat lain untuk saye hasilkan Thunbprint ni ... please ... dateline dah dekat ... bantu saye ....

[musiclover 0]

abang-abang bantu saye ...

[masokis 8]

[quote name='musiclover' date='28 January 2009 - 08:47 AM' timestamp='1233103672' post='924087']
abang-abang bantu saye ... <img src="http://forum.putera.com/tanya/public/style_emoticons/<#EMO_DIR#>/sad.gif" style="vertical-align:middle" emoid="" border="0" alt="sad.gif" />
[/quote]

ok.. apa programming yang saudara pakar?
dah faham " pixel to pixel comparison" ???
tahu nak guna db?
menda ni ada kaitan dgn biometrik...
anda dalam bidang ni?

bleh baca ni dlu
http://www.reactivated.net/weblog/archives/2006/08/fingerprint-enhancement-and-recognition/
http://www.cse.msu.edu/biometrics/fingerprint.html

tahu konsep ronbus?
http://www.east-shore.com/tech.html

penyelesaian saintifik?
tak paham? dah guna wiki?
http://en.wikipedia.org/wiki/Hidden_Markov_model

ni masokis jumpa dalam net:
[code]Option Explicit

Dim WithEvents gettmpl As FPGetTemplate

Dim verifier As FPVerify

Dim tmpl As FPTemplate
Dim tmplrec As FPTemplate
Dim blob() As Byte
Dim res As AIErrors

Dim conn As ADODB.Connection
Dim rs1 As ADODB.Recordset

'Dim con As ADODB.Connection
'Dim recset As ADODB.Recordset

Dim Rx As Long
Dim AddNewStatus As Boolean
Dim xCount As Integer
Dim db_name, db_server, db_port, db_user, db_pass, constr As String

Dim WithEvents op As FPRegisterTemplate
Dim regtemplate As FPTemplate
Dim cursample As Integer

Private Sub clear_Click()

txtInput.Text = ""
txtUserID.Text = ""
txtClassID.Text = ""
txtFirstName.Text = ""
txtLastName.Text = ""
txtStatus.Text = ""
End Sub

Private Sub cmdDelete_Click()

conn.Execute "DELETE FROM user Where userID = '" & txtInput & "'"
Rx = Rx - 1
ShowData

txtUserID.Text = ""
txtClassID.Text = ""
txtFirstName.Text = ""
txtLastName.Text = ""
txtStatus.Text = ""


End Sub

Private Sub cmdPrint_Click()
Unload Me
frmPrint.Show
End Sub

Private Sub cmdSearch_Click()

On Error Resume Next
Dim rs As ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
sql = "select * from user where userID LIKE '" & txtInput.Text & "%'"
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText

rs.Find "userID LIKE '" & txtInput.Text & "'"

If rs.EOF = True Then
rs.Close
Set rs = Nothing

End If
If IsNull(rs!userID) Then

txtUserID.Text = ""
txtClassID.Text = ""
txtFirstName.Text = ""
txtLastName.Text = ""
txtStatus.Text = ""

Else
txtUserID.Text = rs!userID
txtClassID.Text = rs!classID
txtFirstName = rs!firstName
txtLastName.Text = rs!lastName
txtStatus.Text = rs!statususer

End If


'On Error GoTo error
' con.Open
' recset.Open "SELECT * FROM user", con, adOpenStatic, adLockOptimistic
'recset.MoveFirst

Set gettmpl = New FPGetTemplate
gettmpl.TemplateType = Tt_Verification
gettmpl.Run
Exit Sub
'error:
' MsgBox Err.Description


Dim i As Integer

op.Run
cursample = 0
For i = 0 To 1
imgthumb(i).Picture = Nothing
Shape1(i).Visible = False
Next i

Shape1(cursample).Visible = True
lblInfo.Caption = "place your thumb on the device"

Exit Sub

error:
MsgBox "The current username is invalid. Please change it."
rs.Close
Set rs = Nothing

End Sub
Private Sub gettmpl_Done(ByVal pTemplate As Object)
Set tmpl = New FPTemplate
Set tmpl = pTemplate
verify
End Sub
Private Sub gettmpl_SampleReady(ByVal pSample As Object)

pSample.PictureOrientation = Or_Portrait
pSample.PictureWidth = thumb.Width / Screen.TwipsPerPixelX
pSample.PictureHeight = thumb.Height / Screen.TwipsPerPixelX
imagethumb.Picture = pSample.Picture

End Sub

Private Sub exit_Click()

If (MsgBox("Do you really want to exit?", vbOKCancel, "Exit") = vbOK) Then Unload Me

End Sub

Private Sub save_Click()

If DupCheck(txtUserID.Text) = True Then
MsgBox "Duplicate Record ", , "Warning"
Else
conn.Execute "INSERT INTO user(userID,classID,firstName,lastName,statususer) values('" & txtUserID & "','" & txtClassID & "','" & txtFirstName & "','" & txtLastName & "','" & txtStatus & "')"
End If




End Sub



Private Sub savethumb()

Dim bvariant As Variant
Dim blob() As Byte

Dim bilrc As Integer
If regtemplate Is Nothing Then
MsgBox "No Registrator Template"
Exit Sub

End If

If regtemplate.Export(bvariant) <> Er_OK Then
Exit Sub
End If

Dim con As ADODB.Connection
Dim recset As ADODB.Recordset

Set con = New ADODB.Connection
Set recset = New ADODB.Recordset
con.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=attendance;UID=root;PWD=;OPTION=16427"
con.CursorLocation = adUseClient
On Error GoTo error
con.Open
recset.Open "SELECT * FROM user WHERE userID='" & txtInput.Text & "'", con, adOpenStatic, adLockOptimistic
recset!Template = bvariant
recset!templateid = regtemplate.InstanceID
lblInfo.Caption = "database has been successfully updated"
recset.Update
Exit Sub

error:
MsgBox Err.Description, vbCritical, "Error"

End Sub


Private Sub Form_Load()

If txtInput.Text = "" Then
MsgBox "Please input user id"
Exit Sub
End If

Dim con1 As ADODB.Connection
Dim recset1 As ADODB.Recordset

Set con1 = New ADODB.Connection
Set recset1 = New ADODB.Recordset

con1.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=attendance;UID=root;PWD=;OPTION=16427"
con1.CursorLocation = adUseClient
On Error GoTo error
con1.Open
recset1.Open "SELECT * FROM user WHERE userID='" & txtInput.Text & "'", con1, adOpenStatic, adLockOptimistic
txtUserID = recset1!userID
txtClassID = recset1!classID
txtFirstName = recset1!firstName
txtLastName = recset1!lastName
txtStatus = recset1!statususer

Dim i As Integer
op.Run
cursample = 0
For i = 0 To 3
Picture1(i).Picture = Nothing
Shape1(i).Visible = False
Next i

Shape1(cursample).Visible = True
lblInfo.Caption = "place your thumb on the device"

Exit Sub

error:
MsgBox "The current username is invalid. Please change it."

End Sub
'Dim i As Integer


' On Error GoTo DBerror
' db_name = "attendance"
' db_server = "localhost"
' db_port = "" 'default port is 3306
' db_user = "root"
' db_pass = ""

' ConnServer ' Open with ODBC in Control Panel

' Rx = 0
' ShowData


' Exit Sub
'DBerror:

' ShowData


' For i = 0 To 1
' imgthumb(i).Picture = Nothing

' Next i

' cursample = 0
' Set op = New FPRegisterTemplate

' lblInfo.Caption = "Enter user ID. Note: users must be registered first by the admin"


'End Sub
Private Sub ConnServer()
'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& " DATABASE=attendance;" _
& "UID=root;PWD=; OPTION=3"
conn.Open
End Sub

Private Sub op_Done(ByVal pTemplate As Object)
Set regtemplate = pTemplate
savethumb
End Sub

'Private Sub op_Error(ByVal errcode As DpSdkOpsLib.AIErrors)
' MsgBox errorcode
'End Sub

Private Sub op_SampleQuality(ByVal Quality As DpSdkEngLib.AISampleQuality)

'MsgBox Quality
Select Case Quality
Case Sq_Good
cursample = cursample + 1

If cursample <> 2 Then
Shape1(cursample).Visible = True
End If

End Select

End Sub

Private Sub op_SampleReady(ByVal pSample As Object)

pSample.PictureOrientation = Or_Portrait
pSample.PictureWidth = imgthumb(cursample).Width / Screen.TwipsPerPixelX
pSample.PictureHeight = imgthumb(cursample).Height / Screen.TwipsPerPixelX
imgthumb(cursample).Picture = pSample.Picture

End Sub
Private Sub SaveData()
Dim rs As ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
If AddNewStatus = True Then
rs.Open "select * from user", conn, adOpenStatic, adLockOptimistic, adCmdText

AddNewStatus = False
rs.AddNew

Else
sql = "select * from user where userID = '" & txtUserID.Text & "'"
rs.Open sql, conn, adOpenStatic, adLockOptimistic, adCmdText
End If


rs!userID = txtUserID.Text
rs!classID = txtClassID.Text
rs!firstName = txtFirstName.Text
rs!lastName = txtLastName.Text
rs!statususer = txtStatus.Text

rs.Update
rs.Close
Set rs = Nothing
save.Enabled = False

End Sub
Private Sub DelData()
Dim rsTemp As ADODB.Recordset
Dim sql As String
Set rsTemp = New ADODB.Recordset
rsTemp.CursorType = adOpenDynamic
rsTemp.LockType = adLockOptimistic
rsTemp.CursorLocation = adUseServer
sql = "DELETE FROM user Where userID='" & txtInput.Text & "'"

If MsgBox("Are you sure that you want to Delete this record?", vbYesNo + vbDefaultButton2 + vbCritical, "Confirm Delete") = vbNo Then
Set rsTemp = Nothing
Exit Sub
End If
rsTemp.Open sql, conn, adOpenKeyset, adLockOptimistic
Set rsTemp = Nothing
End Sub

Private Sub ShowData()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open "SELECT * FROM user", conn
If rs.EOF = True Then
rs.Close
Set rs = Nothing
Exit Sub
End If
xCount = rs.RecordCount
If Rx > rs.RecordCount - 1 Then
Rx = 0
End If
If Rx < 0 Then
Rx = rs.RecordCount - 1
End If
rs.Move Rx

txtUserID.Text = rs!userID
txtClassID.Text = rs!classID
txtFirstName.Text = rs!firstName
txtLastName.Text = rs!lastName
txtStatus.Text = rs!statususer
rs.Close
Set rs = Nothing
End Sub

Private Function DupCheck(chkID As String) As Boolean

Dim rs As ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
sql = "select * from user where userID = '" & chkID & "'"
rs.Open sql, conn, adOpenStatic, adLockOptimistic, adCmdText
If rs.EOF = True Then
rs.Close
Set rs = Nothing
Exit Function
End If
If chkID = rs!userID Then
DupCheck = True
Else
DupCheck = False
End If
rs.Close
Set rs = Nothing
End Function
[/code]

[corallinkz 0]

wah. respek ah abg masokis kite.
tahniah. anda menang moto. hehe.gurau2

btw, masokis, ko mmg specialise dlm bidang ni ek?