• الإعلانات

    • فيصل الحربي

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

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

mohamad1977

اعضاء
  • عدد المشاركات

    75
  • تاريخ الانضمام

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

السمعه بالموقع

3 عادي

عن mohamad1977

  • الرتبة
    عضو
  • تاريخ الميلاد 02/23/1977

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : ليبيا
  1. وهذا اخى رابط الاصدار الخاص بالفيجوال ستديو 2012 وهو يعمل بشكل جيد وان اعمل عليه ولا توجد به اى مشاكل   تجد الملفات هنا   تحياتى
  2. بعد التحية اخى لدينا مشاريع كنا قد صممنها بالفيجوال 2010 وعليه تقرير كرستال ريبوت وقمنا بتشغيلها على 2012 ولم تحدث اى مشاكل اعتقد ان المشكلة لديك فى حفظ خصائص التصميم من البداية لذا عند الترقية حدث هذه المشاكل وهذا ما اعتقده ونحن فى انتظار ردود باقى الاعضاء لعل احدهم لديه حل تحياتى
  3. صورة خلفية للفورم MDI

    اخى قم بتعطيل الخاصية (isMdiContainer) واجعلها فى وضع false وسوف يعمل معاك
  4. الاخت العزيزة انا ايضا قمت بالتجربة وعند اداراج هدا الكود تزول المشكلة يبدو ان لديك كاش فقط لذا قومى بالاتى Clean Solution بعد ذلك قومى بالتجربة
  5. اخى بالنسبة لمعرفة اللغة فانا اعرف اللغتين ولكن لا املك الفيجوال بيسك6 ولكن ادا كنت ترغب ارفق المشروع وسوف اقوم بتحرير ملفات الكود عن طريق اى محرر وارفق لك التعديل وانت فقط تقوم باضافة الاداة الجديدة الى الفورم حتى يتم التعرف عليها والربط معها ويعمل معاك التطبيق باذن الله كما تريد
  6. اخى اسف عن التاخير ودلك بسبب غايب خدمة الانترنت لدى سوف اتحدث هنا عن امرين وهما طريقة الانتقال من سجل الى اخر وطريقة البحث وسوف استخدام 5 صناديق نصية اربعة منها للعرض وواحد فقط للبحث   كود السجل الاول CountDataBaseIndex = 0 Label25.RightToLeft = Windows.Forms.RightToLeft.Yes Label1.Text = "" & Me.BindingContext(Dsdata_prs, "data_prs").Position & "من" & Me.BindingContext(Dsdata_prs, "data_prs").Count - 1 GetDate()كود السجل السابق If CountDataBaseIndex > 0 Then CountDataBaseIndex = CountDataBaseIndex - 1 GetDate() Else CountDataBaseIndex = Dsdata_prs.Tables(0).Rows.Count - 1 End If Label1.RightToLeft = Windows.Forms.RightToLeft.Yes Label1.Text = "" & Me.BindingContext(Dsdata_prs, "data_prs").Position & "من" & Me.BindingContext(Dsdata_prs, "data_prs").Count - 1كود السجل التالى If CountDataBaseIndex < Dsdata_prs.Tables(0).Rows.Count - 1 Then CountDataBaseIndex = CountDataBaseIndex + 1 GetDate() Else CountDataBaseIndex = 0 End If Label1.RightToLeft = Windows.Forms.RightToLeft.Yes Label1.Text = "" & Me.BindingContext(Dsdata_prs, "data_prs").Position & "من" & Me.BindingContext(Dsdata_prs, "data_prs").Count - 1كود السجل الاخير CountDataBaseIndex = Dsdata_prs.Tables(0).Rows.Count - 1 Label25.RightToLeft = Windows.Forms.RightToLeft.Yes Label1.Text = "" & Me.BindingContext(Dsdata_prs, "data_prs").Position & "من" & Me.BindingContext(Dsdata_prs, "data_prs").Count - 1 GetDate()كود استدعاء البيانات TextBox1.DataBindings.Add("Text", Dsdata_prs, "data_prs.f1")TextBox2.DataBindings.Add("Text", Dsdata_prs, "data_prs.f2")TextBox3.DataBindings.Add("Text", Dsdata_prs, "data_prs.f3")TextBox4.DataBindings.Add("Text", Dsdata_prs, "data_prs.f4")كود البحث فى المربع النصي الدى يحمل الرقم 5 Con.Close() Dsdata_prs.Clear() Dsdata_prs.Dispose() Con.Open() Dim SqlStrGet As String = "SELECT * FROM data_prs " SqlStrGet &= "WHERE f1='" & TextBox5.Text & "'" Dim DataAdapterGet As New OleDbDataAdapter(SqlStrGet, Con) DataAdapterGet.Fill(Dsdata_prs, "data_prs") Con.Close() If Me.BindingContext(Dsdata_prs, "data_prs").Count = 0 Then Me.ErrorProvider1.SetError(Me.Label2, "الرجاء اعادة المحاولة") Else GetDate() End Ifتحياتى
  7. اختى بعد تجربة الكود المرفق اتضح ان الخطا لديك فى طريقة الاتصال بقاعدة البيانات والصحيح ان تقوم بالاتى Imports CrystalDecisions.CrystalReports.EngineImports CrystalDecisions.SharedImports System.DataImports System.Data.OleDbPublic Class allticketsrep Public ConStr As String = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source ={0}\travel.mdb", Application.StartupPath)Public Con As New OleDbConnection(constr) Public Ds As New DataSet Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load Con.Close() Ds.Clear() Ds.Dispose() Dim rpt As New Crystaltickets 'تعبئة الداتا ست بالبيانات Try Con.Open() Dim SqlStrGet As String = "SELECT * FROM tickets " Dim DataAdapterGet As New OleDbDataAdapter(SqlStrGet, Con) DataAdapterGet.Fill(Ds, "tickets") Con.Close() If Me.BindingContext(Ds, "tickets").Count = 0 Then MsgBox("الرجاء اعادة المحاولة") Else 'استدعاء التقرير وتعبة البيانات من الداتا ست rpt.SetDataSource(Ds) CrystalReportViewer1.ReportSource = rpt End If Catch ex As Exception MessageBox.Show(ex.Message, "خطاء", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) End TryEnd SubEnd Class
  8. مرحبا بك اخى اخى استخدام معالج الداتا ست وقم بربط الجدول الدى ترغب به ومن ثم ضع الشرط الدى تتحدث عنه فى الاداة التى خصصتها للصف ويكون الشرط فى الحدث change تحياتى
  9. Sms من الطرفين هل موجوده أو لا ؟؟

    نعم اخى ممكن وهذا شرح لكيفية عمل ذلك   وهدا هو الكود المطلوب Imports SystemImports System.IOImports System.NetImports System.TextImports System.WebPublic Class fMain Private Sub bSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSend.Click Dim request As HttpWebRequest Dim response As HttpWebResponse = Nothing Dim url As String Dim username As String Dim password As String Dim host As String Dim originator As String Try host = "http://127.0.0.1:9501" originator = "06201234567" username = "admin" password = "abc123" url = host + "/api?action=sendmessage&" _ & "username=" & HttpUtility.UrlEncode(username) _ & "&password=" + HttpUtility.UrlEncode(password) _ & "&recipient=" + HttpUtility.UrlEncode(tbReceiver.Text) _ & "&messagetype=SMS:TEXT" _ & "&messagedata=" + HttpUtility.UrlEncode(tbMessage.Text) _ & "&originator=" + HttpUtility.UrlEncode(originator) _ & "&serviceprovider=GSMModem1" _ & "&responseformat=html" request = DirectCast(WebRequest.Create(url), HttpWebRequest) response = DirectCast(request.GetResponse(), HttpWebResponse) MessageBox.Show("Response: " & response.StatusDescription) Catch ex As Exception End Try End SubEnd Classايضا هذا المثال كما هو وايضا حفظ حقوق صاحب الفكرة والموقع الدى تم نشر الموضوع عليه سوف تجد المثال في المرفقات send-sms-vb.net-http-sms-example.zip   هنا تجد الموضوع مفصل   تحياتى
  10. لك دلك اخى فى الصباح يكون التطبيق امامك باذن الله تعالى
  11. اخى اسف ارغب بالمساعدة ولكن لا اعمل على فيجوال بيسك 6 ولكن ادا كنت ترغب فى ان ارفق لك تطبيق على الدوت نت فلا مانع لدى تحياتى  
  12. Connection String And Deployment

    اخى عند استخدام قواعد البيانات sql فهذا يعنى ان التطبيق سوف يعمل على شبكة صحيح انه ليس بالضرورى هذا الامر ولكن فى الغالب هذا ما يحدث عند استخدام هذا النوع من قواعد البيانات وفى هذه الحالة من الطبيعى ان يكون هناك خادم (server) لثتبيث مشغل قواعد البيانات (sql server) وبعدها يتم انشاء او استرجاع قاعدة البيانات وذلك حسب الرغبة بعد ذلك وهو الاهم ياتى دور الثبيت وهنا يعتمد النظام على احدى الامرين في حال ان جهاز الخادم كان يحمل اسم دومين فهدا يعنى انك سوف تستخدم اسم الدومين فى الاتصال بقاعدة البيانات وان كان الخادم لا يحمل اسم دومين فمن الافضل ان يكون عليه (IP ) ثابت ويتم استخدمه هو فى عملية الاتصال وتكون الصيغة فى الاثنين كالاتى Data Source=myServerAddress;Initial Catalog=myDataBase;Integrated Security=SSPI;User ID=myDomain\myUsername;Password=myPassword;او Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;تحياتى
  13. الاخت العزيزة هذا الخطا يكون موجود فى ملفا الاعداد وليس فى الكلاس الخاص بالكود وتجدين هذا الملف باسم app فهو يتم تجهيزه تلقائيا تحياتى
  14. اليك الملف بعد التعديل error.zip
  15. اخى الامر سهل انتبه معى تخيل ان لديك فورم وعليه اربعة صناديق نصية اى textbox وايضا لديك اربعة ازرار تنقل ويقوم كود التنقل بعرض البيانات فى الصناديق الاربعة ايضا تريد ان تقوم بالتعديل على البيانات بستخدم زر تعديل ولكن لا ترغب فى ان يكون زر التعديل متاح اثناء التنقل ادا سوف تقوم بوضع صندوق نصية جديد اى سوف يصبح العدد 5 وهدا الصندوق هو المسوال عن عملية البحث وتجعل كود البحث لديك يعمل فى الحدث textbox5_change وتضع فى شرط البحث انه ان تحقق الشرط تجعل زرد التعديل متاح وان لم يتحقق تجعل زر التعديل معطل وان كنت تحتاج مثال عملى سوف اضع لك دلك تحياتى