问题描述:
在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
保存,名称自己安,然后设置为主文件.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)