إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
* - - - - 1 صوت

ارسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

VBA OFFICE

29 رد (ردود) على هذا الموضوع

#1 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 11 January 2015 - 05:28 PM

السلام عليكم ورحمة الله وبركاته

اللهم تقبل اعمالنا لوجهك الكريم

المثال عبارة عن شاشة ترسل البيانات وتفتح ملف Ms Word 2007 موجود من سابق ومنسق جاهز وتضع البيانات في مواضع محددة مسبقا اي حيث تريد ويعتبر المثال بصراحة نقلة نوعية في التعامل مع office 2007 وبالذات بجانب الماكرو والتي تكتبه بلغة vba تدعمها Office 2007 اي بمعنى ادق تخاطب مباشر بين form 6i و vba من خلال استدعاء دوال موجودة في ملف Ms Word 2007 كتبة بلغة Vba  حيث ان وظائف الدوال ارسال بينات مربعات نص أو جملة select تنفذ في vba والتي تتصل من خلال احدى الدوال ب أوراكل وتنفيذ جمل الكويري الملف المرفق عبارة عن مجلد مضغوط اسمه OPENWORD  وفيه ملفان ملف ورد وملف شاشة ديفلوبر افتح الضغط وضع المجلد في :C مباشرة

ملاحظات هامة جدا:

لمن يعمل على windows 7 64 bit لتحيقي الاتصال با أوراكل من Office 2007  لازم إتباع الخطوات التي بالرابط في مشاركة سابقة

هل تعاني من مشكلة الاقواس في المسار C:\program Files (x86)

http://www.araboug.o...showtopic=57597

يجب تفعيل الماكرو في Ms Word 2007

هذه صورة الشاشة :

bk7yE.png

 

وهذه صورة الملف الورد قبل ادخال البيانات:

4sGb0v.png

وهذه صورة الملف بعد ارسال البيانات:

C7KY.png

ملفات مرفقة

  • ملف مرفق  OPENWORD.rar   72.59كيلو   653 عدد مرات التحميل

  • Mr_CoBoL و sara saedawi معجبون بهذا

م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#2 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 11 January 2015 - 05:36 PM

طبعا الاسماء في المثال لاعلام العلم والمعرفة من المشرفين ولم يسعني ذكرهم كلهم فقط 5 منهم فيعذروني الذين طرحت اسمائهم ويعذروني من لم اطرح اسمائهم فكلكم رائعين و أفكاركم منهال علم ومعرفة لهذا المنتدى

أخوكم...


م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#3 ميسم الكرام

ميسم الكرام

    عضو مميز

  • الأعضــاء
  • 2,691 مشاركة
  • الاسم الأول:-
  • اسم العائلة:-
  • البـلـد: Country Flag

تاريخ المشاركة 11 January 2015 - 06:12 PM

ما شاء الله ..عمل ممتاز ..جزاك الله خيراً


"حسبيّ الله ونعم الوكيل"


أتعرف معنى قول حسبي الله ﻭﻧﻌﻢ ﺍﻟﻮﻛﻴﻞ؟ أﻱ إﻧﻪ ﻧﻘﻞ ﻣﻠﻒ قضيته ﻣﻦ قاضي ﺍﻷﺭﺽ إلى قاضي السماء


وهل تعرف وعد الله لقائلها: (وعزّتي وجلالي لأنصرنّك ولو بعد حين)

يارب أحتسبك فيهم وأرفع إليك ملف قضيتي بأخذهم أجري لـ (٢٨١ تقرير) وإنكار جهدي وإضاعة وقتي والتطاول علي بالسب والشتم


ربي أذقهم مرارة الموقف بأخذ الأجر وإنكار الجهد وإضاعة الوقت وتطاول لفظي

ربي عدلاً وليس حقداً..سبحانك أنت العدل الحق المبين

 

((كمْا تَدين تُدان ...ولن تنجيك النذور ولا القربان)) خبِّئ هذا النَّص العادل بين أروقة فِكرك وضَعْهُ فوق رفوُفِ الحسْبان.


#4 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 11 January 2015 - 06:18 PM

شيئ أخر بالتسبة لادراج صورة كشعار في الملف مع اعطاء المحاذات لها في الاجراء أعطيته مسار موجود عندي فيجب عليكم وضع الشعار اللي تريدوه ووضع مساره كذلك


م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#5 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 11 January 2015 - 06:22 PM

واياك أختي المشرفة الفاضلة 

ميسم الكرام

