Step 5: Connect to your database
In the open event of the application object, connect to your database and open your main window:

SQLCA.DBMS='odb'
SQLCA.DBPARM="ConnectString='DSN=blwmed;UID=dba;PWD=sql'"
CONNECT USING SQLCA;
If SQLCA.SQLCODE <> 0 then
    Messagebox("Connect Error", SQLCA.SQLErrText)
    Halt Close
End If

Open(w_main)

Step 6: Write code to initialize the bar code scanner
PocketBuilder has native hardware support for the PPT8800 called SymbolBarCodeScanner. Drop one in on your main window and call it bar_code.

Add your initialization code to a ue_postopen event:

bar_code.Open()
bar_code.ScanNoWait()

Step 7: Create a GUI
Note: The information that is retrieved when you scan a bar code is typically the SKU. The title, author, and quantity are retrieved from the database using the SKU as a key. Though not technically necessary (we really only need SKU and quantity to perform the update), it's a nice touch for the user. It is populated in the cb_ok clicked event as part of processing the SKU (See Figure 4).

Step 8: Code for the ScanTriggered event

int        iRet
string     stmp
	iRet = This.RetrieveData()
	If iRet = 1 Then
    	  stmp = This.ScannedData
	  sle_sku.Text = stmp
	  cb_ok.TriggerEvent('clicked')
	End If
  iRet = This.ScanNoWait()

Step 9: Process the scanned data in the clicked event of CB_OK

String  ls_text
Integer li_scanned
Datastore lds_Item
Long	 ll_rowcount

	ls_Text = Upper(Trim(sle_sku.text))
	li_scanned = Integer(sle_scanned.Text)

	lds_Item = CREATE datastore
	lds_Item.dataobject = 'd_inventory'
	lds_Item.SetTransObject(SQLCA)

	ll_RowCount = lds_Item.Retrieve(ls_Text)
	If ll_RowCount <= 0 Then
	   MessageBox(is_ModuleName, 'Item Not Found')
	   sle_sku.text = ''
	   Return 1
	End If
st_title.text = lds_Item.GetItemString(1, 'in_title')
	st_author.text = lds_Item.GetItemString(1, 'in_author')
	st_qty.text = String(lds_Item.GetItemNumber
	(1, 'in_qty_onhand')+ li_scanned)

	UPDATE "group1"."inventory_tb"
  	SET "in_qty_onhand" = "in_qty_onhand" + :li_scanned
   	WHERE "group1"."inventory_tb"."in_isbn" = :ls_text;
	If SQLCA.SQLCode <> 0 Then
	  MessageBox(is_ModuleName, SQLCA.SQLErrText)
	  Return -1
	Else
	  COMMIT;
	End If

	DESTROY lds_item

	Return 1

bar_code.Close()

In the close event of the application object, disconnect from your database:

DISCONNECT USING SQLCA;

Simple. We're done.

Wondering how to learn more? Check out the following links. One of particular interest to the SymbolBarcodeObject is the mobility kit. Here you can find just about anything you want to do with bar codes. These would be implemented as external function calls in PocketBuilder. If you are looking for examples, see Reed Shilt's original implementation of the SymbolBarcodeObject on CodeExchange. Note: Most of these require a handle to the bar code object. This can be obtained by using the DeviceHandle() method.

Resources

• PocketBuilder code examples: http://pocketpb.codexchange.sybase.com/
• PocketBuilder newsgroup: www.sybase.com/developer/newsgroups
• Symbol Mobility Developer Kits: http://devzone.symbol.com/