Question

VFP的主程序如何编写

在VFP中如何编写主程序？在编写主程序时应注意什么事项？

Answer 1

**设置运行环境
Set Talk Off &&关闭命令显示
Set Escape Off &&禁止运行的程序在按 Esc 键后被中断
Set Exclusive Off &&数据库表以共享方式打开
Set Deleted On &&过滤掉已带删除标记的记录
Set Safety Off &&指定在改写已有的文件时不显示对话框
Set Date Ansi &&设定日期的年份为 4 位数
Set Century On &&指定日期表达式的显示格式为YY.MM.DD
SET MARK TO [-] &&指定日期的分隔符为"-"
SET SECONDS ON &&日期时间表达式的显示秒钟部分
SET HOURS TO 12 &&指定日期时间表达式的显示为12小时格式
Set Optimize ON &&启用或废止 Rushmore 优化。
Set ENGINEBEHAVIOR 70
Set DECIMALS TO 8 &&指定小数点位数,默认为2位
Clear &&清除主窗口
Clear All &&清除变量

**开始进行程序的事务处理操作
Public pcSys
pcSys=Sys(5)+Sys(2003)

Set Default To pcSys
Set Path To Class,Form,Poto,Menu,Prg,Report

DO form frmbegin &&运行启动画面表单frmBegin,名称自己改,
READ events
DO form frmlogin &&运行主界面表单frmlogin,名称自己改,
READ events

保存,名称自己安,然后设置为主文件.

Answer 2

主程序就是一个普通的程序，在项目中点他时有一个快捷菜单，选里面的“主程序”就行了。
另外，主程序一般都是对所写程序的初始化，比如，主窗口的标题、背景，主菜单，或者是第一运行的表单，退出时运行的命令等等。
需要注意是在完成所有初始化以后需要加一句
read even
否则，窗口会一闪而过，什么也做不成。

Answer 3

main代码如下:可以学习下
LPARAMETER LPTAG
ON ERROR Quit
CLOSE DEBUGGER
SET DEBUG OFF
SET DOHISTORY OFF
WITH _SCREEN
.CONTROLBOX = .F.
.LOCKSCREEN = .T.
ENDWITH
CLEAR EVENTS
CLEAR PROGRAM
CLEAR MACROS
CLEAR READ ALL
CLOSE ALL
CLEAR ALL
ON KEY
ON ERROR DO errhandl With message(1), program(), lineno(), lineno(1)
ON SHUTDOWN Do OnShutDown
PUBLIC DBF_DIR
IF FILE('dbfp.mem')
RESTORE FROM 'dbfp.mem'
DBF_DIR = M.DBFP
ENDIF
IF TYPE('DBF_DIR') <> 'C'
DBF_DIR = '\\server\zhZCdbf$'
ENDIF
IF .NOT. FILE(DBF_DIR + '\current.dbf')
MESSAGEBOX('程序启动时遇到严重故障: 找不到数据文件。 ' +

CHR(13) + CHR(13) + ;
'请向程序员报告。',16,'程序无法启动')
QUIT
ENDIF
SET PATH TO (DBF_DIR)
DO PROFACE
_SCREEN.LOCKSCREEN = .F.
DO FORM PswdChk
IF .NOT. EMPTY(OPUBTOOL.OPRGHT)
DO MAINMENU
READ EVENTS
ENDIF
CLOSE ALL
CLEAR ALL
QUIT
RETURN
*

Answer 4

你可以在baidu上找找啊，也可以在迅雷上找一些视频教程看看。