05-02-23, 01:01 AM
السلام عليكم لدي كود التالي عندما اضغط علي زر حفظ يظهر رساله تالية
كود :
If itemname.Text = "" Then
MessageBox.Show("ادخل اسم الصنف")
itemname.Focus()
Exit Sub
End If
If Categorizationname.Text = "" Then
MessageBox.Show("ادخل التصنيف الرئيسي للصنف")
Categorizationname.Focus()
Exit Sub
End If
If firstunit.Text = "" Then
MessageBox.Show("ادخل الوحدة الاولي للصنف ")
firstunit.Focus()
Exit Sub
End If
Try
Dim str = "select *from items where itemname=N'" & itemname.Text & "'"
Dim adp = New SqlDataAdapter(str, Module1.con)
Dim ds = New DataSet
adp.Fill(ds)
Dim dt As DataTable
If dt.Rows.Count > 0 Then
MessageBox.Show("اسم الصنف المدخل موجود مسبقا يرجي تغير اسم الصنف")
itemname.Focus()
Else
Dim dr = dt.NewRow
'=====================بيانات اساسية ==========================
dr!itemcode = itemcode.Text
dr!itemserail = itemserial.Text
dr!itemname = itemname.Text
dr!CategorizationName = Categorizationname.Text
dr!size = size.Text
dr!company = company.Text
dr!color = color.Text
dr!origin = origin.Text
'====================الوحدات===============
dr!firstunit = firstunit.Text
dr!firstunitbarcode = firstunitbarcode.Text
dr!secondunit = secondunit.Text
dr!secondunitbarcode = secondunitbarcode.Text
dr!secountunitoperatingconversion = secountunitoperatingconversion.Text
dr!thirdunit = thirdunit.Text
dr!thirdunitbarcode = thirdunitbarcode.Text
dr!thirdtunitoperatingconversion = thirdtunitoperatingconversion.Text
'================خيارات حدود====================
dr!maxlimitforfirstunit = maxlimitforfirstunit.Text
dr!minlimitforfirstunit = minlimitforfirstunit.Text
dr!orderlimitforfirstunit = orderlimitforfirstunit.Text
dr!maxlimitforsecondunit = maxlimitforsecondunit.Text
dr!minlimitforsecondunit = minlimitforsecondunit.Text
dr!orderlimitforsecondunit = orderlimitforsecondunit.Text
dr!maxlimitforthirdunit = maxlimitforthirdunit.Text
dr!minlimitforthirdunit = minlimitforthirdunit.Text
dr!orderlimitforthirdunit = orderlimitforthirdunit.Text
If unitdefault1.Checked = True Then dr!unitdefault1 = 1
If unitdefault2.Checked = True Then dr!unitdefault2 = 2
If unitdefault3.Checked = True Then dr!unitdefault3 = 3
'============اسعار البيع===============================================
dr!itemcode = itemcode.Text
dr!wholesaleforfirstunit = Val(wholesaleforfirstunit.Text)
dr!wholesaleforsecondunt = Val(wholesaleforsecondunt.Text)
dr!wholesaleforthirdunit = Val(wholesaleforthirdunit.Text)
dr!halfwholesaleforfirstunit = Val(halfwholesaleforfirstunit.Text)
dr!halfwholesaleforsecondunt = Val(halfwholesaleforsecondunt.Text)
dr!halfwholesaleforthirdunit = Val(halfwholesaleforthirdunit.Text)
dr!distributorforfirstunit = Val(distributorforfirstunit.Text)
dr!distributorforsecondunt = Val(distributorforsecondunt.Text)
dr!distributorforthirdunit = Val(distributorforthirdunit.Text)
dr!exportforfirstunit = Val(exportforfirstunit.Text)
dr!exportforsecondunt = Val(exportforsecondunt.Text)
dr!exportforthirdunit = Val(exportforthirdunit.Text)
dr!retailforfirstunit = Val(retailforfirstunit.Text)
dr!retailforsecondunit = Val(retailforsecondunit.Text)
dr!retailforthirdunit = Val(retailforthirdunit.Text)
dr!enduserforfirstunit = Val(enduserforfirstunit.Text)
dr!enduserforsecondunit = Val(enduserforsecondunit.Text)
dr!enduserforthirdunit = Val(enduserforthirdunit.Text)
If pricedefault1.Checked = True Then dr!pricedefault1 = 1
If pricedefault2.Checked = True Then dr!pricedefault2 = 2
If pricedefault3.Checked = True Then dr!pricedefault3 = 3
If pricedefault4.Checked = True Then dr!pricedefault4 = 4
If pricedefault5.Checked = True Then dr!pricedefault5 = 5
If pricedefault6.Checked = True Then dr!pricedefault6 = 6
dt.Rows.Add(dr)
Dim SAVE As New SqlCommandBuilder(adp)
adp.Update(dt)
MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim st2 As String = "قم بحفظ صنف" & itemname.Text
Module1.logfunc(str_username, st2)
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
cl()
Btn_del.Enabled = False
Btn_edit.Enabled = False
Btn_save.Enabled = True
Button3_Click(sender, e)