منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية عمل كشف حساب الخزينة لجرد النقدية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية عمل كشف حساب الخزينة لجرد النقدية (/showthread.php?tid=26317)

الصفحات: 1 2 3


RE: كيفية عمل كشف حساب الخزينة لجرد النقدية - ABDELLAH20181 - 20-09-18

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

  بارك الله فيكم جميعاً و جزاكم خير الجزاء شكراً

  لمن يريد الاستفادة لقد وجدت طريقة أظن أنها جيدة و هي إنشاء جدول السندات : رقم السند - تاريخ السند - نوع السند (دفع / استلام) - المبلغ - البيان - رقم العميل - ملاحظات

  جدول العمليات : هو جدول يقوم بتخزين جميع العمليات (مبيعات نقدية و آجلة - مشتريات نقدية و آجلة - مرتجع بيع - مرتجع شراء - دفع للموردين مثلاً - استلام من العملاء ....)

    جدول العمليات : رقم العملية(مسلسل) - كود العملية (هو عبارة عن رقم الفاتوة حسب نوع العملية أو رقم السند) - تاريخ العملية - دائن - مدين - نوع العملية - البيان - رقم العميل

            عند حفظ كل فاتورة بيع أو شراء مثلاً نسجل معها هذه الحقول المذكورة آنفاً و لكشف حساب عميل مثلاً نستعلم على رقمه و نجري الحسابات لمعرفة رصيده و هل هو دائن أو مدين

           و الله أعلى و أعلم


RE: كيفية عمل كشف حساب الخزينة لجرد النقدية - atefkhalf2004 - 21-09-18

فكرة جيدة
وحتي يتكرم احد ويضع كود لهذه  الفكرة  -مثال

اكرر   السؤال  كيفف اعرض  الكود السابق  في المشاركة 18  في الجريد


RE: كيفية عمل كشف حساب الخزينة لجرد النقدية - ABDELLAH20181 - 21-09-18

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

أخي الكريم يمكن عمل استعلام على جدول العمليات إما بإنشاء إجراء مخزن في السيكول سيرفر و استدعائه باسمه من خلال الكود أو كتابته مباشرةً في الكود ثم إنشاء متغير أو Object من نوع DataTable و إسناد الخاصية DataSource للداتاغريدفيو لهذا DataTable مثال : 

    
كود :
Private Sub DisplayData()
           con.Open()
           Dim dt As DataTable = New DataTable()
           (adapt = New SqlDataAdapter("select * from tbl_Operations where idclient =" & txtClientID.Text, con)
           dt()adapt.Fill
           dataGridView1.DataSource = dt
           con.Close()
       
End Sub

ثم يتم استدعاء هذا الإجراء DisplayData في حدث Load للفورم الذي يحتوي على القريد فيو