Как сохранить несколько флаков в CheckListBox
Как используя CheckListBox можно в параметрах сохранить несколько вариантов ответа? В моем примере я выбираю только 1.
SQL.CLear;
SQL.Add('INSERT INTO Contractors( kod,kriterii,in_krit)');
SQL.Add('VALUES(:kod,:kriterii,:in_krit)');
Parameters[0].Value := String(Edit1.text);
q2.Close;
q2.SQL.Text:='select kod_krit from kriterii where kriterii = :r';
for j:=0 to checklistbox2.Items.Count-1 do
if checklistbox2.Checked[j] then k:=j;
q2.Parameters.ParamByName('r').Value:=string(check listbox2.Items.Strings[k]);
q2.Open;
if q2.Fields[0].AsInteger = 7 then begin
Parameters[1].Value:=0;
Parameters[2].Value:=string(edit16.Text);
end else begin
Parameters[1].Value:=q2.Fields[0].AsInteger;
Parameters[2].Value:=string('');
end;
adoquery1.ExecSQL;
|