+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ربط checkbox بـ قاعدة بيانات acsses (/showthread.php?tid=7828)
كيف ربط checkbox بـ قاعدة بيانات acsses - Bachirsoft - 12-05-2016
السلام عليكم
اعد برنامج ATS ، لكن هناك مشكلة في:
- عندي شهور السنة من جانفي الى ديسمبر كلها بـ checkbox وعند اختيار مجموعة من الشهور تظهر في قائمة على quickriport وشرط ان تكون متسلسلة؟ كيف انجز ذالك؟
RE: كيف ربط checkbox بـ قاعدة بيانات acsses - kito - 12-05-2016
السلام عليكم و رحمة الله و بركاته
أقترح مبدئيا انشاء اجراء يقوم بالتحقق من التحديد . في حالة التحديد اضافة الشهر إلى القائمة .كمثال استخدمت memo
كود :
procedure TForm1.cheky(roof:TCheckBox) ;
begin
if roof.Checked then
begin
Memo1.Lines.Add(roof.Caption);
end;
end; ثم تستدعي الاجراء بالترتيب . حسب اسم الشهر .
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
cheky(CheckBox1);
cheky(CheckBox2);
cheky(CheckBox3);
cheky(CheckBox4);
cheky(CheckBox5);
cheky(CheckBox6);
cheky(CheckBox7);
cheky(CheckBox8);
cheky(CheckBox9);
cheky(CheckBox10);
cheky(CheckBox11);
cheky(CheckBox12);
end; 
نعم طويل بعض الشيء ، وهذا أقصى ما يمكنني تخمينه ،موفق