استرجاع السجلات من قاعدة البيانات و عرضها في checklistbox

Anter2010

  • Newbie
  • *
    • مشاركة: 4
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: كانون الثاني 19, 2013, 12:35:04 مسائاً
السلام عليكم و رحمة الله تعالى و بركاته
مساعدة من فضلكم في هذا الكود المتمثل في استرجاع السجلات من قاعدة بياناتحيث احد السجلات ذات قيمة بولينية vrai/ faux

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

end.


Anter2010

  • Newbie
  • *
    • مشاركة: 4
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: كانون الثاني 22, 2013, 08:33:02 مسائاً
السلام عليكم و رحمة الله تعالى و بركاته

تم ايجاد الحل باذن الله و هذا الكود لنقل البيانات من قاعدة البينات الى Checklistbox
procedure TForm1.Button2Click(SenderTObject); 
var 
  
iInteger
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;  


ING_HYD

  • Hero Member
  • *****
    • مشاركة: 1124
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
Salam
Bravo et bonne chance