zlsj.prg

vfp的进销存系统

*整理数据模块
*程序名：zlsj
*程序员：
*开发日期：
*修改日期：
*修改记录：

*变量说明


private all except p_*

*do jrz with p_gzrrxm,'开始整理数据'

sjks=23
dimension sjk(sjks)

sjk(1)='bxtc'
sjk(2)='chd'
sjk(3)='ckrjz'
sjk(4)='ckzz'
sjk(5)='dxbx'
sjk(6)='dxkrjz'
sjk(7)='dxkzz'
sjk(8)='dxpdb'
sjk(9)='dxs'
sjk(10)='dxth'
sjk(11)='dxxsz'
sjk(12)='fkfs'
sjk(13)='ghs'
sjk(14)='gzrr'
sjk(15)='jhd'
sjk(16)='rzk'
sjk(17)='spk'
sjk(18)='thtc'
sjk(19)='xsbx'
sjk(20)='xsrjz'
sjk(21)='xsth'
sjk(22)='ysk'
sjk(23)='zbpdb'

dhxx1='正在整理数据，请稍候...'
do form xxts name xxts
for jsq=1 to sjks
  do dksjk with sjk(jsq),sjk(jsq)
  reindex
endfor
xxts.release