دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

إرسال موضوع جديد   إرسال مساهمة في موضوع

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  ahmead في 17/2/2015, 8:39 pm

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

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



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


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

ahmead
زائر


الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  ahmead في 17/2/2015, 8:49 pm

القيت نظرة على المرفق ان كان العدد صغيرا بدلا من 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

ahmead
زائر


الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  garby في 18/2/2015, 8:09 pm


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


delphi4arab.net


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


garby
زائر


الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
تستطيع الرد على المواضيع في هذا المنتدى