ENTRADA DE DATOS NUMERICA EN TEXTBOX TIPO CALCULADORA

[Jimmy Pozo]

Hola a todos,

Estimados, no se si a uds les a surguido la necesidad de ingresar
numeros en un textBox y que a su vez el ingreso de los mismos sean
similares a los de la calculadora y de echo se vaya formando la
mascara hacia la izquierda cosa similar que sucede con los cajeros
automaticos de los bancos cuando se escribe el monto a retirar del
mismo.
Si uds tienen una idea para compartirla estare muy agradecido

Saludos

[Hugo Carlos Aguilar Zapata]

prueba la propiedad InputMask del TextBox
Ej:
Text1.InputMask = "9,999,999.99"

Es decir el campo aceptara solo digitos, seprando por miles, con 2 decimales
nota: la mascara se ajusta para valores menores a 10 millones, ajusta la mascara de acuerdo a tus necesidades

Saludos

[ZeRoberto]

Asignale 0 a la propiedad value de ese textbox

 

Saludos

[Luis Maria Guayan]

Yo busque una en internet (creo que en http://www.universalthread.com/ShowHeaderDownload.aspx) y la modifique a mis necesidades:

_Screen.AddObject("oTextBoxNum", "lmTextBoxNum")
_Screen.oTextBoxNum.VISIBLE = .T.

DEFINE CLASS lmTextBoxNum AS TEXTBOX
  ALIGNMENT = 1
  VALUE = 0
  FORMAT = "K"
  SELECTEDBACKCOLOR = RGB(0,128,255)
  cvalue = ""
  NAME = "lmtextboxnum"

  PROCEDURE setvalue
    THIS.VALUE = VAL(THIS.cValue)
    THIS.REFRESH()
  ENDPROC

  PROCEDURE KEYPRESS
    LPARAMETERS nKeyCode, nShiftAltCtrl

    IF THIS.READONLY
      * If the control is read-only...
      IF INLIST( nKeyCode, 13, 9, 15, 4, 19, 5, 24, 18, 3)
        * ...then the ENTER, TAB, BACKTAB, RIGHT ARROW, LEFT ARROW,
        * UP ARROW, DOWN ARROW, PGUP, and PGDN keys have default behavior,
      ELSE
        * ...all other keys have no effect.
        NODEFAULT
      ENDIF INLIST( )
    ELSE
      DO CASE
        CASE BETWEEN(nKeyCode, 48, 57)
          * Digits 0 to 9
          NODEFAULT
          IF VAL(THIS.cValue + CHR(nKeyCode)) < 10 ^ (IIF(THIS.MAXLENGTH = 0, 9, THIS.MAXLENGTH))
            THIS.cValue = THIS.cValue + CHR(nKeyCode)
            THIS.SetValue()
          ENDIF
        CASE nKeyCode = 43
          * + key
          NODEFAULT
          IF LEFT(THIS.cValue,1) = "-"
            THIS.cValue = SUBSTR(THIS.cValue,2)
            THIS.SetValue()
          ENDIF
        CASE nKeyCode = 45
          * - key
          NODEFAULT
          IF LEFT( THIS.cValue,1) <> "-"
            THIS.cValue = "-" + THIS.cValue
            THIS.SetValue()
          ENDIF
        CASE nKeyCode = 46 OR nKeyCode = 44
          * . Key ó , Key
          NODEFAULT
          THIS.cValue = THIS.cValue + SET("Point")
          THIS.SetValue()
        CASE INLIST( nKeyCode, 13, 9, 15, 4, 19, 5, 24, 18, 3)
          * Enter, Tab, Backtab, Right Arrow, Left Arrow, Up Arrow, Down Arrow,
          * PgUp, and PgDn have default behavior.
        CASE nKeyCode = 7
          * Del
          NODEFAULT
          THIS.cValue = "0"
          THIS.SetValue()
        CASE nKeyCode = 127
          * BackSpace
          NODEFAULT
          IF LEN(THIS.cValue) > 0
            THIS.cValue = LEFT(THIS.cValue, LEN(THIS.cValue)-1)
            THIS.SetValue()
          ENDIF
        OTHERWISE
          * Ignore all other keys
          NODEFAULT
      ENDCASE
    ENDIF THIS.READONLY
  ENDPROC

  PROCEDURE GOTFOCUS
    DODEFAULT()
    THIS.cValue = "0"
    IF NOT EMPTY(THIS.FORMAT) AND ;
        VARTYPE(THIS.FORMAT) = "C" AND ;
        "K" $ THIS.FORMAT
      THIS.SELSTART = 0
      THIS.SELLENGTH = LEN(THIS.TEXT)
    ENDIF
  ENDPROC

  PROCEDURE CLICK
    IF NOT EMPTY(THIS.FORMAT) AND ;
        VARTYPE(THIS.FORMAT) = "C" AND ;
        "K" $ THIS.FORMAT
      THIS.SELSTART = 0
      THIS.SELLENGTH = LEN(THIS.TEXT)
    ENDIF
  ENDPROC
ENDDEFINE

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Domingo Cuevas]

