• الإعلانات

    • فيصل الحربي

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

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

البحث في المنتدى

Showing results for tags 'التاريخ خلل ارقام نوع البيانات اعدادات الجهاز'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 113 نتيجة

  1. السلام عليكم ورحمة الله   لدي مشكله  وهي تكرار البيانات في الكمبو بكس مع أني غيرت العباره  Unique Value  إلى  Yes    فهل من حل لهذه المشكله ؟؟   المثال مرفق       Masroooof-30_forFixing.rar
  2. السلام عليكم ورحمة الله وبركاته ؛؛؛؛؛؛ كيف يمكن تصميم مجموعة ارقام  بالشكل التالى لكى يتم تسجيل القيم بها يدويا   بحيث اذا ادخلنا الرقم التالى 999.1.125 مثلا يتحول الشكل الى  00000125 001 999        حيث يمثل الرقم 999 رقم الفرع  - مكون من ثلاثة ارقام  - مع ضرورة وجود اصفار على يسار الرقم فى حالة عدم اكتمال الرقم الى 3 ارقام الرقم 001 رقم المنتج   - مكون من ثلاثة ارقا م   -  مع ضرورة وجود اصفار على يسار الرقم فى حالة عدم اكتمال الرقم الى 3 ارقام  الرقم 00000125 رقم الحساب  مكون من 8 ارقام-  مع ضرورة وجود اصفار على يسار الرقم فى حالة عدم اكتمال الرقم الى8 ارقام  مع الشكر     
  3. الاساتذة الافاضل والاعضاء المميزين وبالاخص أ / زهره لها مني كامل الاحترام والتحية والتقدير وانا قد تعلمت منها الكثير والكثير واطلب منها ومن الاخوة الافاضل اساتذتي الموضوع وباختصار انا صممت عدة قواعد بيانات اكسيس هنا فى الادارة و فى المصنع التابع لنا ولنا منافذ بيع ايضا واريد ربط كل هذا الثلاث اماكن او ان امكن 2 منهم فقط المصنع والادارة للمراجعة ومراجعة الحسابات وخلافة فما هي الطريقة لربط الجداول بين المكانين الادارة بالقاهرة والمصنع بالاسكندرية علما بان لدينا عدة سيرفارات هنا وهناك ولكم منا وافر الشكر والتقدير ودائما الل الامام باذن الله تعالي  
  4. مشكلة في كود

    السادة الكرام لدى نموذج يقوم بالاتصال بقاعدة البيانات  لدى مشكلة في كود التحديث انه عند وضع تحديث الزمن يظهر رسال خطأ و شكرا كما بالمرفقات
  5. بسم الله والحمد لله والصلاة والسلام علي رسول الله احبتي في الله السلام عليكم ورحمة الله وبركاته نفتح اليوم معا ان شاء الله بابا رائعا من ابواب الاكسيس وهو انشاء قواعد بيانات اكسيس لنشرها عبر شبكة الانترنت واقول نشرها وليس مشاركتها فقد تعرضنا يفضل الله لمشاركة قواعد البانات عبر الانترنت في موضوع منفصل باستخدام الـ Shared folder وذلك من خلال انشاء حساب علي Ms. Office share point ونبدأ معا اليوم ان شاء الله بوضع بذرة لهذه الشجرة التي ستثمر يوما ان شاء الله عن ثمار مذهلة وسيكون الموضوع مقسم الي ثلاثة اجزاء ان شاء الله الاول :- التعرف علي خصائص قاعدة  Access web database  وكيف يتم انشاء الجداول والنماذج والتقارير والاستعلامات وماهي الفروقات بينها وبين قاعدة البانات العادية   Desktop database ثانيا :-  تطبيق عملي  علي برنامج مخازن بسيط ثالثا :- نشر هذه القاعدة علي سيرفر والدخول اليها نبدأ  علي بركة الله اولا : - انشاء قاعدة بيانات ويب فارغة كما بالصور ويفضا استخدام اوفيس 2010 File—new—blank web database ومن الصورة يتضح ان الجديد فو اختيار رقم 2 blank web database  بدلا من الاختيار التقليدي blank database وساقوم بتسمية القاعدة الجديدة transportstors لادارة مخازن شركة النقل الثقيل ثم نضغط create  بعد تحديد موقع حفظ القاعدة صورة1    سنجد ان الاكسيس قد فتح قاعدة بيانات جديدة من النوع ويب ويبداها بفتح جدول كما نري بالصورة التاليه   وهنا نبدأ في التعامل مع واجهة مختلفة عن الاكسيس العادي وخصائص مختلفة فأول شئ ان الجدول لا يعطيني الا واجهة واحدة فقط وهي  datasheet view  ومن خلالها يتم تصميم الجدول وايضا ادخال البيانات ولا توجد هنا واجهة تصميم مثل الاكسيس العادي   ونلاحظ هنا ايضا ظهور قائمة جديدة وهي fields  رقم1 بالصورة  وقائمة  tables  رقم 2 بالصورة   وسنركز الان علي قائمة fields وهي التي من خلالها سنقوم بانشاء الحقول واعطاء الخصائص لكل حقل وهي تنقسم الي خمسة اقسام كما يلي 1 – views  رقم 3  وفيه اختيار واحد فقط وهو datasheet view 2- add & delete رقم 4  ومن خلاله نقوم بانشاء الحقوق الجديدة وما علينا الا الضغط فقط علي نوع الحقل الذي نريده مثلا text سنلاحظ انه اضاف حقلا جديد اسمه new field  وجاهز للتسمية وسنسميه names   وهناك طريقة اخري لعمل الحقول وهي بالذهاب الي رقم 8 والضغط علي المثلث بجوار    click to add وستظهر لنا قائمة بانواع الحقول نختار منها نوع الحقل وليكن lookup &relationships ليتم كتابة الوحدات ( عدد – علبة – كرتونة – جوال – كجم – متر – لفة ...) وسيتم تسمية هذا الحقل    units ونرجع الان الي التبويت الثاني وسنلاحظ وجود عدد قليل من انواع الحقول ولكن الباقي سنجدة في more fields كما يمكننا من خلال حذف القيام بحذف اي حقل نريدة 3- properties   والتي يمكن من خلالها وضع عنوان لكل حقل من خلال name & caption وتحديد طول الحقل وتغيير الويزرد والتعبيرات ... الخ وسنقوم بوضع  caption للحقول السابقة  كما يلي ( اسم الصنف  و الوحدة ) 4-  formatting ومن خلالها يمكن تغيير  خصائص الحقول 5- field validation  ومن اسمها يتضح عملها والان سنقوم بانشاء الحقول التالية اسم الصنف : -  من النوع تيكست واقصي طول له 100 حرف الوحدة :-  من النوع data lockup wizard  ويمكن عمل جدول للوحدات ولكننا سنكتفي بادراج مجموعة وحدات بسيطة (((((( والكلام يأتي ببعضه "مثل مصري" فمن الاختلافات ايضا بين القاعدة العادية والويب فهنا لا توجد علاقات كما في القواعد العادية ولكن يتم انشائها من خلال هذا ال wizard   )))))) الرصيد الافتتاحي :- عدد سعر الوحدة :- عدد القسم :- data lockup wizard   وسنقوم بانشاء جدول للا قسام يحتوي علي كود القسم واسم القسم
  6. السلام عليكم ورحمة الله وبركاته عندي مشكلتين اريد من الاخوان والاخوات الخبراء مساعدتي بها وشرحها لي المشكلة الاولى . لدي موظفي مؤسسة واريد ان اعمل لهم برنامج خاص بالاجازات الخاصة بهم اريد خانة بداية تاريخ الاجازة وخانة نهاية تاريخ الاجازة . بحيث اذا وضعت التاريخ للبداية وتاريخ للنهاية يظهر لي .. في النموذج بخانة مستقلة عدد الايام. مثال . 2/12/1434 بداية الاجازة 6/12/1434 نهاية الاجازة يظهر لي بخانة داخل النموذج بمجرد ادخال التاريخين عدد الايام فقط وهي 5 ايام . اريد شرح لهذه العملية ومساعدتي بها جزاكم الله خيراً .   والمشكلة الثانية  اريد. ان اضع لكل موظف اجازة مرضية خلال سنة كاملة 5 ايام . اذا استخدم الموظف الـ 5 ايام خلال سنة واحدة . لايحق له اخذ اجازة مرضية بنفس السنة فقط . اما فالسنة الجديدة فيمنح رصيد 5 ايام جديدة . مثال موظف طلب اجازة مرضية لمدة يومين  من تاريخ 1/12/1434 إلى 2/12/1434  يتم حساب المدة وهي 2 يومين . وتنقص من المتغير الثابت للعام وهي 5 . تصبح 3 ايام . وهكذا واذا استخدم جميع الايام 5 لايقبل البرنامج ادخال اجازة مرضية لنفس العام 1434 اما في عام اخر يبدأ العدد من جديد 5 ايام .   اتمنى تساعدوني بشرحها وجزاكم الله خير
  7. السلام عليكم ورحمة الله وبركاته الإخوة أعضاء المنتدى الكرام , أرجو مساعدتي في كتابة كود في النموذج في الخاصية عند الفتح , وذلك من أجل تحديث بيانات مربع النص المسمى " الحالة" إلى تحت التحصيل في حال كان مربع النص المسى "تاريخ الاستحقاق" أكبر من تاريخ اليوم, وتغيير الحالة الى تم الايداع في حال تاريخ الاستحقاق أصغر من تاريخ اليوم وهكذا . بحيث يكون التحديث للحالة تلقائياً عند فتح النموذج .   وسؤال آخر لو تكرمتم , في النموذج يتم فرز بيانات رقم الشيك وتاريخ الاستحقاق وذلك بمجرد إدخال أول أرقام من رقم الشيك أو تاريخ الاستحقاق وتتم عملية الفرز بنجاح وهذه طريقة تعلمتها من أعضاء المنتدى وخصوصا الأخت أم عهود جزاكم الله خيراً , ولكن أريد عمل فرز لمربع النص "الزيون/المورد" وبنفس الطريقة المستخدمة في فرز رقم الشيك , حوالت استعمال نفس الكود ولكن لم أنجح . عذراً على الاطالة ومشكوووووووووور للمساعدة   مرفق المثال db1.rar
  8. السلام عليكم و رحمة الله و بركاتة   عندي مشكلة في التقرير و لا اعرف السبب  عند رؤية التقرير اتضح لي الناتج الاجمالي خطأ و بمراجعة البيانات اتضح ان التقرير ينقص فيه بعض البيانات من رقم 2016 .. حتي 2021 و ايضا من 2024  حتي 2027 و هذا خلل في التسلسل و لا اعرف السبب و لا استطيع ان ارفع القاعدة لحجمها                                                           شكرا لاهتمامكم   
  9. السلام عليكم ورحمة الله وبركاته أخوتى الأعزاء أرجو منكم مساعدتى رجاءاً فى الآتى : 1- فى (الفاتورة والمبيعات) أريد ظهر إسم المستخدم عند الدخول يظهر على الفاتورة دون أن أقوم بإختياره من حقل بيانات الموظف . 2- فى (الفاتورة والمبيعات) أريد إلغاء ملأ حقل بيانات العميل حيث أننى من الممكن أن أبيع لأكثر من فرد فغير ضرورى إجبارى على ملأ الحقل . 3- فى (الفاتورة والمبيعات) أريد زرار أو قائمة منسدلة للإختيار فى عملية البيع بين البيع جملة وقطاعى وذلك بناءاً عن أسعار سأقوم بإضافتها فى جدول الأصناف . 4- عند التعامل مع التجار أريد عمل ( دائن - مدين ). 5- أريد حماية قاعدة البيانات من عدم التعديل عليها (Read Only) إلا إسم مستخدم معين وباسوورد معين . ملحوظة: قاعدة البيانات تم إنشاءها على أكسيس 2010 . أنا آسف على الإطالة ولكن كلى رجاءاً أن تساعدونى فى إنهاءها وهى مفتوحة المصدر لتعم الفائدة للجميع برنامج 2010.rar
  10. السّلام عليكم بسم الله الرّحمن الرّحيم   إخواني لي إستقسار من فضلكم هل بإمكاني ربط Php مع قواعد البيانات Oracl أو Access إذا كن ذلك ممكنا فالرّجاء التّوضيح بارك الله فيكم.                                                                                                                      أبي عبيدة
  11. السلام عليكم ورحمته وبركاته   عند فتح قاعدة البيانات ومحاوله اضافه اى بيانات جديدة تأتى إلى هذه الرسالة وقاعدة البيانات على السيرفر وكنت مضطرا إلى نقل البيانات من هذه القاعدة إلى قاعدة جديدة باستخدام الكود ولكنى أريد أن افهم مامعنى هذه الرساله وكيف يمكن حل المشكله بطريقه افضل وهل يمكن تجنب تلك المشكله مستقبليا   الرسالة هى warning fatal error 9001 occurred at . note the error and time and contact your system administrator   جزائكم الله خيرا فى تقومون به
  12. السلام عليكم ورحمة الله وبركاتة    مساعدة في ربط قاعدة البيانات وعرضها في textbox  و listbox   صراحة انا ماعرف كيف اربط قواعد البيانات في الدوت نت    لكن كان لي برامج بلغة vb6      البرنامج اللي اشتغل علية للاستخدام الشخصي      ومشكور لكل من يقدم المساعدة     ربط.rar
  13. السلام عليكم ورحمة الله وبركاته   ساااااعدوني :sniff:   هذا أسم مادتي ..... > DATA BASE SYSTEMS <   والدكتورة طلبت مني أرسم قاعدة بيانات (بنك) على ورق ومن بعدها نصلحها على برنامج الأكسس ماوضحت لنا كيف الطريقه بس اللي عندو أي خلفية   أرجوووكم أفيدوني؟؟؟   :tantrum: 
  14. انا جديد في قواعد البيانات واريد معرفة طريقة ترحيل البيانات تلقائيا بين سيرفر وسيرفر بعيد .. بحيث عند ورود سجل جديد في السيرفر ترحل تلقائيا الى قاعدة البيانات في السيرفر الاخر  ارجوا منكم الافادة  وشكرا
  15. لسلام عليكم ورحمة  الله     اخواني احناج مساعدتي في هذا الكود     بحثت فلم اجد المطلوب وهو كالاتي   كما واضح يالصووه بيانات معروضه على listview وضعت صوره من الاكسس قائمه لعمل تصفيه البيانات على حسب التحديد اما استبعادها او  تصفيه التحديد واستبعاد الاخر او  تصفيه لـ  او ازاله عامل التصفيه كما هو معمول بالاكسس     يوجد مثال بالمشاركه على الرابط arabteam2000-forum.com/index.php/topic/251482-هل-يوجد-كود-لإعطاء-لون-للإسماء-المتكررة-بالـ-listview/?p=1354652   تقبلوا تحياتي
  16. السلام عليكم    لدي مشكلة في التاريخ الهجري يكون متقدم عن التاريخ الحالي بيومين 
  17. اخواني الاعزاء ............ السلام عليكم ورحمة الله وبركاته عندي برنامج وصممت سندات الصرف والقبض وباقي لي مشكله في طباعتها مش عارف كيف اوزنها على ورقة السند الصرف الموجوده لدي لاني اريد الذي ينطبع التالي  1- الاسم المدخل 2- تأريخ السند 3- المبلغ رقماً وكتابتاُ 4- الكلام الموجود عند كلمة وذلك مقابل وهي تعتبر البيانات يعني سبب طبع السند او توضيح  مش عارف كيف اصمم تقارير بالاصح ورق سندات الصرف تجي صغيره وانا مش فاهم في هذا الشيئ  واريد عندما اضغط على كلمة طباعه يطبع مباشره الذي ادخلته في النموذج الحالي  وهل هناك امكانيه لاعدادات الطابعه من البرنامج مثل بعض البرامج يعني تجعل الاسم يجي فوق وتعدله مثلما تريد ترجعه يمين يسار تحت فوق والله الموضوع في غاية الاهميه  هناك ناس تقول عندما تصمم التقرير لازم تشوف كيف حجم الورقه الذي تطبع عليها يعني تختا الورق المناسب  ياليت تسااعدووني في هذا الشيئ راح ارفق الملف وانتم وشوفو MONER1.rar
  18. السلام عليكم ورحمة الله وبركاته اثناء تصفحى لموقع وزارة التربية والتعليم , وجدت صفحة رائعه . ابدع المبرمج فى تصميمها وبرمجتها http://search.moe.gov.eg/search/search_schgov.aspx هل هناك من يستطيع تقديم الدعم لنا واعطاءنا درسا فى كيفية تصميم صفحة مثل هذه الصفحة . اعلم انه درس كبير وصعب شكرا لمجهوداتكم ومنتداكم الكريم <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"><!-- saved from url=(0045)http://search.moe.gov.eg/search/sch_data.aspx --><HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>دليل المدارس المصرية - بيانات المدرسة</TITLE><META content="text/html; charset=utf-8" http-equiv=Content-Type><META name=GENERATOR content="MSHTML 8.00.7600.16385"></HEAD><BODY style="BACKGROUND-IMAGE: url(images/g2.jpg); BACKGROUND-COLOR: transparent; BACKGROUND-REPEAT: repeat; BACKGROUND-POSITION: center center"><FORM id=aspnetForm method=post name=aspnetForm action=sch_data.aspx><DIV><INPUT id=__EVENTTARGET type=hidden name=__EVENTTARGET> <INPUT id=__EVENTARGUMENT type=hidden name=__EVENTARGUMENT> <INPUT id=__VIEWSTATE value=/wEPDwUJNzk0NjQ5NTUxD2QWAmYPZBYCAgMPZBYCAgMPZBYCZg9kFgICAw9kFhoCAQ8PFgIeBFRleHQFSiDYp9mE2KfYtdmE2KfYrSDYp9mE2YXYs9in2KbZitmHINin2YTYp9io2KrYr9in2KbZitipIC4uLiDYp9mE2K3Zg9mI2YXZitipZGQCCg8PFgIfAAUK2YXYtNiq2LHZg2RkAg4PDxYCHwAFDtin2KjYqtiv2KfYptmJZGQCEg8PFgIfAAUK2KPYs9mI2KfZhmRkAhYPDxYCHwAFCNin2K/ZgdmIZGQCGg8PFgIfAAUIMjgwMDA4MjNkZAIeDw8WAh8ABQcyODA2ODU4ZGQCJQ8PFgIfAAUyINin2YTYsdiv2YrYs9mK2Kkg2KjYrdix2YkgLSDZgtix2YrYqSDYp9mE2LnYr9mI2KlkZAIpDw8WAh8ABRnYp9mE2LHYr9mK2LPZitipINio2K3YsdmJZGQCLQ8PFgIfAAUR2YXYsdmD2LIg2KPYr9mB2YhkZAIxDw8WAh8ABQc0NzE5NTI0ZGQCNQ8PFgIfAAUUemViMTRkQG1haWwuZW1vZS5vcmdkZAI7Dw8WAh8ABTTYp9mE2KfYtdmE2KfYrSDYp9mE2YXYs9in2KbZitmHINin2YTYp9io2KrYr9in2KbZitipZGRk33nucNYpqxWi2NGVM4DAoK2zOr0= type=hidden name=__VIEWSTATE> </DIV><SCRIPT type=text/javascript>//<![CDATA[var theForm = document.forms['aspnetForm'];if (!theForm) { theForm = document.aspnetForm;}function __doPostBack(eventTarget, eventArgument) { if (!theForm.onsubmit || (theForm.onsubmit() != false)) { theForm.__EVENTTARGET.value = eventTarget; theForm.__EVENTARGUMENT.value = eventArgument; theForm.submit(); }}//]]></SCRIPT><SCRIPT type=text/javascript src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/WebResource.axd"></SCRIPT><SCRIPT type=text/javascript src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/ScriptResource.axd"></SCRIPT><SCRIPT type=text/javascript src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/ScriptResource(1).axd"></SCRIPT><DIV><INPUT id=__EVENTVALIDATION value=/wEWDgLe38zdDQKP6PmbAQKCsMmcDwK1rP+xBAKwyvDrDAK70ODtCALyidnVCALizsDyCAL+vaTwBQLXitOdCAKH07WPBAKhq+fzCQLhyvbIBQKO6PmbASXXosYPmMgqFzdF2MvcdlROhA7j type=hidden name=__EVENTVALIDATION> </DIV><SCRIPT type=text/javascript>//<![CDATA[Sys.WebForms.PageRequestManager._initialize('ctl00$ScriptManager1', document.getElementById('aspnetForm'));Sys.WebForms.PageRequestManager.getInstance()._updateControls(['tctl00$UpdatePanel1'], [], [], 90);//]]></SCRIPT><DIV id=ctl00_UpdatePanel1><TABLE style="WIDTH: 100%; BACKGROUND-REPEAT: repeat; HEIGHT: 100%" border=0 cellSpacing=0 cellPadding=0> <TBODY> <TR> <TD vAlign=top align=middle> <TABLE style="WIDTH: 1025px" border=0 cellSpacing=0 cellPadding=0> <TBODY> <TR> <TD style="BACKGROUND-IMAGE: url(images/2-3-2012_29-copy_01.gif); WIDTH: 114px; BACKGROUND-POSITION: center top; HEIGHT: 143px" vAlign=center rowSpan=2 align=middle></TD> <TD style="BACKGROUND-IMAGE: url(images/2-3-2012_29-copy_02.gif); BACKGROUND-COLOR: #0e4865; WIDTH: 196px; BACKGROUND-REPEAT: repeat-x; BACKGROUND-POSITION: center bottom; HEIGHT: 16px" vAlign=bottom align=middle></TD> <TD style="BACKGROUND-COLOR: #0e4865; WIDTH: 601px; HEIGHT: 22px" dir=rtl vAlign=top align=right>       <A style="WIDTH: 124px; DISPLAY: inline-block; HEIGHT: 16px; COLOR: yellow; FONT-SIZE: 9pt; CURSOR: hand; FONT-WEIGHT: bold" id=ctl00_HyperLink1 href="http://services.moe.gov.eg/">بــوابــة الخـدمــات الالكترونية</A></TD> <TD style="BACKGROUND-IMAGE: url(images/2-3-2012_29-copy_04.gif); WIDTH: 114px; HEIGHT: 143px; FONT-SIZE: 8pt" vAlign=top rowSpan=2 align=middle></TD></TR> <TR style="FONT-SIZE: 8pt"> <TD style="BACKGROUND-IMAGE: url(images/2-3-2012_29-copy_05.gif); WIDTH: 797px; HEIGHT: 124px" vAlign=top colSpan=2 align=middle></TD></TR> <TR style="FONT-SIZE: 8pt"> <TD style="BACKGROUND-COLOR: #d3d4cb; WIDTH: 114px" vAlign=center rowSpan=3 align=middle></TD> <TD style="BACKGROUND-COLOR: #ffffff" dir=rtl vAlign=top rowSpan=1 colSpan=2 align=middle> <TABLE style="WIDTH: 99%" border=0 cellSpacing=0 cellPadding=0> <TBODY> <TR> <TD vAlign=top align=middle> <TABLE style="BACKGROUND-IMAGE: url(images/detils_search1.jpg); BORDER-BOTTOM: silver 1px dashed; BORDER-LEFT: silver 1px dashed; BACKGROUND-COLOR: transparent; WIDTH: 760px; BACKGROUND-REPEAT: repeat-x; BACKGROUND-POSITION: center center; HEIGHT: 320px; BORDER-TOP: silver 1px dashed; BORDER-RIGHT: silver 1px dashed" border=0 cellPadding=0> <TBODY> <TR> <TD style="HEIGHT: 404px" vAlign=top align=middle> <TABLE style="WIDTH: 760px" border=0 cellSpacing=0 cellPadding=0> <TBODY> <TR> <TD style="TEXT-ALIGN: center; VERTICAL-ALIGN: top" vAlign=center colSpan=4 align=middle> <TABLE style="TEXT-ALIGN: center; BACKGROUND-COLOR: transparent; WIDTH: 100%; VERTICAL-ALIGN: top" border=0 cellSpacing=0 cellPadding=0> <TBODY> <TR> <TD style="BACKGROUND-IMAGE: url(images/tile_bluenavhm_red.gif); TEXT-ALIGN: center; BACKGROUND-COLOR: transparent; BACKGROUND-REPEAT: repeat-x; BACKGROUND-POSITION: center center; HEIGHT: 22px; VERTICAL-ALIGN: top" vAlign=top colSpan=3 align=middle> <TABLE style="BACKGROUND-COLOR: transparent; WIDTH: 100%" border=0 cellSpacing=0 cellPadding=0> <TBODY> <TR> <TD style="BACKGROUND-COLOR: transparent; WIDTH: 50px; BACKGROUND-REPEAT: repeat-x; BACKGROUND-POSITION: center center; HEIGHT: 21px" vAlign=center align=middle></TD> <TD style="BACKGROUND-COLOR: transparent; BACKGROUND-REPEAT: repeat-x; BACKGROUND-POSITION: center center; HEIGHT: 21px" vAlign=center align=middle><SPAN style="WIDTH: 624px; DISPLAY: inline-block; COLOR: white; FONT-SIZE: 14pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label11>الاصلاح المسائيه الابتدائية ... الحكومية</SPAN></TD> <TD style="BACKGROUND-IMAGE: url(images/119.gif); WIDTH: 50px; HEIGHT: 21px" vAlign=center align=middle><A style="BACKGROUND-IMAGE: url(images/home/home%28131%29.png); BACKGROUND-COLOR: transparent; WIDTH: 20px; DISPLAY: inline-block; HEIGHT: 20px" id=ctl00_ContentPlaceHolder1_LinkButton1 title="الصفحة الرئيسية" href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$LinkButton1','')"></A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR> <TR> <TD style="HEIGHT: 7px" vAlign=center colSpan=4 align=middle><IMG src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/spacer.gif" height=8></TD></TR> <TR> <TD vAlign=center colSpan=4></TD></TR> <TR> <TD style="HEIGHT: 25px" vAlign=center colSpan=2 align=right>    <IMG style="BACKGROUND-IMAGE: url(images/star.jpg); BORDER-RIGHT-WIDTH: 0px; BACKGROUND-COLOR: transparent; WIDTH: 12px; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; HEIGHT: 12px; BORDER-LEFT-WIDTH: 0px" id=ctl00_ContentPlaceHolder1_Image1 src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/star2.jpg"><SPAN style="COLOR: maroon; FONT-SIZE: 13pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label14>عـــرض بــيــانـات المــدرسـة</SPAN></TD> <TD style="WIDTH: 132px; HEIGHT: 30px" vAlign=center align=middle></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right></TD></TR> <TR> <TD vAlign=center colSpan=4 align=middle><IMG src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/spacer.gif" height=8></TD></TR> <TR> <TD style="WIDTH: 130px; HEIGHT: 30px" vAlign=center><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label6>نــــوع المــدرسـة</SPAN></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right><INPUT style="WIDTH: 220px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxsex value=مشترك readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxsex onclick="return ctl00_ContentPlaceHolder1_TBoxsex_onclick()"></TD> <TD style="WIDTH: 132px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label4>المــــرحلـــة</SPAN></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right><INPUT style="WIDTH: 220px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxstage value=ابتدائى readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxstage></TD></TR> <TR> <TD style="WIDTH: 130px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label2>المـحــافـظـــــة</SPAN></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right><INPUT style="WIDTH: 220px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxmud value=أسوان readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxmud></TD> <TD style="WIDTH: 132px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label3>الادارة التعليمية</SPAN></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right><INPUT style="WIDTH: 220px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxedara value=ادفو readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxedara></TD></TR> <TR> <TD style="WIDTH: 130px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label15>الرقــم المسلسل</SPAN></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right><INPUT style="WIDTH: 220px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxsch_code value=28000823 readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxsch_code></TD> <TD style="WIDTH: 132px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label16>الرقــم التـعـريفى</SPAN></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right><INPUT style="WIDTH: 220px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxbulld value=2806858 readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxbulld></TD></TR> <TR> <TD vAlign=center colSpan=4 align=middle><IMG src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/spacer.gif" height=8></TD></TR> <TR> <TD style="HEIGHT: 30px" vAlign=center colSpan=2 align=right>   <IMG style="BACKGROUND-IMAGE: url(images/star.jpg); BORDER-RIGHT-WIDTH: 0px; BACKGROUND-COLOR: transparent; WIDTH: 12px; BORDER-TOP-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; HEIGHT: 12px; BORDER-LEFT-WIDTH: 0px" id=ctl00_ContentPlaceHolder1_Image2 src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/star2.jpg"><SPAN style="COLOR: maroon; FONT-SIZE: 13pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label17>عــرض وسائل الاتصال بالمدرسة </SPAN></TD> <TD style="WIDTH: 132px; HEIGHT: 30px" vAlign=center align=middle></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right></TD></TR> <TR> <TD style="WIDTH: 130px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label7>عنـــوان المدرســـة</SPAN></TD> <TD style="HEIGHT: 30px" vAlign=center colSpan=3 align=right><INPUT style="BACKGROUND-COLOR: snow; WIDTH: 600px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxsch_addres value=" الرديسية بحرى - قرية العدوة" readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxsch_addres></TD></TR> <TR> <TD style="WIDTH: 130px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label13>القريـة / الشيـاخة</SPAN></TD> <TD style="HEIGHT: 30px" vAlign=center colSpan=3 align=right><INPUT style="BACKGROUND-COLOR: snow; WIDTH: 600px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxkr value="الرديسية بحرى" readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxkr></TD></TR> <TR> <TD style="WIDTH: 130px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label8>القسم / المركز</SPAN></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right><INPUT style="BACKGROUND-COLOR: snow; WIDTH: 220px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxksm value="مركز أدفو" readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxksm></TD> <TD style="WIDTH: 132px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label9>التــــليــفــون</SPAN></TD> <TD style="WIDTH: 250px; HEIGHT: 30px" vAlign=center align=right><INPUT style="BACKGROUND-COLOR: snow; WIDTH: 220px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxsch_tel value=4719524 readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxsch_tel></TD></TR> <TR> <TD style="WIDTH: 130px; HEIGHT: 30px" vAlign=center align=middle><SPAN style="TEXT-ALIGN: center; WIDTH: 115px; DISPLAY: inline-block; COLOR: black; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_Label12>البـريـد الاكتـرونى</SPAN></TD> <TD style="HEIGHT: 30px" vAlign=center colSpan=3 align=right><INPUT style="BACKGROUND-COLOR: snow; WIDTH: 376px; FONT-SIZE: 11pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_TBoxsch_mail [email protected] readOnly type=text name=ctl00$ContentPlaceHolder1$TBoxsch_mail></TD></TR> <TR> <TD colSpan=4><IMG src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/spacer.gif" height=8></TD></TR> <TR> <TD style="HEIGHT: 19px" vAlign=center colSpan=4 align=middle><SPAN style="WIDTH: 392px; DISPLAY: inline-block; FONT-SIZE: 12pt; FONT-WEIGHT: bold" id=ctl00_ContentPlaceHolder1_labelerror></SPAN></TD></TR> <TR> <TD vAlign=center colSpan=4 align=middle><IMG src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/spacer.gif" height=8></TD></TR> <TR> <TD vAlign=center rowSpan=1 colSpan=4 align=middle></TD></TR> <TR> <TD vAlign=center colSpan=4 align=middle> <A style="BACKGROUND-IMAGE: url(images/go-back25-icon.png); WIDTH: 25px; DISPLAY: inline-block; HEIGHT: 25px" id=ctl00_ContentPlaceHolder1_LinkButton2 title="عــــودة للصفحة السابقة" href="javascript:__doPostBack('ctl00$ContentPlaceHolder1$LinkButton2','')"></A> </TD></TR> <TR> <TD colSpan=4><IMG src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/spacer.gif" height=8></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD> <TD style="BACKGROUND-COLOR: #d3d4cb; WIDTH: 114px" vAlign=center rowSpan=3 align=middle></TD></TR> <TR> <TD style="BACKGROUND-COLOR: #ffffff; WIDTH: 797px; HEIGHT: 6px" vAlign=top rowSpan=1 colSpan=2 align=middle><IMG src="دليل%20المدارس%20المصرية%20-%20بيانات%20المدرسة_files/spacer.gif" width=22 height=22></TD></TR> <TR> <TD style="BACKGROUND-COLOR: #0d3f58; WIDTH: 797px; HEIGHT: 22px; COLOR: white; FONT-WEIGHT: bold" dir=ltr vAlign=center colSpan=2 align=middle><SPAN style="FONT-SIZE: 8pt"> 2012 © جميع الحقوق محفوظة لوزارة التربية والتعليم</SPAN> </TD></TR> <TR> <TD style="BACKGROUND-COLOR: #d3d4cb; WIDTH: 114px" vAlign=center rowSpan=1 align=middle></TD> <TD style="BACKGROUND-COLOR: #d3d4cb; WIDTH: 797px; HEIGHT: 22px; COLOR: white; FONT-WEIGHT: bold" dir=ltr vAlign=center colSpan=2 align=middle></TD> <TD style="BACKGROUND-COLOR: #d3d4cb; WIDTH: 114px" vAlign=center rowSpan=1 align=middle></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV><SCRIPT type=text/javascript>//<![CDATA[Sys.Application.initialize();//]]>function ctl00_ContentPlaceHolder1_TBoxsex_onclick() {}</SCRIPT></FORM></BODY></HTML>
  19. الأخوة في المنتدى السلام عليكم ورحمة الله وبركاته ............. وكل عام وانتم بخير لدي جدول يحوي تواريخ بالميلادي وأود أدراج التاريخ الهجري الموجود في الجهاز لجميع السجلات دون زيادة يوم وفي نفس الجدول دفعة واحدة ... حتى ولو عن طريق استعلام مثلا .. ومرفق مثال .... واشكرك لك سلفا تعاونكم معي . BB.rar
  20. هذا موضوع قد وضعته منذ فترة طويلة في المنتدى ولكن أحببت أن اعيد طرحه حتى يستفيد منه الاخوة بســم الله الـرحمــن الرحيــم اخواني الاعزاء اثناء بحثي في الانترنيت وجدت موضوعا ارجو من الله ان يستفيد منه الاخوة الاعزاء حيث اننا نستطيع حماية قاعدة البيانات بواسطة الرقم الخاص للفلاش ميموري مع ملاحظة ان هذا الرقم يتغير عند اعادة فرمتة الفلاش لاخراج رقم الفلاش ميموري في الزر الخاص باخراج هذا الرقم ضع هذا الكود كود   ضع الكود التالي في حدث عند الفتح للنموذجكود  لا ننسى وضع الرقم مكان النصكود  If xxx = "1234567890" Thenرقم الفلاش الذي لديك مثلا 1234567890 ملاحظة : هذا الموضوع منقول   وهذا رابط الموضوع     http://arabteam2000-forum.com/index.php/topic/184674-حماية-قاعدة-البيانات-برقم-الفلاش/?p=929245            
  21. السلام عليكم ورحمة الله سؤال1: بخصوص برمجة تطبيقات ويندوز Vb.net كيف أعرف من خلال الكود إن كان الجهاز متصل بالإنترنت أم لا اريد اسهل وافضل طريقة شيء مجرب وفعال وفق الله من سعى في الإجابة بأفضل اسلوب يفهم..
  22. اذا كان لدنيا برنامج   1- مصنوع بالفيجوال بيسك 6  وقاعدة البيانات اكسس           2- وكان لدنيا ثلاثة مستخدمين          والسؤال هو كيف نقوم بنقل البيانات   عبر  بروتوكول مناسب لتطبيقات فيجوال بيسك 6  داخل شبكه محليه   ( أو بصيغه اخرى     ماهو البروتوكول المناسب لنقل البيانات في الفيجوال بيسك 6  وكيفية يتم ذلك   )   بحيث  يكون العمل :    1- على قاعدة بيانات واحده 2- ويتم التحكم بصلاحيات المستخدمين من الحاسبة الرئيسه         أسف على الاطاله          واتمنى الرد  بأي شئ يفيدني ولكم كل الشكر والتقدير              
  23. السلام عليكم ورحمة الله وبركاتة  نرجوا منكم ان تفيدونا في مشروعنا التالي  كتحديد الكائنات الرئيسية للنظام وماهي متطلبات بناء النظام  " انشاء شبكة لاسلكية  لمسافة لاتقل عن 2 كيلو  لمشاركة الانترنت من قبل المستخدمين    فعند طلب المستخدم من مدير النظام فتح الخط للعبور الى عالم النت عن طريق ادخال رمز التفعيل ة,  ملاحظة الواجهة التي يتصل بها المستخدم تسمح له بادخال فئة الكرت و رمز التفعيل , يوجد عدة فئات للكروت ( فئة ساعة , فئة ساعتين,........) ارجو اني قد وضحت فكرة عمل النظام .  هذا ولكم فائق الأحترام والتقدير   
  24. عندي مشكلة عند وصول عدد الفواتير 100 الف ومافوق يبدى البرنامج بلبطى في في تحت شاشة الفواتير وعملية الحفظ خاصة اذا كان في القريد اكثر من سطر  البرنامج دوت نت وقواعد البيانات  sql2008  هذا كود الحفظ  Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click Dim tr As SqlTransaction Try If MainClass.IsTrial And ProcCode = -1 Then Dim daCount As New SqlDataAdapter("select id from inv where proc_type=1", conn1) Dim dtCount As New DataTable daCount.Fill(dtCount) If dtCount.Rows.Count >= 50 Then MessageBox.Show("لقد انتهت مدتك لاستخدام البرنامج , يرجى الاتصال بفريق الدعم لمعرفة كيفية الشراء", "", MessageBoxButtons.OK, MessageBoxIcon.Information) ISTRialEnd = True Exit Sub End If End If txtNo.Focus() If cmbSafe.SelectedIndex = -1 Then MessageBox.Show("يجب اختيار الصندوق", "", MessageBoxButtons.OK, MessageBoxIcon.Information) cmbSafe.Focus() Exit Sub End If If cmbStock.SelectedIndex = -1 Then MessageBox.Show("يجب اختيار الخزنة", "", MessageBoxButtons.OK, MessageBoxIcon.Information) cmbStock.Focus() Exit Sub End If If dgvItems.Rows.Count = 0 Then MessageBox.Show("يجب ادخال أصناف للفاتورة", "", MessageBoxButtons.OK, MessageBoxIcon.Information) cmbCurrency.Focus() Exit Sub End If Dim CustAcc As Integer = 0 Dim StockAcc As Integer = 0 Dim _AvgArr(dgvItems.Rows.Count) As Double For z = 0 To dgvItems.Rows.Count - 1 _AvgArr(z) = CalcAvgCost(GetCurrencyNo("" & dgvItems.Rows(z).Cells(2).Value)) If _AvgArr(z) = -1 Then MessageBox.Show("مشكلة في جلب المتوسط لايمكن الحفظ الان، حاول مرة أخرى", "", MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If Next Dim daCustAcc As New SqlDataAdapter("select Code from Accounts_Index where type=2 and AName='" & cmbClient.Text & "'", conn) Dim dtCustAcc As New DataTable daCustAcc.Fill(dtCustAcc) If dtCustAcc.Rows.Count > 0 Then CustAcc = Val("" & dtCustAcc.Rows(0)(0)) End If Dim daStockAcc As New SqlDataAdapter("select Code from Accounts_Index where type=2 and acc_branch=" & MainClass.BranchNo & " and AName='" & cmbStock.Text & "'", conn) Dim dtStockAcc As New DataTable daStockAcc.Fill(dtStockAcc) If dtStockAcc.Rows.Count > 0 Then StockAcc = Val("" & dtStockAcc.Rows(0)(0)) End If Dim CondBranch As String = "" If MainClass.BranchNo <> -1 Then CondBranch = " where branch=" & MainClass.BranchNo End If If conn.State <> ConnectionState.Open Then conn.Open() tr = conn.BeginTransaction() Dim cmd As New SqlCommand Dim purch_res_id As Integer = 0 Dim sale_res_id As Integer = 0 If ProcCode = -1 Then If Val(txtTotPurch.Text) <> 0 Then cmd = New SqlCommand("select max(id) from Restrictions " & CondBranch, conn, tr) purch_res_id = Val("" & cmd.ExecuteScalar) + 1 End If If Val(txtTotSale.Text) <> 0 And purch_res_id <> 0 Then sale_res_id = purch_res_id + 1 ElseIf Val(txtTotSale.Text) <> 0 Then cmd = New SqlCommand("select max(id) from Restrictions" & CondBranch, conn, tr) sale_res_id = Val("" & cmd.ExecuteScalar) + 1 End If Else purch_res_id = RestPurchCode sale_res_id = RestSaleCode cmd = New SqlCommand("delete from Restrictions where id= " & purch_res_id, conn, tr) cmd.ExecuteNonQuery() cmd = New SqlCommand("delete from Restrictions where id= " & sale_res_id, conn, tr) cmd.ExecuteNonQuery() cmd = New SqlCommand("delete from Restrictions_Sub where res_id= " & purch_res_id, conn, tr) cmd.ExecuteNonQuery() cmd = New SqlCommand("delete from Restrictions_Sub where res_id= " & sale_res_id, conn, tr) cmd.ExecuteNonQuery() If purch_res_id = 0 And Val(txtTotPurch.Text) <> 0 Then cmd = New SqlCommand("select max(id) from Restrictions " & CondBranch, conn, tr) purch_res_id = Val("" & cmd.ExecuteScalar) + 1 End If If sale_res_id = 0 And Val(txtTotSale.Text) <> 0 Then cmd = New SqlCommand("select max(id) from Restrictions " & CondBranch, conn, tr) sale_res_id = Val("" & cmd.ExecuteScalar) + 1 End If End If If cmbProcType.SelectedIndex = 1 Then ProcAvgZeroOnDeleteReturn() End If If ProcCode = -1 Then If cmbProcType.SelectedIndex <> 1 Then cmd = New SqlCommand("insert into Inv(proc_type,id,date,inv_type,safe,stock,cust_id,sales_emp,tot_purch,tot_sale,tot_net,purch_rest_id,sale_rest_id,branch,IS_Deleted)values" & _ "(@proc_type,@id,@date,@inv_type,@safe,@stock,@cust_id,@sales_emp,@tot_purch,@tot_sale,@tot_net,@purch_rest_id,@sale_rest_id,@branch,@IS_Deleted)", conn, tr) Else cmd = New SqlCommand("insert into Inv(proc_type,id,date,inv_type,safe,stock,cust_id,sales_emp,tot_purch,tot_sale,tot_net,purch_rest_id,sale_rest_id,InvId_Return,branch,IS_Deleted)values" & _ "(@proc_type,@id,@date,@inv_type,@safe,@stock,@cust_id,@sales_emp,@tot_purch,@tot_sale,@tot_net,@purch_rest_id,@sale_rest_id,@InvId_Return,@branch,@IS_Deleted)", conn, tr) End If LoadInvNo() Code = Val(txtNo.Text) Else If cmbProcType.SelectedIndex <> 1 Then cmd = New SqlCommand("update Inv set [email protected]_type, [email protected] ,[email protected]_type ,[email protected] ,[email protected] ," & _ "[email protected]_id ,[email protected]_emp, [email protected]_purch ,[email protected]_sale ,[email protected]_net, [email protected]_Deleted" & _ " where proc_id=" & ProcCode, conn, tr) Else cmd = New SqlCommand("update Inv set [email protected]_type, [email protected] ,[email protected]_type ,[email protected] ,[email protected] ," & _ "[email protected]_id ,[email protected]_emp, [email protected]_purch ,[email protected]_sale ,[email protected]_net,[email protected]_Return, [email protected]_Deleted" & _ " where proc_id=" & ProcCode, conn, tr) End If End If cmd.Parameters.Add("@proc_type", SqlDbType.Int).Value = cmbProcType.SelectedIndex + 1 cmd.Parameters.Add("@id", SqlDbType.Int).Value = Code If Code = -1 Then cmd.Parameters.Add("@date", SqlDbType.DateTime).Value = DateTime.Now Else cmd.Parameters.Add("@date", SqlDbType.DateTime).Value = txtDate.Value End If cmd.Parameters.Add("@inv_type", SqlDbType.Int).Value = cmbType.SelectedIndex + 1 cmd.Parameters.Add("@safe", SqlDbType.Int).Value = cmbSafe.SelectedValue cmd.Parameters.Add("@stock", SqlDbType.Int).Value = cmbStock.SelectedValue cmd.Parameters.Add("@cust_id", SqlDbType.Int).Value = cmbClient.SelectedValue cmd.Parameters.Add("@sales_emp", SqlDbType.Int).Value = MainClass.EmpNo cmd.Parameters.Add("@tot_purch", SqlDbType.Float).Value = txtTotPurch.Text cmd.Parameters.Add("@tot_sale", SqlDbType.Float).Value = txtTotSale.Text cmd.Parameters.Add("@tot_net", SqlDbType.Float).Value = txtDiff.Text.Replace("-", "") cmd.Parameters.Add("@purch_rest_id", SqlDbType.Int).Value = purch_res_id cmd.Parameters.Add("@sale_rest_id", SqlDbType.Int).Value = sale_res_id cmd.Parameters.Add("@InvId_Return", SqlDbType.Int).Value = Val(txtSrcInvNo.Text) cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.Parameters.Add("@IS_Deleted", SqlDbType.Bit).Value = 0 cmd.ExecuteNonQuery() If ProcCode <> -1 Then cmd = New SqlCommand("delete from Inv_Sub where proc_id= " & ProcCode, conn, tr) cmd.ExecuteNonQuery() End If If ProcCode = -1 Then cmd = New SqlCommand("select max(proc_id) from Inv", conn, tr) ProcCode = Val("" & cmd.ExecuteScalar) End If For i = 0 To dgvItems.Rows.Count - 1 cmd = New SqlCommand("insert into Inv_Sub(proc_id,proc_type,currency_from,val,exchange_price,currency_to,avg)" & _ "values(@proc_id,@proc_type,@currency_from,@val,@exchange_price,@currency_to,@avg)", conn, tr) cmd.Parameters.Add("@proc_id", SqlDbType.Int).Value = ProcCode Dim dgvCellProc As DataGridViewComboBoxCell = CType(dgvItems.Rows(i).Cells(1), DataGridViewCell) If dgvCellProc.Value = "شراء" Then cmd.Parameters.Add("@proc_type", SqlDbType.Int).Value = 1 Else cmd.Parameters.Add("@proc_type", SqlDbType.Int).Value = 2 End If cmd.Parameters.Add("@currency_from", SqlDbType.Int).Value = GetCurrencyNo("" & dgvItems.Rows(i).Cells(2).Value) cmd.Parameters.Add("@val", SqlDbType.Float).Value = dgvItems.Rows(i).Cells(3).Value cmd.Parameters.Add("@exchange_price", SqlDbType.Float).Value = dgvItems.Rows(i).Cells(4).Value cmd.Parameters.Add("@currency_to", SqlDbType.Int).Value = GetCurrencyNo("" & dgvItems.Rows(i).Cells(5).Value) cmd.Parameters.Add("@avg", SqlDbType.Float).Value = _AvgArr(i) cmd.ExecuteNonQuery() Next ' --------------------- تسجيل القيد ----------------------------------------------------------------- If cmbProcType.SelectedIndex = 0 Then If Val(txtTotPurch.Text) <> 0 Then cmd = New SqlCommand("insert into Restrictions(id,date,doc_no,type,state,notes,branch,IS_Deleted)" & _ "values(@id,@date,@doc_no,@type,@state,@notes,@branch,@IS_Deleted)", conn, tr) cmd.Parameters.Add("@id", SqlDbType.Int).Value = purch_res_id cmd.Parameters.Add("@date", SqlDbType.DateTime).Value = txtDate.Value cmd.Parameters.Add("@doc_no", SqlDbType.Int).Value = Code cmd.Parameters.Add("@type", SqlDbType.Int).Value = 1 cmd.Parameters.Add("@state", SqlDbType.Int).Value = 1 cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة شراء " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.Parameters.Add("@IS_Deleted", SqlDbType.Bit).Value = 0 cmd.ExecuteNonQuery() cmd = New SqlCommand("insert into Restrictions_Sub(res_id,dept,credit,acc_no,notes,branch)" & _ "values(@res_id,@dept,@credit,@acc_no,@notes,@branch)", conn, tr) cmd.Parameters.Add("@res_id", SqlDbType.Int).Value = purch_res_id cmd.Parameters.Add("@dept", SqlDbType.Float).Value = txtTotPurch.Text cmd.Parameters.Add("@credit", SqlDbType.Float).Value = 0 cmd.Parameters.Add("@acc_no", SqlDbType.Int).Value = 3410001 cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة شراء " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.ExecuteNonQuery() cmd = New SqlCommand("insert into Restrictions_Sub(res_id,dept,credit,acc_no,notes,branch)" & _ "values(@res_id,@dept,@credit,@acc_no,@notes,@branch)", conn, tr) cmd.Parameters.Add("@res_id", SqlDbType.Int).Value = purch_res_id cmd.Parameters.Add("@dept", SqlDbType.Float).Value = 0 cmd.Parameters.Add("@credit", SqlDbType.Float).Value = txtTotPurch.Text cmd.Parameters.Add("@acc_no", SqlDbType.Int).Value = CustAcc cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة شراء " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.ExecuteNonQuery() If cmbType.SelectedIndex = 1 Then cmd = New SqlCommand("insert into Restrictions_Sub(res_id,dept,credit,acc_no,notes,branch)" & _ "values(@res_id,@dept,@credit,@acc_no,@notes,@branch)", conn, tr) cmd.Parameters.Add("@res_id", SqlDbType.Int).Value = purch_res_id cmd.Parameters.Add("@dept", SqlDbType.Float).Value = txtTotPurch.Text cmd.Parameters.Add("@credit", SqlDbType.Float).Value = 0 cmd.Parameters.Add("@acc_no", SqlDbType.Int).Value = CustAcc cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة شراء " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.ExecuteNonQuery() cmd = New SqlCommand("insert into Restrictions_Sub(res_id,dept,credit,acc_no,notes,branch)" & _ "values(@res_id,@dept,@credit,@acc_no,@notes,@branch)", conn, tr) cmd.Parameters.Add("@res_id", SqlDbType.Int).Value = purch_res_id cmd.Parameters.Add("@dept", SqlDbType.Float).Value = 0 cmd.Parameters.Add("@credit", SqlDbType.Float).Value = txtTotPurch.Text cmd.Parameters.Add("@acc_no", SqlDbType.Int).Value = StockAcc cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة شراء " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.ExecuteNonQuery() End If End If If Val(txtTotSale.Text) <> 0 Then cmd = New SqlCommand("insert into Restrictions(id,date,doc_no,type,state,notes,branch,IS_Deleted)" & _ "values(@id,@date,@doc_no,@type,@state,@notes,@branch,@IS_Deleted)", conn, tr) cmd.Parameters.Add("@id", SqlDbType.Int).Value = sale_res_id cmd.Parameters.Add("@date", SqlDbType.DateTime).Value = txtDate.Value cmd.Parameters.Add("@doc_no", SqlDbType.Int).Value = Code cmd.Parameters.Add("@type", SqlDbType.Int).Value = 2 cmd.Parameters.Add("@state", SqlDbType.Int).Value = 1 cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة بيع " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.Parameters.Add("@IS_Deleted", SqlDbType.Bit).Value = 0 cmd.ExecuteNonQuery() cmd = New SqlCommand("insert into Restrictions_Sub(res_id,dept,credit,acc_no,notes,branch)" & _ "values(@res_id,@dept,@credit,@acc_no,@notes,@branch)", conn, tr) cmd.Parameters.Add("@res_id", SqlDbType.Int).Value = sale_res_id cmd.Parameters.Add("@dept", SqlDbType.Float).Value = txtTotSale.Text cmd.Parameters.Add("@credit", SqlDbType.Float).Value = 0 cmd.Parameters.Add("@acc_no", SqlDbType.Int).Value = CustAcc cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة بيع " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.ExecuteNonQuery() cmd = New SqlCommand("insert into Restrictions_Sub(res_id,dept,credit,acc_no,notes,branch)" & _ "values(@res_id,@dept,@credit,@acc_no,@notes,@branch)", conn, tr) cmd.Parameters.Add("@res_id", SqlDbType.Int).Value = sale_res_id cmd.Parameters.Add("@dept", SqlDbType.Float).Value = 0 cmd.Parameters.Add("@credit", SqlDbType.Float).Value = txtTotSale.Text cmd.Parameters.Add("@acc_no", SqlDbType.Int).Value = 4110001 cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة بيع " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.ExecuteNonQuery() If cmbType.SelectedIndex = 1 Then cmd = New SqlCommand("insert into Restrictions_Sub(res_id,dept,credit,acc_no,notes,branch)" & _ "values(@res_id,@dept,@credit,@acc_no,@notes,@branch)", conn, tr) cmd.Parameters.Add("@res_id", SqlDbType.Int).Value = sale_res_id cmd.Parameters.Add("@dept", SqlDbType.Float).Value = txtTotSale.Text cmd.Parameters.Add("@credit", SqlDbType.Float).Value = 0 cmd.Parameters.Add("@acc_no", SqlDbType.Int).Value = StockAcc cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة بيع " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.ExecuteNonQuery() cmd = New SqlCommand("insert into Restrictions_Sub(res_id,dept,credit,acc_no,notes,branch)" & _ "values(@res_id,@dept,@credit,@acc_no,@notes,@branch)", conn, tr) cmd.Parameters.Add("@res_id", SqlDbType.Int).Value = sale_res_id cmd.Parameters.Add("@dept", SqlDbType.Float).Value = 0 cmd.Parameters.Add("@credit", SqlDbType.Float).Value = txtTotSale.Text cmd.Parameters.Add("@acc_no", SqlDbType.Int).Value = CustAcc cmd.Parameters.Add("@notes", SqlDbType.NVarChar).Value = "فاتورة بيع " & cmbType.Text & " رقم:" & Code & " خاصة العميل:" & cmbClient.Text cmd.Parameters.Add("@branch", SqlDbType.Int).Value = MainClass.BranchNo cmd.ExecuteNonQuery() End If tr.Commit() dgvSrch.Rows.Clear() For i = 0 To dgvItems.Rows.Count - 1 If MainClass.CalcStock(GetCurrencyNo("" & dgvItems.Rows(i).Cells(2).Value)) = 0 Then 'cmd = New SqlCommand("delete from AvgZero where curr=" & GetCurrencyNo("" & dgvItems.Rows(i).Cells(2).Value), conn) 'cmd.ExecuteNonQuery() cmd = New SqlCommand("insert into AvgZero(curr,date)" & _ "values(@curr,@date)", conn) cmd.Parameters.Add("@date", SqlDbType.DateTime).Value = DateTime.Now cmd.Parameters.Add("@curr", SqlDbType.Int).Value = GetCurrencyNo("" & dgvItems.Rows(i).Cells(2).Value) cmd.ExecuteNonQuery() End If Next Try Catch ex As Exception End Try 'MessageBox.Show("تم الحفظ", "", MessageBoxButtons.OK, MessageBoxIcon.Information) txtCurrency1.Text = "" txtCurrency2.Text = "" cmbClient.SelectedIndex = -1 cmbCurrency.SelectedIndex = -1 txtVal1.Text = "" txtExchangeVal.Text = "" txtVal2.Text = "" dgvItems.Rows.Clear() txtCapital.Text = "" txtTotPurch.Text = "" txtTotSale.Text = "" txtDiff.Text = "" LoadInvNo() CLR() cmbCurrency.Focus() Catch ex As Exception tr.Rollback() Dim msg As String = "خطأ أثناء الحفظ" msg += Environment.NewLine & "تفاصيل الخطأ: " & ex.Message MessageBox.Show(msg, "", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally If conn.State <> ConnectionState.Closed Then conn.Close() End Try End Sub   
  25. هذا الكود يمكنك من قراءة بيانات من اكسل وعرضها في dataGridView و الادوات المطلوبة : openFileDialog dataGridView button و الافس لابد ان يكون 2007 فما فوق و 64bit ليتوافق مع جملة الاتصال how to raed data from excel .txt