回 帖 发 新 帖 刷新版面

主题:请高手指点迷津

请指教,我编了个学生管理系统,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属性已设为顶层窗口。


回复列表 (共4个回复)

沙发

‘运行到登录就退出’——问题不在这段,应该是‘登录’那里有错

板凳

应该不是登录问题,登录中只判断用户权限、运行主表单、激活主菜单。

3 楼

 READ EVENTS 应该紧随 DO FORM ....... 之后吧。

4 楼


是吗

我来回复

您尚未登录,请登录后再回复。点此登录或注册