dy_zfjj.prg

来自「本工资管理系统是一个运行于Windows 95/98 的基于图形用户界面的通用工」· PRG 代码 · 共 37 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: DY_ZFJJ.PRG 
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 MENUFLAG = .T.
 RESULT = SFGZ2
  select_str='SELECT gjjzh,a.bmh,bmmc,zgbh,zgxm,'+result+' from &bmb a INNER JOIN &gzb b ON a.bmh=b.bmh INTO TABLE gztmp'
  &select_str
 CLOSE TABLE
 SELECT GZTMP
 USE 
 ADD TABLE gztmp
 ALTER TABLE gztmp ADD COLUMN ZFJJ N ( 11 , 2 )
 SELECT GZTMP
  repl all zfjj with &result
 CLOSE TABLE
  alter table gztmp drop column &result
 CLOSE TABLE
 = DBSETPROP('gztmp.gjjzh','field','caption','公积金账号')
 = DBSETPROP('gztmp.bmh','field','caption','部门编号')
 = DBSETPROP('gztmp.bmmc','field','caption','部门名称')
 = DBSETPROP('gztmp.zgbh','field','caption','职工编号')
 = DBSETPROP('gztmp.zgxm','field','caption','姓名')
 = DBSETPROP('gztmp.zfjj','field','caption','住房公积金')
 USE gztmp
 SORT ON BMH , ZGBH TO gztmp2
 ZAP 
 APPEND FROM gztmp2
 INDEX ON BMH + ZGBH TAG BMZGH
 USE 
 DELETE File gztmp2.dbf
 CLOSE TABLE
 DO FORM f_dyzfjj
 RETURN 
*