harbour-core/harbour/contrib/hbfbird/tests/simple.prg

/*
 * $Id$
 */

#include "common.ch"
#include "simpleio.ch"

Function main()
   Local oServer, oQuery, oRow, i, x, aTables, aStruct, aKey

   Local cServer := "127.0.0.1:" + hb_dirBase() + "simple.gdb"
   Local cUser := "sysdba"
   Local cPass := "masterkey"
   Local nDialect := 1
   Local cQuery

   IF hb_FileExists( hb_dirBase() + "simple.gdb" )
      FErase( hb_dirBase() + "simple.gdb" )
   ENDIF

   ? FBCreateDB( hb_dirBase() + "simple.gdb", cuser, cpass, 1024, "ASCII", nDialect )

   ? "Connecting..."

   oServer := TFBServer():New( cServer, cUser, cPass, nDialect )

   IF oServer:NetErr()
      ? oServer:Error()
      QUIT
   ENDIF

   ? "Tables..."

   FOR x := 1 TO 1
      aTables := oServer:ListTables()

      FOR i := 1 TO Len( aTables )
         ? aTables[ i ]
      NEXT
   NEXT

   ? "Using implicit transaction..."

   IF oServer:TableExists( "TEST" )
       oServer:Execute( "DROP TABLE Test" )
       oServer:Execute( "DROP DOMAIN boolean_field" )
   ENDIF

   ? "Creating domain for boolean fields..."
   oServer:Execute("create domain boolean_field as smallint default 0 not null check (value in (0,1))")

   oServer:StartTransaction()
   ? "Creating test table..."
   cQuery := "CREATE TABLE test("
   cQuery += "     Code SmallInt not null primary key, "
   cQuery += "     dept Integer, "
   cQuery += "     Name Varchar(40), "
   cQuery += "     Sales boolean_field, "
   cQuery += "     Tax Float, "
   cQuery += "     Salary Double Precision, "
   cQuery += "     Budget Numeric(12,2), "
   cQuery += "     Discount Decimal(5,2), "
   cQuery += "     Creation Date, "
   cQuery += "     Description blob sub_type 1 segment size 40 ) "

   oServer:Execute(cQuery)

   IF oServer:neterr()
      ? oServer:Error()
   ENDIF

   oServer:Commit()

   oServer:Query("SELECT code, dept, name, sales, salary, creation FROM test")
   WAIT


   ? "Structure of test table"
   aStruct := oServer:TableStruct( "test" )

   FOR i := 1 TO Len( aStruct )
      ?
      FOR x := 1 TO Len( aStruct[ i ] )
         ?? aStruct[ i, x ]
      NEXT
   NEXT

   ? "Inserting, declared transaction control "
   oServer:StartTransaction()

   FOR i := 1 TO 100
      cQuery := "INSERT INTO test(code, dept, name, sales, tax, salary, budget, Discount, Creation, Description) "
      cQuery += 'VALUES( ' + str(i) + ', 2, "TEST", 1, 5, 3000, 1500.2, 7.5, "12-22-2003", "Short Description about what ? ")'

      oServer:Execute(cQuery)

      IF oServer:neterr()
         ? oServer:error()
      ENDIF
   NEXT

   oServer:Commit()

   oQuery := oServer:Query("SELECT code, name, description, sales FROM test")

   aStruct := oQuery:Struct()

   FOR i := 1 TO Len( aStruct )
      ? aStruct[ i, 1 ], aStruct[ i, 2 ], aStruct[ i, 3 ], aStruct[ i, 4 ]
   NEXT

   aKey := oQuery:GetKeyField()

   ? "Fields: ", oQuery:Fcount(), "Primary Key: ", aKey[ 1 ]

   oRow := oQuery:Blank()

   ? oRow:FCount(),;
     oRow:Fieldpos( "code" ),;
     oRow:Fieldget( 1 ),;
     oRow:Fieldname( 1 ),;
     oRow:Fieldtype( 1 ),;
     oRow:Fielddec( 1 ),;
     oRow:Fieldlen( 1 ),;
     Len( oRow:Getkeyfield() )

   oRow:Fieldput( 1, 150 )
   oRow:Fieldput( 2, "MY TEST" )

   ? oRow:Fieldget( 1 ), oRow:Fieldget( 2 )

   ? oServer:Append( oRow )

   ? oServer:Delete( oQuery:blank(), "code = 200" )

   ? oServer:Execute( "error caused intentionaly" )

   DO WHILE ! oQuery:Eof()
      oQuery:Skip()
      ? oQuery:Fieldget( oQuery:Fieldpos( "code" ) ),;
        oQuery:Fieldget( 4 ),;
        oQuery:Fieldget( 2 ),;
        oQuery:Fieldname( 1 ),;
        oQuery:Fieldtype( 1 ),;
        oQuery:Fielddec( 1 ),;
        oQuery:Fieldlen( 1 ),;
        oQuery:Fieldget( 3 )

      IF oQuery:Recno() == 50
         oRow := oQuery:getrow()

         oRow:Fieldput( 2, "My Second test" )
         ? "Update: ", oServer:Update( oRow )
      ENDIF

      IF oQuery:Recno() == 60
         oRow := oQuery:getrow()
         ? "Delete: ", oServer:Delete( oRow )
      ENDIF
   ENDDO

   ? "Delete: ", oServer:Delete( oQuery:Blank(), "code = 70" )

   oQuery:Refresh()

   DO WHILE oQuery:Fetch()
      oRow := oQuery:getrow()

      ? oRow:Fieldget( oRow:Fieldpos( "code" ) ),;
        oRow:Fieldget( 4 ),;
        oRow:Fieldget( 2 ),;
        oRow:Fieldname( 1 ),;
        oRow:Fieldtype( 1 ),;
        oRow:Fielddec( 1 ),;
        oRow:Fieldlen( 1 ),;
        oRow:Fieldget( 3 )
   ENDDO

   oQuery:Destroy()

   oServer:Destroy()

   ? "Closing..."

   RETURN NIL