الرئيسية      أرشيف المقالات       المنتدى        المكتبة       إتصل بنا
  القائمة الرئيسية
  Language
  تسجيل الدخول
اسم المستخدم :

كلمة المرور :

تذكرني



هل نسيت كلمة المرور ؟

اشترك الآن !
  بحث
  أقسام المقالات
  آخر المشاركات
  كتب جديدة
 
  زوار هذه الصفحة
اليوم 313
أمس 379
الإجمالي 161012
  الموقع

فهرس المنتدى » كل المشاركات (كمال)




ارجو مراجعة الكود الاتي
#1
مشترك
مشترك

السلام عليكم ...
ارجو مراجعة الكود الاتي .. لاني اول مره استخدم الحلقات هذا الاستخدام و شاكك في استخدام المتغير (I) ...
طبعا انا من المبتدئين في استخدام البرمجة ....لذلك وحده وحده علي ...
جزاكم الله خيرا

procedure TForm6.Button1Click(SenderTObject);
var
I:Integer;
begin
      
For I:=1 To 12 Do
   
begin
      with form1
.ADOQuery1 do
 
Begin
 Close
;
 
SQL.Clear;
 
SQL.Add('Insert Into Elag[I]  Select no,'','','','p' From ');
 
SQL.Add('kesm Where No Not In (Select No From Elag[I]) ');
 
ExecSQL;
 
ShowMessage('OK');
end;
End;
End;


حررت بواسطة عروة عيسى في 2016/11/12 21:20:24
أرسلت بتاريخ: 2016/11/11 12:44
تقرير   أعلى










عروة نت 2003-2016 . بالاعتماد على زوبس