main_tsgl.bak

来自「本人自己制作的图书销售管理系统 功能包括图书的销售购买及库存管理、查询等功能！」· BAK 代码 · 共 42 行

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

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