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

اخي الفاضل محمد مسافر   من القائمة     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