FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Seccion PocketStudio (PalmOS) Segunda Entrega
Hola, hoy doy la segunda entrega....
Manejo de caracteres: Definicion:
es mas comodo tener una unit en la cual ya esten definidos los largos:
OJO.... NO ES POSIBLE HACER
Forma de hacerlo:
Los tipos Boolean e Enteros se comportan bien Los tipos enteros admintidos son: Segun se necesite. |
#2
|
||||
|
||||
Bases de datos
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......
Bueno hasta aqui llego hoy hasta el miercoles |
#3
|
||||
|
||||
¿No es necesario ningún USES ni nada por el estilo? Supongo que sí, ¿o no? Creo recordar (porque no lo tengo instalado ahora) que con Free Pascal (que también sirve para programar para Palm) sí era necesario.
|
#4
|
||||
|
||||
No es necesario....
Cita:
|
#5
|
|||
|
|||
Yo estuve probando el PocketStudio y hasta donde recuerdo, si es necesaria la cláusula USES para referenciar otras unidades.
Saludos... |
#6
|
||||
|
||||
para otras unidades si para PSDatabase no
para otras unidades si para PSDatabase no
por cierto si usaste PocketStudio Porias ayudar a mejorar la informacion de este.... , aun no logro en la sincrinizacion escribir en la DB de la palm desde delphi... |
#7
|
|||
|
|||
Pues no fue mucho lo que lo usé... solo hice algunas pruebas y lo dejé... no tenía el tiempo para dedicarle... además, el manejo de las DB se me hizo algo complicado y nunca pude encontrar un buen ejemplo...
Así que temo no poder ampliar la información que ya has dado... Saludos... |
#8
|
||||
|
||||
Bases de datos en pocket Studio
Hola: voy a darles una ayuda con respecto a pocket studio porque veo que se trabaron con el acceso a bases de datos: lo mejor que pueden hacer es escribir una unit como la siguiente:
Unit Multas; uses PSL; const DBName = 'MultaDB'; //Nombre de la base de datos DBType = Rsc('data'); // DatabaseType de la base de dotos Const MultaRN=0; MultaObjeto=1; MultaNombre=2; MultaDireccion=3; MultaFecha=4; MultaInspector=5; MultaObs=6; MultaStatus=7; var FieldDefs: array [0..7] of TFieldDef = ( (DataType: ftString), //MultaRegistroNumero (DataType: ftString), //MultaObjeto (DataType: ftString), //MultaNombre (DataType: ftString), //MultaDireccion (DataType: ftDate), //MultaFecha (DataType: ftInt16), //MultaInspector (DataType: ftString), //Multa Obs (DataType: ftString) //Multa Status ); DBMulta:TDatabase; function Open : Boolean; function Close: Boolean; Implementation function Open:Boolean; begin Result := PSDatabase.Open(DBMulta, DBName, dmModeReadWrite); if not Result then Result := PSDatabase.CreateDatabase(DBName, Creator, ClienteDBType); if Result then Result := PSDatabase.Open(DBMulta, DBName, dmModeReadWrite); end; // Configura la estructura del registro en la base de datos. PSDatabase.SetFieldDefs(DBMulta, FieldDefs[0], SizeOf(FieldDefs) div SizeOf(FieldDefs[0])); end; function Close : Boolean; begin Result := PSDatabase.Close(DBMulta); end; end. Como veran no necesita de muchos comentarios, pues es mas que logico su funcionamiento, la unit PSL(pocket studio library ) es la que encapsula todo el codigo de la base de datos. Luego para acceder a la base de datos basta con recorrerla con un while: Procedure Loop; var Buffer: Array[0..30] of Char; begin Multas.Open; PSDatabase.First(DBMulta); while Not PSDatabase.EOF(DBMultaDetalle) do begin StrCopy(Buffer,PSdatabase.FieldStringPtr(DBMulta,MultaNombre)); ShowMessage(Buffer); PsDatabase.Next(DBMultaDetalle); end; end; Luego existen metodos mas vistosos para acceder a la base de datos, como las tablas , algo asi, como los DBGrid en delphi pero muy distinto de ellos. Saludos
__________________
Q Onda? |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Seccion PocketStudio (PalmOS) | fredo | Varios | 8 | 10-11-2007 18:08:46 |
Segunda llamada, segunda | roman | Noticias | 16 | 07-07-2005 21:02:56 |
Programar para PAlmOS y windows CE | Leonardo | Varios | 0 | 26-05-2005 16:30:40 |
...PalmOS Pascal compiler... | Jure | Noticias | 0 | 13-05-2004 20:45:25 |
PocketStudio | jhonny | Noticias | 2 | 06-11-2003 00:25:34 |
|