回 帖 发 新 帖 刷新版面

主题:请大师分析一下

set talk off    &&关闭对话模式
set safe off    &&文件覆盖时不发出警告
set stat off    &&关闭字符型状态行
set dele on     &&不处理已删除的记录
set cent on     &&日期以完整的格式显示
set date to AMERICAN  &&日期格式
close all    &&关闭所有文件,并回到第一工作区.
RELEASE WINDOW 常用  &&不启动常用工具条
ZOOM WINDOW SCREEN Max   &&主窗口最大化
**以下是计算今天是星期几,并转换成汉字.
cdowss=allt(cdow(date()))
do case
 case cdowss="Monday"
 cdows="星期一"
  case cdowss="Tuesday"
 cdows="星期二"
  case cdowss="Wednesday"
 cdows="星期三"
  case cdowss="Thursday"
 cdows="星期四"
  case cdowss="Friday"
 cdows="星期五"
  case cdowss="Saturday"
 cdows="星期六"
  case cdowss="Sunday"
 cdows="星期日"
  endcase 
***主窗口标题  
MODIFY WINDOW SCREEN TITLE "  工资管理系统 ver 6.02;
   彭泽二中 白燕翔编制     今天是:"+dtoc(date())+"  "+cdows
*_SCREEN.controlbox=.f.  &&去掉主窗口控制按钮
deactivate window "项目管理器"  &&关闭"项目管理器"窗口
_screen.visible=.f.  &&隐藏主窗口
public mypath,czz  &&定义全局变量
mypath=left(sys(16),rat("\",sys(16)))  &&确定当前路径
set defa to (mypath)  &&默认路径
set path to forms,datas,frxs,pic,images  &&可查找路径
_SCREEN.icon="..\pic\8.ico"
_screen.addobject("img1","image")
_screen.img1.stretch=2
_screen.img1.left=0
_screen.img1.top=0
_screen.img1.width=_screen.width
_screen.img1.height=_screen.height
*_SCREEN.img1.picture="..\images\pic1.jpg" 
_screen.img1.visible=.t.
do form logo.scx
*****
on shutdown quit  &&可以直接通过主窗口的关闭按钮关闭。
read events   &&启动所以已定义的控制并读取事件,如果没有此命令,程序将一闪而过.
quit  &&退出vfp,因有read events,暂时不执行quit命令,只有在执行clear event命令后才执行.


以上是主程序main.prg的代码,运行后登录表单logo.scx(已做了)没有出现,为什么?

回复列表 (共6个回复)

沙发

有没有设置为模式表单?

板凳

模式表单在哪里设置?
谢谢

3 楼

表单 - 属性 - WindowType

4 楼

试了,不行,问题仍然存在

5 楼

_screen.visible=.f.  &&隐藏主窗口


这种情况下,只有属性为“顶层表单”的表单才能显示。并且顶层表单不管设成“模式”还是“非模式”都是以非模式方式运行

6 楼

问题解决了,万分感谢!
将logo.scx 的属性showindows设置为2-顶层表单

我来回复

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