المواضيع ذات الكلمات الدلالية مع absolute database
صفحة 1 من اصل 1
المواضيع ذات الكلمات الدلالية مع absolute database
المواضيع ذات الكلمات الدلالية مع absolute database
المواضيع ذات الكلمات الدلالية مع absolute database
delphi4arab.net/forum/tags.php?tag=absolute+database
delphi4arab.net/forum/tags.php?tag=absolute+database
المواضيع ذات الكلمات الدلالية مع absolute database
delphi4arab.net/forum/tags.php?tag=absolute+database
delphi4arab.net/forum/tags.php?tag=absolute+database
ahmead- زائر
رد: المواضيع ذات الكلمات الدلالية مع 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
تقريبا نفس ما كان مكتوب بالمرفق بتصرف
للحفظ
كود:
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
المواضيع ذات الكلمات الدلالية مع absolute database
delphi4arab.net
delphi4arab.net/forum/tags.php?tag=absolute+database
garby- زائر
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى