كيف يتم نسخ محتوى الِ Cheklistbox نحوى قاعدة البيانات

[S.FATEH]

ربما هذا يساعدك اكثر

PHP كود :

procedure TForm1.BtnvalidateClick(Sender: TObject);
var i : integer;
begin
  if MatchPass(Users, ComboBox1.Text, UserEdt.Text) then
  begin
    for i := 0 to CheckListBox1.Count - 1 do
    if CheckListBox1.Selected[i] then
    begin
      Allow.Last;
      Allow.Insert;
      AllowN_form.AsInteger := (AllowN_form.AsInteger) + 1;;
      Allow.FieldByName('Name').AsString:= CheckListBox1.Items[i];
      Allow.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex];
      Allow.Next;
      Allow.Post;

      Use_Form.Insert;
      Use_Form.FieldByName('Authorization').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex];
      Use_Form.Next;
      Use_Form.Post;
    end;
    Btnvalidate.Enabled := False;
    ClientWidth := 355;
    ClientHeight := 473 ;
    Position := poScreenCenter;
    Btnlicensed.Enabled := True;
end;