prgmain.bak

图书馆管理系统:有借书管理、还书管理、图书管理、读者管理、查询等模块

clear all
set escape off
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]

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