主程序编程.docVIP

主程序编程 这是给初学者推荐一种格式，不一定最好，但它却实能正常运行?*?程序名：main.prg*?作用：整个系统的入口*?路径：\你的程序目录\prgsSet?Talk?offSet?Escap?off*?开始，程序错误处理ON?ERROR?DO?Err.PRG??With?Error(),??Message(),??Message(1),??Program(),??Lineno(1)?*?第一步，清理环境*****************************Close?All??????关闭所有工作区中打开的数据库、表和索引，并选择工作区?1。?Clear?Menus????从内存中释放所有的内存变量和数组以及所有用户自定义菜单栏、????????????????????菜单和窗口的定义。?还从内存中删除所有用?DECLARE-ALL?注册????????????????????的外部?Windows?32?位动态链接库?(.DLLS)。?*?关闭系统菜单*?如果在发出?SET?SYSMENU?SAVE?命令之后修改了菜单系统，可以通过发出?*?SET??SYSMENU?TO?DEFAULT?命令来恢复前面的设置。?Set?Sysmenu?Save?*?在程序执行期间废止?Visual?FoxPro?主菜单栏。Set?Sysmenu?OffSet?Sysmenu?To??*?第二步，设置环境*?退出Read时保存数据缓冲区内容Set?Autosave?On??*?使用?INSERT、APPEND?和?BROWSE?命令创建新记录时，不将当前记录数据复制到新记录中。Set?Carry?Off?*?指定是否可以用在文本框中键入最后一个字符的方法退出文本框。Set?Confirm?Off*??日期不显示世纪部分Set?Century?Off??*?设置日期格式为YY.MM.DD?格式Set?Date?Ansi?*?不显示已经删除的记录Set?Delete?On?*?决定能否使用?LOCK?(?)或?RLOCK?(?)?锁定多个记录。Set?Multilocks?On??网络编程专用*?确定?ATLTER?TABLE、CREATE?TABLE?和?INSERT?-?SQL?命令如何处理?null?值。Set?Null?On???????????????????????????*?指定当字段是空值(NUll)显示的文本为Set?NullDisplay?To??*?改写已有文件之前不显示对话框Set?Safety?Off*?移去图形状态栏。Set?Status?Bar?Off*?第三步，设置你的程序路径*?设置程序主目录Public?gcMainPathgcMainPath?=?Sys(5)+Sys(2003)+\Set?Default?To?gcMainPath*?数据目录(本地数据库和表)Public?gcDataPath?gcDataPath?=gcMainPath+Data\*?程序目录Public?gcPrgsPath?gcPrgsPath?=gcMainPath+Prgs\*?图片目录Public?gcPicsPathgcPicsPath=gcMainPath?+?pics\*?表单目录Public?gcFormsPath?gcFormsPath?=?gcMainPath+forms\?*?菜单目录Public?gcMenusPath?gcMenusPath?=?gcMainPath+menus\*?标签目录Public?gcLabelsPath?gcLabelsPath?=?gcMainPath+labels\*?报表目录Public?gcReportsPath?gcReportsPath?=gcMainPath+Reports\*?第四步?初始化键盘Capslock(.F.)IMEStatus(0)Insmode(.T.)?Numlock(.T.)?*?第五步?打开自定义类库、过程文件Set?Classlib?To?gcMainPath+vcx\MyVCX.vcxSet?Procedure?To?gcPrgsPath?+Myproc.prg*?设置不显示ODBC登录对话框SQLSETPROP(0,DispLogin,3)???网络专用*?第六步?声明其他全局变量*?数据源名称Public?gcDSN?gcDSN??=?‘’*?用户登录名Public?gcUI