15-08-2017, 12:32 PM
السلام عليكم
في المرفقات ملف يوضح السؤال حول الترقيم الأوتوماتيكي أو الألي
![[صورة: 376648712.png]](http://www4.0zz0.com/2017/08/15/14/376648712.png)
في المرفقات ملف يوضح السؤال حول الترقيم الأوتوماتيكي أو الألي
15-08-2017, 01:31 PM
السلام عليكم
أولا اخي اطرح سؤالك بالموضوع/المشاركة
ثانيا لا ترفق ملفات تنفيذية exe بالمنتدى
مع انني حملت المرفق لكن حتى الان لم افهم السؤال: ما المشكل ؟
أولا اخي اطرح سؤالك بالموضوع/المشاركة
ثانيا لا ترفق ملفات تنفيذية exe بالمنتدى
مع انني حملت المرفق لكن حتى الان لم افهم السؤال: ما المشكل ؟
15-08-2017, 02:47 PM
المشكلة تتمثل في مايلي
أريد أن أقوم بوضع مثلا رقم 15 في edit1.text
ثم الضغط على زر ترتيب الملفات ثم تحجز الأرقام أليا في الجقل tartib لتكون 16 17 18 19 20 ......
أرحو ان الفكرة وصلت
و عذرا مسبقا على
أريد أن أقوم بوضع مثلا رقم 15 في edit1.text
ثم الضغط على زر ترتيب الملفات ثم تحجز الأرقام أليا في الجقل tartib لتكون 16 17 18 19 20 ......
أرحو ان الفكرة وصلت
و عذرا مسبقا على
15-08-2017, 03:47 PM
كود :
procedure TF_TOUT.BT_TARTIBClick(Sender: TObject);
begin
ADOTable1.First;
K:=0;
if Edit1.Text<>'' then K:=StrToInt(Edit1.Text);
while (not (ADOTable1.eof)) do
begin
ADOTable1.Edit;
ADOTable1.FieldByName('TARTIB').clear;
ADOTable1.FieldByName('TARTIB').AsInteger := k;
ADOTable1.Post;
k := K + 1;
ADOTable1.Next;
end;
ADOTable1.First;
end;15-08-2017, 04:06 PM
الحمد لله
زادك الله علما و شرفا و قدرا أخي عبد العزيز و جعلها الله في ميزان والديك
شكرا أولا و أخيرا
زادك الله علما و شرفا و قدرا أخي عبد العزيز و جعلها الله في ميزان والديك
شكرا أولا و أخيرا