prgmain.prg

来自「图书馆管理系统:有借书管理、还书管理、图书管理、读者管理、查询等模块」· PRG 代码 · 共 29 行

set talk off
set near on
set exact on
set ansi on
set excl off
set safety off
set dele on
set century on
set date to YMD
*public M_js,M_hs,mypath,tsgl,demo[3]
public mypath
mypath=left(sys(16),rat("\",sys(16)))
set defa to &mypath

sele 1
use bookInfo
sele 2
use groupInfo
sele 3
use b_table
sele 4  
use ReaderInfo
sele 5
use AdminInfo
 
do form frmLogin
read events