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

السادة الزملاء السلام عليكم ورحمة الله وبركاتة استوقفتني شجرة الحسابات والتي صممها لنا الاخ الخبير كمال النحال في برنامج الحسابات والذي ستجدونة هنا اما بخصوص شجرة الحسابات فأعجبتني كثيراً ولاحظت طلبات الكثيرين من الاعضاء حول طريقة عمل هذه الشجرة فأحببت أن أضع بالمنتدي شرح بسيط يوضح طريقة عمل الشجرة لتعم الفائده علي جميع الزملاء بسم الله نبدأ هذه هي شكل الشجرة والتي صممها الاخ كمال في برنامج الحسابات قم بتصميم جدولك والذي يوجد به جميع بنود دليل الحسابات ولاختصار الوقت تم الاستعانة بجدول الاخ كمال النحال كما هو موضح بعد الانتهاء من تصميم الشجرة يتم كتابة الكود التالي في حدث تحميل النموذج 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

أخواني الاعضاء السلام عليكم ورحمة الله وبركاتة نظراً لكثرة طلب الاعضاء في الفترة الاخيرة عن برامج المخازن وفواتير الشراء والبيع أضع بين أيديكم شرح كامل لكيفية بناء برنامج المخازن وفواتير الشراء وفواتير البيع . . . لا أحب أن أطيل عليكم كثير ودعنا ندخل في صلب الموضوع أولاً يجب علينا أولاً انشاء جدول يحتوي علي جميع الاصناف المخزنية بكافة تفاصيلها والجدول الواضح أمامك يوضح الحقول المطلوب توافرها في هذا الجدول ثانياً : - يتم انشاء جدول لتسجيل البيانات الاساسية لرأس فاتورة الشراء كما هو موضح بالصورة المرفقه أدناه وهذه البيانات عبارة عن تاريخ الفاتورة ورقم الفاتورة اسم المورد وطريقة الدفع وخلافة ثالثاً : - يتم انشاء جدول لتسجيل البيانات الاساسية لرأس فاتورة البيع كما هو موضح بالصورة المرفقه أدناه وهذه البيانات عبارة عن تاريخ الفاتورة ورقم الفاتورة اسم العميل وطريقة الدفع وخلافة رابعاً : - يتم انشاء جدول وهذا الجدول مهمتة تسجيل كافة الحركات المخزنية بداخلة سواء فواتير بيع أو فواتير شراء كما بالشكل التالي خامساً : - كيفية انشاء العلاقات ما بين هذه الجدوال وهذه النقطة مهمة جداً كما في الشكل التالي بذلك نكون قد وضعا حجر الاساس بخصوص بناء برنامج المخازن وفواتير البيع والشراء وإن شاء رب العالمين في الدرس القادم نكمل خطوات بناء البرنامج حتي نصل به لغايتنا ان شاء الله مرفق القاعدة وبها الجزء التي تم شرحة Warehouses_System.rar

الاخوة الافاضل   السلام عليكم ورحمة الله وبركاتة مرفق روابط بحجم 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   بالتوفيق للجميع

الاخوة الاعضاء السلام عليكم ورحمة الله وبركاتة صممت لكم مثال بسيط عبارة عن دليل تليفون لحفظ ارقامك التليفونية داخل قاعدة بياناتك لاسترجاعها في أي وقت المثال يضم بعض الافكار البسيطة التي تهم كل مبرمج 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

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

اخي الفاضل محمد مسافر   من القائمة     Build --> Configuration Manager --> Plant form   قم باختيار New ثم X86

أخي الفاضل بالنسبة للمطلوب الاول تفضل الحل فمن خلال هذا الاسكريبت سيتم عمل تحديث للارقام التي تبدأ بــ 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بالتوفيق

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

يمكنك ان تحفظ الوقت و التاريخ والمستخدم في جدول وقت الضغط علي زر موافق كذلك للالغاء

ينفع طبعا التقرير برنامج تصميم ويمكنك تصميم الشكل المناسب لك

أخي الفاضل الجريد الافتراضية من مايكروسوفت لا يوجد بها هذه الخصائص ولكن عندي مثال مصمم بــ VB.Net وليس #C قريب من طلبك ان اردته ارسلة لك بالتوفيق

ابحث في جوجل عن دروس تشرح هذه النوعيه من التقارير حيث ان الوقت لا يسعفني الان لوضع شرح مفصل لطريقة استخدام هذه النوعيه   وعلي اي حال شاهد هذا الدرس ربما يفيدك   http://www.dailymotion.com/video/x1jpos9_crystal-reports-2013-tutorial-creating-a-cross-tab-report-training-lesson-16-3_tech

اتمني ان يفيدك هذا الموضوع   شرح عمل تقرير كريستال باستخدام Stored Procededures

استخدم تقرير Cross-Tab ستجدها أمامك عند ظهور اول شاشة للتقارير وبالمناسبة هذه النوعيه من التقارير مذكورة بالجزء الثاني من الكتاب بالتوفيق      

أختي الفاضلة لقد قمتي بالاجابة علي سؤالك من خلال شرح المشكلة بالفعل سنستخدم زر BackSpace لعمل هذا الاجراء ضعي هذا الكود في حدث الضغط علي الزر Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        TxtNumbers.Focus()        SendKeys.Send("{BACKSPACE}")    End Sub

ابحث في جوجل الامثلة كثيرة   مصادر :-   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

تم تعديل المثال الاصلي بحيث يكون في امكانية لتصفية البيانات وظهور نتيجة التصفية في التقرير مرفق المثال بعد التعديل Print_DataGridview_C_Sharp.rar

اتمني ان تقرأ الكتابين الموجودين في الموضوعات المثبتة عن كيفية التعامل مع تقارير الكريستال ريبورت الكتابين مشروحين باللغة العربية

أخي الفاضل صممت لك مثال سريعاً بالتوفيق Print_DataGridview_C_Sharp.rar

في هذه الحالة سيتعين علينا اعاده صياغة الكود لكي يتلائم مع الطلب الجديد الكود كامل وقاعدتي البيانات محميتين بكلمات مرور   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

تم تعديل الملف بحيث يكون ملف القاعدة محمي بكلمة سر MoveDataFrom_TO.rar

استخدم DTS ابحث عنها في جوجل

مع الاسف لايوجد عندي ويندوز 8 لكي اجرب هذه المشكلة

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

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