(16-10-22, 11:41 AM)ali_ahmed12 كتب : ممكن تحويل كود هدا يظهر لي خطا
كود :
'======قيود الادخال
If TXT_NAME.Text = "" Then
TXT_NAME.BackColor = Color.Red
TXT_NAME.Select()
Exit Sub
End If
If TXT_BAR.Text = "" Then
TXT_BAR.BackColor = Color.Red
TXT_BAR.Select()
Exit Sub
End If
If Val(TXT_TKLFA.Text) > Val(TXT_PRICE.Text) Then
MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Val(TXT_TKLFA.Text) = Val(TXT_PRICE.Text) Then
MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'============Save
Dim DT As New DataTable
Dim DA As New SqlDataAdapter("select *from items where item_name= '" & TXT_NAME.Text & "'or item_bar = '" & TXT_BAR.Text & "'", sqlcon)
DA.Fill(DT)
If DT.Rows.Count > 0 Then
MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
Dim DR = DT.NewRow
DR!item_code = TXT_CODE.Text
DR!item_name = TXT_NAME.Text
DR!item_bar = TXT_BAR.Text
DR!item_unit = TXT_UNIT.Text
DR!item_tklfa = Val(TXT_TKLFA.Text)
DR!item_price = Val(TXT_PRICE.Text)
DR!NOTES = TXT_NOTES.Text
DR!item_expire = DTP.Value
DR!qty = Val(TXT_QTY.Text)
DT.Rows.Add(DR)
Dim SAVE As New SqlCommandBuilder(DA)
DA.Update(DT)
MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
btn_new_Click(sender, e)
End If
كود :
//======قيود الادخال
if (TXT_NAME.Text.Equals(""))
{
TXT_NAME.BackColor = Color.Red;
TXT_NAME.Select();
return;
}
if (TXT_BAR.Text.Equals(""))
{
TXT_BAR.BackColor = Color.Red;
TXT_BAR.Select();
return;
}
if (Convert.ToDouble(TXT_TKLFA.Text) > Convert.ToDouble(TXT_PRICE.Text))
{
MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
if (Convert.ToDouble(TXT_TKLFA.Text) == Convert.ToDouble(TXT_PRICE.Text))
{
MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
//============Save
DataTable DT = new DataTable();
SqlDataAdapter DA = new SqlDataAdapter("select *from items where item_name= '" + TXT_NAME.Text + "'or item_bar = '" + TXT_BAR.Text + "'", sqlcon);
DA.Fill(DT);
if (DT.Rows.Count > 0)
{
MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
}
else
{
DataRow DR = DT.NewRow();
DR["item_code"] = TXT_CODE.Text;
DR["item_name"] = TXT_NAME.Text;
DR["item_bar"] = TXT_BAR.Text;
DR["item_unit"] = TXT_UNIT.Text;
DR["item_tklfa"] = Convert.ToDouble(TXT_TKLFA.Text);
DR["item_price"] = Convert.ToDouble(TXT_PRICE.Text);
DR["NOTES"] = TXT_NOTES.Text;
DR["item_expire"] = DTP.Value.Date;
DR["qty"] = Convert.ToDouble(TXT_QTY.Text);
DT.Rows.Add(DR);
SqlCommandBuilder SAVE = new SqlCommandBuilder(DA);
DA.Update(DT);
MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information);
btn_new.PerformClick();
}طريقة أفضل
كود :
//======قيود الادخال
if (TXT_NAME.Text.Equals("")) {
TXT_NAME.BackColor = Color.Red;
TXT_NAME.Select();
return;
}
if (TXT_BAR.Text.Equals("")) {
TXT_BAR.BackColor = Color.Red;
TXT_BAR.Select();
return;
}
if (Convert.ToDouble(TXT_TKLFA.Text) > Convert.ToDouble(TXT_PRICE.Text)) {
MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
if (Convert.ToDouble(TXT_TKLFA.Text) == Convert.ToDouble(TXT_PRICE.Text)) {
MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
//============Save
try {
if (sqlcon.State != ConnectionState.Open) sqlcon.Open();
SqlCommand CMD = new SqlCommand("SELECT COUNT(*) FROM items WHERE item_name=@name OR item_bar=@bar", sqlcon);
CMD.Parameters.AddWithValue("@name", TXT_NAME.Text);
CMD.Parameters.AddWithValue("@bar", TXT_BAR.Text);
if ((int)CMD.ExecuteScalar() > 0) {
MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
}
else {
CMD = new SqlCommand("INSERT INTO items(item_code, item_name, item_bar, item_unit, item_tklfa, item_price, NOTES, item_expire,qty)" +
"VALUES(@code, @name, @bar, @unit, @tklfa, @price, @NOTES, @expire, @qty)", sqlcon);
CMD.Parameters.AddWithValue("@code", TXT_CODE.Text);
CMD.Parameters.AddWithValue("@name", TXT_NAME.Text);
CMD.Parameters.AddWithValue("@bar", TXT_BAR.Text);
CMD.Parameters.AddWithValue("@unit", TXT_UNIT.Text);
CMD.Parameters.AddWithValue("@tklfa", Convert.ToDouble(TXT_TKLFA.Text));
CMD.Parameters.AddWithValue("@price", Convert.ToDouble(TXT_PRICE.Text));
CMD.Parameters.AddWithValue("@NOTES", TXT_NOTES.Text);
CMD.Parameters.AddWithValue("@expire", DTP.Value.Date);
CMD.Parameters.AddWithValue("@qty", Convert.ToDouble(TXT_QTY.Text));
CMD.ExecuteNonQuery();
MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information);
btn_new.PerformClick();
}
}
catch (Exception ex) {
MessageBox.Show(ex.Message, "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
}
finally {
sqlcon.Close();
}