المشاركات : 7
المواضيع 2
الإنتساب : Oct 2018
السمعة :
1
الشكر: 5
تم شكره 10 مرات في 9 مشاركات
بسم الله الرحمن الرحيم
طلب اذا تكرمتم يا شباب
حليا خلصت برنامج المبيعات بعد متابعة شروحات والاستفسار منكم ولكم جزير الشكر
وقعت فى مشكلة بسيطه اليكم ولكنها كبيره بالنسبه لى
عند اضافة ماده او منتج الى المخزن
ممكن يتكرر سواء بركود او اسم صنف او التصنيف
ازى امنع التكرار سواء للباركود او اسم المنتج
مدرج كود زر الحفظ
كود :
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
ارجو المساعدة بتعديل الكود او التواصل
المشاركات : 15
المواضيع 1
الإنتساب : Apr 2021
السمعة :
3
الشكر: 332
تم شكره 24 مرات في 15 مشاركات
(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
ارجو المساعدة بتعديل الكود او التواصل
اهلا بك اخي اجعل حقل البركود (التكرار غير مقبول) الصورة توضح
لعلي افدتك
المشاركات : 7
المواضيع 2
الإنتساب : Oct 2018
السمعة :
1
الشكر: 5
تم شكره 10 مرات في 9 مشاركات
(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
ارجو المساعدة بتعديل الكود او التواصل
اهلا بك اخي اجعل حقل البركود (التكرار غير مقبول) الصورة توضح
لعلي افدتك
شكرا ليك جدا تمام اشتغلت زى الفل
|