المواضيع ذات الكلمات الدلالية مع absolute database

المواضيع ذات الكلمات الدلالية مع absolute database

المواضيع ذات الكلمات الدلالية مع absolute database



delphi4arab.net/forum/tags.php?tag=absolute+database


delphi4arab.net/forum/tags.php?tag=absolute+database

القيت نظرة على المرفق ان كان العدد صغيرا بدلا من BatchMove يمكنك فعل ذلك برمجيا
تقريبا نفس ما كان مكتوب بالمرفق بتصرف
للحفظ
كود:

TB_1.First;
while not TB_1.Eof do begin
if TB_Archive.Locate('GRP;SRP',VarArrayof([TB_1GRP.AsString,TB_1SRP.AsString]),[loCaseInsensitive])
then TB_Archive.Edit else TB_Archive.Append;
TB_ArchiveGRP.AsString:= TB_1GRP.AsString;
TB_ArchiveSRP.AsString:= TB_1SRP.AsString;
TB_ArchiveMT_TOT.AsFloat:=TB_1MT_TOT.AsFloat;
TB_Archive.Post;
TB_1.Next;
end;

للاسترجاع

كود:

TB_ARCHIVE.First;
while not TB_ARCHIVE.Eof do begin
if TB_1.Locate('GRP;SRP',VarArrayof([TB_ARCHIVEGRP.AsString,TB_ARCHIVESRP.AsString]),[loCaseInsensitive])
then TB_1.Edit else TB_1.Append;
TB_1GRP.AsString:= TB_ARCHIVEGRP.AsString;
TB_1SRP.AsString:= TB_ARCHIVESRP.AsString;
TB_1MT_TOT.AsFloat:= TB_ARCHIVEMT_TOT.AsFloat;
TB_1.Post;
TB_ARCHIVE.Next;
end;

يبقى عليك اضافة حقل او شيئ ما تحدد به الشهر
ملاحظتين:
لم تذكراي شيئ عن قيمة الحقل NUM بالجدول الاول الذي يبقى دون قيمة عند الاسترجاع
بالنسبة للمكون ABSDatabase1 من الاحسن ان تكون DataBaseName دون مسار test_A.ABS





delphi4arab.net/forum/showthread.php?s=5d8de05486edeb1f0b0db6a5d0b11de3&t=2800

delphi4arab.net

المواضيع ذات الكلمات الدلالية مع absolute database


delphi4arab.net


delphi4arab.net/forum/tags.php?tag=absolute+database