السلام عليكــم ورحمـة الله وبركاتــه ،،
بحثت كثيرا بالمنتدى ولم أجد شرح
عندنا فورم به داتا جريد
كيف أقوم بجمع عمود بالداتا جريد بناء على قيمة موجودة في edit.text على الفورم
وناتج الجمع يوضع في edit أخر على الفورم
الداتا جريد تأخد بيناتاها من جدول sql server
تم تعديل هذه المشاركة بواسطة okail في 29 يونيو 2009 في 16:35
السلام عليكــم ورحمـة الله وبركاتــه ،،
اخي الكريم مافهمته انك تريد جمع عمود موجود في dbgrid بشرط ان ان تكون قيم الحقل مشابهة لقيم موجودة في edit
هذه طريقة ان كان مافهمته انا صحيح .
لاتنسى اعادة الاتصال بقاعدة البيانات كي يعمل المرفق
ويمكن استخدام استعلام queryايضا
تم تعديل هذه المشاركة بواسطة طلال بلال في 10 يوليو 2009 في 01:48
السلام عليكــم ورحمـة الله وبركاتــه ،،
شكراً أخي طلال دائماً انتظر دروسك بشوق
وأطبقها على البرنامج الذي أقوم بعمله
وانوي إن شاء بعد الانتهاء شرحه بالمنتدى من الألف الى الياء
اقتباسقم باستعلام به SUM لجمع قيم الحقل
اقتباسويمكن استخدام استعلام queryايضا
الصورة التالية هي ما أريده وارجو شرح طريقة query لعملها
الصورة لقيد محاسبة و القاعدة sql وأداة الربط هي ADO وطبقتها بنفس الطريقة التي قمت أنت أخي طلال بشرحها في درس الربط
تم تعديل هذه المشاركة بواسطة okail في 10 يوليو 2009 في 19:48
حسننا خي okail لن أتأخ بها إن شاء الله
اقتباسحسننا خي okail لن أتأخ بها إن شاء الله
هلا أخي طلال ما زلت انتظر
بارك الله فيك
اسف على التأخير اخي Okail منذ اربعة أيام ذهب الهارد ديسك وفقدة كل شيئ . لم استوعب بعد ماحدث لي . وكان هناك مشروعان يجب تسليهما قريبا . قد ذهبا . ولم تفيدني البرامج التي تستعيد الملفات بعد الفورمات .
سأجهز كمبيوتري من جديد وأبدأ العمل
وأكرر اسفي ثانية
السلام عليكــم ورحمـة الله وبركاتــه ،،
الله معك أخي طلال
لا داعي للأسف
خذ وقتك انا في انتظارك
وحاول استخدام اسطوانة الصيانة hirne's من تصنيف recovery أختارالخيار getdata NTSF لا سترجاع البيانات ممكن يفيدك في استرجاع بياناتك ان شاء الله
لم اترك اي برنامج الا وجربتة . والطريف انه اعاد الي بيانات اقدم من البيانات التي حذفت مؤخرا .
السلام عليكــم ورحمـة الله وبركاتــه ،،
السلام عليكم أخي طلال
هل هناك أمل أخي طلال في مساعدتي في هذا القيد قريبا
بارك الله فيك
بكل تأكيد يا أخي واعتذر جدا . وسأعمل اليوم علية إن شاء الله .
اعذرني على تأخيري كان علي ترتيب الكثير من الامور المفقودة ولم انجح . والحمد لله على كل حال
السلام عليكم ورحمة الله وبركاته
هذه طريقة بااستخدام query
وبهذا يكون الجمع تم من قاعدة البيانات
procedure TForm1.btn1Click(Sender: TObject);
begin
Form1.qry1 .Close;
Form1.qry1.SQL.Clear;
Form1.qry1.SQL.Add('SELECT SUM(gyu) AS TotalR FROM Table1 where qu=:p1');
Form1.qry1. Parameters.ParamByName('P1').Value := dbedt1.Text;
Form1.qry1.Open;
Form1.edt1.Text := Form1.qry1.FieldByName('TotalR').AsString;
end;
تم تعديل هذه المشاركة بواسطة طلال بلال في 21 يوليو 2009 في 12:56
تم تعديل هذه المشاركة بواسطة طلال بلال في 21 يوليو 2009 في 13:58
السلام عليكــم ورحمـة الله وبركاتــه ،،
شكراً أخي طلال سأقوم بالتطبيق اليوم زأعلمك بالنتيجة ان شاء الله
بارك الله فيك
