استفسار عن تعليمة select في sql

السلام عليكم :

الجواب حسب ما فهمت من السؤال :

select * from TB_name

أم تقصدين كما يلي ؟؟؟؟؟

الإسم | محمد | خالد | سمير | عبدالله

العمر | 20 | 25 | 30 | 15

المهنة | مبرمج | موظف | مهندس | عامل

ADOQuery1.SQL.Add   ('select * from TB_name '
ADOQuery1 .open;

بفرض استخدمنا Adoquery

يتم الوصول لسجلات الاستعلالم نثل الجدول العادي اي

Adoquery1Tablevalue.value

ADOQuery1.SQL.Add   ('select * from TB_name '
ADOQuery1 .open;

بفرض استخدمنا Adoquery

يتم الوصول لسجلات الاستعلالم نثل الجدول العادي اي

Adoquery1Tablevalue.value

اولاً أشكر الجميع على المشاركات ولكن اقصد كما ذكر بعض الاخوان وهو عملية عرض السجلات هكذا الإسم | محمد | خالد | سمير | عبدالله

يعني تكون السجلات على ال dbgrid في شكل أعمدة وليس صفوف أرجو منكم مساعدتي بمثال ولكم جزيل الشكر .

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

أخت khat2005 أنا أنصح باستخدام الـ StringGrid في حال كان الهدف من الشبكة هو العرض فقط ...

كما يلي :

لنفرض أن الـ Ado بحقلين هما :

Id , Name أي الإسم و الرقم

procedure TForm1.Button1Click(Sender: TObject);
var
  i , j : integer;
begin
 with StrGrid do
 Begin
   fixedRows:= 0;
   fixedCols :=  1;
   RowCount := Ado.FieldCount;
   ColCount := Ado.RecordCount + 1;
   options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goRowSelect];
   with Ado Do
   Begin
     first;
     for i := 0 to FieldCount - 1 do
        Cells[0,i] := Fields.Fields.FullName;

     for j:=1 to RecordCount  do
     begin
       for i:= 0 to FieldCount - 1 do
        Cells[j,i] := Fields.Fields.asString;
     End;
   End;
 End;
End;

المبرمج عماد .. B) B)

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

السلام عليكم يا أختي الكريمة و لا شكر على واجب ..

أريد أن أقول لك شيئاً :

يمكنك أن تستخدمي الـ AdoQuery وتقومي بأي استعلام تريدين ثم تكتبي الشيفرة التي ذكرتها في المشاركة السابقة بدون تغيير ومهما كان عدد الحقول في الجدول ....

مثلاً لديك :

1- الجدول الأول : جدول الثوابت Type_TB :

TypeId : تسلسل نوع الموظف .

EmpType : نوع الموظف .

2-الجدول الثاني : الموظفين Employee_TB :

id : تسلسل الموظف .

name : اسم الموظف .

ُُTypeNum : نوع الموظف .

// Ado : AdoQuery1
procedure TForm1.Button1Click(Sender: TObject);
var
 i , j : integer;
begin

with Ado do 
begin
  Active := false;
  Ado.sql.text := 
  'select name,id,EmpType from Employee_TB Inner Join Type_TB ' +
  'On Employee_TB.TypeNum = Type_TB.TypeId '; 
  Active := True;
end;

with StrGrid do
Begin
  fixedRows:= 0;
  fixedCols :=  1;
  RowCount := Ado.FieldCount;
  ColCount := Ado.RecordCount + 1;

  with Ado Do
  Begin
    first;
    for i := 0 to FieldCount - 1 do
       Cells[0,i] := Fields.Fields.FullName;

    for j:=1 to RecordCount  do
    begin
      for i:= 0 to FieldCount - 1 do
       Cells[j,i] := Fields.Fields.asString;
    End;
  End;

End;

End;

المبرمج عماد ... B) B)

أخي شكراً عماد ولكن حاولت استخدم stringgrid مع أني أول مرة استخدمها ما ادري هذه التي تقصد أم ان هناك string غيرها وايضا يحصل خطأ هنا options := &

