📄 check_blbh.prg
字号:
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* 文件名: CHECK_BLBH.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
PROCEDURE check_blbh
LPARAMETER C_BLBH
LOCAL T_MESSAGE
IF LEN(ALLTRIM(C_BLBH)) < 10
T_MESSAGE = '当前人员的病历编号为空或者其长度不为10位号码。'
ELSE
LOCATE FOR 病历编号 = C_BLBH
T_MESSAGE = IIF(EOF(),'','当前的人员病历编号已被占用,')
ENDIF
RETURN T_MESSAGE
ENDPROC
*------*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -