神马文学网vfp 怎样编写主程序
来源：百度文库 编辑：神马文学网 时间：2024/04/19 11:45:09
一个应用软件，如果没有一个主程序（这像一棵树，没有树干，充其量好象只能是灌木了吧），没有一根主线，很难想象在编程时该怎么写代码？怎样控制程序的流程？（当然不是非得有主程序不可 ^_^ ）
作为一个主程序，应该包括哪些内容或者说是哪些功能？鄙人以为：
1、初始化环境（我习惯在Config.Fpw中设置）
2、初始化系统变量
3、初始化界面（这要根据需要而定）
……
有些程序为了适应客户要求，需做些LOGO界面，问题有了（这问题可能也算是本论坛的精华问题之一吧）：
如何去掉Visual FoxPro的主窗口？
首先：Modify Command Config.fpw（建立资源文件）
SCREEN = OFF （就这句，屏蔽默认界面）
ANSI = ON
AUTOSAVE = ON
CONSOLE = OFF
DEBUG = OFF
DELETED = ON
DOHISTORY = OFF
ESCAPE = OFF
EXACT = ON
EXCLUSIVE = OFF
HELP = OFF
NOTIFY = OFF
OPTIMIZE = ON
REFRESH = 0,0
SAFETY = OFF
STATUS = OFF
STATUS BAR = OFF
SYSMENU = OFF
SYSFORMATS = ON
TALK = OFF
TITLE = 蓝色雪狐基地 (c) 2001
VIEW = OFF
以上各个设置并非必须，我把以前一个程序的设置拷贝过来的，由于时间关系（我写文章的热情一般最多保持半个小时 :( ），这里不作一一说明。
其次，在你的主程序的第一语句写上（必须是第一语句，这样当程序运行时，不论机器速度如何，界面过渡会显得最完美）：
With _Screen
.Visible = .F. （默认界面不可见）
.WindowState = 2 （当再次需要显示时最大化，当再次用_Screen.Visible = .T.恢复界面时，这样的效果最理想 ）
EndWith
这里要注意一个问题，就是Config.Fpw这个文件在项目中必须为包含。以前我指导他人时，有些人总说我这样还是会有默认界面一闪的痕迹。我觉得很奇怪？后来有一个网友把整个项目发给了我，我在分析后才知道的。这可能是写程序的习惯问题：因为我有这么一个习惯，凡是应用程序中能包含的文件，我都包含进去，如客户需作特殊设置，提供一个数据表及一个接口，让客户自行设置界面、标题等等。（注意，图片可尽量不要包含在项目中，除非是标记性的，如你公司的徽标等等，切记！！）
启动时的效果跟其它软件一样，好了，那下面做什么呢？
如何防止客户重复启动！！！
由于编程的要求及其他方面的问题，客户无意中重复启动应用程序往往可能会造成不可预测的问题（当然，如果在编程时就考虑到数据共享、重复运行等因素，则客户完全可以多次打开一个应用软件，一边删、一边改）。
经常在论坛的人大都知道两种以上的方法，我这儿呢一股脑儿全列出来，大家自己摸摸！！
如何防止应用软件重复启动（1）
在应用软件启动后，在硬盘上留下一个特定的文件。这种方法只要在启动时检测一下这个文件是否存在，作一个判断即可。
存在缺陷：当应用软件由于不可预见的情况，非正常退出的情况下，该文件得不到及时删除，怎么办？
我KAO，想出来了，这个特定的文件为任一空的数据表，在应用软件中以独占方式找开它，那么当第二次再需打开会提示出错。
如何防止应用软件重复启动（2）
用FindWindow 及ShowWindowAsync API函数：
Declare Long FindWindow In USER32.DLL String, String
Declare Long ShowWindowAsync In USER32.DLL Long, Long
nTitle = "安华镇农业税征收系统"
hWnd = FINDWINDOW("", nTitle)
IF hWnd != 0
ShowWindowAsync(hWnd, 3) &&请注意看这个API函数的效果
Clear Dlls
Clear All
Quit
ENDIF
存在缺陷：无法判断窗口标题动态变动的情况
如何防止应用软件重复启动（3）
用程序特定的类及相关的特性综合判断，先用GetClassName取得应用软件的类名，再根据类名查找是否有同样的窗体存在，以下是一个简单的相关示例：
nCaption = "蓝色雪狐基地 (c) 2001"
Declare Long FindWindowEx In "user32" Long, Long, String, String &&该函数可根据类查找窗口
Declare Long GetClassName In "user32" Long, String, Long
Declare Long ShowWindowAsync IN "user32" Long, Long
hWnd = FindWindowEx(0, 0, 0, nCaption)
Buffer = Space(32)
nLen = GetClassName(hWnd, @Buffer, 32)
hClass = Left(Allt(Buffer), nLen)
hWnd = FindWindowEx(0, hWnd, hClass, nCaption)
IF hWnd > 0
ShowWindowAsync(hWnd, 3)
Clea DLLS
Quit
ENDIF
这是一个框框而已，你可以根据应用程序的各种不同的特征，来检测是否有窗体存在。
存在缺陷：如何“设置”应用软件的特定的类信息我自己搞糊涂了，如何能在应用软件中设置特定的类信息，那才能做到“完美无缺”
如何防止应用软件重复启动（4）——好象是刚才论坛里搞出来的，是谁定的，说一声 ^_^
内存映谢文件防止应用应用程序运行
PUBLIC handle
DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER hFile, ;
INTEGER lpFileMappingAttributes,integer flProtect, ;
INTEGER dwMaximumSizeHigh, INTEGER dwMaximumSizeLow, ;
STRING lpName
DECLARE INTEGER GetLastError IN kernel32.DLL
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject
szname="myonly"
handle = createfilemapping(0xFFFFFFFF,0,4,0,128,szname)
IF handle = 0
WAIT WINDOW "CreateFileMapping 失败 - LastError: " ;
+ LTRIM(STR(getlasterror()))
RETURN
ENDIF
if handle=0
messagebox("创建内存映谢文件失败！",0,"错误")
return .f.
else
if GetLastError()=183
=messagebox("该软件已经正在运行啊！",32,"嘿嘿-不要做重复运动*(^_^)*")
CLOSE all
Clear dlls
Clear events
QUIT
endif
endif
注在程序结束处别望了一定要：
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject
=CloseHandle(handle)
clea event
clea
quit
以上经测试效果也相当不错，由于本人水平有限，对于用这种方式会不会造成多占用内存（应该说对于CreateFileMapping API函数的功能
不清楚吧！），心里没底，反正大家再试试！！
…………
方法是多种多样的，大家再讨论讨论。
如果有初始化的界面，那么接下去…………
主程序的最后应该是设置应用软件的路径、背景等设置，最后——显示界面。
今个活特多，不写了。对了，下面拷贝一个我刚写完的主程序，大家看看。
_Screen.Visible = .F.
_Screen.WindowState = 2
NoAgein(_Screen.Caption) &&这里就是检测是否已运行的模块
Do Form "Logo.scx" &&欢迎界面
Public p
p = .T.
cTitle = _Screen.Caption
Do Form "Pass.scx" With cTitle &&登录对话框，cTitle是登录对话框中界面中的一个特效的文字（组件化）
If p = .F.
Clea Events
Quit
EndIf
Clea All
On Error MessageBox(Message(), 16, _Screen.Caption)
On ShutDown Do E_end
Set Default To Sys(5)+Sys(2003)+'\'
Set Resource To "Sys\FoxUser.DBF"
_Screen.Caption = "蓝色雪狐基地 (c) 2001"
Use "Sys\User.dbf"
Locate For AllTrim(Name) = "PICTURE"
IF !Empty(AllTrim(Path)) .AND. File(Path)
PIC = AllTrim(Path)
_Screen.Picture = PIC
Else
_Screen.BackColor = RGB(28, 118, 202)
EndIf
Use
_Screen.Visible = .T.
作为一个主程序，应该包括哪些内容或者说是哪些功能？鄙人以为：
1、初始化环境（我习惯在Config.Fpw中设置）
2、初始化系统变量
3、初始化界面（这要根据需要而定）
……
有些程序为了适应客户要求，需做些LOGO界面，问题有了（这问题可能也算是本论坛的精华问题之一吧）：
如何去掉Visual FoxPro的主窗口？
首先：Modify Command Config.fpw（建立资源文件）
SCREEN = OFF （就这句，屏蔽默认界面）
ANSI = ON
AUTOSAVE = ON
CONSOLE = OFF
DEBUG = OFF
DELETED = ON
DOHISTORY = OFF
ESCAPE = OFF
EXACT = ON
EXCLUSIVE = OFF
HELP = OFF
NOTIFY = OFF
OPTIMIZE = ON
REFRESH = 0,0
SAFETY = OFF
STATUS = OFF
STATUS BAR = OFF
SYSMENU = OFF
SYSFORMATS = ON
TALK = OFF
TITLE = 蓝色雪狐基地 (c) 2001
VIEW = OFF
以上各个设置并非必须，我把以前一个程序的设置拷贝过来的，由于时间关系（我写文章的热情一般最多保持半个小时 :( ），这里不作一一说明。
其次，在你的主程序的第一语句写上（必须是第一语句，这样当程序运行时，不论机器速度如何，界面过渡会显得最完美）：
With _Screen
.Visible = .F. （默认界面不可见）
.WindowState = 2 （当再次需要显示时最大化，当再次用_Screen.Visible = .T.恢复界面时，这样的效果最理想 ）
EndWith
这里要注意一个问题，就是Config.Fpw这个文件在项目中必须为包含。以前我指导他人时，有些人总说我这样还是会有默认界面一闪的痕迹。我觉得很奇怪？后来有一个网友把整个项目发给了我，我在分析后才知道的。这可能是写程序的习惯问题：因为我有这么一个习惯，凡是应用程序中能包含的文件，我都包含进去，如客户需作特殊设置，提供一个数据表及一个接口，让客户自行设置界面、标题等等。（注意，图片可尽量不要包含在项目中，除非是标记性的，如你公司的徽标等等，切记！！）
启动时的效果跟其它软件一样，好了，那下面做什么呢？
如何防止客户重复启动！！！
由于编程的要求及其他方面的问题，客户无意中重复启动应用程序往往可能会造成不可预测的问题（当然，如果在编程时就考虑到数据共享、重复运行等因素，则客户完全可以多次打开一个应用软件，一边删、一边改）。
经常在论坛的人大都知道两种以上的方法，我这儿呢一股脑儿全列出来，大家自己摸摸！！
如何防止应用软件重复启动（1）
在应用软件启动后，在硬盘上留下一个特定的文件。这种方法只要在启动时检测一下这个文件是否存在，作一个判断即可。
存在缺陷：当应用软件由于不可预见的情况，非正常退出的情况下，该文件得不到及时删除，怎么办？
我KAO，想出来了，这个特定的文件为任一空的数据表，在应用软件中以独占方式找开它，那么当第二次再需打开会提示出错。
如何防止应用软件重复启动（2）
用FindWindow 及ShowWindowAsync API函数：
Declare Long FindWindow In USER32.DLL String, String
Declare Long ShowWindowAsync In USER32.DLL Long, Long
nTitle = "安华镇农业税征收系统"
hWnd = FINDWINDOW("", nTitle)
IF hWnd != 0
ShowWindowAsync(hWnd, 3) &&请注意看这个API函数的效果
Clear Dlls
Clear All
Quit
ENDIF
存在缺陷：无法判断窗口标题动态变动的情况
如何防止应用软件重复启动（3）
用程序特定的类及相关的特性综合判断，先用GetClassName取得应用软件的类名，再根据类名查找是否有同样的窗体存在，以下是一个简单的相关示例：
nCaption = "蓝色雪狐基地 (c) 2001"
Declare Long FindWindowEx In "user32" Long, Long, String, String &&该函数可根据类查找窗口
Declare Long GetClassName In "user32" Long, String, Long
Declare Long ShowWindowAsync IN "user32" Long, Long
hWnd = FindWindowEx(0, 0, 0, nCaption)
Buffer = Space(32)
nLen = GetClassName(hWnd, @Buffer, 32)
hClass = Left(Allt(Buffer), nLen)
hWnd = FindWindowEx(0, hWnd, hClass, nCaption)
IF hWnd > 0
ShowWindowAsync(hWnd, 3)
Clea DLLS
Quit
ENDIF
这是一个框框而已，你可以根据应用程序的各种不同的特征，来检测是否有窗体存在。
存在缺陷：如何“设置”应用软件的特定的类信息我自己搞糊涂了，如何能在应用软件中设置特定的类信息，那才能做到“完美无缺”
如何防止应用软件重复启动（4）——好象是刚才论坛里搞出来的，是谁定的，说一声 ^_^
内存映谢文件防止应用应用程序运行
PUBLIC handle
DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER hFile, ;
INTEGER lpFileMappingAttributes,integer flProtect, ;
INTEGER dwMaximumSizeHigh, INTEGER dwMaximumSizeLow, ;
STRING lpName
DECLARE INTEGER GetLastError IN kernel32.DLL
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject
szname="myonly"
handle = createfilemapping(0xFFFFFFFF,0,4,0,128,szname)
IF handle = 0
WAIT WINDOW "CreateFileMapping 失败 - LastError: " ;
+ LTRIM(STR(getlasterror()))
RETURN
ENDIF
if handle=0
messagebox("创建内存映谢文件失败！",0,"错误")
return .f.
else
if GetLastError()=183
=messagebox("该软件已经正在运行啊！",32,"嘿嘿-不要做重复运动*(^_^)*")
CLOSE all
Clear dlls
Clear events
QUIT
endif
endif
注在程序结束处别望了一定要：
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject
=CloseHandle(handle)
clea event
clea
quit
以上经测试效果也相当不错，由于本人水平有限，对于用这种方式会不会造成多占用内存（应该说对于CreateFileMapping API函数的功能
不清楚吧！），心里没底，反正大家再试试！！
…………
方法是多种多样的，大家再讨论讨论。
如果有初始化的界面，那么接下去…………
主程序的最后应该是设置应用软件的路径、背景等设置，最后——显示界面。
今个活特多，不写了。对了，下面拷贝一个我刚写完的主程序，大家看看。
_Screen.Visible = .F.
_Screen.WindowState = 2
NoAgein(_Screen.Caption) &&这里就是检测是否已运行的模块
Do Form "Logo.scx" &&欢迎界面
Public p
p = .T.
cTitle = _Screen.Caption
Do Form "Pass.scx" With cTitle &&登录对话框，cTitle是登录对话框中界面中的一个特效的文字（组件化）
If p = .F.
Clea Events
Quit
EndIf
Clea All
On Error MessageBox(Message(), 16, _Screen.Caption)
On ShutDown Do E_end
Set Default To Sys(5)+Sys(2003)+'\'
Set Resource To "Sys\FoxUser.DBF"
_Screen.Caption = "蓝色雪狐基地 (c) 2001"
Use "Sys\User.dbf"
Locate For AllTrim(Name) = "PICTURE"
IF !Empty(AllTrim(Path)) .AND. File(Path)
PIC = AllTrim(Path)
_Screen.Picture = PIC
Else
_Screen.BackColor = RGB(28, 118, 202)
EndIf
Use
_Screen.Visible = .T.