تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال
#1
سلام عليكم شباب ... 
عندي برنامج ... الادخال هو ( الوارد اليومي + الصرفيات + رواتب الموظفين +... الخ ) طبعا الادخال يكون بشكل يومي وحسب التاريخ 
ما عندي مشكلة بالحفظ ولا الحذف ولا التعديل ... ولكن سؤالي هو انه الاخراج مالت البرنامج لازم يحسب مجموع الوارد خلال مدة شهر والصرفيات .... كيفية برمجة هكذا اموور وكيف اربطها بقاعدة البيانات ... ارجو ان تكون الصورة اتضحت ... شكرا جزيلا 
الرد }}}
تم الشكر بواسطة:
#2
بسم الله الرحمن الرحيم

لنفترض ان اسم حقل مبلغ الوارد اليومي هو IncomeAmount وحقل الصرفيات اليوميه هو ExpenceAmount وحقل التاريخ هو zDate واسم الجدول Table1 اذا ستكون جملة الاستعلام التي تظهر لك اجمالي المبالغ الوارده واجمالي المبالغ المصروفه في شهر معين او بين تاريخين ، كالتالي :

كود :
Select Sum(IncomeAmount) As zIncomeAmount,Sum(ExpenceAmount) As zExpenceAmount From Table1 Where zDate >=#01/01/2015# And zDate <=#31/01/2015# Order By zDate Asc
الرد }}}
تم الشكر بواسطة: hminfo , css2015
#3
الف الف الف شكر الك اخي احمد ... انا عندي علم بطريقة الاستعلام ... لكن كيف اربط نتيجة الاستعلام بالتيكست بوكس ... يعني الناتج يظهر في التيكست بوكس .. اشكرك جدا استاد ...
الرد }}}
تم الشكر بواسطة:
#4
أهلا , والله بالنسبة لطريقة الربط بقاعدة البيانات بالدوت نت فأنا لا أعرفها لأنني مبرمج فيجول بيسك6 ولا علم لي بأداوت وطرق الدوت نت , لذلك سأضعها بطريقة الفيجول بيسك6 وأنت قم بتحويلها لكود الدوت نت , الطريقة أننا سنسخدم مكتبة Microsoft ActiveX Data Objects Library والمعروفه بالإختصار ADO , بهذا الشكل :

كود :
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset

If DB.State = 1 Then DB.Close
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"

If RS.State = 1 Then RS.Close
RS.Open "Select Sum(IncomeAmount) As zIncomeAmount,Sum(ExpenceAmount) As zExpenceAmount From Table1 Where zDate >=#01/01/2015# And zDate <=#31/01/2015# Order By zDate Asc", DB, adOpenStatic, adLockPessimistic

If RS.RecordCount > 0 Then
   If Not IsNull(RS![zIncomeAmount]) Then Text1.Text = RS![zIncomeAmount] Else Text1.Text = ""
   If Not IsNull(RS![zExpenceAmount]) Then Text2.Text = RS![zExpenceAmount] Else Text2.Text = ""
Else
   Text1.Text = ""
   Text2.Text = ""
End If

If RS.State = 1 Then RS.Close
If DB.State = 1 Then DB.Close
الرد }}}
تم الشكر بواسطة: css2015



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم