|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как сохранить несколько флаков в 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; |