18-02-19, 04:21 PM
السلام عليكم ورحمة الله وبركاتة مشرفى واعضاء المنتدى الكرام
لدى فورم لادخال الاصناف اريد فى زر الحفظ ان يقوم عمليتن حفظ اذا كان الصنف جديد او تعديل اذا كان هذا االصنف موجود مسبقا
ودا كود الحفظ
PHP كود :
Dim strqury As String = "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)"
cmd = New OleDb.OleDbCommand(strqury, 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("@DateItem", OleDbType.Date)).Value = t23.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
cmd.Parameters.Add(New OleDbParameter("@QTY", OleDbType.Integer)).Value = 0
con.Open()
cmd.ExecuteNonQuery()
MsgBox("تمت العملية بنجاح ", MsgBoxStyle.Information, "الاضافة")
clear()
con.Close()
Exit Sub
اريد فى زر ترحيل الفاتورة اذا كانت هذه الفاتورة لم يتم فضها من قبل بدلا من ان اقوم بحفظ ثم ارجع الى الفاتورة ليتم ترحيلها فعند الضعط على زر ترحيل يقوم بالحفظ ثم الترحيل ...........
وجزاكم الله خيرا .... وتحياتى للجميع