main_tsgl.bak

本图书管理系统具有查询

clear all
_screen.visible=.f.
set escape off
set talk off
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]

M_js= .T.
M_hs= .T.
mypath=left(sys(16),rat("\",sys(16)))
set defa to &mypath

***------------------------------
dimension demo[3]
     store '.F.' to demo[1]
     store '.F.' to demo[2]
     store '.F.' to demo[3]
***----------传递ID、密码变量-----

sele 1
 use book_table
sele 2
 use group_table
sele 3
 use b_table
sele 4  
 use user_table
sele 5
 use mcsz
 
do form login_form

 read events