Agregar a favoritos      Ayuda      Português      Ingles     

DBASE

Enviado por oshcar_banda



  1. Pantallas del Dbase
  2. Ordenes del Dbase
  3. Funciones y calculos.
  4. Programando en Dbase.
  5. Programas

INTRODUCCIÓN

Un administrador de base de datos es un paquete de software formado por un grupo de programas que intervienen en la creación de un archivo.

La base de datos actúa como centro de almacenamiento de datos y los comandos permiten que tenga un acceso rápido a dichos datos.

Las órdenes que contiene un administrador de datos, provocan que el apuntador las ejecute como cualquier instrucción de un programa. Éstas órdenes pueden ser suministradas una a una y cuando se desea que diferentes órdenes se ejecuten una tras otra sin intervención del programador, las almacenamos en un archivo y le ordenamos al administrador que las cargue a la memoria y las ejecute, en este sentido decimos que el Dbase es un lenguaje de programación cuyas instrucciones están presentes dentro del administrador.

A los sistemas de bases de datos se les han clasificado en dos categorías:

1. Jerárquicas. Cuya estructura está organizada en forma de árbol inverso.

2. Relacional. En este tipo, la información se almacena en forma de tabla bidimensional, donde cada elemento tiene una ubicación lógica que puede ser expresada en términos de filas y columnas.

 Para ver el grafico seleccione la opción "Descargar" del menú superior

Jerárquica

 

 

 

ARTÍCULO

CÓDIGO

 

PRECIO

PZAS. VENDIDAS

Relacional

El Dbase II es un administrador de tipo relacional, creado por la compañía Ashton Tate en 1982, después supe algunas modificaciones creándose así el Dbase III y el Dbase III plus; en 1991 surge la versión del Dbase IV el cual es para instalarse en una unidad de disco duro.

Tabla comparativa entre Dbase II, III y IV

Caracteristicas

DBII

DBIII

DBIV

Velocidad aprox. en ordenar un archivo:

Campos por registro:

Caracteres por registro:

Registros por base de datos:

Caracteres por campo:

Variables de memoria:

Archivos que se abren a la vez:

Tamaño mínimo de memoria:

Tipos de campos:

Velocidad de clasificación:

Signo usado para separar palabras:

 

50 min.

32 min.

1,000

65,535

254

64

2

48 k

2

30 min.

( : )

60 seg.

128 seg.

4,000

1,000,000

254

256

10

256 k

5

1 min.

( _ )

 

60 seg.

255 seg.

5,000

Mil millones

254

15,000

15-19

640 k

6

1 min.

( _ )

PANTALLAS DEL DBASE

Num May

dBASE III PLUS Version 1.0 IBM/MSDOS

Copyright (c) Ashton-Tate 1985, 1986, 1987. All Rights Reserved.

dBASE, dBASE III PLUS y Ashton-Tate son marcas comerciales de Ashton-Tate ¦20101 Hamilton Avenue Torrance, California 90502-1319 U.S.A.

El uso de dBASE III Plus y el material impreso incluidos en el paquete de software está sujeto a los términos y condiciones del Contrato bajo Licencia de uso. Léalo en su totalidad. En resumen, Ashton-Tate concede, a través de dicho documento, autorización personal e intransferible para utilizar dBASE III Plus en un computador monopuesto o en una estación de trabajo. Esta licencia no concede derechos de propiedad sobre el paquete, ni de copia o modificación del software o del material impreso. El usuario adquiere, además, responsabilidad legal por toda transgresión de las leyes que amparan el citado Contrato bajo Licencia y Copyright, marcas registradas o secretos comerciales.

 

Oprimir la tecla F1 para AYUDA.

Teclear un comando (o ASSIST) y oprima la tecla ENTER (_-+).

.F2

El asistente es un entorno de trabajo que ofrece Dbase, permitiendo una relación más intuitiva y cómoda con el gestor de bases de datos. Entramos a este entorno tecleando desde el punto indicativo la orden ASSIST o F2, para abandonarlo usamos la tecla ESCAPE.

 Para ver el grafico seleccione la opción "Descargar" del menú superior

 

eación de una base de datos

Para crear una base de datos en forma relacional usamos la orden CREATE y su formato es:

.CREATE NOM_ARCH < enter>

Cuando se asigna el nombre al archivo, el Dbase lo incorpora al directorio y le asigna la extensión .DBF

La estructura de una base de datos consta de la definición de cada uno de los campos que compone el registro. Al dar la orden CREATE aparece un formato en el cual se escribe cada campo y su naturaleza. Ejemplo:

.CREATE NOMINA < enter>

 

Para ver el grafico seleccione la opción "Descargar" del menú superior 

 

Los tipos de datos o campos son:

Caracter

Numérico

Fecha

Logico

Memo

  Para ver el grafico seleccione la opción "Descargar" del menú superior 

