getename.prg

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

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


 PARAMETER N_PARA1
 PRIVATE RETURNNAME
 N_PARA1 = _TYPE(N_PARA1,'N')
 IF EMPTY(M.N_PARA1)
    WAIT WINDOW 'not found eid'
 ENDIF 
 DO HANDBUSY
  SQLEXEC(HAND,'select ename from employee where eid=?m.n_para1','employeetemp')
 IF RECCOUNT('employeetemp') = 0
    WAIT WINDOW '没有发现医师:' + ALLTRIM(STR(M.N_PARA1)) + ',请与系统管理员联系'
    RETURNNAME = ''
 ELSE 
    RETURNNAME = EMPLOYEETEMP.ENAME
 ENDIF 
 RETURN M.RETURNNAME
*