位身份证升级为位并查询其信息.doc

--15位身份证升级为18位 并查询其信息create or replace procedure f_changecard(p_cert_num in varchar2)asv_cert_num varchar2(30);v_type varchar2(20);v_sum varchar2(10);--v_sum_m varchar2(10);v_yu varchar2(4);v_new varchar(30);v_nian varchar(4);v_yue varchar(4);v_ri varchar(4);v_sex varchar2(2);v_sf varchar2(10);v_sf_f varchar2(4);--v_yu_y varchar2(4);begin execute immediate 'select length(:p_cert_num) from dual'into v_type using p_cert_num;execute immediate 'select (select substr((select :p_cert_num from dual),1,6) from dual )||19||(select substr((select :p_cert_num from dual),7,9) from dual) from dual'into v_cert_numusing p_cert_num,p_cert_num;--判断身份证是否为15位if v_type<>15 then dbms_output.put_line('请输入证件号为15位的身份证信息'); else --校验取余 v_sum:=substr(v_cert_num,1,1)*7 + substr(v_cert_num,2,1)*9 + substr(v_cert_num,3,1)*10 + substr(v_cert_num,4,1)*5 + substr(v_cert_num,5,1)*8 + substr(v_cert_num,6,1)*4 + substr(v_cert_num,7,1)*2 + substr(v_cert_num,8,1)*1 + substr(v_cert_num,9,1)*6 + substr(v_cert_num,10,1)*3 + substr(v_cert_num,11,1)*7 + substr(v_cert_num,12,1)*9 + substr(v_cert_num,13,1)*10 + substr(v_cert_num,14,1)*5 + substr(v_cert_num,15,1)*8 + substr(v_cert_num,16,1)*4 + substr(v_cert_num,17,1)*2 ; --取出生年月 v_nian:=substr(v_cert_num,7,4); v_yue:=substr(v_cert_num,11,2); v_ri:=substr(v_cert_num,13,2); --取性别 v_sex:=substr(v_cert_num,17,1); --取地区 v_sf:=substr(v_cert_num,1,6); v_sf_f:=substr(v_cert_num,1,2); --7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 v_yu:=mod(v_sum,11);--0 1 2 3 4 5 6 7 8 9 10,1 0 X 9 8 7 6 5 4 3 2 --得出新18位证件号 if v_yu=0 then v_new:=v_cert_num||'1' ; elsif v_yu=1 then v_new:=v_cert_num||'0' ; elsif v_yu=2 then v_new:=v_cert_num||'X' ; elsif v_yu=3 then v_new:=v_cert_num||'9' ; elsif v_yu=4 then v_new:=v_cert_num||'8' ; elsif v_yu=5 then v_new:=v_cert_num||'7' ; elsif v_yu=6 then v_new:=v_cert_num||'6' ; elsif v_yu=7 then v_new:=v_cert_num||'5' ; elsif v_yu=8 then v_new:=v_cert_num||'4' ; elsif v_yu=9 then v_new:=v_cert_num||'3' ; elsif v_yu=10 then v_new:=v_cert_num||'2'; end if; --判断新产生的18位身份证号码真伪 依据月份 日期判断 只能。

if v_yue between '01' and '12' then case when v_ri between '01'and '31' then dbms_output.put_line('您的18位身份证号是：'||v_new);dbms_output.put_line ('您的生日是：'||v_nian||'年'||v_yue||'月'||v_ri||'日');if mod(v_sex,2)=1 then dbms_output.put_line('性别：阳光宅男');else dbms_output.put_line('性别：大龄宅女');end if;if v_sf_f=63 thencase when v_sf=630000then dbms_output.put_line('青海省');when v_sf=630100then dbms_output.put_line('青海省西宁市');when v_sf=630101then dbms_output.put_line('青海省西宁市市辖区');when v_sf=630102then dbms_output.put_line('青海省西宁市城东区');when v_sf=630103then dbms_output.put_line('青海省西宁市城中区');when v_sf=630104then dbms_output.put_line('青海省西宁市城西区');when v_sf=630105then dbms_output.put_line('青海省西宁市城北区');when v_sf=630121then dbms_output.put_line('青海省西宁市大通回族土族自治县');when v_sf=632100then dbms_output.put_line('青海省海东地区');when v_sf=632121then dbms_output.put_line('青海省海东地区平安县');when v_sf=632122then dbms_output.put_line('青海省海东地区民和回族土族自治县');when v_sf=632123then dbms_output.put_line('青海省海东地区乐都县');when v_sf=632124then dbms_output.put_line('青海省海东地区湟中县');when v_sf=632125then dbms_output.put_line('青海省海东地区湟源县');when v_sf=632126then dbms_output.put_line('青海省海东地区互助土族自治县');when v_sf=632127then dbms_output.put_line('青海省海东地区化隆回族自治县');when v_sf=632128then dbms_output.put_line('青海省海东地区循化撒拉族自治县');when v_sf=632200then dbms_output.put_line('青海省海北藏族自治州');when v_sf=632221then dbms_output.put_line('青海省海北藏族自治州门源回族自治县');when v_sf=632222then dbms_output.put_line('青海省海北藏族自治州祁连县');when v_sf=632223then dbms_output.put_line('青海省海北藏族自治州海晏县');when v_sf=632224then dbms_output.put_line('青海省海北藏族自治州刚察县');when v_sf=632300then dbms_output.put_line('青海省黄南藏族自治州');when v_sf=632321then dbms_output.put_line('青海省黄南藏族自治州同仁县');when v_sf=632322then dbms_output.put_line('青海省黄南藏族自治州尖扎县');when v_sf=632323then dbms_output.put_line('青海省黄南藏族自治州泽库县');when v_sf=632324then dbms_output.put_line('青海省黄南藏族自治州河南蒙古族自治县');when v_sf=632500then dbms_output.put_line('青海省海南藏族自治州');when v_sf=632521then dbms_output.put_line('青海省海南藏族自治州共和县');when v_sf=632522then dbms_output.put_line('青海省海南藏族自治州同德县');when v_sf=632523then dbms_output.put_line('青海省海南藏族自治州贵德县');when v_sf=632524then dbms_output.put_line('青海省海南藏族自治州兴海县');when v_sf=632525then dbms_output.put_line('青海省海南藏族自治州贵南县');when v_sf=632600then dbms_output.put_line('青海省果洛藏族自治州');when v_sf=632621then dbms_output.put_line('青海省果洛藏族自治州玛沁县');when v_sf=632622then dbms_output.put_line('青海省果洛藏族自治州班玛县');when v_sf=632623then dbms_output.put_line('青海省果洛藏族自治州甘德县');when v_sf=632624then dbms_output.put_line('青海省果洛藏族自治州达日县');when v_sf=632625then dbms_output.put_line('青海省果洛藏族自治州久治县');when v_sf=632626then dbms_output.put_line('青海省果洛藏族自治州玛多县');when v_sf=632700then dbms_output.p。