تقييم الموضوع :
  • 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
 ارجو المساعدة  بتعديل الكود  او التواصل 


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



لعلي افدتك

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



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


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