+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : key auto increment (/showthread.php?tid=330)
الصفحات:
1
2
key auto increment - فاتيهاري - 16-12-2008
السلام عليكم و رحمة الله و بركاته
كيف يمكنني جعل المفتاح الرئيسي مثلا رقم البضاعة يبدو من الشكل التالي :
Ar 0001
و كلما اضفت بضاعة جديدة تاخد الرقم ar 0002
...الخ
شكرا
key auto increment - nabilkeb - 16-12-2008
السلام عليكم و رحمة الله و بركاته :
أهلا و سهلا بك بمنتدانا الحبيب .
العبار النصية Ar001 يعني 'Ar001' تكافئ : 'Ar'+'001' و بالتالي يمكن الإحتفاظ بالشطر الأول ، و الثاني يتزايد حسب طبيعة برنامجك ، يعني إما يقوم المستخدم بإدخاله و بالتالي تحجز له مثلا Edit أو غير ذلك ، فالأمر يعود إليك . و الأمر واسع و هذه فكرة بسيطة جدا .
و شكرا.
key auto increment - hanipino - 18-12-2008
ربما ينجح هدا
كود :
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
Table1['Code_Matier']:='ar000'+inttostr(Dataset.RecNo);
end;key auto increment - محمد عبد العزيز - 18-12-2008
hanipino
حلك ينجح فقط مع التسع الاوائل
key auto increment - hanipino - 19-12-2008
إقتباس :حلك ينجح فقط مع التسع الاوائل .لم انتبه
PHP كود :
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var
i:Integer;
begin
i:=(DataSet.RecNo);
if i <=10 then
Table1['Code_Matier']:='Ar000'+inttostr(Dataset.RecNo);
if i >=10 then
Table1['Code_Matier']:='Ar00'+inttostr(Dataset.RecNo);
if i >=100 then
Table1['Code_Matier']:='Ar0'+inttostr(Dataset.RecNo);
if i >=1000 then
Table1['Code_Matier']:='Ar'+inttostr(Dataset.RecNo);
end;
key auto increment - محمد عبد العزيز - 19-12-2008
hanipino
هذا احسن من السابق لكن لايزال بحاجة لترتيب
انظر مثل الو كان i يساوي 101 سيدخل في i >=10
key auto increment - hanipino - 19-12-2008
هكذا ربما زاد تحسنا .
PHP كود :
procedure TForm1.table1CalcFields(DataSet: TDataSet);
var
i:Integer;
begin
i:=(DataSet.RecNo);
if (i <10) then
Table1['Code_Matier']:='Ar000'+inttostr(Dataset.RecNo);
if (i >=10) and (i<100) then
Table1['Code_Matier']:='Ar00'+inttostr(Dataset.RecNo);
if (i >=100) and (i<1000) then
Table1['Code_Matier']:='Ar0'+inttostr(Dataset.RecNo);
if (i >=1000) then
Table1['Code_Matier']:='Ar'+inttostr(Dataset.RecNo);
end;
key auto increment - محمد عبد العزيز - 19-12-2008
hanipino
أحسن لكن لاحظ جيدا هناك اوامر مكررة يمكن اختصارها ليصبح الكود اصغر
key auto increment - hanipino - 19-12-2008
اضن انه يوجد الان نوعا ما . اختصار .
PHP كود :
procedure TForm1.table1CalcFields(DataSet: TDataSet);
var
i:Integer;
begin
i:=(DataSet.RecNo);
case i of
0..9:Table1['Code_Matier']:='Ar000'+inttostr(i);
10..99:Table1['Code_Matier']:='Ar00'+inttostr(i);
100..199:Table1['Code_Matier']:='Ar0'+inttostr(i);
end;
if i>=1000 then Table1['Code_Matier']:='Ar'+inttostr(i);
end;
key auto increment - محمد عبد العزيز - 19-12-2008
جيد، لكن يزال هناك امكانية اختصار