Home      Articles archive       Forum        Library       Contact us
  Main Menu
  اللغة
  Log in
Username:

Password:

Remember me



Lost Password?

Register now!
  Search
  Article Topics
  Last Posts
 
  New Books
  This Page Visitors
Today 27
Yesterday 384
Total 997996
  Site
Report message:*
Confirmation Code*

Click to refresh the image if it is not clear enough.


Input letters in the image
The code is case-sensitive
Maximum attempts you can try: 3
 

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

Subject: ارجو مراجعة الكود الاتي
by كمال on 2016/11/11 10:44:51

السلام عليكم ...
ارجو مراجعة الكود الاتي .. لاني اول مره استخدم الحلقات هذا الاستخدام و شاكك في استخدام المتغير (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;





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