• الإعلانات

    • فيصل الحربي

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

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

alaaqasem

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

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

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

كل شيء نشر بواسطة alaaqasem

  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. لتحويل وطباعة اى حروف او ارقام الى شكل الباركود يرجى التالى اولا نسخ الملف code128.ttf الى windows\fonts ثم اعادة تشغيل الويندوز حتى يتم تفعيل ملف الفونت تحياتى للجميع barcode.rar
  10. الاخوة الاعزاء هذا البرنامج عبارة عن شاشة تسمح لك باستعراض صور موجوده على حافظة عندك بواسطة الفوكس برو سهل جدا وسريع مهم جدا رايكم اشكركم م علاء قاسم photofox.rar
  11. صباحك خير يا أسد العراق والفوكس برو عذرا عن التكرار لكنى كتبتها لحاجة احد الزملاء ولكنى لاحظت ان لوحة المفاتيح بتتغير مع تشغيل الفورم السابق لذلك جربت الفورم التالى ونفعت بدون مشاكل       AREN.rar
  12. SUM [eExpressionList] [scope] [FOR lExpression1] [WHILE lExpression2] [TO MemVarNameList | TO ARRAY ArrayName] [NOOPTIMIZE]
  13. الابن العزيز تحياتى يوجد بهذا المنتدى الجميل كل ماتحتاج اليه فى تعلم لغة الفوكس برو بواسطة شباب أل على نفسه توصيل المعلومة باحسن الطرق على سبيل المثل لا الحصر http://www.arabteam2000-forum.com/index.php?showtopic=247063 ابدأ ونحن جميعا تحت امرك فيما يعن لك دعواتى لك بالتوفيق فى مسعاك
  14. للاسف الملف الذى ارسلته ينقصة ملفات قاعدة البيانات لكى نستطيع التعامل معه على العموم تشتطيع استخدام الصيغة التالية بعد انشاء متغير يحمل اقل قيمة بالتاريخ ومتغير يحمل اعلى قيمة بالتاريخ المطلوب استخراج التقرير بناء على اساسه ثم استخدام الصيغة التاليه بعد تصمصم شكل التقرير واعطاءة اسما شكل استخدام الامر كالتالى: 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.
  15. SharpZipLib_0860_SourceSamples.zip SharpZipLib_0860_Bin.zipSharpZipLib_0860.chmSharpZipLib_0860_Bin.zipSharpZipLib_0860.chm .NET Extender for VFP Download the file http://etecnologia.net/downloads/eTecnologiaNetExtender.zip"> http://etecnologia.n...NetExtender.zip Summary This is a DLL wich lets you use all the power of the .NET Framework from VFP, without requring Activex or COM DLLS. * You can create an instance of ANY .NET Class right from VFP with just 1 Line of code: using the function CLRCreateObject or CLRNewObject. * Put any .NET Control into VFP Forms. * Bind to .NET Events handling them in VFP. See http://www.eTecnologia.net for more information شكرا للمهندس محمود فايد فلقد قام بالمساعده فى العثور على هذا البرنامج
  16. نفرض ان العمود الذى به المبالغ اسمه amount نعطى الامر التالى SUM amount TO xx اصبح عندنا متغير اسمه xx بداخله الاجمالى الخاص بالعمود amount ثم نضع الاجمالى مكان مانريد بالجدول تحياتى
  17. سؤال و فكرة مهمة

    الابن العزيز تحياتى فى حالة طلبك لضم حقول الملف الاول الى حقول الملف الثانى فيلزم استخدام برنامج لعمل هذا حيث اننا فى كثير من الاحيان نود ان نضم بيانات موجودة فى ملفين ثم نتعامل معها بشروط معينه لذا ارجو تجربة البرنامج التالى على اعتبار ان الملف الاول اسمه db1 والملف الثانى اسمه db2 لذلك اذار اردت تنفيذ البرنامج على ملفاتك يبقى غير الاسماء ******************** SET SAFETY off SET DELETED ON CLOSE ALL USE db1.dbf COPY STRUCTURE EXTENDED TO tmp USE db2.dbf COPY STRUCTURE EXTENDED TO tmp1 USE tmp EXCLUSIVE APPEND FROM tmp1 GOTO top DO WHILE NOT EOF() fld=field_name rec=RECNO() DELETE ALL FOR field_name=fld AND RECNO()!=rec LOCATE FOR RECNO()>rec ENDDO PACK CREATE newdbf FROM tmp USE newdbf *فى حالة رغبتك فى استيراد البيانات الموجودة بالملف الاول *APPEND FROM db1 *فى حالة رغبتك فى استيراد البيانات الموجودة فى الملف الثانى *APPEND FROM db2 brow tmp.rar
  18. [تنبيه - عنوان غير مناسب : ]سؤال

    الابن العزيز تحياتى جرب انك تفتح اى ملف وتحولة لصيغة اكسيل باستخدام الامر التالى COPY TO tmp TYPE XL5 AS 1256 إذا استجاب النظام للامر بدون رسالة خطأ يبقى ملف الفونت عندك هو اللى تالف اما اذا اعطاك رسالة code page number is invalid يبقى تعريب الويندور ناقص الكود بيج ده جرب وبلغنا بالتوفيق باذن الله
  19. [تنبيه - عنوان غير مناسب : ]سؤال

    تحياتى الابن العزيز فعلا كنت اقصدك انت ربنا يبارك فيك وفى مجهوداتك وعلمك
  20. [تنبيه - عنوان غير مناسب : ]سؤال

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

    فى حالة تكرار الكود فى الملف الثانى نعمل التعديل التالى جرب هذا التعديل تحياتى SELECT t1 GO top DO WHILE !EOF() mm=t1.cod nm=t1.name SELECT t2 WAIT WINDOW mm+" "+nm NOWAIT replace all mst_bm WITH nm for mst_cd=mm SELECT t1 skip ENDDO thisform.Refresh()
  22. الابن العزيز ثائر العراق تحياتى حتى تستطيع استخدام النموذج باى تاريخ سابق او حالى او تالى قمت بتعديل النتائج كالتالى: تم تنسيق عدد الايام بحيث تكون مطلق رقم باستخدام الداله() ABS تم تعديل عنوان خانة نتيجة عدد الايام بحيث تكون متغيره كالتالى اذا كان عدد الايام اكبر من الصفر يكون العنوان " باقى من الزمن" اذا كان عدد الايام يساوى صفر يكون العنوان " حل الموعد اليوم" اذا كان عدد الايام اصغر من الصفريكون العنوان" مر من الزمن " بحيث تستطيع ويكون عندك المرونه الكاملة فى استخدام النموذج واشكرك على نشاطك بالمنتدى الجميل وليتك تستمر فى السؤال والطلبات بما يثرى ويحرك الخير م علاء قاسم dd.rar
  23. الابن العزيز تحياتى عندما اجد ان اللى طالب البرنامج حدد انه عاوز يطرح ايه من ايه بالضبط يبقى اجابتنا سليمة ثانيا لو هو عاوز شكل ناتج الطرح تاريخ يبقى سهل قوى انما استخدام شكل الطرح تاريخ نادر جدا لذلك احنا فى العادة نستخدم ناتج الجمع او الطرح عدد ايام وفى كل الاحوال توجد بالفوكس برو حلول للمطلوب بس انتم تامروا تحياتى