صاحبة النشاط المتواصل الدؤوب وشكرا لمرورك الكريم


م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#6 Amgad

Amgad

    مشرف عام ومشرف قسم تحليل النظم

  • الفريق الإداري
  • 4,701 مشاركة
  • الاسم الأول:امجد
  • اسم العائلة:حلمي
  • البـلـد: Country Flag
  • المنصب الحالي:Business Systems Analyst at NATCOM Co. Riyadh KSA

تاريخ المشاركة 12 January 2015 - 12:13 AM

السلام عليكم ورحمة الله 

 

الأخ الفاضل / ميهال 

 

بداية : أشكرك على هذا الجهد وهذا العمل المتميز الذي يضاف الى قائمة أعمالك الرائعة التي يحتويها المنتدى 

 

افكار جديدة ..... جاري تحميل المرفقات 

 

جزاك الله خيرا 


لا إله إلا الله الحليم الكريم
لا اله إلا الله العلى العظيم
لا اله إلا الله رب السماوات السبع و رب العرش العظيم
‏اللهم ارزقني قبل الموت توبة وعند الموت شهادة وبعد الموت جنة
اللهم ارزقني حسن الخاتمة
اللهم هون علينا سكرات الموت ... ونور علينا قبورنا
اللهم ارزقني الموت وأنا ساجد لك يا ارحم الراحمين
اللهم ثبتني عند سؤال الملكين
اللهم اجعل قبري روضة من رياض الجنة ولا تجعله حفرة من حفر النار
اللهم اني اعوذ بك من فتن الدنيا
اللهم ارحم ابائنا وامهاتنا واغفر لهما وتجاوز عن سيئاتهما وادخلهم فسيح جناتك ... والحقنا بهما يا رب العالمين
اللهم ارحم موتانا وموتى المسلمين واشفي مرضانا ومرضى المسلمين
اللهم اغفر للمسلمين والمسلمات والمؤمنين والمؤمنات الأحياء منهم والأموات
وبارك اللهم على سيدنا محمد صلى الله عليه وسلم
اللهم آمين ... اللهم آمين ... اللهم آمين


....


#7 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 12 January 2015 - 01:33 AM

شكرأ لك أخي الفاضل امجد حلمي على كلامك الطيب وشكرا لمرورك الكريم


م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#8 سلطاني

سلطاني

    مشترك

  • الأعضــاء
  • 140 مشاركة
  • الاسم الأول:سلطان
  • اسم العائلة:سلطان
  • البـلـد: Country Flag

تاريخ المشاركة 12 January 2015 - 10:17 AM

السلام عليكم و رحمة الله تعالى و بركاته

ما شاء الله عمل رائع بارك الله فيك اخي و جزاك خيرا إن شاء الله



#9 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 12 January 2015 - 12:11 PM

وعليكم السلام ورحمة الله وبركاته واياك أخي سلطان وشكرا لمرورك الكريم


م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#10 anas.soft

anas.soft

    عضو مميز

  • الأعضــاء
  • 600 مشاركة
  • الاسم الأول:Anas
  • اسم العائلة:Radman
  • البـلـد: Country Flag
  • الاهتمامات:ORACLE & PHP
  • المنصب الحالي:IT Manager & Oracle Developer

تاريخ المشاركة 12 January 2015 - 12:14 PM

اخي الفاضل ميهال لا يسعني الا ان اقول لك بارك الله فيك وبارك الله لك وبارك الله عليك انت فعلا رئــــــــــــــع ...



#11 Ahmad.Hasan

Ahmad.Hasan

    مشرف قسم الـ Forms & Reports والمشاريع

  • فريق الإشراف
  • 4,906 مشاركة
  • الاسم الأول:Ahmad
  • اسم العائلة:Hasan
  • البـلـد: Country Flag
  • المنصب الحالي:HCM Senior Consultant

تاريخ المشاركة 12 January 2015 - 12:22 PM

مجهود رائع تشكر عليه أخي ميهال...


.Oracle E-Business Suite R12 HCM Certified Implementation Specialist

 

.Oracle Fusion Human Capital Management 11g Human Resources Certified Implementation Specialist

 

.Oracle Global Human Resources Cloud 2016 Certified Implementation Specialist


#12 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 12 January 2015 - 12:36 PM

شكرا لك أخي العزيز  أنس وانت أكثر من رائع وشكرا لمرورك الكريم

 

اشكرك أخي أحمد , و لا شكر على واجب وانت سباق للبذل والعطاء...

