CheckListBox的一些用法！

//填充
strsql:='select cDepName ,cDepCode from department';
rs.Close;
rs.SQL.Clear;
rs.SQL.Add(strsql);
rs.Open;
CheckListBox1.Clear;
while not rs.Eof do
begin
ChecklistBox1.Items.Add(rs.FieldValues['cDepName']);
rs.Next;
end;
//改变数据库中的字段值
procedure Tfrmquanxian.CheckListBox1ClickCheck(Sender: TObject);
var
strsql:string;
begin
//showmessage(CheckListBox1.Items[CheckListBox1.ItemIndex]+' '+DBGrid3.DataSource.DataSet.FieldValues['dl_yhm']);
if checklistbox1.checked[checklistbox1.itemindex] then
strsql:='update quanxian set qx_shifou=1 where qx_mk='''+trim(CheckListBox1.Items[CheckListBox1.ItemIndex])+'''and qx_ren='''+trim(DBGrid3.DataSource.DataSet.FieldValues['dl_yhm'])+''' '
else
strsql:='update quanxian set qx_shifou=0 where qx_mk='''+trim(CheckListBox1.Items[CheckListBox1.ItemIndex])+'''and qx_ren='''+trim(DBGrid3.DataSource.DataSet.FieldValues['dl_yhm'])+''' ';
rs.Close;
rs.SQL.Clear;
rs.SQL.Add(strsql);
rs.ExecSQL;
end;