CheckBox和RadioButton在SQLserver2000里面读取状态，必须这么写吗？有没有简单的办法！！

Question

CheckBox和RadioButton在SQLserver2000里面读取状态，必须这么写吗？有没有简单的办法！！SQLserver2000没有boolean类型
if dm.ADOsysQuery.FieldByName('cardpaypass').AsString = '1' then
      RadioButton1.Checked:= true
     else
      RadioButton2.Checked:= true;
if dm.ADOsysQuery.FieldByName('cardpaypass').AsString = '1' then
      CheckBox1.Checked:= true

Answer 1

RadioButton1.Checked:= Boolean(dm.ADOsysQuery.FieldByName('cardpaypass').Asinteger);
RadioButton2.Checked:= not Boolean(dm.ADOsysQuery.FieldByName('cardpaypass').Asinteger);CheckBox1.Checked:= Boolean(dm.ADOsysQuery.FieldByName('cardpaypass').Asinteger);

Answer 2

RadioButton1.Checked := dm.ADOsysQuery.FieldByName('cardpaypass').AsString = '1';
RadioButton2.Checked := Not RadioButton1.Checked;CheckBox1.Checked := dm.ADOsysQuery.FieldByName('cardpaypass').AsString = '1';