|
——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> 通过身份证号获取年龄 在设计数据库时如果表中有身份证号字段就可以不添加年龄字段因为年龄可以根据身份证号计算出来也符合范式要求本例是在录入身份证号文本框中录入身份证号单击提取年龄按钮在年龄文本框中显示通过身份证号计算出来的年龄如图所示 http://developcsaicn/delphi/images/jpg> 图 通过身份证号获取年龄 在提取年龄按钮的单击事件中首先判断身份证号码位数（位还是位）然后按照不同位数的身份证号的编码规则解析字段串从中提取出年份然后与当前年份相减即可主要代码如下 procedure TFormButtonClick(Sender: TObject); var Year: String; CardNo: String; begin CardNo := Trim(EditCardNoText); if Length(CardNo) = then Year := + Copy(CardNo ); if Length(CardNo) = then Year := Copy(CardNo ); EditAgeText := IntToStr(YearOf(Date) StrToInt(Year)); end; 说明使用YearOf方法需要引用DateUtils单元 根据用户输入需求自动调整输入法 在应用程序中可以根据用户的不同习惯自定义使用的输入法这样使程序更加灵活更加便捷本例是实现在不同的文本框切换不同的输入法的功能如图所示 http://developcsaicn/delphi/images/jpg> 图 根据用户输入需求自动调整输入法 right>[] [http://developcsaicn/delphi/htm>] |