( :ph34r: )

أخوك...


م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#13 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 13 January 2015 - 02:07 PM

السلام عليكم ورحمة الله وبركاته

هناك توضيح بالنسبة للملف Ms Word والذي اسمه OPENWORD.dotm هو عبارة عن ملف من نوع template مفعل فيه ال macro لو تلا حظوا في امتداده ,ينتهي ال template  ب dot ولانه من نوع فيه ماكرو مفعل انتهى زي ما انتم شايفين ب dotm ولفتح هذا النوع لتعديل الكود اللي فيه  لا تفتحه بطريقة النقر المزدوج لانه سياخذ نسخة منه وسيفتح ملف جديد فطريقة فتحه لتعديل محتواه او كود ال vba اعمل الطريقة هذه افتح برنامج ال Ms Woerd ومن ثم افتح الملف من داخله وبعدها عدل زي ماتريد

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

Public Sub ora(ByVal sqlw As String, ByVal sqlw1 As String, ByVal sqlw2 As String, ByVal sqlw3 As String, ByVal sqlw4 As String, ByVal sqlw5 As String)
ActiveDocument.SelectContentControlsByTitle("namecon1").Item(1).Range.Text = MEEHORAQ("PRGRAMER-ME", "ORACLE", sqlw, "SCOTT", "TIGER")
ActiveDocument.SelectContentControlsByTitle("namecon2").Item(1).Range.Text = MEEHORAQ("PRGRAMER-ME", "ORACLE", sqlw1, "SCOTT", "TIGER")
ActiveDocument.SelectContentControlsByTitle("namecon3").Item(1).Range.Text = MEEHORAQ("PRGRAMER-ME", "ORACLE", sqlw2, "SCOTT", "TIGER")
ActiveDocument.SelectContentControlsByTitle("namecon4").Item(1).Range.Text = MEEHORAQ("PRGRAMER-ME", "ORACLE", sqlw3, "SCOTT", "TIGER")
ActiveDocument.SelectContentControlsByTitle("namewith1").Item(1).Range.Text = MEEHORAQ("PRGRAMER-ME", "ORACLE", sqlw4, "SCOTT", "TIGER")
ActiveDocument.SelectContentControlsByTitle("namewith2").Item(1).Range.Text = MEEHORAQ("PRGRAMER-ME", "ORACLE", sqlw5, "SCOTT", "TIGER")
End Sub

الاسم PRGRAMER-ME  يمثل اسم الكمبيوتر المنزل فيه قاعدة البيانات 

الاسم ORACLE يمثل اسم قاعدة البيانات

والاسم SCOTT   معروف طبعا اسم المستخدم

الاسم TIGER  كلمة السر

وللتوضيح الاسماء namecon1 و namecon2 و namecon3 و namecon4 و namewith1 و namewith2  وهي الكائنات النصية في صفحة ملف الورد التي تأتيها القيم النصية من جمل الكويري المرر

طبعا الكود أعلاه بلغة VBA فيجوال بسيك ابليكيشن


م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#14 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 13 January 2015 - 02:29 PM

وهذه الدال الثانية التي تمرر القيم مباشرة الاتية من شاشة الديفلوبر الى ملف الورد Ms Word الى نفس الكائنات النصية المذكورة سابقا

Public Sub ora3(ByVal sqlw As String, ByVal sqlw1 As String, ByVal sqlw2 As String, ByVal sqlw3 As String, ByVal sqlw4 As String, ByVal sqlw5 As String)
 ActiveDocument.SelectContentControlsByTitle("namecon1").Item(1).Range.Text = sqlw
 ActiveDocument.SelectContentControlsByTitle("namecon2").Item(1).Range.Text = sqlw1
 ActiveDocument.SelectContentControlsByTitle("namecon3").Item(1).Range.Text = sqlw2
 ActiveDocument.SelectContentControlsByTitle("namecon4").Item(1).Range.Text = sqlw3
 ActiveDocument.SelectContentControlsByTitle("namewith1").Item(1).Range.Text = sqlw4
 ActiveDocument.SelectContentControlsByTitle("namewith2").Item(1).Range.Text = sqlw5
End Sub

م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9


#15 scince

scince

    عضو مميز

  • فريق الإشراف
  • 1,139 مشاركة
  • الاسم الأول:ميهال
  • اسم العائلة:مهدي
  • البـلـد: Country Flag
  • الاهتمامات:البرمجة على vc++ و# c وAndroid للموبايل
    Arduino الإلكترونيات التفاعلية و المتحكمات الد قيقة ودمجها مع اوراكل في الجانب الالكتروني من الانطمة

