main.bak

来自「名片管理小系统实施源码」· BAK 代码 · 共 13 行

set talk off
set excl on
set dele on
close all

mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
set path to mypath\class;mypath\img
open database card.dbc
do form maincard
*do form logo
*_screen.visible=.t.
read event