• الإعلانات

    • فيصل الحربي

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

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

محمد فؤاد تركي

المشرفيـن الإداريين
  • عدد المشاركات

    5,640
  • تاريخ الانضمام

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

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

  1. السادة الزملاء السلام عليكم ورحمة الله وبركاتة استوقفتني شجرة الحسابات والتي صممها لنا الاخ الخبير كمال النحال في برنامج الحسابات والذي ستجدونة هنا اما بخصوص شجرة الحسابات فأعجبتني كثيراً ولاحظت طلبات الكثيرين من الاعضاء حول طريقة عمل هذه الشجرة فأحببت أن أضع بالمنتدي شرح بسيط يوضح طريقة عمل الشجرة لتعم الفائده علي جميع الزملاء بسم الله نبدأ هذه هي شكل الشجرة والتي صممها الاخ كمال في برنامج الحسابات قم بتصميم جدولك والذي يوجد به جميع بنود دليل الحسابات ولاختصار الوقت تم الاستعانة بجدول الاخ كمال النحال كما هو موضح بعد الانتهاء من تصميم الشجرة يتم كتابة الكود التالي في حدث تحميل النموذج Private Sub Form_Load() Dim dbs As Database, rst As Recordset Dim nodX As Node Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Accounts", dbOpenDynaset) Set nodX = TreeView2.Nodes.Add(, , "A", "Ïáíá ÇáÍÓÇÈÇÊ") With rst Do While Not .EOF Set nodX = TreeView2.Nodes.Add("A" & CStr(Nz(!ParAcc)), tvwChild, "A" & CStr(!AccID), CStr(!AccID) & ":" & !ArAccDes) nodX.EnsureVisible .MoveNext Loop End With rst.Close Set dbs = Nothing For Each nodX In TreeView2.Nodes nodX.Expanded = False nodX.Sorted = True Next End Sub ثم نقوم بعمل Sub فرعي صغير Private Sub Finder(Skey) Dim rs As Object Me.Filter = "" Set rs = Me.Recordset.Clone rs.FindFirst "[AccID] = '" & Trim(Skey) & "'" Me.Bookmark = rs.Bookmark End Sub ومهمتة ربط الشجرة بالعناصر والتكست بوكس الموجوده علي النموذج وفي حدث الضعط بالماوس علي الشجرة نكتب الكود التالي Private Sub TreeView2_NodeClick(ByVal Node As Object) Dim mykey As String With Node mykey = Right(.Key, Len(.Key) - 1) Finder (mykey) End With End Sub وبهذه الخطوات البسيطة السهلة نكون قد انهينا تصميم شجرة الحسابات وطريقة عملها مرفق مثال Tree_view.zip
  2. أخواني الاعضاء السلام عليكم ورحمة الله وبركاتة نظراً لكثرة طلب الاعضاء في الفترة الاخيرة عن برامج المخازن وفواتير الشراء والبيع أضع بين أيديكم شرح كامل لكيفية بناء برنامج المخازن وفواتير الشراء وفواتير البيع . . . لا أحب أن أطيل عليكم كثير ودعنا ندخل في صلب الموضوع أولاً يجب علينا أولاً انشاء جدول يحتوي علي جميع الاصناف المخزنية بكافة تفاصيلها والجدول الواضح أمامك يوضح الحقول المطلوب توافرها في هذا الجدول ثانياً : - يتم انشاء جدول لتسجيل البيانات الاساسية لرأس فاتورة الشراء كما هو موضح بالصورة المرفقه أدناه وهذه البيانات عبارة عن تاريخ الفاتورة ورقم الفاتورة اسم المورد وطريقة الدفع وخلافة ثالثاً : - يتم انشاء جدول لتسجيل البيانات الاساسية لرأس فاتورة البيع كما هو موضح بالصورة المرفقه أدناه وهذه البيانات عبارة عن تاريخ الفاتورة ورقم الفاتورة اسم العميل وطريقة الدفع وخلافة رابعاً : - يتم انشاء جدول وهذا الجدول مهمتة تسجيل كافة الحركات المخزنية بداخلة سواء فواتير بيع أو فواتير شراء كما بالشكل التالي خامساً : - كيفية انشاء العلاقات ما بين هذه الجدوال وهذه النقطة مهمة جداً كما في الشكل التالي بذلك نكون قد وضعا حجر الاساس بخصوص بناء برنامج المخازن وفواتير البيع والشراء وإن شاء رب العالمين في الدرس القادم نكمل خطوات بناء البرنامج حتي نصل به لغايتنا ان شاء الله مرفق القاعدة وبها الجزء التي تم شرحة Warehouses_System.rar
  3. الاخوة الافاضل   السلام عليكم ورحمة الله وبركاتة مرفق روابط بحجم 6.60 جيجا تقريبا دورات في برمجة الأندرويد عربي و إنجليزي بروابط مباشرة وسريعة للتحميل    الدورة الأولى للمهندس والأستاذ عبدالله عيد  ANDROID 101 https://archive.org/download/Android101_Abdullah.Eid/Android101_Abdullah.Eid.7z   الدورة الثانية محاضرات بالعربي : برمجة وتطبيقات أندرويد عربي https://archive.org/download/Programming_using_Mobile_Android_Ar/Programming_using_Mobile_Android_Ar.7z   الثالثة والاخيرة دورة بالإنجليزي للمبتدئين : Android_Complete_Tutorial_In_English_FULL https://archive.org/download/Android_Complete_Tutorial_In_English_FULL/Android_Complete_Tutorial_In_English_FULL.7z   بالتوفيق للجميع
  4. دليل تليفونك الشخصي

    الاخوة الاعضاء السلام عليكم ورحمة الله وبركاتة صممت لكم مثال بسيط عبارة عن دليل تليفون لحفظ ارقامك التليفونية داخل قاعدة بياناتك لاسترجاعها في أي وقت المثال يضم بعض الافكار البسيطة التي تهم كل مبرمج 1 - تم حفظ سلسة الاتصال بقاعدة البيانات SQL Server بملف XML اسمة ConStr وذلك لكل من يريد ان يتعلم طريقة حفظ سلسلة الاتصال في ملف خارجي ليسهل عليك تغيير الاتصال بالقاعدة اينما كنت من خلال هذا الملف والمطلوب منك فقط ان تضع هذا الملف علي السواقة \:C وتغيير سلسة الاتصال لكي تناسب سيرفرك فقط 2 - تم عمل مثال علي طريقة عمل أزرار الحفظ والحذف والتعديل وجديد والذي يسأل عنها الكثيرون 3 - تم عمل مثال لطريقة عمل Navigation Buttons وهي أزرار التنقل بين السجلات 4 - تم عمل مثال لطريقة عمل Help File للبرنامج واستدعائة من خلال زر أمر بالبرنامج 5 - طريقة تصميم الاجراءات المخزنة والتي تم عمل مثال لطريقة اجراء الحفظ الحذف والتعديل 6 - مثال علي طريقة استخدام الامر IF NOT EXISTS في SQL Server وطريقة عمل MsgBox ايضا في SQL 7 - التحقق من اذا كانت البيانات مكررة او لا لن أحب أن اطول عليكم واترككم مع هذا المثال ويارب يكون فيه فائده للجميع مرفق مثال مفتوح المصدر مرفق سلسة الاتصال الخاصة بالبرنامج Tele_Index.rar ConStr.rar
  5. أخواني الاعضاء والمشرفين الكرام السلام عليكم ورحمة الله وبركاتة استوقفني مثال بالمنتدي لاستاذنا الكبير فهد الدوسري عن الاوامر الشائعة ببرنامج الاكسس والذي يتم طلبها باستمرار من الاعضاء والاعضاء الجدد فأحببت أن أهديكم اياها لعل تعم الفائدة علي الجميع لا أحب أن أطيل عليكم وأدعكم تستمتعوا بالاوامر Fahd_Dosary.rar
  6. اظهار وتفعيل Target CPU في خصائص المشروع

    اخي الفاضل محمد مسافر   من القائمة     Build --> Configuration Manager --> Plant form   قم باختيار New ثم X86
  7. أخي الفاضل بالنسبة للمطلوب الاول تفضل الحل فمن خلال هذا الاسكريبت سيتم عمل تحديث للارقام التي تبدأ بــ 010 و مكونة من 10 أرقام فقط ليصبح 0100 بدلا من 010 update Tbl_Phones set  Phone = Replace(phone,010,0100)where  Phone = LEFT(phone,10) and phone Like '010%'ستقوم بتنفيذ الاسكريبت علي 012 ايضا   بعد الانتهاء من عمليه التحديث سيتم حذف الارقام المكررة من الجدول   WITH CTE AS(   SELECT phone,       RN = ROW_NUMBER()OVER(PARTITION BY phone ORDER BY phone)   FROM dbo.Tbl_Phones)DELETE FROM CTE WHERE RN > 1بالتوفيق
  8. كيفية رفع الموقع على hosting

    أخي الفاضل ستجد الخطوات هنا ان شاء الله   رفع موقع مع قاعدة بيانات على خادم مجاني upload asp.net and sql server database 
  9. المساعدة هل المستخدم ضغط موافق أو إلغاء

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

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

    أخي الفاضل الجريد الافتراضية من مايكروسوفت لا يوجد بها هذه الخصائص ولكن عندي مثال مصمم بــ VB.Net وليس #C قريب من طلبك ان اردته ارسلة لك بالتوفيق
  12. ابحث في جوجل عن دروس تشرح هذه النوعيه من التقارير حيث ان الوقت لا يسعفني الان لوضع شرح مفصل لطريقة استخدام هذه النوعيه   وعلي اي حال شاهد هذا الدرس ربما يفيدك   http://www.dailymotion.com/video/x1jpos9_crystal-reports-2013-tutorial-creating-a-cross-tab-report-training-lesson-16-3_tech
  13. اتمني ان يفيدك هذا الموضوع   شرح عمل تقرير كريستال باستخدام Stored Procededures
  14. استخدم تقرير Cross-Tab ستجدها أمامك عند ظهور اول شاشة للتقارير وبالمناسبة هذه النوعيه من التقارير مذكورة بالجزء الثاني من الكتاب بالتوفيق      
  15. أختي الفاضلة لقد قمتي بالاجابة علي سؤالك من خلال شرح المشكلة بالفعل سنستخدم زر BackSpace لعمل هذا الاجراء ضعي هذا الكود في حدث الضغط علي الزر Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        TxtNumbers.Focus()        SendKeys.Send("{BACKSPACE}")    End Sub
  16. ابحث في جوجل الامثلة كثيرة   مصادر :-   http://www.c-sharpcorner.com/uploadfile/tanmayit08/make-your-application-with-trial-version/ http://stackoverflow.com/questions/3625825/how-can-i-make-my-application-have-a-30-day-trial-period http://stackoverflow.com/questions/18326838/making-project-as-trial-version
  17. كيف يمكن طباعة محتويات DataGridView

    تم تعديل المثال الاصلي بحيث يكون في امكانية لتصفية البيانات وظهور نتيجة التصفية في التقرير مرفق المثال بعد التعديل Print_DataGridview_C_Sharp.rar
  18. اتمني ان تقرأ الكتابين الموجودين في الموضوعات المثبتة عن كيفية التعامل مع تقارير الكريستال ريبورت الكتابين مشروحين باللغة العربية
  19. كيف يمكن طباعة محتويات DataGridView

    أخي الفاضل صممت لك مثال سريعاً بالتوفيق Print_DataGridview_C_Sharp.rar
  20. في هذه الحالة سيتعين علينا اعاده صياغة الكود لكي يتلائم مع الطلب الجديد الكود كامل وقاعدتي البيانات محميتين بكلمات مرور   Imports System.DataImports System.Data.OleDbPublic Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Using sourceConnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB.accdb;Jet OLEDB:Database Password=123456;"),      destinationConnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB2.accdb;Jet OLEDB:Database Password=123456;"),  adapter As New OleDbDataAdapter("SELECT * FROM Tbl_Customers", sourceConnection),      insertCommand As New OleDbCommand("INSERT INTO Tbl_Customers_MovedData values (@CustID,@CustName,@JoiningDate)", destinationConnection),      deleteCommand As New OleDbCommand("DELETE FROM Tbl_Customers", sourceConnection)            insertCommand.Parameters.Add("@CustID", OleDbType.VarChar, 100, "CustID")            insertCommand.Parameters.Add("@CustName", OleDbType.VarChar, 100, "CustName")            insertCommand.Parameters.Add("@JoiningDate", OleDbType.VarChar, 100, "JoiningDate")            adapter.InsertCommand = insertCommand            adapter.DeleteCommand = deleteCommand            adapter.AcceptChangesDuringFill = False            Dim table As New DataTable            adapter.Fill(table)            adapter.Update(table)            table.AcceptChanges()            sourceConnection.Open()            deleteCommand.ExecuteNonQuery()            sourceConnection.Close()        End Using        MsgBox("Data Moved", MsgBoxStyle.Information, "Moved")    End SubEnd Class
  21. تم تعديل الملف بحيث يكون ملف القاعدة محمي بكلمة سر MoveDataFrom_TO.rar
  22. منع التعديل على قوائم البرنامج

    مع الاسف لايوجد عندي ويندوز 8 لكي اجرب هذه المشكلة
  23. منع التعديل على قوائم البرنامج

    المشكلة ليست في تغيير الملف من 2003 الي 2010 فقط  أول نقل البيانات والعناصر من ملف لاخر؟ لابد من تغيير ايضا سلسلة الاتصال لتصبح متوافقة مع الملف الجديد اكسس 2010
  24. كيفية عمل مثل هذا التقرير

    هذا مجرد تصميم ويمكنك تصميم التقرير الذي تريده لان التصميم يعتمد علي تصورك للشكل المطلوب وعلي اي حال يوجد كتابين في الموضوعات المثبتة يشرح البرنامج باللغة العربية