CREATE PROJECT (Comando)
Abre el Administrador
de proyectos de forma que pueda crear un proyecto. Especifica
el nombre de archivo de la tabla de proyecto. Si no especifica ninguna
extensión para este archivo, Visual FoxPro le asignará automáticamente la
extensión .pjx.
CLOSE
Cierra varios tipos de archivo. Cierra
todas las bases de datos, tablas e índices abiertos en la sesión de datos
actual y en todas las sesiones de datos inactivas y selecciona el área de
trabajo 1. CLOSE ALL también cierra los archivos abiertos con las funciones de
archivo de bajo nivel FCREATE( ) y FOPEN( ). CLOSE ALL no cierra un
archivo abierto con SET PRINT.
CLOSE ALL
Cierra todas las bases de datos, tablas e índices
abiertos en la sesión de datos actual y en todas las sesiones de datos
inactivas y selecciona el área de trabajo 1. CLOSE ALL también cierra los
archivos abiertos con las funciones de archivo de bajo nivel FCREATE( ) y
FOPEN( ). CLOSE ALL no cierra un archivo abierto con SET PRINT.
CLOSE ALL también cierra lo siguiente:
- Diseñador
de formularios
- Administrador
de proyectos
- Diseñador
de etiquetas
- Diseñador
de informes
- Diseñador
de consultas
CLOSE ALL no cierra lo siguiente:
- La
ventana Comandos
- La
ventana Depuración
- Ayuda
- La
ventana Seguimiento
OPEN DATABASE
Abre una base de datos. Especifica el nombre de la base de datos que se va a abrir. Si no
especifica una extensión para el nombre de archivo, Visual FoxPro asignará
automáticamente la extensión .DBC. Si omite FileName, aparecerá el
cuadro de diálogo Abrir. Puede especificar un nombre de ruta de acceso como
parte del nombre de la base de datos.
SET DEFAULT especifica la unidad y el directorio por
defecto de la aplicación
Clear: Limpia pantalla
ejemplo:
Clear Windows:
Libera de la memoria todas las definiciones de ventanas definidas por el usuario y borra las ventanas de la ventana principal de Visual FoxPro o la ventana activa definida por el usuario. Las definiciones de ventanas se pueden guardar con SAVE WINDOW en un archivo o campo memo para su uso posterior.
Dir *.*: muestra todo el contenido de un directorio en el disco
Dir *.prg: muestra solo los archivos con extensión prg en el disco
Set talk off/on: Determina si Visual FoxPro muestra o no los resultados de los comandos.
ON
(Predeterminado) Permite enviar la conversación a la ventana principal de Visual FoxPro, a la ventana de mensajes del sistema, a la barra de estado gráfica o a una ventana definida por el usuario. Si SET TALK está en OFF y se cambia a ON, la conversación se dirigirá a la misma ubicación a la que se enviaba antes de ejecutar SET TALK OFF.
OFF
Impide que la conversación se envíe a la ventana principal de Visual FoxPro, a la ventana de mensajes del sistema, a la barra de estado gráfica o a una ventana definida por el usuario. Observe que para los servidores de automatización .dll en proceso el valor predeterminado de SET TALK es OFF.
Set Date to <formato>: Especifica el formato para mostrar las expresiones
Date y DateTime.
ejemplo
Open data base: Abre una base de datos.
Use: Abre una tabla y sus archivos de índice asociados, o una vista SQL.
Append: Agrega uno o más registros nuevos al final de una tabla.
Append Blank:Agrega un registro en blanco al final de la tabla activa. Visual FoxPro no abre ninguna ventana de edición cuando usted ejecuta APPEND BLANK.
Delete: Marca los registros que se van a eliminar.
Delete All: marca todos los registros y los borra
Delete For:
Delete next 3: borra los 3 siguientes registros.
Recall: Quita la marca de los registros marcados para eliminación en la tabla seleccionada.
Recall all: quita la marca de todos los registros marcados.
Recall for:
FOR lExpression1
Index on: Crea un archivo de índice para mostrar registros de tabla y tener acceso a los mismos en un orden lógico.Especifica una expresión de índice que puede incluir el nombre de campos de la tabla actual. Se crea en el archivo de índice una clave de índice basada en la expresión de índice para cada registro de la tabla. Visual FoxPro usa estas claves para mostrar registros de la tabla y tener acceso a los mismos.
Replace: Actualiza los registros de una tabla. Especifica que los datos de FieldName1 se sustituyan por el valor de la expresión eExpression1; que los datos de FieldName2 se sustituyan por el valor de la expresión eExpression2; y así sucesivamente.
Recall next 3: quita la marca de los siguientes 3 registros marcados.
Pack: Borra definitivamente todos los registros marcados para eliminar de la tabla actual y reduce el tamaño de un archivo memo asociado a la tabla. Elimina el espacio no utilizado del archivo memo, pero no elimina los registros marcados para eliminar de la tabla. La información de los campos memo se almacena en un archivo memo asociado. Un archivo memo tiene el mismo nombre que la tabla y la extensión .fpt.
Zap: Elimina todos los registros de la tabla actual y deja sólo la estructura de la tabla.
ejemplo
Go3: coloca el puntero de registro 3 posiciones hacia delante
Go top: nos permite trasladar al primer registro de la tabla.
Go bottom: nos permite trasladar al último registro de la tabla.
Skip: Mueve el puntero de registro hacia adelante o hacia atrás en una tabla.
Skip -1: mueve el puntero de registro hacia atrás 1 posición.
Skip 1: mueve el puntero de registro hacia delante una posición.
List stru: estos comandos LIST son idénticos a los comandos DISPLAY, excepto en las diferencias siguientes:
Modi Stru: Muestra el Diseñador de tablas, que permite modificar la estructura de una tabla.
ejemplo
Modi comn: Abre una ventana de edición de texto y le permite modificar o crear un archivo de programa.
ejemplo
Do: Ejecuta un programa o un procedimiento de Visual FoxPro.
Clear: Limpia pantalla
ejemplo:
CLEAR [ALL | CLASS ClassName | CLASSLIB ClassLibraryName | DEBUG | DLLS
[cAliasNameList]| EVENTS | FIELDS | GETS | MACROS | MEMORY
| MENUS | POPUPS | PROGRAM | PROMPT | READ [ALL] | RESOURCES
[FileName] | TYPEAHEAD | WINDOWS]
Clear Windows:
Libera de la memoria todas las definiciones de ventanas definidas por el usuario y borra las ventanas de la ventana principal de Visual FoxPro o la ventana activa definida por el usuario. Las definiciones de ventanas se pueden guardar con SAVE WINDOW en un archivo o campo memo para su uso posterior.
La ejecución de CLEAR WINDOWS libera cualquier referencia de variable de
sistema a formularios. Por ejemplo, los comandos siguientes crean una
referencia de variable de sistema para un formulario y, después, muestran
información acerca de dicha variable:
Ejemplo
CLEAR WINDOWS
DISPLAY MEMORY LIKE goMyForm && Displays GOMYFORM O .NULL.
Dir: Muestra el contenido de un directorio del disco.Ejemplo
El ejemplo siguiente utiliza MKDIR para crear un nuevo directorio llamado
mytstdir
y, luego, usa CHDIR para cambiar al nuevo directorio. Se utiliza GETDIR( ) para mostrar la estructura de directorios y RMDIR para borrar el directorio que se acaba de crear. Se utiliza GETDIR( ) para volver a mostrar la estructura de directorios.SET DEFAULT TO HOME( ) && Restore Visual FoxPro directory
MKDIR mytstdir && Create a new directory
CHDIR mytstdir && Change to the new directory
= GETDIR( ) && Display the Select Directory dialog box
SET DEFAULT TO HOME( ) && Restore Visual FoxPro directory
RMDIR mytstdir && Remove the new directory
= GETDIR( ) && Display the Select Directory dialog box
Dir *.*: muestra todo el contenido de un directorio en el disco
Ejemplo
El ejemplo siguiente utiliza MKDIR para crear un nuevo directorio llamado
mytstdir
y, luego, usa CHDIR para cambiar al nuevo directorio. Se utiliza GETDIR( ) para mostrar la estructura de directorios y RMDIR para borrar el directorio que se acaba de crear. Se utiliza GETDIR( ) para volver a mostrar la estructura de directorios.SET DEFAULT TO HOME( ) && Restore Visual FoxPro directory
MKDIR mytstdir && Create a new directory
CHDIR mytstdir && Change to the new directory
= GETDIR( ) && Display the Select Directory dialog box
SET DEFAULT TO HOME( ) && Restore Visual FoxPro directory
RMDIR mytstdir && Remove the new directory
= GETDIR( ) && Display the Select Directory dialog box
Dir *.prg: muestra solo los archivos con extensión prg en el disco
Ejemplo
El ejemplo siguiente utiliza MKDIR para crear un nuevo directorio llamado
mytstdir
y, luego, usa CHDIR para cambiar al nuevo directorio. Se utiliza GETDIR( ) para mostrar la estructura de directorios y RMDIR para borrar el directorio que se acaba de crear. Se utiliza GETDIR( ) para volver a mostrar la estructura de directorios.SET DEFAULT TO HOME( ) && Restore Visual FoxPro directory
MKDIR mytstdir && Create a new directory
CHDIR mytstdir && Change to the new directory
= GETDIR( ) && Display the Select Directory dialog box
SET DEFAULT TO HOME( ) && Restore Visual FoxPro directory
RMDIR mytstdir && Remove the new directory
= GETDIR( ) && Display the Select Directory dialog box
Set talk off/on: Determina si Visual FoxPro muestra o no los resultados de los comandos.
ejemplo
SET DATE [TO] AMERICAN | ANSI | BRITISH | FRENCH | GERMAN | ITALIAN
| JAPAN | TAIWAN | USA | MDY | DMY | YMD| SHORT | LONG
Nota Cuando se establece SET DATE en SHORT o LONG, las fechas anteriores a {^1601-01-01} no serán válidas y generarán un error.
Quit: sirve para salirTermina la sesión actual de Visual FoxPro y devuelve el control al sistema operativo.Observaciones
Para finalizar una sesión de Visual FoxPro, debe utilizar siempre el comando QUIT. Si apaga el equipo sin ejecutar QUIT, se pueden dañar los archivos abiertos y perder datos. Además, puede dejar en el disco archivos temporales de trabajo que normalmente se eliminarían.
Cancel: Finaliza la ejecución del archivo de programa actual de Visual FoxPro.Ejemplo
En el siguiente ejemplo se simula un bucle de ejecución de programa. En cada bucle se le preguntará si desea continuar. Si presiona el botón Cancelar, CANCEL detendrá la ejecución del programa.
DO WHILE .T.
IF MESSAGEBOX("Do you want to continue?",36) <> 6
CANCEL
ENDIF
ENDDO
Open data base: Abre una base de datos.
Ejemplo
En el ejemplo siguiente se usa OPEN DATABASE para abrir la base de datos
testdata
. DISPLAY DATABASE se usa para mostrar información sobre las tablas de la base de datos.CLOSE DATABASES
SET PATH TO (HOME(2) + 'Data\') && Sets path to database
OPEN DATABASE testdata && Open testdata database
DISPLAY DATABASE && Displays table information
Use: Abre una tabla y sus archivos de índice asociados, o una vista SQL.
Ejemplo
En el ejemplo siguiente se abren tres tablas en tres áreas de trabajo distintas. Se abre la ventana Sesión de datos para mostrar dónde están abiertas las tablas y para mostrar el alias para cada tabla.
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
ACTIVATE WINDOW View
USE customer IN 0 && Opens Customer table
USE employee IN 0 && Opens Employee table
USE products IN 0 && Opens Products table
Append: Agrega uno o más registros nuevos al final de una tabla.
Ejemplo
El siguiente ejemplo utiliza APPEND BLANK para crear una tabla con 10 registros que contienen valores aleatorios y, a continuación, muestra los valores máximo y mínimo de la tabla.
CLOSE DATABASES
CREATE TABLE Random (cValue N(3))
FOR nItem = 1 TO 10 && Append 10 records
APPEND BLANK
REPLACE cValue WITH 1 + 100 * RAND( ) && Insert random values
ENDFOR
CLEAR
LIST && Display the values
gnMaximum = 1 && Initialize minimum value
gnMinimum = 100 && Initialize maximum value
SCAN
gnMinimum = MIN(gnMinimum, cValue)
gnMaximum = MAX(gnMaximum, cValue)
ENDSCAN
? 'The minimum value is: ', gnMinimum && Display minimum value
? 'The maximum value is: ', gnMaximum && Display maximum value
Es posible modificar los nuevos registros con BROWSE, CHANGE o EDIT.
Ejemplo
El siguiente ejemplo utiliza APPEND BLANK para crear una tabla con 10 registros que contienen valores aleatorios y, a continuación, muestra los valores máximo y mínimo de la tabla.
CLOSE DATABASES
CREATE TABLE Random (cValue N(3))
FOR nItem = 1 TO 10 && Append 10 records
APPEND BLANK
REPLACE cValue WITH 1 + 100 * RAND( ) && Insert random values
ENDFOR
CLEAR
LIST && Display the values
gnMaximum = 1 && Initialize minimum value
gnMinimum = 100 && Initialize maximum value
SCAN
gnMinimum = MIN(gnMinimum, cValue)
gnMaximum = MAX(gnMaximum, cValue)
ENDSCAN
? 'The minimum value is: ', gnMinimum && Display minimum value
? 'The maximum value is: ', gnMaximum && Display maximum value
Ejemplo
En el ejemplo siguiente se copia la estructura de CUSTOMER.DBF y todos los registros en cuyo campo
country
aparezca EE.UU. se copian a una nueva tabla denominada backup
. Los datos de backup
se copian a un archivo de texto, temp
, que se abre y, luego, se elimina una vez cerrado.CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer && Opens customer table
COPY STRUCTURE TO backup
USE backup
APPEND FROM customer FOR country = 'USA'
COPY TO temp TYPE DELIMITED
WAIT WINDOW 'Press Esc to close and erase temp.txt' NOWAIT
MODIFY FILE temp.txt NOEDIT
ERASE temp.txt
? IIF(FILE('temp.txt'),'File not deleted','File deleted')
USE
ERASE backup.dbf
Delete All: marca todos los registros y los borra
Ejemplo
En el ejemplo siguiente se copia la estructura de CUSTOMER.DBF y todos los registros en cuyo campo
country
aparezca EE.UU. se copian a una nueva tabla denominada backup
. Los datos de backup
se copian a un archivo de texto, temp
, que se abre y, luego, se elimina una vez cerrado.CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer && Opens customer table
COPY STRUCTURE TO backup
USE backup
APPEND FROM customer FOR country = 'USA'
COPY TO temp TYPE DELIMITED
WAIT WINDOW 'Press Esc to close and erase temp.txt' NOWAIT
MODIFY FILE temp.txt NOEDIT
ERASE temp.txt
? IIF(FILE('temp.txt'),'File not deleted','File deleted')
USE
ERASE backup.dbf
Delete For:
Delete next 3: borra los 3 siguientes registros.
Recall: Quita la marca de los registros marcados para eliminación en la tabla seleccionada.
Recall all: quita la marca de todos los registros marcados.
Ejemplo
El ejemplo siguiente abre la tabla customer de la base de
datos testdata. DELETE – SQL se utiliza para marcar todos los registros donde el campocountry contenga USA para su
eliminación. Se muestran todos los registros marcados para ser eliminados. Se
usa RECALL ALL para quitar las marcas de todos los registros marcados para eliminar.
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer
&& Opens Customer table
DELETE FROM customer WHERE country =
'USA' && Mark for deletion
CLEAR
LIST FIELDS company, country FOR DELETED( )
&& List marked records
RECALL ALL
&& Unmark all records marked for deletion
Recall for:
FOR lExpression1
Especifica que sólo
se recuperarán los registros para los que el valor de lExpression1 sea
verdadero (.T.). Esta opción permite filtrar los registros no deseados.
Si lExpression1 es
una expresión optimizable, Rushmore optimizará RECALL FOR. Para obtener el
máximo rendimiento, utilice una expresión optimizable en la cláusula FOR.
Para obtener más
información, vea SET OPTIMIZE y Utilizar
Rushmore para agilizar el acceso a datos.
Ejemplo
El ejemplo siguiente abre la tabla customer de la base de
datos testdata. DELETE – SQL se utiliza para marcar todos los registros donde el campocountry contenga USA para su
eliminación. Se muestran todos los registros marcados para ser eliminados. Se
usa RECALL ALL para quitar las marcas de todos los registros marcados para eliminar.
DISPLAY STATUS
* Example 3
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE Customer && Open
customer table
INDEX ON address TAG address
INDEX ON company TAG company OF custcdx
CLEAR
DISPLAY STATUS
Index on: Crea un archivo de índice para mostrar registros de tabla y tener acceso a los mismos en un orden lógico.Especifica una expresión de índice que puede incluir el nombre de campos de la tabla actual. Se crea en el archivo de índice una clave de índice basada en la expresión de índice para cada registro de la tabla. Visual FoxPro usa estas claves para mostrar registros de la tabla y tener acceso a los mismos.
Ejemplo
El ejemplo 1 abre la tabla customer y crea un archivo de índice
denominado complist, que muestra y procesa los registros en el orden alfabético del
campo company.
En el ejemplo 2, se abre de nuevo la tabla customer y se crea un
archivo de índice llamado citycomp a partir de una subcadena de
los primeros cinco caracteres del campo city y los seis primeros
del campo company. Cuando se utiliza este índice, los registros de la tabla se
ordenan principalmente por el campo city y como segundo criterio por el campo company.
En el ejemplo 3, se crean las etiquetas de índice. La primera etiqueta
es una etiqueta de índice compuesto estructural para address. La segunda
etiqueta se crea en un archivo de índice no estructural llamado custcdx.
* Example 1
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE Customer && Open
customer table
INDEX ON company TO complist
CLEAR
DISPLAY STATUS
* Example 2
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE Customer && Open
customer table
INDEX ON SUBSTR(city,1,5) + SUBSTR(company,1,6) TO citycomp
CLEAR
DISPLAY STATUS
* Example 3
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE Customer && Open
customer table
INDEX ON address TAG address
INDEX ON company TAG company OF custcdx
CLEAR
DISPLAY STATUS
Replace: Actualiza los registros de una tabla. Especifica que los datos de FieldName1 se sustituyan por el valor de la expresión eExpression1; que los datos de FieldName2 se sustituyan por el valor de la expresión eExpression2; y así sucesivamente.
Cuando el valor de la expresión sea más largo que el ancho de un campo
numérico, REPLACE hará que quepa el valor, mediante la ejecución de los pasos
siguientes:
Ejemplo
El ejemplo siguiente crea una tabla con 10 registros. Se usa REPLACE
para colocar valores aleatorios en un campo. MIN( ) y MAX( ) muestran
los valores máximo y mínimo de la tabla.
CLOSE DATABASES
CREATE TABLE Random (cValue N(3))
FOR nItem = 1 TO 10 && Append
10 records,
APPEND BLANK
REPLACE cValue WITH 1 + 100 *
RAND( ) && Insert random values
ENDFOR
CLEAR
LIST && Display the
values
gnMaximum = 1 &&
Initialize minimum value
gnMinimum = 100 &&
Initialize maximum value
SCAN
gnMinimum = MIN(gnMinimum,
cValue)
gnMaximum = MAX(gnMaximum,
cValue)
ENDSCAN
? 'The minimum value is: ', gnMinimum
&& Display minimum value
? 'The maximum value is: ', gnMaximum
&& Display maximum value
Browse: Abre la ventana Examinar y muestra los registros de la tabla en uso o
seleccionada.. Especifica los campos que aparecerán en la ventana Examinar. Los campos
se muestran en el orden especificado en FieldList. En la lista de
campos puede incluir campos de otras tablas relacionadas. Cuando incluya un
campo de una tabla relacionada, incluya delante del nombre de campo su alias de
tabla y un punto.
Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products && Open products table
IF _WINDOWS OR _MAC
SET STATUS BAR ON
ENDIF
USE products
BROWSE FIELDS in_stock :V = in_stock < 100 ;
:F ;
:E = 'The stock amount must be less than 100'
Recall next 3: quita la marca de los siguientes 3 registros marcados.
Ejemplo
El ejemplo siguiente abre la tabla
customer
de la base de datos testdata
. DELETE – SQL se utiliza para marcar todos los registros donde el campocountry
contenga USA para su eliminación. Se muestran todos los registros marcados para ser eliminados. Se usa RECALL ALL para quitar las marcas de todos los registros marcados para eliminar.CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer && Opens Customer table
DELETE FROM customer WHERE country = 'USA' && Mark for deletion
CLEAR
LIST FIELDS company, country FOR DELETED( ) && List marked records
RECALL ALL && Unmark all records marked for deletion
Pack: Borra definitivamente todos los registros marcados para eliminar de la tabla actual y reduce el tamaño de un archivo memo asociado a la tabla. Elimina el espacio no utilizado del archivo memo, pero no elimina los registros marcados para eliminar de la tabla. La información de los campos memo se almacena en un archivo memo asociado. Un archivo memo tiene el mismo nombre que la tabla y la extensión .fpt.
Ejemplo
PACK [MEMO] [DBF] [Tablename ] [IN nWorkarea | cTableAlias]
Zap: Elimina todos los registros de la tabla actual y deja sólo la estructura de la tabla.
ejemplo
ZAP [IN nWorkArea | cTableAlias]
Go: Coloca el puntero de registro en el número de registro especificado de una
tabla.Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products && Opens Products table
USE customer IN 0 && Opens Customer table
GO BOTTOM IN products
CLEAR
? RECNO('products')
GO TOP
? RECNO( ) && Displays 1
GO 5
? RECNO( ) && Displays 5
Go3: coloca el puntero de registro 3 posiciones hacia delante
Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products && Opens Products table
USE customer IN 0 && Opens Customer table
GO BOTTOM IN products
CLEAR
? RECNO('products')
GO TOP
? RECNO( ) && Displays 1
GO 5
? RECNO( ) && Displays 5
Go top: nos permite trasladar al primer registro de la tabla.
Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products && Opens Products table
USE customer IN 0 && Opens Customer table
GO BOTTOM IN products
CLEAR
? RECNO('products')
GO TOP
? RECNO( ) && Displays 1
GO 5
? RECNO( ) && Displays 5
Go bottom: nos permite trasladar al último registro de la tabla.
Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE products && Opens Products table
USE customer IN 0 && Opens Customer table
GO BOTTOM IN products
CLEAR
? RECNO('products')
GO TOP
? RECNO( ) && Displays 1
GO 5
? RECNO( ) && Displays 5
Skip: Mueve el puntero de registro hacia adelante o hacia atrás en una tabla.
Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer && Opens Customer table
CLEAR
SKIP 4 IN 'customer'
? RECNO('customer') && Displays 5
GO BOTTOM
SKIP -5
? RECNO( )
Skip -1: mueve el puntero de registro hacia atrás 1 posición.
Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer && Opens Customer table
CLEAR
SKIP 4 IN 'customer'
? RECNO('customer') && Displays 5
GO BOTTOM
SKIP -5
? RECNO( )
Skip 1: mueve el puntero de registro hacia delante una posición.
Ejemplo
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer && Opens Customer table
CLEAR
SKIP 4 IN 'customer'
? RECNO('customer') && Displays 5
GO BOTTOM
SKIP -5
? RECNO( )
List stru: estos comandos LIST son idénticos a los comandos DISPLAY, excepto en las diferencias siguientes:
LIST [FIELDS FieldList] [Scope] [FOR lExpression1]
[WHILE lExpression2] [OFF] [NOCONSOLE] [NOOPTIMIZE]
[TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
-or-
LIST FILES [ON Drive] [LIKE FileSkeleton]
[TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
-or-
LIST MEMORY [LIKE FileSkeleton] [NOCONSOLE]
[TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
-or-
LIST STATUS [NOCONSOLE]
[TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
-or-
LIST STRUCTURE [IN nWorkArea | cTableAlias] [NOCONSOLE]
[TO PRINTER [PROMPT] | TO FILE FileName [ADDITIVE]]
Modi Stru: Muestra el Diseñador de tablas, que permite modificar la estructura de una tabla.
ejemplo
MODIFY STRUCTURE
Modi comn: Abre una ventana de edición de texto y le permite modificar o crear un archivo de programa.
ejemplo
MODIFY STRUCTURE
Do: Ejecuta un programa o un procedimiento de Visual FoxPro.
ejemplo
DO ProgramName1 | ProcedureName [IN ProgramName2] [WITH ParameterList]
Modi comn: Abre una ventana de edición de texto y le permite modificar o crear un archivo de programa.
ejemplo
MODIFY STRUCTURE
Create: Crea una nueva tabla de Visual FoxPro.
ejemplo
CREATE QUERY [FileName | ?] [NOW
Programación estructuradaLa programación estructurada es un paradigma de programación orientado a mejorar la claridad, calidad y tiempo de desarrollo de un programa de computadora, utilizando únicamente subrutinas y tres estructuras:secuencia, selección (if y switch) e iteración (bucles for y while), considerando innecesario y contraproducente el uso de la instrucción de transferencia incondicional (GOTO), que podría conducir a "código espagueti", que es mucho más difícil de seguir y de mantener, y era la causa de muchos errores de programación.
Programación orientada a objetos
La programación orientada a objetos o POO (OOP según sus siglas en inglés) es un paradigma de programación que usa los objetos en sus interacciones, para diseñar aplicaciones y programas informáticos. Está basado en varias técnicas, incluyendo herencia, cohesión, abstracción, polimorfismo, acoplamiento y encapsulamiento. Su uso se popularizó a principios de la década de los años 1990. En la actualidad, existe variedad de lenguajes de programación que soportan la orientación a objetos.
Formulario
Un formulario es un documento, en papel o en pantalla, diseñado con el propósito de que el usuario introduzca datos estructurados (nombre, apellidos, dirección, etc.) en las zonas del documento destinadas a ese propósito para ser almacenadas y procesadas posteriormente.Las etiquetas son mensajes breves que el sistema aplica automáticamente a ciertas ediciones en historiales, cambios recientes y otras páginas especiales.Por el momento (abril de 2010) todas las etiquetas provienen del filtro de ediciones y la lista completa se localiza en Especial:Etiquetas.Las ediciones pueden filtrarse por etiquetas en las páginas de cambios recientes o de contribuciones indicándola en el formulario apropiado. Algunas etiquetas comunes son:· posible vandalismo· posible promocionalque es un cuadro de texto
Cuadro de texto.- Los cuadros de texto son elementos gráficos en los que podemos insertar texto. Estos elementos funcionan de forma independiente con el resto del documento. En definitiva, los cuadros de texto funcionan igual que si trabajásemos con cualquier otro elemento gráfico visto en la lección anterior.Botones de comando
Los botones de comando permiten ejecutar acciones con un simple clic. Al hacer clic en el botón, no sólo se ejecuta la acción correspondiente, sino que también parece que se presionase y se soltase.
Objeto (programación)
En el paradigma de programación orientada a objetos (POO, o bien OOP en inglés), un objeto se define como la unidad que en tiempo de ejecución realiza las tareas de un programa. También a un nivel más básico se define como la instancia de una clase.Estos objetos interactúan unos con otros, en contraposición a la visión tradicional en la cual un programa es una colección de subrutinas (funciones o procedimientos), o simplemente una lista de instrucciones para el computador. Cada objeto es capaz de recibir mensajes, procesar datos y enviar mensajes a otros objetos de manera similar a un servicio.
Procedimiento
Un procedimiento es un conjunto de acciones u operaciones que tienen que realizarse de la misma forma, para obtener siempre el mismo resultado bajo las mismas circunstancias (por ejemplo, procedimiento de emergencia).Y puede referirse a:· Subrutina en programación.· Procedimiento efectivo en teoría de la computación.· Procedimiento administrativo.· Procedimiento de gestión de calidad.· Procedimiento judicial.· Procedimiento pedagógico.· Procedimiento médico· Procedimiento lógicoProgramas:
No1:
close all
clear
input "introduce el valor de a?" to na
input "introduce el valor de b?" to nb
input "introduce el valor de c?" to nc
if na > nb then
nmay = na
nmen = nb
else
nmay = nb
nmen = na
endif
if nc > nmay then
ncen = nmay
nmay = nc
else
if nc > nmen then
ncen = nc
else
ncen = nmen
nmen = nc
endif
endif
? "mayor =" + str(nmay)
? "central =" + str(ncen)
? "menor =" + str(nmen)
? "programador Luis Octavio Cruz MOntalvo"
No2:
close all
clear
do while .t.
input "consumo:" to nconsumo
if type ("nconsumo") = "n"
exit
endif
enddo
do case
case nconsumo >= 30 and nconsumo <= 50
nimporte = nconsumo * 0.9
case nconsumo > 50
nimporte = nconsumo * 0.8
otherwise
nimporte = nconsumo
endcase
? "inporte a pagar:" + str(nimporte)
? "programador Luis Octavio Cruz Montalvo"
No3:
close all
clear
do while .t.
input "consumo:" to nconsumo
if type ("nconsumo") = "n"
exit
endif
enddo
do case
case nconsumo >= 30 and nconsumo <= 50
nimporte = nconsumo * 0.9
case nconsumo > 50
nimporte = nconsumo * 0.8
otherwise
nimporte = nconsumo
endcase
? "inporte a pagar:" + str(nimporte)
? "programador Luis Octavio Cruz Montalvo"
No4:
close all
clear
input "introduce el valor de a?" to na
input "introduce el valor de b?" to nb
input "introduce el valor de c?" to nc
if na > nb then
nmay = na
nmen = nb
else
nmay = nb
nmen = na
endif
if nc > nmay then
ncen = nmay
nmay = nc
else
if nc > nmen then
ncen = nc
else
ncen = nmen
nmen = nc
endif
endif
? "mayor =" + str(nmay)
? "central =" + str(ncen)
? "menor =" + str(nmen)
? "programador Luis Octavio Cruz MOntalvo"
No5:
º VERSION = 3.00 dataenvironment dataenvironment Dataenvironment Name = "Dataenvironment"
1 1 form form Form1 `Top = 0
Left = 0
DoCreate = .T.
Caption = "Mayor:"
BackColor = 120,200,130
Name = "Form1"
textbox textbox txtX Form1 ÆAlignment = 3
Value = 0
Height = 23
InputMask = "999.999"
Left = 252
Top = 108
Width = 100
ColorSource = 0
ColorScheme = 3
BackColor = 134,89,200
BorderColor = 215,214,210
Name = "txtX"
textbox textbox Txtmay Form1 ªAlignment = 3
Value = 0
Height = 23
InputMask = "999"
Left = 252
Top = 60
Width = 100
ColorSource = 1
ColorScheme = 15
BackColor = 240,123,195
Name = "Txtmay"
commandbutton
commandbutton
CmdAceptar Form1 ˆTop = 168
Left = 0
Height = 27
Width = 84
Caption = "\<aceptar"
Default = .T.
DisabledForeColor = 255,255,0
Name = "CmdAceptar"
ÙPROCEDURE Click
nX = thisform.TxtX.Value
nA = int(thisform.TxtX.value)
nX = nX - nA
nB = 1000 * nX
if nA > nB then
nMay = nA
else
nMay = nB
endif
thisform.TxtMay.Value = nMay
thisform.Refresh
ENDPROC
—þòÿ ~ ~ e % 5
ü U ¢ T÷ üô ô ÷ ýþ T÷ üCô ô ÷ 8ýþ T÷ ü÷ ÷ ýþ T÷ üù è ÷ ýþ %ü÷ ÷ ýù i þ
T÷ ü÷ ýþ ù ~ þ
T÷ ü÷ ýþ þ Tô ô ÷ ü÷ ýþ
™ô ÷ þ U NX THISFORM TXTX VALUE NA NB NMAY TXTMAY REFRESH Click, ÿÿ1 1 Q ! Ñ Ñ A 1 ¡ 3 Î ) ~
commandbutton
commandbutton CmdSalir Form1 fTop = 168
Left = 288
Height = 27
Width = 84
Cancel = .T.
Caption = "\<Salir"
Name = "CmdSalir"
.PROCEDURE Click
Release Thisform
ENDPROC
»þòÿ ¢ ¢ ; % D Y S ü U
<÷ þ U THISFORM Click, ÿÿ1 q 2 # ) ¢
commandbutton
commandbutton
CmdLimpiar Form1 \Top = 168
Left = 144
Height = 27
Width = 84
Caption = "\<Limpiar"
Name = "CmdLimpiar"
{PROCEDURE Click
Thisform.TxtX.Value = 0
Thisform.txtMay.Value = 0
thisform.TxtX.setfocus
Thisform.Refresh
ENDPROC
þòÿ ' % ¢ ½ ± ü U @ Tô ô ÷ üø ýþ Tô ô ÷ üø ýþ
™ô ô ÷ þ
™ô ÷ þ U THISFORM TXTX VALUE TXTMAY SETFOCUS REFRESH Click, ÿÿ1 1 1 Ñ ¡ 2 p ) label label lblmay Form1 iCaption = "mayor:"
Height = 17
Left = 12
Top = 120
Width = 40
BackColor = 128,0,0
Name = "lblmay"
label label lblx Form1 ‚Caption = "ingrese un real de la forma ee.dd?"
Height = 17
Left = 12
Top = 72
Width = 40
BackColor = 255,0,0
Name = "lblx"
label label Label1 Form1 ¥Caption = "Programador Luis Octavio Cruz Montalvo Especialidad::Informatica"
Height = 25
Left = 0
Top = 12
Width = 372
BackColor = 255,128,0
Name = "Label1"
label label Label2 Form1 £Caption = "Centros de Estudios Tecnologicos Industriales y de Servicio"
Height = 25
Left = 24
Top = 216
Width = 336
BackColor = 255,128,255
Name = "Label2"
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
No6:
ÿ VERSION = 3.00 dataenvironment dataenvironment Dataenvironment Name = "Dataenvironment"
1 1 form form Form1 ‹Top = 10
Left = 13
Height = 250
Width = 398
DoCreate = .T.
Caption = "Form1"
WindowState = 1
BackColor = 0,255,255
Name = "Form1"
:PROCEDURE Load
set date french
set century on
ENDPROC
PROCEDURE Init
cNomDia = cdow(date())
cDia = str(day(date()),2)
cMes = cmonth(date())
cAnno = str(year(date()),4)
cFecha = cnomdia + "" +cdia+"de"+cmes+"del" +canno
thisform.caption = cfecha
thisform.txtfecnac.setfocus
thisform.refresh
ENDPROC
æþòÿ Í Í íp % > t
Z ü U G û frenchþ G þ U FRENCH– T÷ üCC$ ýþ T÷ üCCC$%ø Zýþ T÷ üCC$!ýþ T÷ üCCC$iø Zýþ* T÷ ü÷ Ù ÷ Ù de ÷ Ù del ÷ ýþ Tô ÷ ü÷ ýþ
™ô ô ÷ þ
™ô ÷ þ U
CNOMDIA CDIA CMES CANNO CFECHA THISFORM CAPTION TXTFECNAC SETFOCUS REFRESH Load, ÿÿ InitO ÿÿ1 á a 3 á 1 á 1 ¡ Ñ ¡ 1 1 L / ) Í label label lblFecNac Form1 {Caption = "fecha de nacimiento"
Height = 17
Left = 24
Top = 24
Width = 120
BackColor = 128,255,0
Name = "lblFecNac"
label label tlblEdad Form1 pCaption = "su edad es"
Height = 17
Left = 24
Top = 72
Width = 72
BackColor = 128,255,0
Name = "tlblEdad"
textbox textbox h Form1 bEnabled = .T.
Height = 23
Left = 264
Top = 24
Width = 100
BackColor = 255,0,255
Name = "h"
textbox textbox TxtEdad Form1 hEnabled = .F.
Height = 23
Left = 264
Top = 72
Width = 100
BackColor = 255,0,255
Name = "TxtEdad"
commandbutton
commandbutton
CmdAceptar Form1 [Top = 144
Left = 24
Height = 27
Width = 84
Caption = "\<Aceptar"
Name = "CmdAceptar"
PROCEDURE Click
dFecNac = Ctod(thisform.TxtFenNac.Values)
nEdad = Int ((Date() - dFecNac) / 365)
Thisform.TxtEdad.Value = Str(nEdad) + "años"
Thisform.Refresh
ENDPROC
Jþòÿ 1 1 & % Í è Ü ü U W T÷ üCô ô ÷ #ýþ T÷ üCC$÷ ù m 8ýþ Tô ô ÷ üC÷ ZÙ años ýþ
™ô ÷ þ U DFECNAC THISFORM TXTFENNAC VALUES NEDAD TXTEDAD VALUE REFRESH Click, ÿÿ1 Q Ñ ¡ 1 ¢ ) 1
commandbutton
commandbutton
CmdLimpiar Form1 \Top = 144
Left = 144
Height = 27
Width = 84
Caption = "\<Limpiar"
Name = "CmdLimpiar"
…PROCEDURE Click
thisform.txtfecnac.value = ""
thisform.txtedad.value=""
thisform.txtfecnac.setfocus
thisform.refresh
ENDPROC
%þòÿ —œ % ¨ à · ü U @ Tô ô ÷ üÙ ýþ Tô ô ÷ üÙ ýþ
™ô ô ÷ þ
™ô ÷ þ U THISFORM TXTFECNAC VALUE TXTEDAD SETFOCUS REFRESH Click, ÿÿ1 1 1 Ñ ¡ 2 z )
commandbutton
commandbutton CmdSalir Form1 XTop = 144
Left = 264
Height = 27
Width = 84
Caption = "\<Salir"
Name = "CmdSalir"
,PROCEDURE Click
Release Thisform
ENDPROC
»þòÿ ¢ ¢ ; % D Y S ü U
<÷ þ U THISFORM Click, ÿÿ1 q 1 ! ) ¢ label label
programadores Form1 ¯Caption = "Programadores: Emmanuel Fabian Lazaro, Luis Octavio Cruz Montalvo "
Height = 36
Left = 0
Top = 192
Width = 396
BackColor = 255,128,64
Name = "programadores"
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
No hay comentarios:
Publicar un comentario