السلام عليكم لدي كود التالي عندما اضغط علي زر حفظ يظهر رساله تالية
كود :
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
If unitdefault1.Checked = True Then dr!unitdefault1 = 1
If unitdefault2.Checked = True Then dr!unitdefault2 = 2
If unitdefault3.Checked = True Then dr!unitdefault3 = 3
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
05-02-23, 06:11 PM (آخر تعديل لهذه المشاركة : 05-02-23, 09:13 PM {2} بواسطة AnyDesk.)
(05-02-23, 01:01 AM)ali_ahmed12 كتب : السلام عليكم لدي كود التالي عندما اضغط علي زر حفظ يظهر رساله تالية
كود :
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
If unitdefault1.Checked = True Then dr!unitdefault1 = 1
If unitdefault2.Checked = True Then dr!unitdefault2 = 2
If unitdefault3.Checked = True Then dr!unitdefault3 = 3
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
(05-02-23, 01:01 AM)ali_ahmed12 كتب : السلام عليكم لدي كود التالي عندما اضغط علي زر حفظ يظهر رساله تالية
كود :
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
If unitdefault1.Checked = True Then dr!unitdefault1 = 1
If unitdefault2.Checked = True Then dr!unitdefault2 = 2
If unitdefault3.Checked = True Then dr!unitdefault3 = 3
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
(05-02-23, 01:01 AM)ali_ahmed12 كتب : السلام عليكم لدي كود التالي عندما اضغط علي زر حفظ يظهر رساله تالية
كود :
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
If unitdefault1.Checked = True Then dr!unitdefault1 = 1
If unitdefault2.Checked = True Then dr!unitdefault2 = 2
If unitdefault3.Checked = True Then dr!unitdefault3 = 3
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
