delphi4arab منتديات دلفي للعرب › منتديات دلفي للعرب التعليمية › سؤال و جواب حول دلفي v
key auto increment

ادوات الموضوع
key auto increment
hanipino غير متصل
مشرف بدلفي للعرب
******
المشاركات : 378
المواضيع 44
:
: 6
الإنتساب : Feb 2008
#7
19-12-2008, 08:38 PM
هكذا ربما زاد تحسنا . Smile
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 - بواسطة فاتيهاري - 16-12-2008, 12:55 PM
key auto increment - بواسطة nabilkeb - 16-12-2008, 11:09 PM
key auto increment - بواسطة hanipino - 18-12-2008, 09:13 AM
key auto increment - بواسطة محمد عبد العزيز - 18-12-2008, 10:27 PM
key auto increment - بواسطة hanipino - 19-12-2008, 06:48 PM
key auto increment - بواسطة محمد عبد العزيز - 19-12-2008, 07:35 PM
key auto increment - بواسطة hanipino - 19-12-2008, 08:38 PM
key auto increment - بواسطة محمد عبد العزيز - 19-12-2008, 09:35 PM
key auto increment - بواسطة hanipino - 19-12-2008, 09:57 PM
key auto increment - بواسطة محمد عبد العزيز - 19-12-2008, 10:22 PM
key auto increment - بواسطة hanipino - 19-12-2008, 10:38 PM
key auto increment - بواسطة محمد عبد العزيز - 19-12-2008, 11:42 PM
key auto increment - بواسطة hanipino - 19-12-2008, 11:52 PM
key auto increment - بواسطة nabilkeb - 20-12-2008, 10:22 PM
key auto increment - بواسطة محمد عبد العزيز - 20-12-2008, 10:31 PM
key auto increment - بواسطة hanipino - 20-12-2008, 10:47 PM
key auto increment - بواسطة paix144 - 16-06-2013, 07:01 PM
key auto increment - بواسطة hinalyna - 09-02-2015, 11:39 AM
key auto increment - بواسطة محمد عبد العزيز - 09-02-2015, 01:18 PM

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم