Foxpro Conversion

Microsoft Visual foxpro® 6.0 full produ...
March 16, 2010 at 22:18:35
Specs: Windows XP
Can someone help to convert this codes to
Foxpro

Private Sub BeginTransaction_Click()
Dim strFilename As String
Dim strResult As String
Dim strIDNum As String
Dim strLicenseKey As String
strLicenseKey =
"L+tV6/GOd1qLZHiww/9SdSu35vQw0Y2+Ezj
mYINKClw="
Dim oMykad As New mykadpro.mykad
Screen.MousePointer = vbHourglass
strResult =
oMykad.BeginTransaction(txtReadername.Tex
t, strLicenseKey)
If strResult = "0" Then
lstData.Clear
lstData.AddItem ("YOUR MYKAD
INFORMATIONS (READ ONLY)")
strIDNum = oMykad.getIDNum
lstData.AddItem ("getIDNum: " & strIDNum)
lstData.AddItem ("getKPTName: " &
oMykad.getKPTName)
lstData.AddItem ("getGMPCName: " &
oMykad.getGMPCName)
lstData.AddItem ("getAddress1: " &
oMykad.getAddress1)
lstData.AddItem ("getAddress2: " &
oMykad.getAddress2)
lstData.AddItem ("getAddress3: " &
oMykad.getAddress3)
lstData.AddItem ("getPostcode: " &
oMykad.getPostcode)
lstData.AddItem ("getCity: " &
oMykad.getCity)
lstData.AddItem ("getState: " &
oMykad.getState)
lstData.AddItem ("getGender: " &
oMykad.getGender)
lstData.AddItem ("getRace: " &
oMykad.getRace)
lstData.AddItem ("getOldIDNum: " &
oMykad.getOldIDNum)
lstData.AddItem ("getBirthPlace: " &
oMykad.getBirthPlace)
lstData.AddItem ("getBirthDate: " &
oMykad.getBirthDate)
lstData.AddItem ("getCitizenship: " &
oMykad.getCitizenship)
lstData.AddItem ("getReligion: " &
oMykad.getReligion)
lstData.AddItem ("getCardVer: " &
oMykad.getCardVer)
lstData.AddItem ("getDateIssued: " &
oMykad.getDateIssued)
lstData.AddItem ("getGreenCardExpiry: " &
oMykad.getGreenCardExpiry)
lstData.AddItem ("getGreenCardNationality: "
&
oMykad.getGreenCardNationality)
'thumb print
strFilename = "out/" & strIDNum &
"_thumbright.txt"
strResult =
oMykad.getThumbRight(strFilename)
lstData.AddItem ("ThumbPrintRight: " &
strFilename)
Paste this command on the ReadMYKAD
button click.
Sample VB6 source code


See More: Foxpro Conversion

Report •

#1
March 18, 2010 at 01:19:20
tachyon, you'll likely get more and more knowledgeable responses in the programming forum @:
http://www.computing.net/forum/prog...
HTH.
Ed in Texas

Report •
Related Solutions


Ask Question