Saludos a todos,

 

Tengo que hacer una propuesta de un Sistema a una empresa, mi opción iniciar en cuanto al SGBD es Micrososoft Sql Server 2005 Standard, viendo los precios estoy pensando en otras opciones. La aplicación la estaran usuando alrededor de 30 a 40 usuarios.

 

Que experiencia han tenido con MySql, Postgress, FireBird ?

- Perform

- Trigger

- Store Procedure

- Que tan complejo pueden ser los Select (por ejemplo se puede tener un select dentro de otro y cosas asi)

 

Gracias por sus respuesas,

 

Domingo Cuevas

 

[Nilton Cesar Puglia Menaré]

Hola Domingo

Eu uso o FireBird é otimo, pode colocar em qualquer maquina como servidor a performace é otima.

 

- Trigger (tem)

- Store Procedure (tem)

Um select dentro de outro seria o sub-select (tem tambem)

 

Um abraço

---

Nilton Cesar Puglia Menaré

 Celular: (53) 8100-6350

 Msn: nilto...@hotmail.com

#---------------------------------------------#

|  O ser humano pode suportar |

|  muito mais do que podemos imaginar |

#---------------------------------------------#

---

Date: Mon, 19 Jul 2010 01:20:36 +0000
From: dcue...@yahoo.es
Subject: [vfp] Base de Datos
To: publice...@googlegroups.com

---

O INTERNET EXPLORER 8 DÁ DICAS DE SEGURANÇA PARA VOCÊ SAIBA MAIS!

[Walter R. Ojeda Valiente]

Hola Domingo

Te aconsejo que uses Firebird, es gratis, tanto para uso privado como comercial y es súper poderoso, tiene de todo y es muy fácil de usar y de entender.

Saludos.

Walter.

---

Date: Mon, 19 Jul 2010 01:20:36 +0000
From: dcue...@yahoo.es
Subject: [vfp] Base de Datos
To: publice...@googlegroups.com

---

Hotmail: Powerful Free email with security by Microsoft. Get it now.

[Luis Maria Guayan]

Otra opción es que desarrolles tu aplicación con SQL 2008 R2 Express que te permite 10 GB por base de datos y es gratuito. Luego tu cliente decidirá si migra a la versión de pago y el paso es transparente.

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

 

[Luis Maria Guayan]

Walter, ¿Tienes algunos sitios donde se pueda ver buena información y documentación de FireBird para compartir?

Gracias,

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

 

[Domingo Cuevas]

Gracias a todos por responder.

 

Cuantas conexiones simultaneas permite el SQL Server 2008 R2 Express.

 

Gracias,

[Luis Maria Guayan]

Ya desde versiones anteriores (creo que desde la 2005) las versiones Express de SQL no penalizan la performance con múltiples conexiones concurrentes.

Las limitaciones en cuanto a performance de SQL 2008 R2 Express son:

Utiliza 1 solo procesador
Utiliza solo 1 GB de memoria
Bases de datos hasta 10GB

http://www.microsoft.com/express/Charts/SQLServer-Chart.aspx

[Domingo Cuevas]

Gracias.

[hhbernal]

Hola a todos,

Tengo unos videos sobre firebird 1.5, además en el pdf que me pasaron
viene la siguiente dirección para actualizaciones

http://sourceforge.net/projects/firebird/files/

Espero sea de ayuda.


Saludos desde México, D.F.

On 19 jul, 07:56, Luis Maria Guayan <luisma...@portalfox.com> wrote:
> Otra opción es que desarrolles tu aplicación con SQL 2008 R2 Express que te permite 10 GB por base de datos y es gratuito. Luego tu cliente decidirá si migra a la versión de pago y el paso es transparente.
>
> Luis María Guayán
> Tucumán, Argentina

> _________________________http://www.PortalFox.com

[Carlos Miguel FARIAS]