تاريخ المشاركة 13 January 2015 - 02:51 PM

و الدالة MEEHORAQ  التي تقوم بالاتصال بقاعدة بينات أوراكل في ملف ال Ms Word والتي تستدعيها الدالة التي تمرر جمل الكويري ora ودالة الاتصال MEEHORAQ  لن تحتاجها في حالة انك استدعيت الدالة ora3  التي تمرر قيم نصية مباشرة دون الحاجة للاتصال بقاعدة بيانات

الكود ادناه لدال الاتصال MEEHORAQ الت تقوم بانشاء كائن اتصال ADODB   برمجيا ..

اتركم مع الدالة

Function MEEHORAQ(strHost As String, strDatabase As String, strSQL As String, strUser As String, strPassword As String)
  Dim strConOracle, oConOracle, oRsOracle
  Dim StrResult As String
   StrResult = ""
  strConOracle = "Driver={Microsoft ODBC for Oracle}; " & _
         "CONNECTSTRING=(DESCRIPTION=" & _
         "(ADDRESS=(PROTOCOL=TCP)" & _
         "(HOST=" & strHost & ")(PORT=1521))" & _
         "(CONNECT_DATA=(SERVICE_NAME=" & strDatabase & "))); uid=" & strUser & " ;pwd=" & strPassword & ";"
  Set oConOracle = CreateObject("ADODB.Connection")
  Set oRsOracle = CreateObject("ADODB.Recordset")
  oConOracle.Open strConOracle
  Set oRsOracle = oConOracle.Execute(strSQL)
  Do While Not oRsOracle.EOF
      If StrResult <> "" Then
        StrResult = StrResult & Chr(10) & oRsOracle.Fields(0).Value
      Else
        StrResult = oRsOracle.Fields(0).Value
      End If
    oRsOracle.MoveNext
  Loop
  oConOracle.Close
  Set oRsOracle = Nothing
  Set oConOracle = Nothing
  ORAQUERY = StrResult
End Function

بكذا نكون اكملنا شرح مكوانات ملف ال OPENWORD.dotm البرمجية


  • Khaled Saudi معجب بهذا

م / ميهال مهدي - اليمن - عدن
من مواضيعي :

شاشة تكرار السطر الاخير من البلوك بعدد ما تريد من المرات

شاشة تقراء بيانات من Ms Excel الى جدول قاعدة بيانات أو الى بلوك في الشاشة مباشرة

رسال بيانات الى Ms Word 2007 لملف موجود مسبقا من شاشة ديلفوبر 6i باستدعاء دوال Vba

شاشة تعرض الماك ادرس و سيريال الماذربورد لمن يريدون تأمين برامجهم
شاشة تظهر الطابعة الافتراضية وتعين طابعة افتراضية انت تحدد اسمها

هل تعاني من مشكلة الاقواس في المسار
ارسال بيانات الى Ms Word 2007 من شاشة ديفلوبر 6i
شاشة إظهار Ip الخارجي والداخلي وعدة معلومات
استخدام اردوينو التحكم بدائرة كهربائية 220 فولت من خلال شاشة ديفلوبر اوراكل
شاشة قراءة رقم الهرديسك الفيزيائي بواسطة Dll على Dev 10g
قراءة بيانات الهرديسك بواسطة Activex
طريقة تشفير بيانات الهرديسك بواسطة Md5
شاشة التحكم بالمخرج Lpt بواسطة Dll على 10g و 6i
تطوير لمثال شاشة التحكم بالمخرج Lpt بواسطة Dll على 10G و 6I
شاشة تتحكم بألأزرار Caps_Lock و Num_Lock و Scrol_Locl بواسطة Dll
شاشة تحسس حالة زر Cpas Lock بواسطة Dll
شاشة تسجيل بشكل مرن التغيرات لجداول أي مستخدم وحفظها في جدول أنت تنشئه
مراقبة مستخدمين النظام انياً و تسجيل بيانات جلسة العمل
(مفاجئة)شاشة Template تم تجهيزها بواسطة الــ Object Group
إحضار بيانات من Msaccess الى Oracle
أداة تقوم بتغيير كلمة السر في أوراكل
الان يمكنك التحكم بتريجرات ازرار الوظائف Key Mapping F1-F9