//根据身份证地址拆分省市区
//身份证号
social_no := cdsIDcardDataTmp.FieldByName('social_no').AsString;
//身份证地址
home_street := cdsIDcardDataTmp.FieldByName('home_street').AsString;
//查询省市字典表
with cdsSql do
begin
Close;
Data := Null;
CommandText := 'select top 1 * from zd_district_code '
+ ' where name = SUBSTRING(' + QuotedStr(home_street) + ', 1, LEN(name)) '
+ ' order by LEN(name) desc ';
Open;
//返回地区编码
if not IsEmpty then
home_district := Trim(FieldByName('name').AsString)
else
home_district := copy(social_no, 1, 6);
end;