التعامل مع Memory Table

مافي رد؟؟؟

ماهو ال memory table ؟.

هو كائن متل table وهو من مكونات rx

أخي هل تقصد in-memory table

في in-memory table يكون كل شيئ في الذاكرة

rxlib لم يتم تحديثه من مدة

هناك عدة مكونات تقوم بذلك

ولا تحتاج BDE

فائدتها كبيرة خصوصا في بيئة الشبكات حيث يمكنك تخزين البيانات المطلوبة بشكل مستمر في الذاكرة مع بداية البرنامج دون استرجاعها من الخادم بصورة متكررة

وسرعة البحث فيها عالية جدا

يوجد مكونات أخرى منها المجاني

http://www.torry.net/pages.php?id=572

واعتقد ان الأداة ClientDataSet المجودة في دلفي تؤدي نفس المهمة مع امكانية حفظ البيانات الى ملف واسترجاعها

لمعرفة المزيد حول استخدام هذه الأداة

http://delphi.about.com/od/usedbvcl/a/tclientdataset.htm

لا ما اقصد in_memory table انا باختصار اريد ادخل بيانات ل dbgrid وعند ربطها بtable اوquery تتخزن البيانات حتى من غير كتابة table.post وهناك بيانات لا اريد تخزينها وعندما سئلت بعض المهندسين قالو لي استخدمي memory_table فهي لا تخزن البيانات الا عند طلبي لذلك

يمكنك استخدام ال Transaction بدل ال Memory table

لحفظ التغيرات او للتراجع عنها

عفوا ماهو Transaction ؟؟

انظر هذه

ما هي ال Transaction

var
  Form1: TForm1;
  MySavepoint:integer;
  Modified:boolean;
implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientDataSet1.ApplyUpdates(-1);
  ADOTable1.Refresh;
  MySavepoint:=ClientDataSet1.SavePoint;
  Modified:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOTable1.Open;
  ClientDataSet1.FileName:='XML1.xml';
  ClientDataSet1.Open;
  ClientDataSet1.SaveToFile('',dfXML);
  MySavepoint:=ClientDataSet1.SavePoint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin    ///cancel
 ClientDataSet1.SavePoint:=MySavepoint;
 Modified:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  MySavepoint:=ClientDataSet1.SavePoint;
  Modified:=false;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Modified=true then
    case Application.MessageBox('Data was changed, save?',
    'Sure to do that',MB_YESNOCANCEL)
    of
      IDCANCEL:CanClose:=False;
      IDNo:ClientDataSet1.SavePoint := MySavepoint;
    end;


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOTable1.Close;
  ClientDataSet1.Close;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  Modified:=true;
end;

end.

XML.rar

بالنسبة للملفات المرفقة قمت بتحميلها لكن لم استطع فتحها

وشكرا :)

تم اعادة تحميل الملف المرفق اخت سارة