تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب اذا تكرمتم فى بخصوص منع التكرار
#1
بسم الله الرحمن الرحيم





 طلب اذا تكرمتم يا شباب 






 حليا خلصت برنامج المبيعات بعد متابعة شروحات  والاستفسار  منكم ولكم جزير الشكر 


 وقعت فى مشكلة بسيطه اليكم ولكنها كبيره بالنسبه لى 


 عند اضافة ماده او منتج الى المخزن  
ممكن يتكرر  سواء بركود او اسم صنف او التصنيف 


 ازى  امنع التكرار سواء للباركود او اسم المنتج 

 مدرج كود زر الحفظ 
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TxTMaterialBarCode.Text = "" Then
           MsgBox("إدخل رقم البار كود")
           Exit Sub
       End If

       If TxTMaterialName.Text = "" Then
           MsgBox("إدخل اسم المادة")
           Exit Sub
       End If

       If TxTQuantityAvailable.Text = "" Then
           MsgBox("إدخل الكمية المتوفرة لديك من المادة")
           Exit Sub
       End If

       If TxTWholesalePrice.Text = "" Or TxTSellingPrice.Text = "" Then
           MsgBox("إدخل سعر البيع او سعر الجملة")
           Exit Sub
       End If

       Try

           If Conn.State = ConnectionState.Closed Then
               Conn.Open()
           End If

           Dim cmd As New OleDb.OleDbCommand
           cmd.Connection = Conn
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "INSERT INTO Materials (MaterialBarCode, SANF, MaterialName, WAHDA, QuantityAvailable, WholesalePrice, SellingPrice, DataMa, Rabh,  Ml) VALUES (@MaterialBarCode, @SANF, @MaterialName ,@WAHDA, @QuantityAvailable, @WholesalePrice, @SellingPrice, DataMa, @Rabh,  @Ml)"


           cmd.Parameters.AddWithValue("@MaterialBarCode", TxTMaterialBarCode.Text.Trim)
           cmd.Parameters.AddWithValue("@SANF", CSNF.Text.Trim)
           cmd.Parameters.AddWithValue("@MaterialName", TxTMaterialName.Text.Trim)
           cmd.Parameters.AddWithValue("@WAHDA", CWH.Text.Trim)
           cmd.Parameters.AddWithValue("@QuantityAvailable", TxTQuantityAvailable.Text.Trim)
           cmd.Parameters.AddWithValue("@WholesalePrice", TxTWholesalePrice.Text.Trim)
           cmd.Parameters.AddWithValue("@SellingPrice", TxTSellingPrice.Text.Trim)
           cmd.Parameters.AddWithValue("@DataMa", DataM.Text.Trim)
           cmd.Parameters.AddWithValue("@Rabh", Rabh.Text.Trim)
           cmd.Parameters.AddWithValue("@Ml", Note.Text.Trim)


           cmd.ExecuteScalar()
           Conn.Close()

           TxTMaterialBarCode.Text = ""
           TxTMaterialName.Text = ""
           TxTQuantityAvailable.Text = ""
           TxTWholesalePrice.Text = ""
           TxTSellingPrice.Text = ""
           CSNF.Text = ""
           Note.Text = ""
           CWH.Text = ""
           TxTMaterialBarCode.Focus()

           MsgBox("تم إضافة المادة بنجاح")

           Materials.LoadMaterials()





       Catch ex As Exception
           MsgBox("خطأ في الإدخال، قد تكون المداة مكررة او ان القاعدة محمية")
           Exit Sub
       End Try
   End Sub
 ارجو المساعدة  بتعديل الكود  او التواصل 
الرد
تم الشكر بواسطة:
#2
(22-04-21, 06:02 AM)ahmed.zaki كتب :
بسم الله الرحمن الرحيم





 طلب اذا تكرمتم يا شباب 






 حليا خلصت برنامج المبيعات بعد متابعة شروحات  والاستفسار  منكم ولكم جزير الشكر 


 وقعت فى مشكلة بسيطه اليكم ولكنها كبيره بالنسبه لى 


 عند اضافة ماده او منتج الى المخزن  
