Seccion PocketStudio (PalmOS) Segunda Entrega

[fredo]

Bueno aqui estoy medio parado, pero si he logrado hacer las cosas que queria, he utilizado los tipos Integer y String, los cuales funcionan, pero el tipo integer es odiable ...debido a que hay que hacer muchos pasos para poder visualizar un dato de forma correcta, los datos al sincronizar tambien dan ataos...en definitiva solo uso string y limito la digitacion a numeros en las cajas de edicion.... es mas facil y mas rapido, sin por ello ser la mejor opcion (lo admito es mas que nada de comodidad... )

Bueno empecemos.

La unidad de manejo de datos es la PSDataBases. Aunque he tratado de usar los motores que trae disponible palm (PalmBD) no he podido usarlos, al parecer no son compatibles, espero que si hay alguien que sepa que falta por fabor lo postee...

Primero Abrir la base de datos para ello siempre hago una funcio que se encargue de ello para llamarle cuando sea necesario.... vamos al codigo.
Ojo que aqui una base de datos es una simple tabla......

Código Delphi [-]
{en el encabezado}
const
  FrmMain = AutoID;
  DBEjemplo = 'NombreDB';

function OpenDatabase: Boolean; 


{despues de la etiqueta resource}
var Ejemplos: TDatabase;
      {aqui va la definicion de campos, asumo que se entiende...}
     FieldDefs: array [0..1] of TFieldDef =
  (
    (DataType: ftString), {campo1}
    (DataType: ftString)  {campo2}
  );

function OpenDatabase: Boolean;
Begin
      {chequear existencia de la tabla...}
      if not PSDatabase.DatabaseExists(DBEjemplo)
      then
      Begin
             {crear tabla segun se necesite}
             Result := PSDatabase.CreateDatabase(DBEjemplos,Creator, Rsc('DATA'));
      end;
    {si todo ok entonces abrir}
     if Result
     then
     Begin
            Result := PSDatabase.Open(Ejemplos,DBEjemplos,dmModeReadWrite);
     end;
     {Definir campos}
     if Result then
  Begin
       PSDatabase.SetFieldDefs(Ejemplos,FieldDefs[0], SizeOf(FieldDefs) div SizeOf(FieldDefs[0]));
  end
  else
    ShowSystemError(PSDatabase.LastError);      
end;

Bueno hasta aqui llego hoy hasta el miercoles