• الإعلانات

    • فيصل الحربي

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

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

njd

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

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

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

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

7 عادي

عن njd

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0

أحدث الزائرين لملفلك الشخصي

5,180 زياره للملف الشخصي
  1. كيفية الحذف مباشرة من جريد فيو

    عفوا وأسف يا أخى التبس على الامر
  2. كيفية الحذف مباشرة من جريد فيو

    الاخ الكريم  tatatab مرفق مثال لحذف الصفوف من الداتاجريد فيو اتمنى ان يفيدك ... ولا تنسانا من الدعاء ..  datagridview.rar
  3. السلام عليكم أعلم انه مر وقت طويل على التعديل وذلك لأنى بعيد عن الموقع تماما .. و مع ذلك أضفت الطباعة فى فاتورة المبيعات  نظراً لما طلبه منى بعض الأخوة الأفاضل ... يمكن عمل أستعلام للفاتورة ثم الضغط على زر طباعه فيقوم بطباعة الفاتورة ... و اسف للجميع على التأخير .... مرفق البرنامج بعد التعديل .........> TyrCompany.rar
  4. رجاءا عاجل

     DataGridView.Rows.Clear()
  5. الأخ ابو خالد بعد التحية   كل ما عليك هو ان تعمل عدد 2 كونكشن اتصال بقواعد البيانات المراد التعامل معها و تستعلم من قاعده و تسجل بالقاعده الثانية 
  6. المساعدة في طريقة حذف صنف في فاتورة

    الأخ فتحى  تريد حذف بند من مجموعة بنود لا تستخد امر الحذف Delete  ولكن يتم هذا عن طريق الأمر Update 
  7. اخى الكريم ماذا تريد فى الطباعة القوائم ام الفواتير .... و اعدك انى سوف ارفق لك ما تريد .. و اسف لضيق وقتى و ابتعادى عن الموقع و النت 
  8. عمل تقارير بدوت نت 2010

    لماذا لا تستخدم Crystal Report فهو مرن و عملى و سهل فى تصميم التقارير ... وفى ايضا ال Report و هو عنصر اساسى فى الدوت نت و له طريقة استخدام سهلة
  9. مطلوب لغة Cobol

    أخ محمد ابراهيم ... لماذا تقول لغة منقرضة و يوجد منها أصدارات جديدة تعمل مع دوت نت 2012   انا اشتغلت RM Cobol  فى التسعينات و حتى سنة 2000 و هى لغة رائعة فعلاً
  10. مشكلة في تعبئة قاعدة البيانات من combobox

    تأكد من نوع الحقل فى الداتا بيز يجب ان يكون  string
  11. طلب عاجل (كيف ارفع الشغل على السيرفر )

    ممكن توضح سؤالك السيرفر هيكون فين و البرنامج فين  أقصد هل هو سيرفر محلى و لا عن طريق النت ؟   أرجو التوضيح  ...
  12. مشكلة في كود

    يجب توفيق المتغيرات مع نوعية الحقول فى الجدول بقاعدة البيانات يعنى الحقل الذى يعبر عن التاريخ فى الجدول معرف ب smalldatetime مثلاً لبد ان المتغير اللى هيرسل لهذا الحقل يكون من نفس النوع يعنى تعرف متغير كالأتى Dim Da as DateTime أو Dim Da as Date ثم تمرر القيمة إلى المتغير و منه إلى الجدول
  13. الأخ محمود رغمان  ... أشكر أطرائك ... انا أسف انا لأ اتواجد بأستمرار فى الموقع نظراً لأنشغالى .. و لكن انا تحت أمركم ايه المطلوب و انا أشرحه
  14. bindingsource

    جرب هذا الكود فهو يعمل لدى فى برنامج صغير للسائقين Private Sub TFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TFirst.Click MovefirstFunction() End Sub Private Sub TNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TNext.Click MoveNextFunction() End Sub Private Sub TPr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TPr.Click MovePreviousFunction() End Sub Private Sub TLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TLast.Click MoveLastFunction() End Sub Private Sub MovefirstFunction() Me.BindingContext(MainDataset, "DRIVERS").Position = 0 CRow = Me.BindingContext(MainDataset, "DRIVERS").Position DisplayData() ChangePosition() TLast.Enabled = True TNext.Enabled = True TPr.Enabled = False TFirst.Enabled = False End Sub Private Sub MoveNextFunction() Me.BindingContext(MainDataset, "DRIVERS").Position += 1 CRow = Me.BindingContext(MainDataset, "DRIVERS").Position DisplayData() ChangePosition() TFirst.Enabled = True TNext.Enabled = True TPr.Enabled = True TLast.Enabled = True If Me.BindingContext(MainDataset, "DRIVERS").Position = _ Me.BindingContext(MainDataset, "DRIVERS").Count - 1 Then TNext.Enabled = False TLast.Enabled = False End If End Sub Private Sub MovePreviousFunction() Me.BindingContext(MainDataset, "DRIVERS").Position -= 1 CRow = Me.BindingContext(MainDataset, "DRIVERS").Position DisplayData() ChangePosition() TFirst.Enabled = True TNext.Enabled = True TPr.Enabled = True TLast.Enabled = True If Me.BindingContext(MainDataset, "DRIVERS").Position = 0 Then TPr.Enabled = False TFirst.Enabled = False End If End Sub Private Sub MoveLastFunction() Me.BindingContext(MainDataset, "DRIVERS").Position = Me.BindingContext(MainDataset, "DRIVERS").Count - 1 CRow = Me.BindingContext(MainDataset, "DRIVERS").Count - 1 ChangePosition() DisplayData() TLast.Enabled = False TNext.Enabled = False TPr.Enabled = True TFirst.Enabled = True End Sub Public Sub ChangePosition() Ttextbox1.Text = Me.BindingContext(MainDataset, "DRIVERS").Position + 1 & _ " From " & Me.BindingContext(MainDataset, "DRIVERS").Count If Me.BindingContext(MainDataset, "DRIVERS").Count = 0 Then TLast.Enabled = False : TNext.Enabled = False TPr.Enabled = False : TFirst.Enabled = False End If End Sub Sub DisplayData() Try If Me.BindingContext(MainDataset, "DRIVERS").Count > 0 Then With MainDataset.Tables("DRIVERS").Rows(CRow) Me.TextBox1.Text = .Item("D_NO") Me.TextBox2.Text = .Item("D_Name") Me.TextBox3.Text = .Item("D_Id") Me.TextBox4.Text = .Item("D_Mobile") Me.TextBox5.Text = .Item("D_LicDate") Me.TextBox6.Text = .Item("D_Notes") End With End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub