如何使用 Oracle Forms 验证 NIC 号码?
How to validate NIC Number using Oracle Forms?
国民身份证号码如下所示:878552361V
。
它包含9位数字和末尾的大写'V'
或'X'
。
如何使用 Oracle Forms 11g 库验证它?
在你的库中写一个函数如下:
FUNCTION validate_nid (p_nid IN VARCHAR2)
RETURN BOOLEAN
IS
v NUMBER;
e EXCEPTION;
BEGIN
IF LENGTH (p_nid) > 10
THEN
RAISE e;
END IF;
-- check if first 8 are alpa
v := SUBSTR (p_nid, 1, 9);
IF SUBSTR (p_nid, 10, 1) != 'V' Or
SUBSTR (p_nid, 10, 1) != 'X'
THEN
RAISE e;
END IF;
RETURN TRUE;
EXCEPTION
WHEN e
THEN
RETURN FALSE;
WHEN OTHERS
THEN
RETURN FALSE;
END;
并在 when-validate-item 触发器中调用此函数,如下所示:
if not validate_nid('878552361V') then
raise form_trigger_failure;
end if;
if (regexp_substr('876963256V','^[0-9]{9}[vV|xX]$')) is null then
raise form_trigger_failure;
end if;
国民身份证号码如下所示:878552361V
。
它包含9位数字和末尾的大写'V'
或'X'
。
如何使用 Oracle Forms 11g 库验证它?
在你的库中写一个函数如下:
FUNCTION validate_nid (p_nid IN VARCHAR2)
RETURN BOOLEAN
IS
v NUMBER;
e EXCEPTION;
BEGIN
IF LENGTH (p_nid) > 10
THEN
RAISE e;
END IF;
-- check if first 8 are alpa
v := SUBSTR (p_nid, 1, 9);
IF SUBSTR (p_nid, 10, 1) != 'V' Or
SUBSTR (p_nid, 10, 1) != 'X'
THEN
RAISE e;
END IF;
RETURN TRUE;
EXCEPTION
WHEN e
THEN
RETURN FALSE;
WHEN OTHERS
THEN
RETURN FALSE;
END;
并在 when-validate-item 触发器中调用此函数,如下所示:
if not validate_nid('878552361V') then
raise form_trigger_failure;
end if;
if (regexp_substr('876963256V','^[0-9]{9}[vV|xX]$')) is null then
raise form_trigger_failure;
end if;