- 博客(2)
- 资源 (1)
- 收藏
- 关注
RSS订阅转载 cxgrid全选
procedure TWebOrder.SelectAll; var iSelected: Integer; begin iSelected := 0; if DataSet.RecordCount = 0 then Exit; try DataSet.DisableControls; DataSet.First; case Da
2015-06-12 12:57:32
892
转载 delphi身份证验证
uses DateUtils; const IntMultiplication: Array[1..17] Of Integer=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2); //函数名：IsRightID //参数：sID，身份证号码 （输入） //返回值：sID是标准身份证号，返回OK，否则返回相应信息 function IsRi
2015-06-04 13:44:31
735
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人