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

ادوات الموضوع
key auto increment
hinalyna غير متصل
مبرمج جديد
**
المشاركات : 24
المواضيع 10
:
: 0
الإنتساب : Oct 2014
#18
09-02-2015, 11:39 AM
السلام عليكم هذا الإجراء شغال ومجرب 100%
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Table1.RecordCount=0 Then
Maskedit1.Text:='Ar-001'
ELSE
begin
if (Table1.RecordCount+1<10) then
Maskedit1.Text:='Ar-00'+inttostr(Table1.RecordCount+1) else
Maskedit1.Text:='Ar-0'+inttostr(Table1.RecordCount+1);
if (Table1.RecordCount+1>=100) then
Maskedit1.Text:='Ar-'+inttostr(Table1.RecordCount+1);

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 ) ضيف كريم