ياشباب الخير ساعدوني متورط ضروروي
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "تعديل" Then
Dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = "initial catalog = stor;integrated security=sspi;user id=sa"
conn.Open()
Dim mm As String
mm = InputBox("ادخل رقم الفاتورة؟")
Dim cm As SqlClient.SqlCommand
cm = New SqlClient.SqlCommand
cm.Connection = conn
cm.CommandText = "select * from hsal1 where inv_no1= '" & Trim(mm) & "'"
cm.CommandType = CommandType.Text
Dim read As SqlClient.SqlDataReader
read = cm.ExecuteReader
If Not read.Read Then
MsgBox("رقم الفاتورة غير موجود")
read.Close()
conn.Close()
Else
TextBox1.Text = read.Item("inv_no1")
TextBox2.Text = read.Item("date")
TextBox3.Text = read.Item("no")
TextBox4.Text = read.Item("name")
TextBox10.Text = read.Item("total_inv")
read.Close()
conn.Close()
Dim conn1 As SqlClient.SqlConnection
conn1 = New SqlClient.SqlConnection
conn1.ConnectionString = "initial catalog = stor;integrated security=sspi;user id=sa"
conn1.Open()
Dim ad1 As New SqlDataAdapter
Dim sql As String
sql = "select no as الرقم,name as الاسم,qunit as الكمية,sal_price as شراء, total as الاجمالي from dsal1 where inv_no= '" + Trim(TextBox1.Text) + "'"
ad1 = New SqlDataAdapter(sql, conn1)
Dim ds1 As New DataSet
ad1.Fill(ds1, "dsal1")
DataGrid1.DataSource = ds1.Tables("dsal1")
DataGrid1.Refresh()
Button3.Text = "تعديل صنف"
End If
Else
If Button3.Text = "تعديل صنف" Then
Dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = "initial catalog = stor;integrated security=sspi;user id=sa"
conn.Open()
Dim ss As String
ss = MsgBox("هل ترغب في تعديل الاصناف ", MsgBoxStyle.OkCancel, "رسالة تنبية")
If ss = MsgBoxResult.Ok Then
Dim mm As String
mm = InputBox("ادخل رقم الصنف الذي تريد تعديله؟")
Dim cm As SqlClient.SqlCommand
cm = New SqlClient.SqlCommand
cm.Connection = conn
cm.CommandText = "select * from dsal1 where no='" & Trim(mm) & "'"
cm.CommandType = CommandType.Text
Dim read As SqlClient.SqlDataReader
read = cm.ExecuteReader
If Not read.Read Then
MsgBox("رقم الصنف غير موجود")
read.Close()
conn.Close()
Else
TextBox5.Text = read.Item("no")
TextBox6.Text = read.Item("name")
TextBox7.Text = read.Item("qunit")
TextBox8.Text = read.Item("sal_price")
TextBox9.Text = read.Item("total")
Button3.Text = "حفظ تعديل صنف"
read.Close()
conn.Close()
End If
Else
Button3.Text = "تعديل"
Dim conn3 As SqlClient.SqlConnection
conn3 = New SqlClient.SqlConnection
conn3.ConnectionString = "initial catalog = stor;integrated security=sspi;user id=sa"
conn3.Open()
Dim cmd2 As SqlClient.SqlCommand
cmd2 = New SqlClient.SqlCommand
cmd2.Connection = conn3
cmd2.CommandText = "'update hsal1 set date='" & TextBox2.Text & ",no='" & TextBox3.Text & "',name=" & TextBox4.Text & "',total_inv=" & TextBox10.Text & " where inv_no= '" & Trim(TextBox1.Text) & "'"
cmd2.ExecuteNonQuery()
''m.CommandText = "update inv set qunit=qunit + '" + Trim(Val(TextBox7.Text) + Val(TextBox3.Text)) + "' where name ='" + Me.TextBox6.Text + "'"
DataGrid1.DataSource = Nothing
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox10.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End If
Else
Dim conn1 As SqlClient.SqlConnection
conn1 = New SqlClient.SqlConnection
conn1.ConnectionString = "initial catalog = stor;integrated security=sspi;user id=sa"
conn1.Open()
Dim cmd As SqlClient.SqlCommand
cmd = New SqlClient.SqlCommand
cmd.Connection = conn1
cmd.CommandText = "update dsal1 set no='" & TextBox5.Text & "',name=" & TextBox6.Text & "',qunit=" & Me.TextBox7.Text & "',saL_price=" & Me.TextBox8.Text & "',total=" & TextBox9.Text & "' where no= '" & Trim(Me.TextBox1.Text) & "'"
cmd.ExecuteNonQuery()
Dim conn2 As SqlClient.SqlConnection
conn2 = New SqlClient.SqlConnection
conn2.ConnectionString = "initial catalog = stor;integrated security=sspi;user id=sa"
conn2.Open()
Dim cm1 As SqlClient.SqlCommand
cm1 = New SqlClient.SqlCommand
cm1.Connection = conn2
cm1.CommandType = CommandType.Text
cm1.CommandText = "update inv set qunit=qunit + '" + Trim(Val(TextBox7.Text)) + "' where name ='" + Me.TextBox6.Text + "'"
cm1.ExecuteNonQuery()
conn2.Close()
Button3.Text = "تعديل صنف"
End If
End If
End Sub
[code\]