您所在位置：主题：各位高手，请大家帮我看看以下代码是做什么用的？解释代码
yangbomin@yahoo.com.
[专家分：0] 发布于 2008-10-29 16:08:00
SET SAFETY OFF
SET DELETED ON
SET OLEOBJECT ON
PUBLIC MsgTitle,frmIgaTools,cPath
MsgTitle="交互式遗传算法友情提示"
SET TALK OFF
cPath=SetPath()
cIcon=ALLTRIM(cPath)+ALLTRIM("iga.ico")
cBmp=ALLTRIM(cPath)+ALLTRIM("background.bmp")
MODIFY WINDOW SCREEN TITLE"交互式遗传算法"
_screen.Icon=cIco
_screen.Picture=cbmp
ZOOM WINDOW SCREEN MAX
CLOSE DATABASES ALL
ON SHUTDOWN QUIT()
DO FORM 工具栏 NAME frmIgaTools
DO MENU\mainmenu.mpr
READ EVENTS
CLEAR EVENTS
QUIT
PROCEDURE SetPath()
LOCAL lcSys16,lcProgram
lcSys16=SYS(16)
lcProgram=SUBTR(lcSys16,AT(":",lcSys16)-1)
cPath= ALLTRIM(LEFT(lcProgram,RAT("|",lcProgram)))
CD LEFT(lcProgram,RAT("\",lcProgram))
CD..
SET PATH TO ALLTRIM(cPath)+ALLTRIM("Datebase\"),;
FORM,OTHER,PICTURE,PEOGRAM
RETURN cpath
ENDPROC
SET DELETED ON
SET OLEOBJECT ON
PUBLIC MsgTitle,frmIgaTools,cPath
MsgTitle="交互式遗传算法友情提示"
SET TALK OFF
cPath=SetPath()
cIcon=ALLTRIM(cPath)+ALLTRIM("iga.ico")
cBmp=ALLTRIM(cPath)+ALLTRIM("background.bmp")
MODIFY WINDOW SCREEN TITLE"交互式遗传算法"
_screen.Icon=cIco
_screen.Picture=cbmp
ZOOM WINDOW SCREEN MAX
CLOSE DATABASES ALL
ON SHUTDOWN QUIT()
DO FORM 工具栏 NAME frmIgaTools
DO MENU\mainmenu.mpr
READ EVENTS
CLEAR EVENTS
QUIT
PROCEDURE SetPath()
LOCAL lcSys16,lcProgram
lcSys16=SYS(16)
lcProgram=SUBTR(lcSys16,AT(":",lcSys16)-1)
cPath= ALLTRIM(LEFT(lcProgram,RAT("|",lcProgram)))
CD LEFT(lcProgram,RAT("\",lcProgram))
CD..
SET PATH TO ALLTRIM(cPath)+ALLTRIM("Datebase\"),;
FORM,OTHER,PICTURE,PEOGRAM
RETURN cpath
ENDPROC