• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

alaaqasem

الخبراء المعتمدون
  • عدد المشاركات

    192
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

20 عادي

عن alaaqasem

  • الرتبة
    خبير FoxPro
  • تاريخ الميلاد 08/22/1942

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : Egypt Cairo
  • اهتمامات Programming with foxpro

أحدث الزائرين لملفلك الشخصي

6,756 زياره للملف الشخصي
  1. كود لتصدير ورقة إكسل كملف pdf

    بخصوص اوفيس 2007 يلزم تنصيب الملف المرفق بحيث تستطيع اضافة الاختيار حفظ باسم  .pdff   SaveAsPDF.rar
  2. http://stackoverflow.com/questions/5778414/revoke-vs-deny-what-is-the-difference
  3. http://www.experts-exchange.com/questions/24067488/Creating-Linked-Server-in-Sql-2008-to-Paradox-db.html  
  4. http://en.latindevelopers.com/ivancp/2012/ms-access-to-mysql-with-relationships/ http://mirrors.dotsrc.org/mysql/Downloads/MySQLGUITools/ Converting MS Access to MySQL with relationships I have used tools like MySQL Migration Toolkit (*) and Bullzip’s Access To MySQL utility, both do a excellent job but without relationships. We can spend a lot of hours to identifying and creating relationships until now: I have write a VBA script to identify MS-Access relationships and create MySQL code with SQL-CREATE sentences, it will be useful after migration process using any free tool: 'Put this function in new/existing MS-Access module. ' ' Version History: ' ' 2014-02-09 - Seamus Casey ' a modification to Ivan's handy Access to MySQL relationship/constraint generator ' ' changes include: ' 1) skip Access system tables (TableDefAttributeEnum.dbSystemObjec) ' 2) add support for cascading updates/deletes '   Public Sub printRelations() Dim sql, fk As String Dim I, J As Integer Dim db As Database Dim Table As TableDef Dim TableName As String   ' grab a reference to this once, otherwise when we retrieve a table below, ' we will get an 'Object Invalid or No Longer Set' error. Set db = CurrentDb   For I = 0 To db.Relations.Count - 1   Set Table = db.TableDefs.Item(db.Relations(I).Table)   If ((Table.Attributes And TableDefAttributeEnum.dbSystemObject) = 0) Then   sql = "ALTER TABLE `" & db.Relations(I).ForeignTable & _ "` ADD CONSTRAINT `" & db.Relations(I).Name & "` FOREIGN KEY (" fk = "(" For J = 0 To db.Relations(I).Fields.Count - 1 sql = sql & "`" & db.Relations(I).Fields(J).ForeignName & "` ," fk = fk & "`" & db.Relations(I).Fields(J).Name & "` ," Next J   sql = Left(sql, Len(sql) - 1) fk = Left(fk, Len(fk) - 1) fk = fk & ")" sql = sql & ") REFERENCES `" & db.Relations(I).Table & "`" & fk   If (db.Relations(I).Attributes And RelationAttributeEnum.dbRelationUpdateCascade) Then sql = sql & " ON UPDATE CASCADE" End If   If (db.Relations(I).Attributes And RelationAttributeEnum.dbRelationDeleteCascade) Then sql = sql & " ON DELETE CASCADE" End If   sql = sql & ";"   Debug.Print sql End If Next I End Sub
  5. أسد العراق اهلا بحضورك الجميل لا تتخيل افتقادنا لهذا المنتدى الذى كان له الفضل في التعرف على أروع شباب المبرمجين العرب سعيد بكم جدا وبعودة الدماء الى الشرايين .
  6. أحسب ان الامر يحتاج الى الاطلاع على تفاصيل قاعدة البيانات وتصميم وعناصر التقرير المطلوب استخراجه  
  7. من روعة لغة الفوكس برو انك إذا استطعت سرد الشرط فانك تستطيع كتابته منطقيا : "المطلوب عمل مجموع لهذه المبالغ على اساس كود الحساب .... " انتى هنا كتبتى الامر فاضل فقط انك تغيرى الكلمات العربية بما يقابلها من اوامر مع وضع الاكواد الحسابيه ضمن شرط الجمع ولانك انتى اللى عارفه الاكواد يبقى اعمليها  دعواتى لك بالتوفيق وتهانينا للجميع بعودة هذا المنتدى الرائع     0  
  8. من المؤكد انك لا تستخدم الامر الذى يتجاهل تماما السجلات الملغاه set deleted on ذلك لانك ترى السجل فارغا عن استخدام الامر Browes لانك ممكن تكتب الامر فى ملف ال Config بحيث يتم تفعيلة كلما فتحت الفوكس وإذا كان الموضوع الخاص بالسجل الفارغ يسبب لك ازعاج تخلص منه باستخدام الامر Pack ولاستخدام هذا الامر يجب عند فتح ملف قاعدة البيانات كتابة USE  <File name > EXCLUSIVE تحياتى تمنياتى لك بالتوفيق
  9. صباحك خير يا أسد العراق والفوكس برو عذرا عن التكرار لكنى كتبتها لحاجة احد الزملاء ولكنى لاحظت ان لوحة المفاتيح بتتغير مع تشغيل الفورم السابق لذلك جربت الفورم التالى ونفعت بدون مشاكل       AREN.rar
  10. SUM [eExpressionList] [scope] [FOR lExpression1] [WHILE lExpression2] [TO MemVarNameList | TO ARRAY ArrayName] [NOOPTIMIZE]
  11. الابن العزيز تحياتى يوجد بهذا المنتدى الجميل كل ماتحتاج اليه فى تعلم لغة الفوكس برو بواسطة شباب أل على نفسه توصيل المعلومة باحسن الطرق على سبيل المثل لا الحصر http://www.arabteam2000-forum.com/index.php?showtopic=247063 ابدأ ونحن جميعا تحت امرك فيما يعن لك دعواتى لك بالتوفيق فى مسعاك
  12. للاسف الملف الذى ارسلته ينقصة ملفات قاعدة البيانات لكى نستطيع التعامل معه على العموم تشتطيع استخدام الصيغة التالية بعد انشاء متغير يحمل اقل قيمة بالتاريخ ومتغير يحمل اعلى قيمة بالتاريخ المطلوب استخراج التقرير بناء على اساسه ثم استخدام الصيغة التاليه بعد تصمصم شكل التقرير واعطاءة اسما شكل استخدام الامر كالتالى: REPORT FORM ALLTRIM(thisform.text3.value) FOR BETWEEN(date1_a,dateBeg,dateEnd) PREVIEW شرح الصيغة كالتالى: BETWEEN(eTestValue, eLowValue, eHighValue) Parameters eTestValue Specifies an expression to evaluate. eLowValue Specifies the lower value in the range. eHighValue Specifies the upper value in the range.
  13. نفرض ان العمود الذى به المبالغ اسمه amount نعطى الامر التالى SUM amount TO xx اصبح عندنا متغير اسمه xx بداخله الاجمالى الخاص بالعمود amount ثم نضع الاجمالى مكان مانريد بالجدول تحياتى