main.bak

来自「这是一个关于 shan 商品进销存系统,希望能给大家课程设计一点帮助」· BAK 代码 · 共 27 行

set talk off
set esca off
set echo off
set date ansi
set cent on
set hour to 24
set help on
*set help to WZ_HELP.CHM
set notify off
clea all
close all
clear


LOCAL icsys16,icproram
icsys16=sys(16)
icprogram=substr(icsys16,at(":",icsys16)-1)
cd left(icprogram,rat("\",icprogram))
set path to left(icprogram,rat("\",icprogram))
public ttj,ls
ttj=0
cCaption="进销存管理系统"
modi window screen title "进销存管理系统"
do form jm.scx
read events
release main
set notify on