用BCB编写身份证号识别程序
来源:互联网 发布:热敏打印机软件app 编辑:程序博客网 时间:2024/05/09 15:50
//按钮被单击的事件,建立一个输入框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("输入的身份证号不正确!");
}
- 用BCB编写身份证号识别程序
- 用BCB控件编写TCP/IP通讯程序的基础知识
- 用BCB编写多线程应用程序
- 用BCB编写多线程应用程序
- 用BCB编写多线程应用程序
- 用BCB编写一个改写oracle日期显示格式的程序
- 用BCB的TServerSocket和TClientSocket编写TCP/IP的通讯程序
- 根据身份证号,使用Java编写程序获取年龄、性别、出生日期
- 根据身份证号,使用Java编写程序获取年龄、性别、出生日期
- bcb编写api
- BCB编写dll(转)
- BCB编写dll
- BCB编写DLL
- BCB编写dll
- BCB编写DLL
- BCB编写dll 转载
- BCB编写dll
- BCB 用管理员身份运行程序
- 使用API创建窗体(类似VC的创建过程)
- 谈谈如何象VB IDE的Immediate一样不使用工程,可以单独执行代码片断
- 范型JAVA
- GJ Specication
- 关于使用ADOQuery控件动态执行SQL查询
- 用BCB编写身份证号识别程序
- 自动过滤选择的组合框
- 评C/C++实战之内存管理
- 内存管理源代码
- 如何模拟《WORD》的窗口形式
- delphi编译错误信息
- delphi运行错误信息
- TC2.0下写的DOS底下图形中文菜单
- 请版主删除此贴