+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تصحيح الكوذ من فضلكم (/showthread.php?tid=10595)
تصحيح الكوذ من فضلكم - anter2016 - 31-12-2019
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
mStr,ComparVal: string;
begin
TableAbbreviations.First;
while not TableAbbreviations.Eof do
begin
ComparVal := TableAbbreviations.FieldByName('ID').AsString;
mStr := TableAbbreviations.FieldByName('Abbrev').AsString;
if TableAchat.Locate('ID_Abbrev', ComparVal, []) then
begin
sEdit68.Text:= Copy(mStr, 1,Length(mStr))+'_' +Format('%0.4d',[ TableAchat.RecordCount+1]);
Tableproduit.Insert;
Tableproduit.FieldByName('Code_produit').AsString := sEdit68.Text;
Tableproduit.Post;
end ;
TableAbbreviations.Next;
end;
end;
end.
حدول التسميات كل مرة ياخذ التسمية من الجدول ويضيف لها الرقم التسلسلي في الجداول الاخرى ليصبح كالتالي
CL_0001 client
PR_0001 produit
اريد في كل مرة يبحث في الجدول ويضيف في الجدول الخاص اذا كان خاص بالشراء AC_0001
اذا كانت عملية اضافة منتوج في جدول المنتوجات PR_0001
RE: تصحيح الكوذ من فضلكم - Mustapha29 - 12-02-2020
استعمل الدالة
Locate , vararrayof