A mi entender, cualesquiera de las opciones planteadas son buenas, evidentemente, la limitación de SQL Server Express con los procesadores y la memoria, pueden ser el primer cuello de botella, pero si el servidor es exclusivo para la BD (no presta otros servicios) las limitaciones te la va a dar la red, sobre todo si la usan para acceso a internet y se ponen a descargar archivos o escuchar radio o mirar tv.
Para alta velocidad, mysql posiblemente pueda darte una buena respuesta si usas tablas myisam, las cuales no utiliza integridad referencial (de ahí, que no es magia, simplemente, mas simple), con los otros tipos de tablas, igual va a andar bien.
Postgres tiene algunas características muy interesantes (permite almacenar columnas que son arreglos dinámicos).
Aca, lo importante a tener en cuenta es el tema de los backups, con cualquier BD no nativa, el backup es mas complejo (no dificil) que con nativas, no es solo copiar archivos (salvo myisam en mysql), o sea, necesitas capacitar mejor al usuario.

[carlos SALCEDO]

Otro punto a tener en cuenta es la curva de aprendisaje, es decir de todas las
opciones cual manejas mejor, por que, algunas como postgresql tienen una mayor
curva de aprendisaje.
En resumen dependiendo de la complejidad del proyecto y de tus conocimientos
asi debes decidir cual bd usar.Ahora si en tus calculos tendras unos 500 clientes,
un crecimiento 40 mil a 50 mil registros mensuales, yo te recomendaria Mysql - INNODB
y todo el negocio(sp - funciones etc ) se lo pasas al servidor

Bendiciones

Carlos

---

Date: Mon, 19 Jul 2010 12:40:52 -0300
Subject: Re: [vfp] Re: Base de Datos
From: carlosmig...@gmail.com
To: publice...@googlegroups.com

---

Connect to the next generation of MSN Messenger  Get it now!

[Luis Mata]

Yo trate de usar Postgres, razones por la que decline fueron, como aqui dice la curva de aprendizaje, completamente diferente y a mi parece muy complejo, no veia la BD por ningun lado me causaba deconfianza, Sql Server es mucho mas sencillo y no hay que hacer cosas de mas, es de facil configuracion 100% compatible con VFP, y soporte a montones de todos lados.

 

Luis

[Walter R. Ojeda Valiente]

Hola Luis

La verdad que he estado navegando Internet de arriba a abajo buscando información sobre Firebird y me he descargado un montón de documentos y de vídeos, muchos de ellos en inglés, pero ni recuerdo las URLs de la mayoría de los sitios que recorrí.

Sin embargo, aquellos que por alguna razón me parecieron interesantes los tengo marcados y te los paso a continuación:

- Firebird FAQ - SQL     http://www.firebirdfaq.org/cat3/
- http://www.firebirdsql.org/
- http://www.firebirdsql.org/index.php?op=files&id=odbc
- SQLMaestro - http://www.sqlmaestro.com/news/company/php_generator_family_updated_to_version_9_12/
- Connection strings for Firebird - http://www.connectionstrings.com/firebird
- Firebird 2.0 - Language Reference Update - http://ibexpert.net/ibe/index.php?n=Doc.Firebird2LanguageReferenceUpdate
- SQL Tutorial - http://www.1keydata.com/sql/sql.html
- Programando 3 capas en Visual FoxPro - http://www.mug.org.ar/FoxProGufa/ArticFox/210.aspx
- Traspasa datos de DBF a Firebird - http://www.fpress.com/revista/num1005/art.htm
- Firebird en español - http://www.firebird.com.mx/modules/news/
- Stored Procedures in Firebird - http://www.destructor.de/firebird/storedproc.htm
- Firebird / Interbase site - http://www.volny.cz/iprenosil/interbase/
- Videos Firebird Database Training (for Developers and Admins) - http://video.google.com/videosearch?q=ibexpert+database+training&hl=eN&sitesearch=#
- Update or Insert - http://www.developeando.com/2008/12/firebird-21-update-or-insert.html

Desde luego, como puedes muy bien suponer, hay muchísimos sitios más, y en muchos idiomas.

Firebird es muy, muy bueno, tiene muchísimas cosas poderosas, vale la pena conocerlo.

Saludos.

Walter.

Walter, ¿Tienes algunos sitios donde se pueda ver buena información y documentación de FireBird para compartir?

Gracias,

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

---

Hotmail: Trusted email with powerful SPAM protection. Sign up now.

[Luis Maria Guayan]

Gracias Walter, ya iremos actualizando esos enlaces en la página del grupo:

-- Sitios sobre motores de bases de datos --
http://groups.google.com.ar/group/publicesvfoxpro/web/sitios-sobre-motores-de-bases-de-datos