vfp 怎样编写主程序
展开全部
**设置运行环境
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
保存,名称自己安,然后设置为主文件.
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
保存,名称自己安,然后设置为主文件.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询