delphi---checkbox+数据库的显示问题

Question

再重复一下，我觉得是在下面的写好就行了
procedure Taddress.StrEdit; //---过程的作用 
begin 
  Edit1.Text := ADOQuery1.fieldbyname('autono').AsString; 
  Edit2.Text := ADOQuery1.fieldbyname('id').AsString; 
  Edit3.Text := ADOQuery1.fieldbyname('name').AsString; 
  Edit4.Text := ADOQuery1.fieldbyname('sex').AsString; 
  Edit5.Text := ADOQuery1.fieldbyname('tel').AsString; 
  Edit6.Text := ADOQuery1.fieldbyname('mobil').AsString; 
  DateTimePicker1.Datetime := ADOQuery1.fieldbyname('UPDATETIME').AsDateTime; 
  //DateTimePicker4.Datetime := ADOQuery1.fieldbyname('uptime').AsDateTime; 
  DateTimePicker2.Datetime := ADOQuery1.fieldbyname('selecttime').AsDateTime;   if 性别＝'女' then 
  checkbox1.Checked:=true; 
  就是上面这两行怎么写？谢谢大家! end; 我都搞了一个星期了，没有一点的进展，那位能帮我写一下，感激不尽！！！

Answer 1

把StrEdit放在DataSource的DateChange里面不就可以了？

Answer 2

procedure Taddress.StrEdit; //---过程的作用 
begin 
  Edit1.Text := ADOQuery1.fieldbyname('autono').AsString; 
  Edit2.Text := ADOQuery1.fieldbyname('id').AsString; 
  Edit3.Text := ADOQuery1.fieldbyname('name').AsString; 
  Edit4.Text := ADOQuery1.fieldbyname('sex').AsString; 
  Edit5.Text := ADOQuery1.fieldbyname('tel').AsString; 
  Edit6.Text := ADOQuery1.fieldbyname('mobil').AsString; 
  DateTimePicker1.Datetime := ADOQuery1.fieldbyname('UPDATETIME').AsDateTime; 
  //DateTimePicker4.Datetime := ADOQuery1.fieldbyname('uptime').AsDateTime; 
  DateTimePicker2.Datetime := ADOQuery1.fieldbyname('selecttime').AsDateTime;   if Edit4.Text＝'女' then 
  checkbox1.Checked:=true; 
  else if Edit4.Text＝'男' then 
  checkbox2.Checked:=true;end; 

Answer 3

procedure Taddress.StrEdit; //---过程的作用 
begin 
  Edit1.Text := ADOQuery1.fieldbyname('autono').AsString; 
  Edit2.Text := ADOQuery1.fieldbyname('id').AsString; 
  Edit3.Text := ADOQuery1.fieldbyname('name').AsString; 
  Edit4.Text := ADOQuery1.fieldbyname('sex').AsString; 
  Edit5.Text := ADOQuery1.fieldbyname('tel').AsString; 
  Edit6.Text := ADOQuery1.fieldbyname('mobil').AsString; 
  DateTimePicker1.Datetime := ADOQuery1.fieldbyname('UPDATETIME').AsDateTime; 
  //DateTimePicker4.Datetime := ADOQuery1.fieldbyname('uptime').AsDateTime; 
  DateTimePicker2.Datetime := ADOQuery1.fieldbyname('selecttime').AsDateTime;   //初始化
  checkbox1.Checked:=false;
  checkbox2.Checked:=false;  if Edit4.Text＝'女' then 
  checkbox1.Checked:=true; 
  else if Edit4.Text＝'男' then 
  checkbox2.Checked:=true; end; 

Answer 4

if Trim(Edit4.Text)='男' then
 begin
   checkbox1.checked:=True;
   checkbox2.checked:=False;
 end;
if Trim(Edit4.Text)='女' then
 begin
   checkbox1.checked:=False;
   checkbox2.checked:=True;
 end;

Answer 5

if Trim(ADOQuery1.fieldbyname('sex').AsString)='男' then
begin
  checkbox1.checked:=True;
  checkbox2.checked:=False;
end;
if Trim(ADOQuery1.fieldbyname('sex').AsString)='女' then
begin
  checkbox1.checked:=False;
  checkbox2.checked:=True;
end;

Answer 6

procedure Taddress.StrEdit; //---过程的作用 
begin 
  Edit1.Text := ADOQuery1.fieldbyname('autono').AsString; 
  Edit2.Text := ADOQuery1.fieldbyname('id').AsString; 
  Edit3.Text := ADOQuery1.fieldbyname('name').AsString; 
  Edit4.Text := ADOQuery1.fieldbyname('sex').AsString; 
  Edit5.Text := ADOQuery1.fieldbyname('tel').AsString; 
  Edit6.Text := ADOQuery1.fieldbyname('mobil').AsString; 
  DateTimePicker1.Datetime := ADOQuery1.fieldbyname('UPDATETIME').AsDateTime; 
  //DateTimePicker4.Datetime := ADOQuery1.fieldbyname('uptime').AsDateTime; 
  DateTimePicker2.Datetime := ADOQuery1.fieldbyname('selecttime').AsDateTime; 
  checkbox1.Checked:=false; 
  checkbox2.Checked:=false;   if Edit4.Text＝'女' then 
  checkbox1.Checked:=true; 
  else if Edit4.Text＝'男' then 
  checkbox2.Checked:=true; end;