dy_gzb.prg

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

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


 MENUFLAG = .T.
 SELECT_STR = 'yhzh,a.bmh,bmmc,zgbh,zgxm,fs,'
 USE (GZXMB)
 GO 8
 DO WHILE  .NOT. EOF()
 SELECT_STR = SELECT_STR + ALLTRIM(FIELD_NAME) + ','
 SKIP 
 ENDDO 
 SELECT_STR = SUBSTR(SELECT_STR,1,LEN(SELECT_STR) - 1)
 SELECT_STR =  ;
      SELECT_STR + ' from ' + BMB + ' a INNER JOIN ' + GZB +  ;
' b ON a.bmh=b.bmh INTO TABLE gztmp'
  select &select_str
 CLOSE TABLE
 SELECT GZTMP
 USE 
 ADD TABLE gztmp
 = DBSETPROP('gztmp.yhzh','field','caption','银行账号')
 = DBSETPROP('gztmp.bmh','field','caption','部门编号')
 = DBSETPROP('gztmp.bmmc','field','caption','部门名称')
 = DBSETPROP('gztmp.zgbh','field','caption','职工编号')
 = DBSETPROP('gztmp.zgxm','field','caption','姓名')
 = DBSETPROP('gztmp.fs','field','caption','工资发放方式')
 USE (GZXMB)
 GO 8
 DO WHILE  .NOT. EOF()
 FIELNAME = 'gztmp.' + ALLTRIM(FIELD_NAME)
 = DBSETPROP(FIELNAME,'field','caption',NAME)
 SKIP 
 ENDDO 
 USE 
 USE gztmp
 SORT ON BMH , ZGBH TO gztmp2
 ZAP 
 APPEND FROM gztmp2
 INDEX ON BMH + ZGBH TAG BMZGH
 USE 
 DELETE File gztmp2.dbf
 USE gztmp ORDER bmzgh
 DO FORM f_dygzb
 RETURN 
*