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;