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

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته

كيف يتم نقل محتوي ال Checklistbox الى قاعدة البيانات وحفظ اعدادات Adminstrator

PHP كود :

procedure TForm1.BtnvalidateClick(Sender: TObject);
var x,t : Integer;
       r:string;
begin
 if MatchPass(Users,ComboBox1.Text,UserEdt.Text) then
begin
   For x:=0 To (CheckListBox1.Items.Count-1) do
     if CheckListBox1.Selected[x] then
          begin
         r:=r+CheckListBox1.items[x];
         Allow.Last;
         t:= AllowN_form.AsInteger + 1;
         Allow.Insert;
         AllowN_form.AsInteger:=t;
         Allow.FieldByName('Name').AsString:= r;
         Allow.FieldByName('Active').AsBoolean:= true;
         Allow.Next;
         Allow.Post;

     Use_Form.Insert;
     Use_Form.FieldByName('Authorization').AsBoolean:= true;
     Use_Form.Next;
     Use_Form.Post;
         //******************************************************//
                   end
          else
          Use_Form.FieldByName('Authorization').AsBoolean:= false;
          Allow.FieldByName('Active').AsBoolean:= false;
     end;
Btnvalidate.Enabled:=False;ClientWidth:=355;ClientHeight:=473 ;
Position:=poScreenCenter;Btnlicensed.Enabled:=True;
     end; 


لكل من لديه فكرة المحاولة في المرفق

[S.FATEH]

السلام عليكم

لديك مجموعة من CheckBox تريد ان تنقل قيمها البولينية الى قاعدة البيانات

PHP كود :

begin
  for i := 0 to CheckListBox1.Count - 1
  begin
     Allow.FieldByName('Name').AsString:= CheckListBox1.Items[i];
     Allow.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex];
  end;
end; 


PHP كود :

r:=r+CheckListBox1.items[x]; 


لماذا تضيف النص الذي قبله الى النص الجديد !!!
الاصح

PHP كود :

r := CheckListBox1.Items[x] 


PHP كود :

Allow.FieldByName('Active').AsBoolean:= true; 


ماذا لو لم تكن للمستخدم الصلاحية اي False
الاصح

PHP كود :

Allow.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[CheckListBox1.ItemIndex]; 


و الله اعلم

سلامي

[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; 


[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته

تم ايجاد الحل باذن الله

PHP كود :

procedure TForm1.BtnvalidateClick(Sender: TObject);
var x : integer;
    begin
   for x:=0 to CheckListBox1.Items.Count -1 do
  begin
              Allow1.insert;
       Allow1.FieldByName('N_Form').AsInteger:=
       Allow1.RecordCount + 1;
       
       Allow1.FieldByName('Name').AsString:= CheckListBox1.Items.Strings[x];
      
       Allow1.FieldByName('Active').AsBoolean:= CheckListBox1.Checked[x];
      end;
end; 


[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته

الكود التالي يتمثل في تحميل سجل من قاعدة بيانات هناك خلل لم اجد له الحل هو الخانة التي تحتوي على القيمة المنطقية نعم ام لا كيف نحملها في Checklistbox ؟

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
qx.Items.BeginUpdate;
try
   while not Use_Form.Eof do
  begin
   qx.Items.Add(Use_Form.FieldByName('Name').AsString);
   Use_Form.Next;
  end;
finally
  qx.Items.EndUpdate;
end;
end;

end. 


[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته

تم ايجاد الحل باذن الله و هذا الكود لنقل البيانات من قاعدة البينات الى Checklistbox

PHP كود :

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  qx.Items.BeginUpdate;
try
  while not Use_Form.Eof
  do begin
    i := qx.Items.Add(Use_Form.FieldByName('Name_').AsString);
    qx.Checked[i] := Use_Form.FieldByName('Authorization').AsBoolean;
    Use_Form.Next;
  end;
finally
  qx.Items.EndUpdate;
end;
end;