getdptna.prg

来自「门诊收费管理系统」· PRG 代码 · 共 24 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: GETDPTNA.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER N_PARA1
 PRIVATE RETURNNAME
 N_PARA1 = _TYPE(N_PARA1,'N')
 IF EMPTY(M.N_PARA1)
    WAIT WINDOW 'not found dpt!'
    RETURN 
 ENDIF 
 DO HANDBUSY
  SQLEXEC(HAND,'select dptname from dpt where dptid=?m.n_para1','dpttemp')
 IF RECCOUNT('dpttemp') = 0
    WAIT WINDOW '没有发现科室:' + ALLTRIM(STR(M.N_PARA1)) + ',请与系统管理员联系'
    RETURNNAME = ''
    RETURN 
 ELSE 
    RETURNNAME = DPTTEMP.DPTNAME
    RETURN RETURNNAME
 ENDIF 
*