منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احبتى اسعدكم الله وحياكم
لدى جدول باسم MOTAGAT ويحتوى على بعض المنتجات وليكن منتج1 ومنتج 2 وهكذا
وبالجدول حقلين PRICE G  للبيع جمله PRICEB للبيع تجزئه
ولدى فاتوره تصنيع هذا المنتج وبها 2 تكست بوكس للبيع الجمله وبيع التجزئه وليكت TEXTBOX1 و TEXTBOX2
اريد كود لاظهار بيع الجمله والتجزيه فى التكست بوكسات هذه

اعمل استعلام اجلب العامودين حسب اسم المنتج او الاي دي الخاص بالمنتج و اربطه بالتكست بوكسيس .

(05-09-19, 05:36 AM)asemshahen5 كتب : [ -> ]اعمل استعلام اجلب العامودين حسب اسم المنتج او الاي دي الخاص بالمنتج و اربطه بالتكست بوكسيس .

اخى انا عملت الطريقه دى ونجحت ولكنها مرهقه لان سيتم الاستعلام فى كثير من الفورم 

فاريد ان اعطى القيم الموجوده فى الجدول بمتغيرات فى الموديول والتعويض باسم المتغسرات فى التكستات بوكس ولكنى لا اعرف الطريقه فارجو شرحها بالكود

طريقة رقم واحد :

ضع هذا بمديول :


في أول فورم فيه الاستعلام عبأ المتغيرات كالتالي :


و عند بقية النوافذ ضع التالي :


طريقة ثانية :

ضع هذا الكود في الموديول :


و هذا كود الاستدعاء :


غيير الاستعلام و اسماء الاعمدة بما يتناسب مع عملك .

(05-09-19, 09:15 AM)asemshahen5 كتب : [ -> ]طريقة رقم واحد :

ضع هذا بمديول :

PHP كود :

   Public PRICE_G As Decimal = 0
    Public PRICEB As Decimal = 0 


في أول فورم فيه الاستعلام عبأ المتغيرات كالتالي :

PHP كود :

       PRICE_G = dt.Rows(0).Item("PRICEG").ToString
        PRICEB = dt.Rows(0).Item("PRICEB").ToString 


و عند بقية النوافذ ضع التالي :

PHP كود :

       TextBox1.Text = PRICE_G
        TextBox2.Text = PRICEB 


طريقة ثانية :

ضع هذا الكود في الموديول :

PHP كود :

   Public Sub FillPrice(PRICE1 As TextBox, PRICE2 As TextBox)
        Dim sqlstr As String = "select Buy_Price,Sales_PriceTax From Products_Qty where Pro_ID=1"
        Dim da As New SqlClient.SqlDataAdapter(sqlstr, con)
        Dim dt As New DataTable
        da.Fill(dt)
        PRICE1.Text = dt.Rows(0).Item("Buy_Price").ToString
        PRICE2.Text = dt.Rows(0).Item("Sales_PriceTax").ToString
    End Sub 


و هذا كود الاستدعاء :

PHP كود :

FillPrice(TextBox1, TextBox1) 


غيير الاستعلام و اسماء الاعمدة بما يتناسب مع عملك .

لك كل التحيه والتقدير اخى العزيز