现要求查询界面:不论15位或者18位身份证号都能查询出数据库中所有当前用户信息。
方案1:
create or replace function CONVERT_ID_15 (/*转换身份证号为15位*/
p_id2 in varchar2
) return varchar2
is
p_id varchar2(20);
id varchar2(15);
begin
p_id:=ltrim(p_id2);
p_id:=rtrim(p_id);
if length(p_id) = 18 then
id:=substr(p_id, 1, 6) || substr(p_id, 9, 9);
else
id:=substr(p_id, 1, 15);
end if;
return id;
exception
when others then
return null;
end
;
//delphi
s:=s + ' and CONVERT_ID_15(hf_id) = ''' + ConvertID15(edHf_id.Text) + '''';
方案2:
在代码端 把输入的身份证号统一截成15位,然后格式化成'430221%850924382%'
//15位身份证类似成18位 注意要先转成15位
function hf_id18(id15:String):String;
var
id18:String;
begin
if length(id15) = 15 then
begin
id18:=copy(id15,0,6)+'%'+copy(id15,7,9)+'%';
end
else
begin
id18:= id15;
end;
result:=id18;
end;
SQL:=SQL+' AND YQ_IDCARD like ''' + CardIdNew+'''';
查询速度甚至比方案一还稍快。