(26-02-19, 05:20 PM)asemshahen5 كتب :PHP كود :
If CheckCode("t1", "code", t4.text) = True Then
' في حالة كود الصنف موجود
Edit()
Else
' في حالة كود الصنف غير موجود
Save()
End If
بسيطة بس كدة .
و ده كود المديول :
PHP كود :
Module Module1
Public Function CheckCode(t1 As String, code As String, t4 As String) As Boolean
Dim dt As New DataTable
Dim SqlStr As String = "select * from " & t1 & " where " & code & " ='" & t4 & "'"
If con.State = ConnectionState.Closed Then con.Open()
Dim adp As New SqlClient.SqlDataAdapter(SqlStr, con)
adp.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("الكود غير موجود")
CheckCode = False
Else
MsgBox("الكود موجود")
CheckCode = True
End If
If con.State = ConnectionState.Open Then con.Close()
Return CheckCode
End Function
End Module
اخى الكريم الكود شغال كويس جدا معى حفظ وتعديل بس المشكلة كلها انى لما اعمل تعديل لكود الصنف من كود 10 مثلا الى كود 20 فبيكرر البيانات يعنى بينشى صنف جديد بنفس بيانات الصنف كود 10 بس بكود 20 يعنى يوجد صنف كود 10 ونفس البيانات بس بكود 20 ...........تحياتى لك اخى المحترم
ودا كود التعديل
PHP كود :
Sub Edit()
Try
Dim str As String = ("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\h1.accdb")
Dim con As New OleDbConnection(str)
Dim issql As String = "select * from T1 where CODE='" & Me.T4.Text & "'"
Dim isds As New DataSet
Dim isda As New OleDb.OleDbDataAdapter(issql, con)
isda.Fill(isds, "CODE")
If Me.BindingContext(isds, "CODE").Count = 0 Then
MsgBox("كود الصنف غيرموجود ", MsgBoxStyle.Critical, "خطا")
Exit Sub
End If
cmd = New OleDb.OleDbCommand("delete from t1 where code ='" & Me.T4.Text & "'", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Dim strqury1 As String
strqury1 = " update t1 set [code]=@code, [name]=@name, [cost]=@cost, [price]=@price,[supl]= @supl, [Unit]=@Unit, [Tax]=@Tax, [Ds]=@Ds, [Exper]=@Exper, [DeprtNUM]=@DeprtNUM ,[Stock_ORD]=@Stock_ORD ,[priceFtax]=@priceFtax ,[costFtax]=@costFtax ,[Q_RAITAL]=@Q_RAITAL ,[BOX]=@BOX ,[COST_R]=@COST_R where code= '" & T4.Text & "'"
cmd = New OleDb.OleDbCommand(strqury1, con)
cmd.Parameters.Add(New OleDbParameter("@code", OleDbType.VarChar)).Value = T4.Text
cmd.Parameters.Add(New OleDbParameter("@name", OleDbType.VarChar)).Value = T6.Text
cmd.Parameters.Add(New OleDbParameter("@cost", OleDbType.Currency)).Value = T7.Text
cmd.Parameters.Add(New OleDbParameter("@price", OleDbType.Currency)).Value = T8.Text
cmd.Parameters.Add(New OleDbParameter("@supl", OleDbType.VarChar)).Value = TextBox7.Text
cmd.Parameters.Add(New OleDbParameter("@unit", OleDbType.VarChar)).Value = ComboBox1.Text
cmd.Parameters.Add(New OleDbParameter("@Tax", OleDbType.Integer)).Value = T16.Text
cmd.Parameters.Add(New OleDbParameter("@Ds", OleDbType.Currency)).Value = T15.Text
cmd.Parameters.Add(New OleDbParameter("@Exper", OleDbType.Date)).Value = d2.Value.Date
cmd.Parameters.Add(New OleDbParameter("@DeprtNUM", OleDbType.VarChar)).Value = TextBox15.Text
cmd.Parameters.Add(New OleDbParameter("@Stock_ORD", OleDbType.Currency)).Value = T12.Text
cmd.Parameters.Add(New OleDbParameter("@priceFtax", OleDbType.Currency)).Value = T20.Text
cmd.Parameters.Add(New OleDbParameter("@costFtax", OleDbType.Currency)).Value = t19.Text
cmd.Parameters.Add(New OleDbParameter("@Q_RAITAL", OleDbType.Currency)).Value = T9.Text
cmd.Parameters.Add(New OleDbParameter("@BOX", OleDbType.Currency)).Value = T10.Text
cmd.Parameters.Add(New OleDbParameter("@COST_R", OleDbType.Currency)).Value = T11.Text
con.Open()
cmd.ExecuteNonQuery()
MsgBox("تمت التعديل بنجاح ", MsgBoxStyle.Information, "تعديل")
clear()
Catch ex As Exception
Finally
con.Close()
End Try
End Sub