En esta pantalla es donde podemos emp

 Empezar a capturar los registros en la base de datos nomina.dbf al terminar, no se olvide de guardar los cambios con ^w ó ^fin.

 

ÓRDENES DEL DBASE

Cuando deseamos trabajar con una base de datos que ya ha sido creada previamente, es necesario abrirla o activarla, y si después necesitamos trabajar con otra, hay que cerrar la primera y abrir la segunda, esto se hace con la orden USE, y su formato es el siguiente:

.USE NOM_BASE < enter> ß -------------- Para abrir

.USE < enter> ß -------------- Para cerrar

Con la orden APPEND es posible adicionar más registros en una base de datos previamente cerrada.

Modificar una estructura de base de datos.

Para hacer cambios en la estructura se da la orden MODIFY STRUCTURE y su formato es:

.USE BASE < enter>

.MODI STRU < enter>

Una vez hechos los cambios se guarda nuevamente con ^w ó ^Fin.

Nota:

Antes de salir del Dbase hay que guardar todo con:

.USE

.CLOSE ALL

.CLEAR ALL

.CLOSE DATABASES

.QUIT (salir de Dbase)

Abrir mas de una base de datos.

A veces es necesario abrir mas de una base de datos, para ello se usa la siguiente orden:

.SELECT 1 < enter>

.USE NOM_1 < enter>

.SELECT 2 < enter>

.USE NOM_2 < enter>

…..

Renombrar archivos.

Para cambiar el nombre de un archivo se usa la orden RENAME, y su formato es el siguiente:

.RENAME NOM_VJO TO NOM_NVO < enter>

Modificar el contenido de un registro.

Para hacer cambios en los datos de un registro específico se usa EDIT RECORD, y su formato es el siguiente:

.USE NOM_BASE < enter>

.EDIT RECO #REG < enter>

Donde #REG es el número de registro a modificar.

Listar contenidos.

Para listar se usa la orden LIST y se puede combinar de diferentes maneras:

LIST lista todos los registros del archivo.

LIST CAMPO, CAMPO lista con selección de campo.

LIST CAMPO FOR CONDICIÓN lista los registros seleccionados.

LIST OFF suprime el # de registro durante el listado.

LIST STATUS lista el estado del sistema.

LIST STRUC lista la estructura de la base de datos.

LIST FILE lista todos los archivos con extensión *.DBF

LIST FILE LIKE *.* lista todos los archivos .

DIR *.* lista todos los archivos.

DISPALY despliega en pantalla el registro donde se

encuentra el apuntador.

 

Extensiones del Dbase.

EXT

DESCRIPCION

.DBF

Archivo de base de datos.

.PRG

Archivo de comandos. Contiene las órdenes del programa.

.FMT

Archivo de formato de pantalla.

.FRM

Archivo de formulario para generar reporte.

.NDX

Archivo de índice. Contiene las claves y el # de registro.

.TXT

Archivo de texto.

.BAK

Archivo histórico o de respaldo.

.CAT

Archivo de catálogo.

Localizar Informacion.

La base de datos contiene un apuntador el cual se encuentra en el primer registro al abrir una base de datos.

Para mover el apuntador a un registro deseado y localizarlo, existen dos formas de hacerlo:

1. La orden SKIP que se usa de tres maneras:

SKIP < enter> ß ---------- Avanza un registro en la base de datos.

SKIP + (#) < enter> ß ---------- Avanza varios registros.

SKIP – (#) < enter> ß ---------- Retrocede varios registros.

2. La orden GOTO que se usa de tres maneras:

GOTO # < enter> ß --------- Para localizar un registro específico.

GOTO TOP < enter> ß --------- Se ubica en el primer registro.

GOTO BOTTOM < enter> ß --------- Se ubica en el último registro.

Dar de baja y borrar registros.

Existen dos formas para borrar archivos:

1: Borrado Lógico. Implica insertar un asterisco (*) al registro, esto se logra con el comando DELETE RECORD #reg. Ejemplo:

.DELETE RECORD 8 < enter> ß ---- Borra el registro número ocho

2: Borrado Físico. Implica borrar el registro que tenga un asterisco (*), es decir de manera lógica. Para ello utilizamos el comando PACK y su sintaxis es la siguiente:

.PACK < enter>

Buscar Registro por el contenido de un campo.

Nota:
El registro que ha sido borrado lógicamente puede ser recuperado mediante el comando RECALL RECORD #. Ejemplo:

.RECALL RECORD 8 < enter> ß ----- Recupera el registro número ocho

El registro que ha sido borrado físicamente, ya no podrá ser recuperado.

Los registros también pueden ser localizados buscando el contenido que existe en un campo específico. La orden que se usa es LOCATE FOR CONDICION. Ejemplo:

.LOCATE FOR NUM_CTA = 36721 < enter>

.LOCATE FOR NOM_CTE = "RAUL ROBLES" < enter>

Borrar un archivo del directorio.

Para borrar un archivo incorporado al directorio del Dbase se usa la orden DELETE FILE. Ejemplo:

.DELETE FILE NOM_ARCH < enter>

Clasificar los registros de un archivo.

Para clasificar los archivos de un registro usamos la orden SORT y su formato es:

.SORT ON (CAMPO_CTRL) TO (NOM_ARCH_NVO) < enter>

Ejemplo:

.USE NOMINA

.SORT ON NOM_EMP TO NOMINA2

.USE

.USE NOMINA2

.LIST

.USE

.!DEL NOMINA.DBF

Copiar todo o parte del archivo.

La orden que se usa para hacer una copia de un archivo de datos es COPY. Para usarla, debemos activar el archivo a copiar. Esta orden copia estructura y registros, su formato es:

.COPY TO NOM_NVO < enter>

A veces es conveniente copiar solo unos campos del archivo, para ello se usa la orden:

.COPY TO NOM_NVO FIELDS CAMPO,CAMPO, ETC...

En ocasiones sólo se necesita copiar algunos registros que cumplan ciertos requisitos de solo algunos campos. Para ello usamos la orden:

.COPY TO NOM_NVO FIELDS CAMPO,CAMPO FOR CONDICIÓN

Si se desea copiar únicamente la estructura pero no los registros, se debe usar la orden:

.COPY STRUCTURE TO NOM_NVO

Si deseamos copiar un archivo en otro respetando los registros que ya tenía utilizamos la orden:

.APPEND FROM (NOM_ARCH)

Creación de un archivo de indice.

Para poder trabajar de forma indexada el Dbase crea un archivo de índice basado en un archivo de datos.

En el archivo de índice existirán apuntadores que señalarán en que dirección de la base de datos se localiza. Este archivo de índice aparece separado de la base de datos y tiene una extensión .NDX

Para crear un archivo de índice, primero debe de determinarse cual campo del registro servirá de control para generar el índice. Éste campo de control constituirá la llave para la búsqueda de los registros.

Si el campo de control es de naturaleza numérica los registros se ordenarán de forma ascendente, del uno al infinito, y si es alfabético, de la A a la Z.

Para indexar un archivo se debe activar la base, su formato es:

.INDEX ON CAMPO_CTRL. TO NOM_NVO < enter>

Ejemplo:

.USE NOMINA < enter>

.INDEX ON NOMINA NUM_EMP TO NOMINA < enter>

.USE < enter>

.CLOSE ALL < enter>

.USE NOM_ARCH < enter>

.SET INDEX TO NOM_ARCH < enter>

.SET INDEX < enter>

Busqueda de datos en archivos indexados.

Para hacer búsqueda en archivos indexados se usan dos órdenes:

  1. FIND. Su formato es:
  2. .FIND (cadena de caracteres)

  3. SEEK. Su formato es:

.SEEK (expresión)

Para poder utilizar estas órdenes deben estar activadas la base de datos y el archivo de índice. Ejemplos:

.USE BANCO

.SET INDEX TO BANCO

.FIND 37965

.SEEK NUM_CTA = 37965

.FIND "VICTORIA SUAREZ"

.SEEK NUM_CTA = "VICTORIA SUAREZ"

FUNCIONES Y CALCULOS.

Operadores Aritmeticos

Operador

Descripción

Ejemplo

+

Suma

8+2

-

Resta

12-2

*

Multiplicación

5*2

/

División

20/2

Operadores Logicos

Operador

Descripción

Ejemplo

.OR.

o lógico

(María o Pedro)

.AND.

y lógico

(María y Pedro)

.NOT.

no lógico

(Ni María ni Pedro)

 

Operadores Relacionales

Operador

Descripción

Ejemplo

>

Mayor qué

OVA > 10

<

Menor qué

OVA < 10

=

Igual qué

OVA = 10

>=

Mayor ó Igual

OVA >= 10

<=

Menor ó Igual

OVA <= 10

<>

Diferente

OVA <> 10

 

 

 

 

 

 

 

 

 

 

 

 

Inicializar variables de memoria y realizar calculos aritmeticos.

La orden STORE sirve para inicializar variables de memoria si el valor es alfanumérico deberá ir entre comillas y no así en caso de datos numéricos. Ejemplo:

.STORE 2001 TO AÑO < enter>

.STORE "MARIA" TO NOMBRE < enter>

Esta orden también se usa para operaciones aritméticas. Ejemplo:

.STORE VENTA – DESCTO TO PAGO_TOTAL

.STORE SDO_DIA * DTQ TO SDO_QUINC_BTO

PROGRAMANDO EN DBASE.

Un programa es una secuencia de instrucciones que ejecuta una computadora para procesar datos. Cuando las órdenes del Dbase se usan en forma individual éstas se ejecutan en modo directo. Cuando todas las órdenes que se van a dar se escriben en secuencia para que las ejecute decimos que es un programa y las instrucciones se usan en modo indirecto.

El Dbase tiene una orientación estructurada permitiendo agrupar las instrucciones del programa en módulos, cada módulo debe ser elaborado para ejecutar cualquier procedimiento específico y poder decidir en que momento se va a trabajar. Cada módulo en sí es un programa pequeño ligado a uno a otro, generalmente existe un programa principal o de enlace y uno o más módulos. Al usar técnicas estructuradas, cada módulo puede ser manejado en forma independiente.

Los programas del Dbase pueden ser almacenados en archivo de disco y se ejecutan usando son transferidos a la memoria. Estos archivos se denominan archivos de comandos y tienen una extensión . PRG . Sus instrucciones deben ser capturadas mediante un editor de textos llamado MODIFY COMMAND y su formato es:

.MODI COMM (NOM_PRG) < enter>

Para poder ejecutar el programa se usa:

.DO NOM_PRG < enter>

Conmutadores SET ON/OFF.

Los conmutadores SET ON/OFF activan y desactivan ciertas funciones del administrador de base de datos.

Cuando cargamos el Dbase e iniciamos algún tipo de operación, algunos conmutadores se activan y desactivan. Para obtener información precisa sobre el estado de los conmutadores se utiliza:

.LIST STATUS < enter>

El operador puede cambiar el estado de esos conmutadores, sin embargo, cuando se cancela el Dbase, estos retornan a su estado defecto (DEFAULT).

.SET CONMUTADOR ON/OFF < enter>

SET ALTERNATE on/OFF

ON: begins recording output in the target text file.

OFF: stops recording and leaves the target text file open.

SET BELL ON / off

Activa el "beep" que el Dbase utiliza frecuentemente.

Desactiva el "beep".

SET CARRY on / OFF

ON: Permite arrastrar el contenido del último registro tecleado a uno nuevo.

OFF: Desactiva el arrastre del último registro.

SET CENTURY on / OFF

ON: Afecta al formato de los campos o expresiones de tipo fecha presentando el año de la misma con cuatro dígitos.

OFF: Presenta la fecha con el año en dos dígitos

SET CONFIRM on / OFF

ON: En modo edición, obliga a pulsar la tecla <ENTER> cuando el campo que estamos rellenando se completa.

OFF: El cursor pasa automáticamente al campo siguiente al completarse el campo actual.

SET CONSOLE ON / off

ON: Cuando las órdenes tipo LIST, REPORT, LABEL, etc. Se envían a la impresora, su ejecución se visualiza simultáneamente en la pantalla.

OFF: El envío de ejecución se envía solamente a la pantalla.

SET DEBUG on / OFF

ON: Envía la ejecución de la orden a la impresora cuando está activada la orden SET ECHO.

OFF: El envío de ejecución se envía solamente a la pantalla.

SET DELETED on / OFF

ON: Permite que se visualicen los registros marcados para borrar.

OFF: Los registros marcados para borrar aparentemente desaparecen de la base de datos para facilitar su consulta.

SET DOHISTORY on / OFF

ON: Captura órdenes ejecutadas de un archivo de programa en HISTORY.

OFF: No realiza la captura.

SET ECHO on / OFF

ON: Visualiza las órdenes cuando se procesan (generalmente se usa en modo programación).

OFF: No se visualizan las órdenes.

SET ENCRYPT on / OFF

ON: Codifica todos los archivos que fueron creados.

OFF: No codifica los arribos creados.

SET ESCAPE ON / off

ON: Permite que la ejecución de un programa se interrumpa pulsando la tecla <ESC>.

OFF: Desactiva la tecla de <ESC> durante la ejecución de programas.

SET EXACT on / OFF

ON: Requiere que las cadenas o expresiones en búsquedas o comparaciones sean exactamente iguales.

OFF: Permite que las cadenas de búsqueda no sean exactamente iguales.

SET FIXED on / OFF

ON: Muestra siempre en pantalla para números o expresiones numéricas los decimales especificados con SET DECIMAL TO.

OFF: Muestra en pantalla los decimales que cada número o expresión poseen.

SET HEADINGS ON / off

ON: Muestra los nombres de los campos de la base de datos en la cabecera de las órdenes LIST y DIPLAY, tanto en pantalla como en impresora.

OFF: No muestra los nombres de los campos en las cabeceras de los listados de pantalla o impresora.

SET HELP ON / off

ON: Aparece la pregunta, "¿Desea información de ayuda s/n?" como respuesta a un error de sintaxis en la ejecución de una orden. Una respuesta afirmativa a esta pregunta nos introduce en el entorno de ayuda.

OFF: No realiza la pregunta anterior a un error de sintaxis.

SET INTENSITY ON / off

ON: Muestra en vídeo inverso el tamaño de los campos a completar por el usuario en las órdenes de edición a pantalla completa (EDIT).

OFF: Desactiva el vídeo inverso en pantallas de edición.

SET MENU ON / off

ON: Muestra menús de ayuda en la parte superior de la pantalla en diferentes órdenes (EDIT, BROWSE, CRATE, etc.).

OFF: No aparecen menús de ayuda en la parte superior de la pantalla.

SET SAFETY ON / off

ON: Realiza una pregunta de confirmación como respuesta a órdenes de destrucción de archivos.

OFF: No realiza la pregunta de confirmación de destrucción de archivos.

SET SCOREBOARD ON / off

ON: Muestra mensajes de estado en la línea superior de la pantalla cuando la línea de estado está desactivada (SET STATUS OFF).

OFF: No muestra los mensajes en la línea superior.

SET STATUS ON / off

ON: Activa y presenta la última línea de la pantalla como línea de estado, indicando en ella datos como: unidad de trabajo, nombres de archivo en uso, estado de la tecla de intersección, marca lógica de borrado de registro, etc.

OFF: No presenta la última línea de la pantalla como línea de estado.

SET STEP on / OFF

ON: Detiene la ejecución de un programa escrito en dBASE III + orden a orden, generalmente para depurar su funcionamiento.

OFF: No detiene la ejecución de los programas.

SET TALK on / OFF

ON: Envía a la pantalla el resultado de la ejecución de cada orden. También se suele utilizar para depurar programas.

OFF: No envía a la pantalla el resultado de la ejecución de las órdenes.

SET TITLE ON / off

ON: Indica el título de un archivo cuando un catálogo está en uso.

OFF: No indica el título de los archivos cuando un catálogo está en uso.

SET UNIQUE on / OFF

ON: Incluye en los archivos índice solamente el primer registro de los que tengan el mismo valor en la clave de indexación.

OFF: Incluye en los archivos índice todos los registros de la base.

Instrucciones interactivas de programacion.

Para establecer comentarios en un programa se utiliza:

  1. *
  2. NOTE

Ejemplos:

*PROGRAMA PARA ALTA NOTE PROGRAMA PARA ALTA

*LLAMADO: ALTAS.PRG NOTE LLAMADO: ALTAS.PRG

*AUTOR: OSCAR BANDA NOTE AUTOR OSCAR BANDA

 

Borrar pantalla e inicializar memoria.

Para borrar pantalla se usa CLEAR; se puede utilizar con coordenadas para borrar ciertas líneas desde una posición específica. Ejemplo:

.CLEAR ß ----------- Borra Pantalla

CLEAR ß ------------ Borra a partir del renglón dos columna tres

CLEAR TO 20,70 ß ------- Borra a partir del renglón ocho columna

uno hasta el renglón veinte columna

setenta

Detener temporalmente el programa.

Para hacer una pausa en la ejecución de un programa se usa la orden WAIT y esta provoca hacer una espera para que el usuario pulse una tecla para continuar el proceso. Ejemplo:

*PROGRAMA PARA ALTA DE REGISTRO

*LLAMADO: ALTAS.PRG

CLEAR

TEXT

ESTE PROGRAMA DE ALTA A REGISTROS

PULSE <ENTER> PARA INICIAR...

ENDTEXT

SET CONSOLE OFF

WAIT

SET CONSOLE ON

Cerrar Archivos.

La orden CLOSE cierra todo tipo de archivos.

CLOSE DATABASES ------à Cierra archivos de datos (*.DBF)

CLOSE INDEX ------à Cierra archivos de índice (*.NDX)

CLOSE FORMAT ------à Cierra archivos de formato (*.FMT)

CLOSE ALL & CLEAR ALL à Cierra todos los archivos y limpia memoria.

Introducir valores y almacenarlos en una variable.

La orden INPUT permite introducir valores numéricos en un programa, la orden ACCEPT introduce datos alfanuméricos, ambos valores pueden ser de uno o más caracteres, sus formatos son:

INPUT TO VARIABLE

INPUT "MASCARILLA" TO VARIABLE

ACCEPT TO VARIABLE

ACCEPT "MASCARILLA" TO VARIABLE

Ejemplo:

INPUT TO EDAD

INPUT "DAME TU EDAD" TO EDAD

ACCEPT TO NOMBRE

ACCEPT "DAME TU NOMBRE" TO NOMBRE

Instrucciones de selección y repetición.

1. Comparar Expresiones

Las órdenes IF – ENDIF se usan para comparar expresiones y determinar si es falso o verdadero. En caso de ser verdadero se ejecutan las órdenes que aparecen después del IF y sigue el proceso de las instrucciones que van después del ENDIF, en caso de ser falsa la comparación, el control se transfiere a las órdenes que van después del ENDIF. También se puede usar ELSE.

 

 Para ver el grafico seleccione la opción "Descargar" del menú superior 

 

  Ejemplo:

ACCEPT "ES EL QUE QUIERES BORRAR DEFINITIVAMENTE (S/N): " TO RESP

IF RESP = "S"

DELETE

PACK

ENDIF

CLEAR

2. Comandos de repeticion.

  Para ver el grafico seleccione la opción "Descargar" del menú superior

   

 

DO WHILE .T.

----------------

----------------

----------------

ENDO

----------------

----------------

----------------

Dentro de un programa se puede generar la repetición de un bloque de órdenes, mientras una determinada condición se cumpla. Al proceso de repetir varias veces un bloque de órdenes se le llama ciclo, bucle, lazo o loop.

Las órdenes para crear un lazo o ciclo son:

DO WHILE – ENDO, dentro de esta orden se puede utilizar una variable lógica llamada .T. (true, verdadera).

3. Ordenes de seleccion multiple .

Las órdenes DOCASE – ENDCASE son de gran utilidad para seleccionar una opción entre varias. La orden DOCASE debe utilizar la palabra CASE para especificar las opciones. Suele ser utilizada para ejecutar ciertos programas con la orden <DO>. Dentro de este puede ser utilizada la orden OTHERWISE (de otro modo o de lo contrario), con el fin de que si ninguno de estos casos se cumplen, se efectuarán las órdenes que están dentro del OTHERWISE.

Para ver el grafico seleccione la opción "Descargar" del menú superior

 

Creacion de un formato de pantalla.

El cursor es un indicador que muestra al operador una posición en la pantalla, este se puede programar para que se ubiquen una determinada posición en la pantalla llamada coordenada. La instrucción para indicar la coordenada es la arroba ( @ ) seguida de la línea y columna.

La orden SAY se usa junto con la coordenada para desplegar variables de memoria.

Para las variables se puede utilizar una mascarilla la cual se asigna por el tipo y tamaño de la variable. Su formato es:

@LIN, COL SAY "MENSAJE"

@LIN, COL SAY VARIABLE PICT "MASCARILLA"

Ejemplo:

@10,20 SAY "VENTA: $"

@10,43 SAY VENTA PICT "99,999.99"

Aceptacion de datos con formato de pantalla.

Se usa para introducir valores a variables de memoria, éstas variables se deben inicializar antes de usarse. Es importante aclarar que para que las órdenes GET puedan entrar en acción deberá existir una orden READ; esta provoca que el Dbase active en secuencia las órdenes GET. Ejemplo:

NOMBRE = " "

EDAD = 0

@10,20 SAY "NOMBRE CLIENTE: "

@10,43 GET NOMBRE PICT "@!"

@12,20 SAY "EDAD: "

@12,43 GET EDAD PICT "99"

READ

La orden RETURN .

La orden RETURN se usa para regresar al sistema de órdenes, o si se encuentra en este, regresa al punto de petición.

PROGRAMAS.

Para ver el grafico seleccione la opción "Descargar" del menú superior

 

 

1. Crear un sistema con la siguiente información:

  • 1 – 5 (0) NUM_CTRL
  • 6 – 25 NOM_ALUMN
  • 26 – 45 DIRECCION
  • 46 – 54 TELEFONO
  • 55 – 56 (0) EDAD
  • 57 – 64 FECHA_NACI
  • Estructura para base de datos: C:BD180204.DBF
  • Número de registros: 23
  • Fecha de última actualización: 06/12/01
  • Campo Nombre Campo Tipo Anchura Dec
  • 1 NUM_CTRL Numérico 5
  • 2 NOM_ALUMNO Caracter 20
  • 3 DIRECCION Caracter 20
  • 4 EDAD Numérico 2
  • 5 TELEFONO Numérico 9
  • 6 FECHA_NAC Fecha 8
  • ** Total ** 65
  • *PROGRFAMA PARA FORMATO DE PANTALLA
  • *LLAMADO: BD180204.FMT
  • *AUTOR: OSCAR BANDA FECHA: 06/10/01
  • @0,21 TO 23,60 DOUB
  • @2,25 SAY " ** C. B. T. I. s. Nº 4 **"
  • @4,25 SAY " << MENU PRINCIPAL >>"
  • @7,27 SAY "ALTAS......................A"
  • @9,27 SAY "BAJAS......................B"
  • @11,27 SAY "CAMBIOS....................C"
  • @13,27 SAY "CONSULTAS..................D"
  • @15,27 SAY "LISTADO....................E"
  • @17,27 SAY "REPORTE....................F"
  • @19,27 SAY "TERMINA....................G"
  • @21,27 SAY "SELECCIONE UNA OPCION: [ ]"
  • @21,54 GET OPC PICT "!"
  • * PROGRAMA DE ENLACE O PRINCIPAL
  • *LLAMADO: BD180204.PRG
  • *AUTOR: OSCAR BANDA FECHA: 06/11/01
  • SET TALK OFF
  • SET SCOR OFF
  • DO WHILE .T.
  • CLEAR
  • SET FORMAT TO BD180204.FMT
  • OPC = " "
  • READ
  • SET FORMAT TO
  • DO CASE
  • CASE OPC="A"
  • DO BD18024A
  • CASE OPC="B"
  • DO BD18024B
  • CASE OPC="C"
  • DO BD18024C
  • CASE OPC="D"
  • DO BD18024D
  • CASE OPC="E"
  • CLEAR
  • USE BD180204
  • LIST OFF
  • ACCEPT " PULSE <ENTER> PARA CONTINUAR..." TO Y
  • USE
  • CASE OPC = "F"
  • DO BD18024E
  • CASE OPC = "G"
  • CLEAR
  • RETURN
  • OTHERWISE
  • CLEAR @10,20 SAY "ESA OPCIÓN NO EXISTE"
  • @12,20 SAY "PULSE <ENTER> PARA CONTINUAR..."
  • SET CONS OFF
  • ENDCASE
  • ENDDO
  • *PROGRAMA PARA ALTAS DE REGISTROS
  • *LLAMADO: BD18024A
  • *AUTOR: OSCAR BANDA FECHA: 13/NOV/01
  • SET TALK OFF
  • CLEAR
  • @8,20 TO 14,60 DOUB
  • @10,24 SAY "PROGRAMA PARA INTRODUCIR REGISTROS"
  • @12,24 SAY " PULSE <ENTER> PARA INICIAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • USE BD180204
  • APPEND
  • USE
  • RETURN
  • *PROGRAMA PARA BORRAR REGISTROS
  • *LLAMADO BD18024B
  • *AUTOR: OSCAR BANDA FECHA:13/NOV/01
  • SET TALK OFF
  • CLEAR
  • @8,18 TO 14,62 DOUB
  • @11,26 SAY "PULSE <ENTER> PARA INICIAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • USE BD180204
  • CLEAR
  • NC=0
  • @10,16 TO 12,66 DOUB
  • @11,18 SAY "DAME EL NUM. DE CTRL. QUE QUIERE BORRAR: "
  • @11,60 GET NC PICT "99999"
  • READ
  • LOCATE FOR NUM_CTRL = NC
  • IF NUM_CTRL = NC
  • CLEAR
  • DISP
  • ELSE
  • CLEAR
  • @10,18 TO 16,61 DOUB
  • @12,22 SAY " YA BUSQUÉ ESE NÚMERO Y NO EXISTE"
  • @14,22 SAY " PULSE <ENTER> PARA CONTINUAR"
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • USE
  • RETURN
  • ENDIF
  • ACCEPT "ES EL QUE QUIERES BORRAR DEFINITIVAMENTE (S/N): " TO RESP
  • IF RESP = "S"
  • DELE
  • PACK
  • ENDIF
  • USE
  • RETURN
  • *PROGRAMA PARA CAMBIOS A REGISTROS
  • *LLAMADO: BD18024C
  • *AUTOR: OSCAR BANDA FECHA: 13/NOV/01
  • SET TALK OFF
  • CLEAR
  • @8,18 TO 14,62
  • @10,23 SAY "PROGRAMA PARA MODIFICAR REGISTROS"
  • @12,23 SAY " PULSE <ENTER> PARA INICIAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • USE BD180204
  • CLEAR
  • NC=0
  • @10,14 TO 12,66 DOUB
  • @11,16 SAY "DAME EL NUM. CTRL. QUE DESEA MODIFICAR"
  • @11,60 GET NC PICT "99999"
  • READ
  • LOCATE FOR NUM_CTRL = NC
  • IF NUM_CTRL = NC
  • CLEAR
  • DISPLAY
  • ELSE
  • CLEAR
  • @10,18 TO 16,61 DOUB
  • @12,22 SAY " YA BUSQUÉ ESE NÚMERO Y NO EXISTE"
  • @14,22 SAY " PULSE <ENTER> PARA CONTINUAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • USE
  • RETURN
  • ENDIF
  • ACCEPT "ES EL QUIERES MODIFICAR (S/N): "TO RESP
  • IF RESP = "S"
  • EDIT
  • ENDIF
  • USE
  • RETURN
  • *PROGRAMA PARA CONSULTA DE REGISTROS
  • *LLAMADO: BD18024D
  • *AUTOR: OSCAR BANDA FECHA: 23/11/01
  • SET TALK OFF
  • CLEAR
  • @8,18 TO 14,62 DOUB
  • @10,23 SAY "PROGRAMA PARA CONSULTA DE REGISTROS"
  • @12,23 SAY " PULSE <ENTER> PARA INICIAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • USE BD180204
  • CLEAR
  • NC=0
  • @10,14 TO 12,66 DOUB
  • @11,16 SAY "DAME EL NUM_CTRL QUE QUIERES CONSULTAR: "
  • @11,60 GET NC PICT "99999"
  • READ
  • LOCATE FOR NUM_CTRL = NC
  • IF NUM_CTRL = NC
  • CLEAR
  • @0,18 TO 24,64 DOUB
  • @2,28 SAY " ** C.B.T.i.s. No 4 **"
  • @4,28 SAY " << CONSULTAS >>"
  • @7,20 SAY " NUMERO DE CONTROL: "
  • @7,43 SAY NUM_CTRL PICT "99999"
  • @9,20 SAY " NOMBRE DE ALUMNO: "
  • @9,43 SAY NOM_ALUMNO PICT "!!!!!!!!!!!!!!!!!!!!"
  • @11,20 SAY " DIRECCION: "
  • @11,43 SAY DIRECCION PICT "!!!!!!!!!!!!!!!!!!!!"
  • @13,20 SAY " TELEFONO: "
  • @13,43 SAY TELEFONO PICT "999999999"
  • @15,20 SAY " EDAD: "
  • @15,43 SAY EDAD PICT "99"
  • @17,20 SAY " FECHA DE NACIMIENTO: "
  • @17,43 SAY FECHA_NAC PICT "!!!!!!!!"
  • @21,20 SAY " PULSE <ENTER> PARA CONTINUAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • ELSE
  • CLEAR
  • @10,18 TO 16,61 DOUB
  • @12,22 SAY "YA BUSQUE ESE NUMERO Y NO EXISTE..."
  • @14,22 SAY " PULSE <ENTER> PARA CONTINUAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • ENDIF
  • USE
  • RETURN
  • *PROGRAMA PARA CREAR REPORTE
  • *LLAMADO: BD18024E.PRG
  • *AUTOR: OSCAR BANDA FECHA: 23/11/01
  • SET TALK OFF
  • CLEAR
  • @8,18 TO 14,62 DOUB
  • @10,23 SAY " PROGRAMA PARA GENERAR REPORTE"
  • @12,23 SAY " PULSE <ENTER> PARA INICIAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • CLEAR
  • @10,6 TO 15,60 DOUB
  • @12,10 SAY "CUANDO ESTE LISTA LA IMPRESORA"
  • @13,10 SAY " PULSE LA TECLA <RETURN>"
  • SET CONS OFF
  • SET DEVICE TO PRINT
  • CLEAR
  • @1,30 SAY "** C.B.T.i.s. No 4 **"
  • @3,30 SAY "< REPORTE DE ALUMNOS >"
  • @5,1 SAY "NUM. NOMBRE DIRECCIÓN"
  • @5,57 SAY "TELEFONO EDAD FECHA"
  • @6,1 SAY "CTRL. ALUMNO"
  • @6,74 SAY "NACIM."
  • USE BD180204
  • LIN=8
  • DO WHILE .NOT. EOF( )
  • @LIN,1 SAY NUM_CTRL PICT "99999"
  • @LIN,9 SAY NOM_ALUMNO PICT "@!"
  • @LIN,32 SAY DIRECCION PICT "@!"
  • @LIN,56 SAY TELEFONO PICT "@!"
  • @LIN,68 SAY EDAD PICT "99"
  • @LIN,73 SAY FECHA_NAC PICT "@!"
  • SET CONS OFF
  • WAIT
  • UN=LIN+1
  • SKIP
  • ENDDO
  • EJECT
  • SET DEVICE TO SCREEN
  • @LIN,25 SAY "PULSE <ENTER> PARA CONTINUAR..."
  • SET CONS OFF
  • WAIT
  • SET CONS ON
  • USE
  • RETURN

 

Oscar Humberto Alvarado Banda


Comentarios


Trabajos relacionados

Ver mas trabajos de Software

 

Nota al lector: es posible que esta página no contenga todos los componentes del trabajo original (pies de página, avanzadas formulas matemáticas, esquemas o tablas complejas, etc.). Recuerde que para ver el trabajo en su versión original completa, puede descargarlo desde el menú superior.


Todos los documentos disponibles en este sitio expresan los puntos de vista de sus respectivos autores y no de Monografias.com. El objetivo de Monografias.com es poner el conocimiento a disposición de toda su comunidad. Queda bajo la responsabilidad de cada lector el eventual uso que se le de a esta información. Asimismo, es obligatoria la cita del autor del contenido y de Monografias.com como fuentes de información.

Iniciar sesión

Ingrese el e-mail y contraseña con el que está registrado en Monografias.com

   
 

Regístrese gratis

¿Olvidó su contraseña?

Ayuda