ممكن يتكرر  سواء بركود او اسم صنف او التصنيف 


 ازى  امنع التكرار سواء للباركود او اسم المنتج 

 مدرج كود زر الحفظ 
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TxTMaterialBarCode.Text = "" Then
           MsgBox("إدخل رقم البار كود")
           Exit Sub
       End If

       If TxTMaterialName.Text = "" Then
           MsgBox("إدخل اسم المادة")
           Exit Sub
       End If

       If TxTQuantityAvailable.Text = "" Then
           MsgBox("إدخل الكمية المتوفرة لديك من المادة")
           Exit Sub
       End If

       If TxTWholesalePrice.Text = "" Or TxTSellingPrice.Text = "" Then
           MsgBox("إدخل سعر البيع او سعر الجملة")
           Exit Sub
       End If

       Try

           If Conn.State = ConnectionState.Closed Then
               Conn.Open()
           End If

           Dim cmd As New OleDb.OleDbCommand
           cmd.Connection = Conn
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "INSERT INTO Materials (MaterialBarCode, SANF, MaterialName, WAHDA, QuantityAvailable, WholesalePrice, SellingPrice, DataMa, Rabh,  Ml) VALUES (@MaterialBarCode, @SANF, @MaterialName ,@WAHDA, @QuantityAvailable, @WholesalePrice, @SellingPrice, DataMa, @Rabh,  @Ml)"


           cmd.Parameters.AddWithValue("@MaterialBarCode", TxTMaterialBarCode.Text.Trim)
           cmd.Parameters.AddWithValue("@SANF", CSNF.Text.Trim)
           cmd.Parameters.AddWithValue("@MaterialName", TxTMaterialName.Text.Trim)
           cmd.Parameters.AddWithValue("@WAHDA", CWH.Text.Trim)
           cmd.Parameters.AddWithValue("@QuantityAvailable", TxTQuantityAvailable.Text.Trim)
           cmd.Parameters.AddWithValue("@WholesalePrice", TxTWholesalePrice.Text.Trim)
           cmd.Parameters.AddWithValue("@SellingPrice", TxTSellingPrice.Text.Trim)
           cmd.Parameters.AddWithValue("@DataMa", DataM.Text.Trim)
           cmd.Parameters.AddWithValue("@Rabh", Rabh.Text.Trim)
           cmd.Parameters.AddWithValue("@Ml", Note.Text.Trim)


           cmd.ExecuteScalar()
           Conn.Close()

           TxTMaterialBarCode.Text = ""
           TxTMaterialName.Text = ""
           TxTQuantityAvailable.Text = ""
           TxTWholesalePrice.Text = ""
           TxTSellingPrice.Text = ""
           CSNF.Text = ""
           Note.Text = ""
           CWH.Text = ""
           TxTMaterialBarCode.Focus()

           MsgBox("تم إضافة المادة بنجاح")

           Materials.LoadMaterials()





       Catch ex As Exception
           MsgBox("خطأ في الإدخال، قد تكون المداة مكررة او ان القاعدة محمية")
           Exit Sub
       End Try
   End Sub
 ارجو المساعدة  بتعديل الكود  او التواصل 


اهلا بك اخي اجعل حقل البركود (التكرار غير مقبول) الصورة توضح



لعلي افدتك
الرد
تم الشكر بواسطة: ahmed.zaki
#3
(22-04-21, 06:23 AM)أسعد كتب :
(22-04-21, 06:02 AM)ahmed.zaki كتب :
بسم الله الرحمن الرحيم





 طلب اذا تكرمتم يا شباب 






 حليا خلصت برنامج المبيعات بعد متابعة شروحات  والاستفسار  منكم ولكم جزير الشكر 


 وقعت فى مشكلة بسيطه اليكم ولكنها كبيره بالنسبه لى 


 عند اضافة ماده او منتج الى المخزن  
