3 أسئلة فقط

السلام عليكم

أخي العزيز يالنسبة للسؤال الأول

يمكنك بالنقر المزدوج على عنصر ال Table

يظهر لك نافذة بالزر الأيمن للماوس ثم Add New Field

تظهر نافذة تختار Calculated Field و نسمي الفيلد الجديد

بالحدث OnCalcField للتابل تكتب الكود التالي :

If Table1.fieldbyname['f1'].value = true then

newf1.value := ' نعم'

else

newf1.value := ' لا'

شكرا لك أخي ....أجربه ...أن شاء الله ..وأخبرك;)

عودة سريعة ...

لكن اخي الكود الذي تكرمت بكتابته ..جيد ..ولكن أعطاني خطأ ..في المحرر

في عبارة newf1... وبصراحة حاولت بوضع هذا الكود ونجح معي .ولكن لم

يعطي المطلوب..أرجو منك التصليح ان أمكن

if table1.FieldByName('CloseIntrnatiol').Value= true then
table1.FieldByName('CloseIntrnatiol').Value:='لا'
else
table1.FieldByName('CloseIntrnatiol').Value:='نعم'

سلام عليكم

أخي الكريم أعيد الشرح

1- النقر المزدوج على عنصر التابل

2- في النافذة التي تظهر و بالزر الأيمن للماوس add all fields

3- ثم Addnewfields

4- في النافذة اللتي تظهر تضع اسم الحقل الجديد و يكون نوعه شريط محرفي

و طوله 3 ثم تختار calculated

5-سوف تستعمل اسم الحقل هذا في الكود

بفرض اسم الحقل Boolean هو FB

واسم الحقل الجديد هو FYN

الكود التالي :

If Table1.FieldByName('FB').value = True then

Table1FYN.Value := 'نعم'

Else

Table1FYN.Value := 'لا'

جرب و رد علي

سلام

بالنسبة للسؤال الثاني فهي عبارة تستخدم في كتابة العناصر و تعني استدعاء

اجرا ء الأب الموروث

بالنسبة للسؤال الثالث

لعنصر Table خاصة Filter

بفرض اسم الحقل الذي من نوع Number هو F1

في الكود تكتب

Table1.Filter :='F1 = 10'

TAble1.Filtred := True

وهي الخاصة الثانية للعنصر التابل

السلام عليكم

السؤال الاول

لايوجد حقل من النوع boolean على حد علمي داخل الباردوكس

لذا قم بوضع اي حقل

وضع به قيمتين فقط

وإليك الطريقة

application.Createform(tmodal,modal);
if  modal.Table1.Bof then
 checkbox1.Checked
else
if modal.Table1.Eof then
modal.Table1.ApplyUpdates;
 end;

بالنسبة لعبارة inherted

كماتعلم من المبادئ الاساسية للبرمجة الموجهة للكائنات

التغليف (encapsulation)

الوراثة (inheritence)

تعدد الاشكال polymorphism)

عبارة

الinherated تعيني اشتقاق و

تستعملها عندما تريد اشتقاق أو إنشاء

object من class ما وتستفيد من وظائفه

دون ان تغير به

اي بمعنى اخر

سيكون هناك object's عامة

منها Object

اكثر خصوصيها وتستفيد من وظائفها كاملة

يوجد مقال مع مثال للاخ محمد نسمان

هذا

مثال عن visual form inhertance

اشتقاق فورم من فورم اخر

داخل الفورم الاول

var

  Form1: TForm1;



implementation



uses Unit2;



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

  Form2.Show;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

  Beep;

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

  Beep;

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

  ShowMessage ('Hi');

end;



end.

داخل الفورم الثاني

unit Unit2;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Unit1, StdCtrls;



type

  TForm2 = class(TForm1)

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form2: TForm2;



implementation



{$R *.DFM}



procedure TForm2.Button2Click(Sender: TObject);

begin

  inherited;

  ShowMessage ('Hi');

end;



procedure TForm2.Button3Click(Sender: TObject);

begin

  ShowMessage ('Hi');

end;



procedure TForm2.Button4Click(Sender: TObject);

begin

  inherited Button3Click (Sender);

  inherited;

end;



procedure TForm2.Button1Click(Sender: TObject);

begin

  inherited;



end;



end.

procedure TForm1.UnfilterClick(Sender: TObject);

begin

CustomerTable.Filtered := False;

end;

المقصود بالcity

الحقل المراد فلترته مضافا إليه =

إذا كنت تريد استعمال script Sql

SELECT * FROM MyTable
WHERE UPPER(MyField)LIKE "%UPPER(MySubstring)%";

السلام عليكم

بلى أخي العزيز

يوجد حقل Boolean في برادوكس و لكن نوعه Logical

المشكلة نجحت التجربة ...ولكن عند تفعيل البرنامج F9....

أعطى محرر الدلفي يرجى تصحيح ...String..... يعني ..

لم يقبل ..قلب ..القيمة ..من Boolean..الى string .....الجودل من نوع

boolean >>وأعطيته ال....تحويل الى 'نعم'.....لم يقبل ذلك........

أرجو اعطائي مثال ..صغير أذا سمحتما ................وشكراً

سلام عليكم

إليك هذا المثال و هو ماشرحت سابقا

ملاحظة : لا يمكن إسناد String إلى Boolean

و ما عنيته هو حقل جديد ليس في ال db

إنما في عنصر ال Table

test.zip

شكرا اخي ..سأجربه

وأعتذر عن التأخير:o