ITPub博客

首页 > 应用开发 > IT综合 > 用BCB编写身份证号识别程序 (转)

用BCB编写身份证号识别程序 (转)

原创 IT综合 作者:amyz 时间:2007-10-31 10:26:55 0 删除 编辑
用BCB编写身份证号识别程序 (转)[@more@]

//按钮被单击的事件,建立一个输入框EDIT1和一个标签LABEL1以及一个按钮BUTTON1
void __fastcall TForm1::Button1Click(Tobject *Sender)
{
AnsiString a,b,c,d,f;
AnsiString EditText = Edit1->Text;
int e;
e=StrLen(EditText.c_str());
if (e==18)
{
Edit1->SelStart=6;
Edit1->SelLength=4;
a=Edit1->SelText;
Edit1->SelStart=10;
Edit1->SelLength=2;
b=Edit1->SelText;
Edit1->SelStart=12;
Edit1->SelLength=2;
c=Edit1->SelText;
Edit1->SelStart=16;
Edit1->SelLength=1;
d=Edit1->SelText;
if((StrToInt(d)%2)==1)
{
f="男";
}
else
{
f="女";
}
Label1->Caption="您是"+a+"年"+b+"月"+c+"日生人!"+f+"性!"+Trim(IntToStr(e))+"位证号!";
return;
}
if (e==15)
{
Edit1->SelStart=6;
Edit1->SelLength=2;
a="19"+Edit1->SelText;
Edit1->SelStart=8;
Edit1->SelLength=2;
b=Edit1->SelText;
Edit1->SelStart=10;
Edit1->SelLength=2;
c=Edit1->SelText;
Edit1->SelStart=14;
Edit1->SelLength=1;
d=Edit1->SelText;
if((StrToInt(d)%2)==1)
{
f="男";
}
else
{
f="女";
}
Label1->Caption="您是"+a+"年"+b+"月"+c+"日生人!"+f+"性!"+Trim(IntToStr(e))+"位证号!";
return;
}
ShowMessage("输入的身份证号不正确!");
}


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-979871/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339142