تصحيح الكوذ من فضلكم
#1
PHP كود :
procedure TForm1.Button1Click(SenderTObject);
var
  mStr,ComparValstring;
  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(mStr1,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
ينبغي للعالم ان يخاطب الجاهل مخاطبةالطبيب للمريض .
سقراط.
الرد
#2
استعمل الدالة
Locate , vararrayof
صدقة العلم تعليمه
[-] كل من 1 user says قال شكرا ل Mustapha29 على المشاركة المفيدة
  • anter2016
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف