Generar aplicacion

set alternate off && Direct screen or window output to a file
set ansi off
set autosave off && Flush buffers to disk
set bell off && Turn the bell on or off and set its attributes
set blink on && Specify screen attributes and colors
set blocksize to 64 && Specify how FoxPro allocates disk space for
set border to single && Define the border string for boxes, menus, popups
set brstatus off && Enable or disable the display of the status bar
set carry off && Carry data forward to new records
set century on && Specify the year format in dates
set clear on && Specify when the screen is cleared
set clock status
set compatible foxplus && Specify compatibility with FoxBASE+
set confirm off && Specify if a terminating key must be pressed when
set console on && Direct output to the screen or a window
set currency to && Specify the currency symbol and its position
set cursor on && Turn the cursor on or off
set date to british && Specify a date format
set debug on && Enable or disable access to the Debug and Trace
set decimals to 2 && Specify the number of decimal places displayed
set deleted on && Specify if records marked for deletion will be
set delimiters off && Specify how fields are delimited in @ ... GETs
set delimiters to '[]'
set development on && Check creation dates and times of program files
set device to screen && Direct output to the screen or a window, the
set dohistory off && Place commands from programs in the Command window
set echo off
set escape off && Enable or disable the Escape key
set exact on && Specify if a match must be exact
set exclusive off && Specify if database files will be opened for
set fields off && Designate fields that may be accessed in a
set fullpath on && Enable or disable the display of pathnames with
set heading on && Enable or disable the display of field headings
set help off
set hours to 12 && Specify a 12 or 24 hour time format
set intensity on && Highlight input fields during editing
set lock off && Enable or disable automatic record or file locking
set logerrors off && Send compilation errors to a file
set margin to 0 && Specify the left margin in printed output
set mark to && Specify a delimiter in dates
set memowidth to 80 && Specify the displayed width of memo fields
set menu off
set mouse on && Enable or disable the mouse and control its
set multilocks on && Enable or disable multiple record locking
set near off && Specify where the record pointer is placed after
set notify off && Enable or disable the display of system messages
set odometer to 200 && Adjust the reporting interval
set oleobject ON
set point to '.' && Change the decimal point to another character
set printer off && Enable or disable output to the printer and
set refresh to 5 && Display changes made to records by other users on
set reprocess to 5 && Specify how FoxPro/LAN controls unsuccessful
set safety off && Enable or disable the file protection facility
set scoreboard off && Specify where the state of the NumLock, CapsLock
set separator to && Specify a numeric place separator
set shadows on && Place or remove shadows behind windows
set space on && Insert or remove a space between fields in the ?
set status off && Enable or disable the display of the status bar
set status bar on && Status bar de windows
set sticky on && Specify the display of System menu popups
set sysmenu on && Control access to the System menu bar during
set talk off && Enable or disable command progress reporting
set typeahead to 20 && Specify the number of characters that may be kept
set udfparms to reference && Specify whether parameters are passed to a
set cpdialog off && No abrir ventana de dialogo para el codigo de pagina
set unique off && Specify if records with duplicate index keys will
set view off && Open or close the View window or restore the
clear typeahead
on key label F1 && Borrar los on key labels
on key label F2
on key label F3
on key label F4
on key label F5
on key label F6
on key label F7
on key label F8
on key label F9
on key label F10
on key label F11
on key label F12
for I=1 to 12
set function I to ""
endfor
SET SYSMENU TO
SET SYSMENU AUTOMATIC
*
with _screen
.AutoCenter = .t.
.Caption = "Sistema XXXX'"
.Picture = 'C:\libs\wizbmps\gibraltar3.bmp'
.icon = 'C:\LIBS\wizbmps\visoft.bmp'
.AutoCenter = .t.
.BackColor = rgb(0,0,0)
.Fontname = 'FoxFont'
.Fontsize = 12
.WindowState = 0
.BorderStyle = 2 && Change the border to double
.Closable =.f. && Remove window control buttons
.ControlBox =.t.
.MaxButton =.f.
.MinButton =.t.
.Movable =.t.
endwith
*
public conec, oMAINTOOLBAR, oRutinas,m.tusuario
*open database VSOF2000 de Access
*
conec=sqlconnect('Cvsof2000', 'sa','w7f8x0.')
*
if conec <= 0
messagebox('No se puede establecer conección con la Base de Datos VSOF2000', 16, 'Verifica Conección')
quit
else
Wait Window at 10,10 ('Estableciendo Conección con la Base de Datos VSOF2000') timeout 2
endif
*
set classlib to \libs\banco
set classlib to \libs\controles additive
DO VSOF2000.MPR
read events
release all
* Fox tiene que ejecutarse en un Windows (ventana)
* Mira.. Este es el programa principal que utilizo yo. Revizalo, sobre todo en las propiedades de Screen