28-03-21, 02:44 AM
شباب عندي برنامج على الفيجوال دوت نت وقاعده البيانات اسكيوال سيرفر
بواجهه الادخال من احفظ اريده يحفظه البيانات على جدول inputt وبنفس الوقت يزيد عدد 1 في جدول الرصيد للماده المسمى amouny .totla طبعا الاسم راح يقارن من combobox2.text ارجو المساعده
هذا كود الحفظ ارغب بالتعديل عليه
بواجهه الادخال من احفظ اريده يحفظه البيانات على جدول inputt وبنفس الوقت يزيد عدد 1 في جدول الرصيد للماده المسمى amouny .totla طبعا الاسم راح يقارن من combobox2.text ارجو المساعده
هذا كود الحفظ ارغب بالتعديل عليه
PHP كود :
If TextBox1.Text = "" Then
MsgBox("الرجاء ادخال رقم المستند")
ElseIf TextBox2.Text = "" Then
MsgBox("الرجاء ادخال تاريخ المستند")
ElseIf ComboBox2.Text = "" Then
MsgBox("الرجاء ادخال نوع ")
ElseIf ComboBox3.Text = "" Then
MsgBox("الرجاء ادخال حاله ")
ElseIf ComboBox1.Text = "" Then
MsgBox("الرجاء ادخال الجهه الوارده")
ElseIf TextBox3.Text = "" Then
MsgBox("الرجاء ادخال رقم ")
ElseIf TextBox4.Text = "" Then
MsgBox("الرجاء ادخال رقم الموافقه")
ElseIf TextBox6.Text = "" Then
MsgBox("الرجاء ادخال الملاحظات")
Else
cmd = New SqlCommand("insert into inputta (nomdoc, datdoc,kinwep,wepsach,jeha,selnum,mowa,notees)values(@nomdoc, @datdoc,@kinwep,@wepsach,@jeha,@selnum,@mowa,@notees )", con)
With cmd.Parameters.AddWithValue("@nomdoc", TextBox1.Text)
cmd.Parameters.AddWithValue("@datdoc", TextBox2.Text)
cmd.Parameters.AddWithValue("@kinwep", ComboBox2.Text)
cmd.Parameters.AddWithValue("@wepsach", ComboBox3.Text)
cmd.Parameters.AddWithValue("@jeha", ComboBox1.Text)
cmd.Parameters.AddWithValue("@selnum", TextBox3.Text)
cmd.Parameters.AddWithValue("@mowa", TextBox4.Text)
cmd.Parameters.AddWithValue("@notees", TextBox6.Text)
MsgBox("تم حفظ المستند بنجاح")
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox6.Text = ""
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()