main.prg

名片管理小系统实施源码

set talk off
set excl on
set dele on
close all
public mymain

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