Question

delphi 数据库字段赋值

刚学delphi,问个简单的问题，不要笑我？
有回答的最好详细些，呵呵，要不然看不懂呀！
delphi 运用ADO连接access数据库，用Dbedit控件向数据库输入数据，现在我想在Dbedit3中输入数据（身份证号），然后通过判断，将性别直接填入数据库字段中（或Dbedit4），怎么样实现？先谢谢了！

Answer 1

身份证判断男女的条件:倒数第二位是奇数的是男性,是偶数的是女性。
我们要做的第一步就是把倒数第二位取出来，然后赋值给一个变量。
procedure TForm1.Button1Click(Sender: TObject);
var sex:integer;
begin
sex:=strtoint(Copy(Dbedit3.text,17,1)); //取身份证第17位，即倒数第二位
if sex mod 2=1 then
begin
Dbedit4.text:='男'; //对2取模，余1则表示是奇数，男性
end
else Dbedit4.text:='女';
end;

在这里取身份证号倒数第二位时用到一个函数，Copy(字符串名,从第几位开始,取几位)