الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

لماذا لا يقوم بتخزين ما احددهمن عنصر بالداتا بيز من قائمة الtchicklistbox

بدأه neo1115 في 19 أكتوبر 2008 · 4 رد · 640 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كلما أقوم بالضغط علي خانة التشيك بوكس في القائمة يتم تخزين كل القائمة الموجودة وهذا مالا اريده

فالمطلوب هو تخزين التكست الذي تم تحديده فقط

procedure TForm4.c1ClickCheck(Sender: TObject);

begin

dm1.tn1.Insert;

dm1.tn1.FieldByName('tn').AsString :=c1.Items.Text;

dm1.tn1.FieldByName('ln').AsString := c3.text;

dm1.tn1.post;

end;

مرفق صورة للتوضيح أكثر ما اريد

post-171324-1224426098_thumb.jpg

إجعل أدني طموحك أن تمسك النجوم ...حتي تصل الي ما تريد 





    

  

    
    

      
#2
        
        

      
  1. Procedure TForm4.c1ClickCheck(Sender: TObject);
  2. var
  3. i:Integer;
  4. begin
  5. dm1.tn1.Insert;
  6.       with c1 do
  7.     for i := 0 to Items.Count-1 do
  8.       if Checked[i] = True then
  9. dm1.tn1.FieldByName('tn').AsString := Items[i];
  10. dm1.tn1.FieldByName('ln').AsString := c3.text;
  11. dm1.tn1.post;
  12. end;
  13.  


      
      

      
Comming Soon

    

  

    
    

      
#3
        
        

      
مشكور يا اخ سويفت علي مشاركتك لي بالحل وقمت بالتجريب للكود فلقد حل المشكلة الكبري وبعد عدة تجارب تبين ان هناك مشكلة صغيرة ولكنها ليست هينة وهي ان الاختيار يجب ان يكون بالترتيب وليش عشوائيا  بمعني ....
علي سبيل المثال 
عندما أقوم بوضع علامة علي الخيار الاول فانه يقوم بتخزينها بشكل جيد ومن ثم
 اقوم بوضع علامة  علي الخيار الاخير ايضا فانه يقوم بتخزينها بشكل جيد ولكن ان وضعت علامة علي اي خيار بعد ذلك فانه يقوم بتكرار الخيار الاخير 
.....أرجو ان لكون اوضحت الصورة

      
      

      


إجعل أدني طموحك أن تمسك النجوم ...حتي تصل الي ما تريد 





    

  

    
    

      
#4
        
        

      
حسنا اخى استعمل الأمر Edit وجرب وقولى اذا لم تحل المشكلة برجاء ارفاق صورة
هذا هو الكود
  1. Procedure TForm4.c1ClickCheck(Sender: TObject);
  2. var
  3. i:Integer;
  4. begin
  5. dm1.tn1.Edit;
  6.       with c1 do
  7.     for i := 0 to Items.Count-1 do
  8.       if Checked[i] = True then
  9. dm1.tn1.FieldByName('tn').AsString := Items[i];
  10. dm1.tn1.FieldByName('ln').AsString := c3.text;
  11. dm1.tn1.post;
  12. end;
  13.  
  14.  


      
      

      
Comming Soon

    

  

    
    

      
#5
        
        

      
لقد  وجدتها يا اخ سويفت وحليت المشكلة :P 
وذلك باستخدام كلمة selected 
بدلا من cheched 
وذلك منعا للتكرار
 procedure TForm4.c1DblClick(Sender: TObject);
 var
 I: integer;
 begin
  dm1.tn1.Insert;
	  with c1 do
  for I := 0 to c1.Count-1  do
  if c1.Selected = true then

 dm1.tn1.FieldByName('tn').AsString := items ;
 dm1.tn1.FieldByName('ln').AsString := c3.text;
 dm1.tn1.post;

 end;
ولكن  كيف  أقوم  باظهار رسالة  خطا للمستخدم في حال  معاودة النقر علي نفس الايتمز مرتين ؟؟

      
      

      


إجعل أدني طموحك أن تمسك النجوم ...حتي تصل الي ما تريد 





    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…