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

التعديل في قاعدة البيانات

بدأه delph2008 في 13 يوليو 2008 · 5 رد · 707 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أريد من الإخوة الكرام أن يوضح لي :

* كود التعديل في الجداول

* كود حساب مجموع الأشخاص المسجلين في الجدول بحيث هذا المجموع يظهر في فورم

* كيف تنظيم الجدول ورسمه في التقرير من ناحية الشكل

وشكرا لكم جزاكم الله ألف خيرا

#2

* كود التعديل في الجداول

  1.  
  2. if Table.Locate('Name','Test 1',[locaseinsensitive]) then
  3.      begin
  4.       Table.Edit;
  5.       Table.FieldByName('Price').AsString:='200';
  6.       Table.Post;
  7.      end;
  8.  
  9.  
* كود حساب مجموع الأشخاص المسجلين في الجدول بحيث هذا المجموع يظهر في فورم
    
  1. ADOQuery1.Close;
  2. ADOQuery1.SQL.Clear;
  3. ADOQuery1.SQL.Add('SELECT Count(Name) AS TOTAL FROM Table');
  4. ADOQuery1.Open;
  5. Label1.Caption := ADOQuery1.FieldByName('Total').AsString;
  6. ADOQuery1.Close;
  7.  

* كيف تنظيم الجدول ورسمه في التقرير من ناحية الشكل 
جـ : اى نوع من التقارير تستخدم ؟ لكى نساعدك ان شاء الله
بالتوفيق إن شاء الله

      
تم تعديل هذه المشاركة بواسطة Swift في 13 يوليو 2008 في 19:45

      

      
Comming Soon

    

  

    
    

      
#3
        
        

      
السلام عليكم
أخي الكريم بالنسبة للتعديل بالجداول (FieldValues) تستخدم لأخذ و وضع القيم في الجدول = تعديل
أما بالنسبة للبحث أنا أستخدم (filter) من أجل البحث على الشكل التالي
table.Filtered:=false;

table.Filter :='ColName like "'+Edit1.Text+'"';

table.First;

table.Filtered:=true;
هذا ما أستطيع تقديمة أهل الخبرة سيفيدوك أكثر مني 
بالنسبة لحساب عدد الأشخاص المسجلين في الجدول 
var num:integer ;

begin

num:=table.recordcont ;

end ;
طريقة الأخ Swift أكثر أحترافية بالتأكيد

      
تم تعديل هذه المشاركة بواسطة rober في 13 يوليو 2008 في 20:23

      

      
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success

    

  

    
    

      
#4
        
        

      
rober كتب:
table.Filtered:=false;

 table.Filter :=<font color="#0000ff">'ColName like "'+Edit1.Text+'"'</font>;

 table.First;

 table.Filtered:=true;
السلام عليكم يا أخي Rober
لماذا  table.First ؟
:)

      
      

      
    

  

    
    

      
#5
        
        

      
في أحد المرات كنت أعمل فلترة على جدول بعد إدخال جديد
عند عمل الفلترة لا تظهر نتيجة حتى قمت بإضافة table.first 
ملاحظة ( ليس دائما و لا أعرف السبب)
و أنا أضعها دائما للأحتياط

      
      

      
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success

    

  

    
    

      
#6
        
        

      
ربما نوع قاعدة البيانات ؟

      
      

      
    

  

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