الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال فى العمليات الحسابية

بدأه shosho842000 في 1 يونيو 2009 · 0 رد · 412 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1

السلام عليكــم ورحمـة الله وبركاتــه ،،

If cn.State = ConnectionState.Open Then cn.Close()

cn.Open()

cmd.CommandText = "select (salary.sal1+salary.sal2+salary.sal9+salary.sal14+salary.sal15+salary.sal10+sala

ry.sal12+salary.sal18) as total_sal ,(sal1+sal2+sal3+sal4+sal5+sal6+sal7+sal8+sal9+sal14+sal15+sal18) as change_total,sal13,sal16,sal17,sal1.degree from salary,sal1 where salary.id=sal1.id and sal1.id=@id3 "

cmd.Parameters.Add("id3", SqlDbType.VarChar).Value = TextBox1.Text

dr = cmd.ExecuteReader

While (dr.Read)

If (dr("degree") = "مدير عام") Then

tax = (dr("total_sal") * 10) / 100

ElseIf (dr("degree") = "مدير ادارة") Then

tax = (dr("total_sal") * 7) / 100

ElseIf (dr("degree") = "درجة اولى") Then

tax = (dr("total_sal") * 7) / 100

ElseIf (dr("degree") = "درجة ثانية") Then

tax = (dr("total_sal") * 6) / 100

ElseIf (dr("degree") = "درجة ثالثة") Then

tax = (dr("total_sal") * 4) / 100

End If

disc = (dr("total_sal") * 10) / 100

disc2 = (dr("total_sal") * 3) / 100

change_total = (dr("change_total") * 10) / 100

box = (dr("sal13") * 7) / 100

box1 = (dr("sal16") * 3) / 100

box2 = (dr("sal18") * 3) / 100

End While

If cn.State = ConnectionState.Open Then cn.Close()

cn.Open()

cmd.CommandText = "insert into amount values(@id,@name,@amount5,@amount6,@amount7,@amount8,@amount22,@date)"

cmd.Parameters.Add("@id", SqlDbType.VarChar).Value = TextBox1.Text

cmd.Parameters.Add("@name", SqlDbType.VarChar).Value = TextBox2.Text

cmd.Parameters.Add("@tax", SqlDbType.Float).Value = tax

cmd.Parameters.Add("@disc2", SqlDbType.Float).Value = disc

cmd.Parameters.Add("@disc", SqlDbType.Float).Value = change_total

cmd.Parameters.Add("@box", SqlDbType.Float).Value = box

cmd.Parameters.Add("@box1", SqlDbType.Float).Value = box1

cmd.Parameters.Add("@box2", SqlDbType.Float).Value = box2

cmd.Parameters.Add("@date", SqlDbType.DateTime).Value = TextBox3

cmd.ExecuteNonQuery()

المشكلة هنا انى عايزاه اول حاجة اجيب الدرجة الوظيفية بتاعت الموظف وبناء عليها احسب الضربية بتاعته

ثانى حاجة احسب التماينات وباقى الاستقطاعات

اخيرا انى بعد كل الحاسبات اضيف الحقول الى الجدول

شكرا

مواضيع مشابهة