主题:请高手指点迷津
请指教,我编了个学生管理系统,app文件能正常运行,exe文件运行到登录就退出,登录是激活信息录入表单和主菜单,验证用户权限,不知问题出在哪里?主程序代码如下:
public yhdj
yhdj=4
drive=alltrim(sys(16))
drivelen=len(drive)-16
drive=alltrim(left(drive,drivelen))
set default to &drive
set talk off
set path to &drive
use \data\table\mm.dbf
set classlib to \classe\my.vcx
do \prg\setting.prg
do form \form\main.scx
_screen.caption='学生管理系统'
_screen.ico='\ico\xxtb.ico'
_screen.backcolour=rgb(237,255,236)
define window ncover from 0,0 to 240,240
activate window ncover bottom
read events
另外main.scx的showwindow属性已设为顶层窗口。
public yhdj
yhdj=4
drive=alltrim(sys(16))
drivelen=len(drive)-16
drive=alltrim(left(drive,drivelen))
set default to &drive
set talk off
set path to &drive
use \data\table\mm.dbf
set classlib to \classe\my.vcx
do \prg\setting.prg
do form \form\main.scx
_screen.caption='学生管理系统'
_screen.ico='\ico\xxtb.ico'
_screen.backcolour=rgb(237,255,236)
define window ncover from 0,0 to 240,240
activate window ncover bottom
read events
另外main.scx的showwindow属性已设为顶层窗口。