English Version


Principal Downloads Licencia Ejemplos
¿Novedades? Lea el Blog 

Los siguientes son tan solo algunos ejemplos del código que se puede crear con iFox para que pueda apreciar la facilidad con que la es posible crear complejas aplicaciones. Le sugerimos descargar el paquete completo que incluye ejemplos para ASP, Visual FoxPro, Visual Basic y Delphi.

iFox.VFPScript 

Generando una sucesión de números con un ciclo For ... Next

<% For I = 1 to 10 %>

   <font size=<% =LTrim(Str(i)) %>>

   <% =LTrim(Str(i)) %>

   </font><br>

<% Next %>

iFox.WebControls  (Crear un formulario) 

<%
* Crear un formulario y dos textbox
oForm = CreateObject("WebForm")
oNombre = CreateObject("WebTextBox")
oApellido = CreateObject("WebTextBox")


* Establecer las propiedades de los textbox
oNombre.Name = "Nombre"
oNombre.Label = "Nombre:"
oNombre.Length = 30
oNombre.MaxLength = 30

oApellido.Name = "Apellido"
oApellido.Label = "Apellido:"
oApellido.Length = 30
oApellido.MaxLength = 30

* Agregar los campos al formulario
oForm.AddField(oNombre)
oForm.AddField(oApellido)

* Construir el formulario para el ingreso de datos
oForm.Initialize()
oForm.DrawInTable()
%>

iFox.WebControls  (Crear una tabla en base a datos existentes) 

Use (Server.MapPath("/iFoxDemos/Customers")) Shared In 0

oTable = CreateObject("WebTable")
oTable.RecordSource = "Customers"
oTable.CSSClass = "htmltable"
oTable.CellSpacing = 0

oTable.AddColumn("ID", "Customers.Cust_ID")
oTable.AddColumn("Compañía", "RTrim(Customers.Company)")
oTable.AddColumn("Contacto", "RTrim(Customers.Contact)")

oTable.Columns(1).ColumnWidth = "10%"
oTable.Columns(2).ColumnWidth = "45%"
oTable.Columns(3).ColumnWidth = "45%"

oTable.Draw()

Use in Customers

Todas las marcas mencionadas son propiedad de sus respectivos dueños
Desarrollado por Pablo Pioli
para Coliseo Software