ممكن يتكرر  سواء بركود او اسم صنف او التصنيف 


 ازى  امنع التكرار سواء للباركود او اسم المنتج 

 مدرج كود زر الحفظ 
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TxTMaterialBarCode.Text = "" Then
           MsgBox("إدخل رقم البار كود")
           Exit Sub
       End If

       If TxTMaterialName.Text = "" Then
           MsgBox("إدخل اسم المادة")
           Exit Sub
       End If

       If TxTQuantityAvailable.Text = "" Then
           MsgBox("إدخل الكمية المتوفرة لديك من المادة")
           Exit Sub
       End If

       If TxTWholesalePrice.Text = "" Or TxTSellingPrice.Text = "" Then
           MsgBox("إدخل سعر البيع او سعر الجملة")
           Exit Sub
       End If

       Try

           If Conn.State = ConnectionState.Closed Then
               Conn.Open()
           End If

           Dim cmd As New OleDb.OleDbCommand
           cmd.Connection = Conn
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "INSERT INTO Materials (MaterialBarCode, SANF, MaterialName, WAHDA, QuantityAvailable, WholesalePrice, SellingPrice, DataMa, Rabh,  Ml) VALUES (@MaterialBarCode, @SANF, @MaterialName ,@WAHDA, @QuantityAvailable, @WholesalePrice, @SellingPrice, DataMa, @Rabh,  @Ml)"


           cmd.Parameters.AddWithValue("@MaterialBarCode", TxTMaterialBarCode.Text.Trim)
           cmd.Parameters.AddWithValue("@SANF", CSNF.Text.Trim)
           cmd.Parameters.AddWithValue("@MaterialName", TxTMaterialName.Text.Trim)
           cmd.Parameters.AddWithValue("@WAHDA", CWH.Text.Trim)
           cmd.Parameters.AddWithValue("@QuantityAvailable", TxTQuantityAvailable.Text.Trim)
           cmd.Parameters.AddWithValue("@WholesalePrice", TxTWholesalePrice.Text.Trim)
           cmd.Parameters.AddWithValue("@SellingPrice", TxTSellingPrice.Text.Trim)
           cmd.Parameters.AddWithValue("@DataMa", DataM.Text.Trim)
           cmd.Parameters.AddWithValue("@Rabh", Rabh.Text.Trim)
           cmd.Parameters.AddWithValue("@Ml", Note.Text.Trim)


           cmd.ExecuteScalar()
           Conn.Close()

           TxTMaterialBarCode.Text = ""
           TxTMaterialName.Text = ""
           TxTQuantityAvailable.Text = ""
           TxTWholesalePrice.Text = ""
           TxTSellingPrice.Text = ""
           CSNF.Text = ""
           Note.Text = ""
           CWH.Text = ""
           TxTMaterialBarCode.Focus()

           MsgBox("تم إضافة المادة بنجاح")

           Materials.LoadMaterials()





       Catch ex As Exception
           MsgBox("خطأ في الإدخال، قد تكون المداة مكررة او ان القاعدة محمية")
           Exit Sub
       End Try
   End Sub
 ارجو المساعدة  بتعديل الكود  او التواصل 


اهلا بك اخي اجعل حقل البركود (التكرار غير مقبول) الصورة توضح



لعلي افدتك

شكرا ليك جدا تمام اشتغلت زى الفل
الرد
تم الشكر بواسطة: أسعد , أسعد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن مساعدة بخصوص المشكلة هدي Ofealas 4 226 13-07-21, 07:51 PM
آخر رد: Ofealas
  ممكن مساعدة بخصوص كويري معين حدتت به اخطاء Alanwalker 7 325 27-06-21, 05:27 PM
آخر رد: ابو انس
  [VB.NET] اريد مساعدة بخصوص جروب فيسبوك ميدو الفنان 1 255 17-06-21, 10:46 PM
آخر رد: ميدو الفنان
  الرجاء من رواد البرمجة في المنتدي بخصوص استعاء بيانات من موقع لتكست بوكس نور الهدى الهدى 2 480 16-06-21, 09:08 PM
آخر رد: نور الهدى الهدى
  [VB.NET] سؤال بخصوص الطباعة M.SOFT 0 325 20-03-21, 10:10 PM
آخر رد: M.SOFT
  سألت سؤال ومحد رد علي هذا السؤال الثاني بخصوص التقارير saud4001 4 587 06-03-21, 03:39 PM
آخر رد: saud4001
  [VB.NET] استفسار بخصوص المسج اللي يطلع Output dubai.eig 5 1,406 26-02-21, 10:47 PM
آخر رد: علي المروعي
Sad [سؤال] بخصوص اقفال السنة المالية و فتح سنة جديدة sql سعيد كنيمو 5 640 24-02-21, 10:27 PM
آخر رد: سعيد كنيمو
  الرجاء مساعدة بخصوص حفظ و تعديل صورة صنف من الأصناف nouribenyahia 0 403 09-02-21, 08:29 PM
آخر رد: nouribenyahia
  [VB.NET] سؤال هام بخصوص برامج الحماية للسورس كود محمد اسماعيل 0 320 20-01-21, 03:09 AM
آخر رد: محمد اسماعيل

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


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