main.bak

本系统采用VFP开发

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