(27-02-19, 03:57 PM)حريف برمجة كتب : اخي الواضح من سؤالك تريد زر الحفظ يعمل فحص اذا السجل موجود يقوم بالتعديل عليه وإذا لم يجد السجل يقوم بحفظه ،،

الحل انسخ الكود وجربه :

كود :

Dim cmd As OleDbCommand
       cmd.Connection = con

       Dim ret As Integer = (New OleDb.OleDbDataAdapter("SELECT code FROM t1 WHERE code='" & T4.Text & "'", con).Fill(New DataTable))

       Dim strqury As String

       If ret > 0 Then
           ' هنا يتم التعديل
           strqury = "Update t1 Set [code]=@code,[name]=@name,[cost]=@cost,[price]=@price,[supl]=@supl,[unit]=@unit,[Tax]=@Tax,[Ds]=@Ds,[Exper]=@Exper,[DateItem]=@DateItem,[DeprtNUM]=@DeprtNUM,[priceFtax]=@priceFtax,[Stock_ORD]=@Stock_ORD,[costFtax]=@costFtax,[Q_RAITAL]=@Q_RAITAL,[BOX]=@BOX,[COST_R]=@COST_R where [code]=@code"
       Else
           ' هنا يتم الحفظ
           strqury = "Insert into t1 ([code],[name],[cost],[price],[supl],[unit],[Tax],[Ds],[Exper],[DateItem],[DeprtNUM],[priceFtax],[Stock_ORD],[costFtax],[Q_RAITAL],[BOX],[COST_R])values(@code,@name,@cost,@price,@supl,@unit,@Tax,@Ds,@Exper,@DateItem,@DeprtNUM,@Stock_ORD,@priceFtax,@costFtax,@Q_RAITAL,@BOX,@COST_R)"
       End If

       cmd = New OleDb.OleDbCommand(strqury, con)
       cmd.Parameters.AddWithValue("@code", T4.Text)
       cmd.Parameters.AddWithValue("@name", T6.Text)
       cmd.Parameters.AddWithValue("@cost", T7.Text)
       cmd.Parameters.AddWithValue("@price", T8.Text)
       cmd.Parameters.AddWithValue("@supl", TextBox7.Text)
       cmd.Parameters.AddWithValue("@unit", ComboBox1.Text)
       cmd.Parameters.AddWithValue("@Tax", T16.Text)
       cmd.Parameters.AddWithValue("@Ds", T15.Text)
       cmd.Parameters.AddWithValue("@Exper", d2.Value.Date)
       cmd.Parameters.AddWithValue("@DateItem", t23.Value.Date)
       cmd.Parameters.AddWithValue("@DeprtNUM", TextBox15.Text)
       cmd.Parameters.AddWithValue("@Stock_ORD", T12.Text)
       cmd.Parameters.AddWithValue("@priceFtax", T20.Text)
       cmd.Parameters.AddWithValue("@costFtax", t19.Text)
       cmd.Parameters.AddWithValue("@Q_RAITAL", T9.Text)
       cmd.Parameters.AddWithValue("@BOX", T10.Text)
       cmd.Parameters.AddWithValue("@COST_R", T11.Text)
       cmd.Parameters.AddWithValue("@QTY", 0)
       con.Open()
       cmd.ExecuteNonQuery()
       MsgBox("تمت العملية بنجاح ", MsgBoxStyle.Information, "الاضافة")
       clear()
       con.Close()

[/code]
[/code]
[/code]

(27-02-19, 04:37 PM)asemshahen5 كتب : أريد أن أسألك هل يجوز تعديل كود الصنف الذي تبحث به في إستعلام التعديل Update t1 Set [code]=@code:

عدل استعلام ليكون كالتالي :

PHP كود :

strqury = "Update t1 Set [name]=@name,[cost]=@cost,[price]=@price,[supl]=@supl,[unit]=@unit,[Tax]=@Tax,[Ds]=@Ds,[Exper]=@Exper,[DateItem]=@DateItem,[DeprtNUM]=@DeprtNUM,[priceFtax]=@priceFtax,[Stock_ORD]=@Stock_ORD,[costFtax]=@costFtax,[Q_RAITAL]=@Q_RAITAL,[BOX]=@BOX,[COST_R]=@COST_R where [code]=@code" 


(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

(27-02-19, 05:13 PM)asemshahen5 كتب : كود الصنف يجب ان يكون كود مميز لا يجوز تعديله مثله كثل الباركود .

إذا أردت تعديله تعدله من نافذة أصناف أما إذا أردت تعديل الصنف في نافذة الفواتير عليك أولا وضع كود بحث لتثبت الصنف الجديد في الجدول أو في صناديق النص ثم تقوم بعملية الحفظ بدلالة رقم الفاتورة .

---

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

أنظر كود استعلام التعديل ستفهم ما أريد قوله يعدل كود الصنف أول الاستعلام 

PHP كود :

Update t1 Set [code]=@code 


و يبحث عنه في نهاية الاستعلام :

PHP كود :

where [code]=@code 


(27-02-19, 05:22 PM)atef_020 كتب :

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

(27-02-19, 05:13 PM)asemshahen5 كتب : كود الصنف يجب ان يكون كود مميز لا يجوز تعديله مثله كثل الباركود .

إذا أردت تعديله تعدله من نافذة أصناف أما إذا أردت تعديل الصنف في نافذة الفواتير عليك أولا وضع كود بحث لتثبت الصنف الجديد في الجدول أو في صناديق النص ثم تقوم بعملية الحفظ بدلالة رقم الفاتورة .

---

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

أنظر كود استعلام التعديل ستفهم ما أريد قوله يعدل كود الصنف أول الاستعلام 

PHP كود :

Update t1 Set [code]=@code 


و يبحث عنه في نهاية الاستعلام :

PHP كود :

where [code]=@code 


يوجد اصناف بكود معين ممكن الشركة تقوم بتغيير كود الصنف الى كود مختلف فى هذه الحالة كيف اغير هذا الكود الى الكود الجديد

(27-02-19, 06:02 PM)حريف برمجة كتب : صحيح كود الصنف لا يحفظ يدوي بل تلقائي ،، ايضاً لا يتم تعديله في حالة التعديل ،،

ولكن الأخ في تطبيقه يدخله يدوي بمعنى غير تلقائي .

اذا اردت تعديل كود الصنف يجب إضافة حقل وليكن باسم (ItemID) يكون ترقيم تلقائي .

وفي عملية تعديل كود الصنف في جملة التعديل يكون كالتالي :

كود :

update t1 set...…………… where ItemID = @ItemID