主题:请大师分析一下
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(已做了)没有出现,为什么?
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(已做了)没有出现,为什么?