يتضح من مشاركات يااخ عماد بانه لا يوجد عبارة SQL تعرض السجلات كحقول وايضا لدي استفسار عن ال label أبغى أعرض نتيجة في ال label من نوع float تظهر بهذا الشكل 90.553254256 ولكني ابغى ان تظهر هكذا 90.55 فهل نقدر نتحكم في هذا اليبل وشكرا للجميع .

سأترك الرد على استفسار الاول للاخ عماد وذلك لانه ليس لدي وقت لافهم الامر من الاول و ما هي المشاكل

اما بالنسبة ل

اقتباس

لدي استفسار عن ال label أبغى أعرض نتيجة في ال label من نوع float تظهر بهذا الشكل 90.553254256 ولكني ابغى ان تظهر هكذا 90.55 فهل نقدر نتحكم في هذا اليبل وشكرا للجميع .

هناك تابع اسمه FormatFloat يتسخدم للتحكم بطريقة العرض

لتحقيق ما سبق مثلا

FormatFloat('##.##',90.553254256)

هذا الامر متكرر كثير في المنتدى و هناك الكثير من المشاركات بهذا الصدد

ارجو :rolleyes: :rolleyes: البحث قبل طلب اي شيئ فقط قم بكتابة Float في البحث سوف يظهر لك الكثير الكثير

ارجو ان اكون قد افدت بشيئ فوقتي جدا ضيق هذه الايام

السلام عليكم :

اقتباس

وايضا يحصل خطأ هنا options := &

إعتمدي على الكود الثاني أقصد المشاركة الثانية لأني قمت بتجريبها أكثر من مرة .. ما تقولينه صحيح المشاركة الأولى حصل فيها عطل فني ناتج عن فهم صفحة الإنترنت الكود بشكل غير صحيح ... أنا كنت قد كتبت الكود صحيح 100% في المشاركة الأولى ..

ولكن كان الكود يحوي على قوسين مربعين مثل هذا '[' فاعتبرته الصفحة على أنه أحد وسوم الـ Html >>>

لذلك حصل هذا الخطاً على كل مثل ما نصحتك توجهي إلى الكود الثاني ولن تندمي بإذن الله ... ;) ;)

المبرمج عماد .. B) B)

السلم عليكم

سؤالي هو

عندي table1 وفيه سجلات وعند استعمال تعليمة sum لآحدى الجداول لاتظهر النتيجة ولقد حاولت ولم افلح ولم يعطيني البرنامج اي خطأ

أرجو رفق كود مساعد لجمع سجلات

والله الموفق

اخ وائل sum لم تنجح :huh: بالبحث في المنتدى

السلام عليكم

لقد نجحت عملية جمع السجلات لحقل ووضعت النتيجة بحقل جديد تلقائياً

سؤالي كيف لي وضع نتيجة الجمع ل Sum بمتحول

Sum.txt

السلام عليكم

procedure TForm1.Button1Click(Sender: TObject);
var
   result :Integer;
begin
with ADOQuery1 do
begin
 Close;
 SQL.Clear;
 SQL.Add
 ('SELECT CustNo,SUM(Number) AS Total FROM Cust GROUP BY CustNo');
 open;
 DataSource1.DataSet:=ADOQuery1;
 result:=ADOQuery1.FieldByName('Total').Value;
 Showmessage(Inttostr(Result));
end;

بالتوفيق دوماً

اعتذر للتأخر بالرد

شكرا ...100% اشتغلت ولكن عندي مشكلة

كيف يتم جمع سجل هو حاصل ضرب سجلين ببعضهما

مثال

Select Field1.table1 , Field2.table1  , Field1.table2 , Field2.table2,Field1.table1 * Field1.table2  as result, Sum(result) As Total   FROM Table1,Table2 WHERE Field1.table1 =  Field1.table2 Group by Field1.table1 , Field2.table1 , Field1.table2 , Field2.table2');

ويجب وضعها في متحول من نوع string

مع العلم لم اجد في النت عن هذا الموضوع