تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال بيانات من فورم الى فورم اخر مفتوح باكثر من نسخة.
#1
السلام عليكم 

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

يعني لو كان لدي form1 هو فورم الفاتورة ... انا اقوم بالسماح للمستخدم 
بفتح اكثر من نسخة للفورم ١ فمن الممكن ان يفتح المستخدم نفس الفورم 
٣ مرات مثلا ....

لكن عند فتح الفورم و في حدث load لل form1 اقوم بفتح فورم اخر XX يحتوي 
على ٢ من ال buttons يختار منها المستخدم اذا الفاتورة الجديدة ستباع باسعار الجملة 
ام باسعار التجزئة.

السؤال هنا كيف استطيع ارجاع القيمة من الفورم  XX الى الفورم الذي تم فتحة في الاخر 
دون التاثير على القيمة في الفورمات المفتوحه مسبقا .

انا استخدم الكود الحالي لكن يقوم بارسال القيم لجميع الفورمات المفتوحة ولليس اخر فورم.

الكود الخاص في الفورم XX لل button ١
PHP كود :
       For Each CurrentForm As Form In Application.OpenForms
            If CurrentForm
.Name "Sales_screen" Then
                Dim Form2Instance 
As Sales_screen DirectCast(CurrentFormSales_screen)
 
               Form2Instance.Invoice_type 0
            End 
If
 
       Next 
 
الرد
تم الشكر بواسطة: ابراهيم ايبو , اسامه الهرماوي
#2
(15-12-19, 04:24 AM)Rabeea Qbaha كتب :
السلام عليكم 

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

يعني لو كان لدي form1 هو فورم الفاتورة ... انا اقوم بالسماح للمستخدم 
بفتح اكثر من نسخة للفورم ١ فمن الممكن ان يفتح المستخدم نفس الفورم 
٣ مرات مثلا ....

لكن عند فتح الفورم و في حدث load لل form1 اقوم بفتح فورم اخر XX يحتوي 
على ٢ من ال buttons يختار منها المستخدم اذا الفاتورة الجديدة ستباع باسعار الجملة 
ام باسعار التجزئة.

السؤال هنا كيف استطيع ارجاع القيمة من الفورم  XX الى الفورم الذي تم فتحة في الاخر 
دون التاثير على القيمة في الفورمات المفتوحه مسبقا .

انا استخدم الكود الحالي لكن يقوم بارسال القيم لجميع الفورمات المفتوحة ولليس اخر فورم.

الكود الخاص في الفورم XX لل button ١
PHP كود :
       For Each CurrentForm As Form In Application.OpenForms
            If CurrentForm
.Name "Sales_screen" Then
                Dim Form2Instance 
As Sales_screen DirectCast(CurrentFormSales_screen)
 
               Form2Instance.Invoice_type 0
            End 
If
 
       Next 
 

هذا الكود لفتح اكثر من فاتوره
كود :
Dim frm As New Sales_screen
frm.Show()

هذا كود فاتوره جديده سوف تفتح نافذه خيارات كما طلبت
كود :
Dim Invoice_type As Integer

Private Sub Sales_screen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Using xx As New XX
       If xx.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
           Invoice_type = xx.selection
           Me.Text = Invoice_type
       Else
           Me.Close()
       End If
   End Using
End Sub

هذا كود نافذه الخيارات
كود :
Public selection As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   selection = 1
   Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
   selection = 2
   Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
الرد
#3
شكرا جزيلا صديقي 
زاد الله علما.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سوال عن قاعدة بيانات sql ? nazarakrawi 3 78 18-01-20, 10:13 PM
آخر رد: boudyonline
  [سؤال] مشكلة في الاتصال بقاعدة بيانات اكسس 2003 ناجح احمد 10 220 17-01-20, 10:57 PM
آخر رد: ناجح احمد
  انشاء قاعدة بيانات المتألق9 1 63 13-01-20, 12:28 AM
آخر رد: asemshahen5
  سؤل في قاعده بيانات sql اليوم السابع 1 87 08-01-20, 09:51 AM
آخر رد: محمود بكرى
  [VB.NET] جملة الاتصال بقاعدة بيانات MDF mne3000 2 96 08-01-20, 05:04 AM
آخر رد: اسامه الهرماوي
  استخدام ملف txt كقاعدة بيانات اسهل واسرع وافضل ام لا؟ nowiglah 1 84 03-01-20, 10:41 PM
آخر رد: ابراهيم ايبو
  مساعدة في استدعاء بيانات معينة من موقع على الانترنت نور الهدى الهدى 0 72 02-01-20, 02:52 PM
آخر رد: نور الهدى الهدى
  [VB.NET] كيف يمكنني استعادة جدول معين (جدول فقط) من قاعدة بيانات rizakflash8 6 191 25-12-19, 08:09 PM
آخر رد: rizakflash8
  مطلوب كود استدعاء سجلات من بيانات متتكررة نور الهدى الهدى 1 96 19-12-19, 09:07 PM
آخر رد: smalw
  رسالة خطأ تظهر مع استخدام قاعدة بيانات اكسس 2007 aftfm 0 80 18-12-19, 05:47 PM
آخر رد: aftfm

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم