CLOSE DATA
_screen.visible=.f.
set date to YMD
SET CENTURY ON
SET HOURS TO 24
set safe off
set talk off
set sysmenu to
set exclusive on
set event on
...........
do form 表单A &&表单A为你的表单名
Read Events
...........
3、在表单A的init事件中:
do 菜单A.mpr with this,.t. &&&&菜单A为你的菜单名