Hiiiii,
All,this is a Urgent requirement,
I want to know how to convert the below
Vb Coding into Java.
Private Sub optRegister_Click()
If optRegister.Value = True Then
lblStatus.Caption = "Before Putting finger on the sensor - Enter user details "
txtUserCode = "": txtUserName = "": picFingerprint.Picture = Nothing
txtUserCode.Enabled = True: txtUserName.Enabled = True
Set fpGet = Nothing
Set fpRegister = Nothing
Set fpRegister = New FPRegisterTemplate
fpRegister.Run
lblStatus.Caption = "Register: Press your finger in the device"
Else
lblStatus.Caption = "Press your finger in the device... "
txtUserCode = "": txtUserName = "": picFingerprint.Picture = Nothing
txtUserCode.Enabled = False: txtUserName.Enabled = False
Set fpRegister = Nothing
Set fpGet = Nothing
Set fpGet = New FPGetTemplate
fpGet.Run
lblStatus.Caption = "Verify: Press your finger in the device"
End If
End Sub
Private Sub SaveDetails()
Dim rsUser As New ADODB.Recordset
Dim bVariant As Variant
' blob_write = Null
bVariant = Null
If Template Is Nothing Then
lblEvents.Caption = ""
MsgBox "Nothing Registered !!"
Exit Sub
End If
If txtUserCode = "" Then
MsgBox "Please enter UserCode", vbInformation
Exit Sub
End If
If txtUserName = "" Then
MsgBox "Please enter Username", vbInformation
Exit Sub
End If
Template.Export bVariant
blob_write = bVariant
rsUser.Open "select * from users where usercode='" & Trim(txtUserCode) & "'", cn, adOpenKeyset, adLockOptimistic
If rsUser.EOF Then
rsUser.AddNew
End If
rsUser!usercode = txtUserCode
rsUser!Name = txtUserName
rsUser!Fingerprint = blob_write
rsUser.Update
If MsgBox("Want to do more registerations !! ? ", vbYesNo, "More Registrations ?") = vbYes Then
Call optRegister_Click
Else
optRegister.Value = False
optRegister_Click
End If
Set rsUser = Nothing
End Sub
If AnyBody Knows,Then plz help me.
Thanks in Advance
'Deba'
deba