+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اظهار سجل فارغ نتيجة تحويل من جدول الى اخر (/showthread.php?tid=8770)
اظهار سجل فارغ نتيجة تحويل من جدول الى اخر - medreg - 22-07-2017
السلام عليكم ورحمة الله تعالى وبركاته
عندما تتم عملية التحويل من الجدول2 الى الجدول1 مع الشرط
يظهر سجل فارغ قبل السحلات المملوءة مع العلم ان الجدول2 ليس به سجل فارغ
هذه الصورة الجدول1 بعد عملية التحويل
[attachment=3521]
وهذا كود التحويل المستعمل
كود :
procedure TForm1.BitBtn1Click(Sender: TObject);
var tNom,tPnm:String;
tCde,tCdC:integer;
Mont:Double;
begin
DM.Table1.Close;
DM.Table1.EmptyTable;
DM.Table1.Open;
with DM do
begin
Table2.Open;
Table2.First;
While not Table2.Eof do
begin
If Table2BLq.Value=False then
begin
{Keep Previous values}
Mont:= Table2Montant.AsFloat;
tCde:= Table2cde.AsInteger;
tCdC:= Table2CdeC.AsInteger;
tNom:= Table2Nom.AsString;
tPnm:= Table2Prenom.AsString;
end;
Table2.Next;
if Table1.Locate('Cde;CdeC',vararrayof([tCde,tCdC]),[locaseinsensitive,lopartialkey]) then
begin
end else
begin
Table1.Append;
Table1.fieldvalues['Cde']:=tCde;
Table1.fieldvalues['CdeC']:=tCdC;
Table1.fieldvalues['Nom']:=tNom;
Table1.fieldvalues['Prenom']:=tPnm;
Table1.fieldvalues['Montant']:=Mont;
Table1.Refresh;
end;
end;
end;
end;
ماذا يجب علي فعله حتى لا يظهر وجزاكم الله عنا كل خيرRE: اظهار سجل فارغ نتيجة تحويل من جدول الى اخر - محمد عبد العزيز - 23-07-2017
وعليكم السلام ورحمة الله وبركاته
جرب ما يلي
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
with DM do
begin
Table1.Close;
Table1.EmptyTable;
Table1.Open;
Table2.Open;
Table2.First;
While not Table2.Eof do
begin
If Table2BLq.Value=False then
if not Table1.Locate('Cde;CdeC',vararrayof([tCde,tCdC]),[locaseinsensitive,lopartialkey]) then
begin
Table1.Append;
Table1.fieldvalues['Cde']:=Table2cde.AsInteger;
Table1.fieldvalues['CdeC']:=Table2CdeC.AsInteger;
Table1.fieldvalues['Nom']:=Table2Nom.AsString;
Table1.fieldvalues['Prenom']:=Table2Prenom.AsString;
Table1.fieldvalues['Montant']:=Table2Montant.AsFloat;
Table1.Post;
end;
Table2.Next;
end;
end;
end;RE: اظهار سجل فارغ نتيجة تحويل من جدول الى اخر - medreg - 23-07-2017
(23-07-2017, 08:48 AM)B.M.AbdelAziZ كتب : وعليكم السلام ورحمة الله وبركاته
جرب ما يلي
بارك الله فيكم
نسأل الله العلي القدير ان يضع كل مساعداتكم هذه في ميزان حسناتكم
آمين وجزاكم عنا كل خير