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

最新推荐文章于 2023-04-23 14:42:24 发布

原创最新推荐文章于 2023-04-23 14:42:24 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#button #c

Borland C++ Builder 专栏收录该内容

1 篇文章

订阅专栏

博客展示了按钮被单击事件的代码，通过建立输入框、标签和按钮，对输入的身份证号进行解析。根据身份证号长度（18位或15位）提取出生年月日和性别信息，并显示在标签上，若输入不正确则给出提示。

//按钮被单击的事件，建立一个输入框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("输入的身份证号不正确！");
}