[خالد كامل1]

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

[asemshahen5]

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

[خالد كامل1]

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

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

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

[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) 


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

[خالد كامل1]

(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) 


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

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