Question

vfp连编问题

我现在建立好了所有的表单，有 denglu.scx 管理信息.scx 插入.scx
等，现在想通过连编生成exe文件，点击后进入denglu.scx,然后通过按钮调用 管理信息.scx 但是方程序我写的是 do form denglu.scx;read events ,但当连编后点击exe后，无反映，求大家帮帮忙，快，这两天就要完成，急。谢谢。。。

Answer 1

主程序的问题,
建议你重新修改你的主程序
给你一段参考码,请参照

CLEAR ALL
CLOSE ALL
SET SYSMENU TO
SET READBORDER OFF
SET DATE TO ANSI
SET LIBRARY TO FOXTOOLS.FLL
SET CENTURY ON
SET TALK OFF
SET STATUS BAR OFF
SET SAFETY OFF
SET EXCLUSIVE OFF
SET DELETED ON
SET ESCAPE OFF
SET KEYCOMP TO WINDOW
SET CARRY OFF
SET LOCK ON
SET MULTILOCKS ON
SET DECIMALS TO 2
PUBLIC SYS_CZYDM , SYS_CZYMC , TEMPPATH , SYS_SYDWMC , sys_sm,SYS_XTQYRQ , DATAPATH , NETPATH , ;
REPPATH
SYSTIT = '〖晨曦商品管理系统〗'
_SCREEN.CAPTION = SYSTIT
_SCREEN.WINDOWSTATE = 2
_SCREEN.MOVABLE = .F.
_SCREEN.BACKCOLOR = RGB(64,128,128)
_SCREEN.CONTROLBOX = .F.
_SCREEN.MINBUTTON = .F.
_SCREEN.MAXBUTTON = .F.
_SCREEN.SHOWTIPS = .T.
SELECT 0
USE SYSDATA
NETPATH = ALLTRIM(NET_PATH)
REPPATH = ALLTRIM(REP_PATH)
TEMPPATH = ALLTRIM(TEMP_PATH)
DBFILE = NETPATH + 'xt_csk.dbf'
IF .NOT. FILE(DBFILE)
MESSAGEBOX('目录: ' + NETPATH + ' 中没有系统数据库,请选择数据库所在目录')
NETPATH = GETDIR()
DBFILE = NETPATH + 'xt_csk.dbf'
IF .NOT. FILE(DBFILE)
MESSAGEBOX('所选目录不是系统数据库所在目录')
CLEAR ALL
CLOSE ALL
SET SYSMENU TO DEFAULT
SET SYSMENU ON
RETURN
ELSE
REPLACE NET_PATH WITH NETPATH
ENDIF
ENDIF
USE
SELECT 0
USE &NETPATH.DM_CZY
SELECT 0
USE &NETPATH.XT_CSK
SYS_SYDWMC = ALLTRIM(SYDWMC)
sys_sm=ALLTRIM(dz)
SYS_XTQYRQ = XTQYRQ
SYS_CPXH = ALLTRIM(CPXH)
SYS_CZM = ALLTRIM(ZCM)
SYS_CXMENU = .F.
USE
DO FORM XT_JM
SELECT DM_CZY
DO FORM hy_login TO CUSER
IF .NOT. EMPTY(CUSER)
SELECT DM_CZY
SYS_CZYDM = ALLTRIM(DM_CZY.CZYDM)
SYS_CZYMC = ALLTRIM(DM_CZY.CZYMC)
SYS_PASS = ALLTRIM(DM_CZY.CZYKL)
_SCREEN.CAPTION = ;
SYSTIT + SPACE(20) + '操作员:' + SYS_CZYMC + SPACE(20) + '操作日期:' + DTOC(DATE())
SCATTER NAME SYS_CZQX
USE
DO mainmenu.mpr
READ EVENTS
ENDIF
CLEAR EVENTS
CLEAR ALL
CLOSE ALL
SET SYSMENU TO DEFAULT
SET SYSMENU ON
*
如果还不行,再加进去个主菜单试试,好久没用了,记不太清楚,希望对你有所帮助