كيف أجعل البرنامج يبدء بترقيم عمود بدء من رقم ما

[elzawey2020]

السلام عليكم ورحمه الله وبركاته

كيف حالك جميعا

عندي قاعده بيانات بها عمود اسمه set2 رقم الجلوس الطالب والعمود به 300 طالب
اريد كود لاعطاء كل تلميذ رقم دء من الرقم الموجود في edit1
جربت هذ الكود ولكنه اخر سجل بيكون نفس الرقم الموجود في السجل السابق له وفي ارقام اخر العمود بيكررها

الكود 

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := strtoint(Edit1.Text) to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a;
ADOTable1.Next;
ADOTable1.Edit;
end;
end

ما المشكله فيه 


---

السلام عليكم ورحمه الله وبركاته

كيف حالك جميعا

عندي قاعده بيانات بها عمود اسمه set2 رقم الجلوس الطالب والعمود به 300 طالب
اريد كود لاعطاء كل تلميذ رقم دء من الرقم الموجود في edit1
جربت هذ الكود ولكنه اخر سجل بيكون نفس الرقم الموجود في السجل السابق له وفي ارقام اخر العمود بيكررها

الكود 

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := strtoint(Edit1.Text) to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a;
ADOTable1.Next;
ADOTable1.Edit;
end;
end

عندما اكتب 1 في edit  مفيش مشكله ولكن تبدء المشكله اذا كان العدد المكتوب في edit  غير 1
 ما المشكله فيه اخوتي 


---

السلام عليكم ورحمه الله وبركاته

كيف حالك جميعا

عندي قاعده بيانات بها عمود اسمه set2 رقم الجلوس الطالب والعمود به 300 طالب
اريد كود لاعطاء كل تلميذ رقم دء من الرقم الموجود في edit1
جربت هذ الكود ولكنه اخر سجل بيكون نفس الرقم الموجود في السجل السابق له وفي ارقام اخر العمود بيكررها

الكود 

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := strtoint(Edit1.Text) to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a;
ADOTable1.Next;
ADOTable1.Edit;
end;
end

ما المشكله فيه 


---

السلام عليكم ورحمه الله وبركاته

كيف حالك جميعا

عندي قاعده بيانات بها عمود اسمه set2 رقم الجلوس الطالب والعمود به 300 طالب
اريد كود لاعطاء كل تلميذ رقم دء من الرقم الموجود في edit1
جربت هذ الكود ولكنه اخر سجل بيكون نفس الرقم الموجود في السجل السابق له وفي ارقام اخر العمود بيكررها

الكود 

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := strtoint(Edit1.Text) to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a;
ADOTable1.Next;
ADOTable1.Edit;
end;
end

عندما اكتب 1 في edit  مفيش مشكله ولكن تبدء المشكله اذا كان العدد المكتوب في edit  غير 1
 ما المشكله فيه اخوتي 


كود :

عندما اكتب 1 في edit  مفيش مشكله ولكن تبدء المشكله اذا كان العدد المكتوب في edit  غير 1  ما المشكله فيه اخوتي

---

السلام عليكم ورحمه الله وبركاته

كيف حالك جميعا

عندي قاعده بيانات بها عمود اسمه set2 رقم الجلوس الطالب والعمود به 300 طالب
اريد كود لاعطاء كل تلميذ رقم دء من الرقم الموجود في edit1
جربت هذ الكود ولكنه اخر سجل بيكون نفس الرقم الموجود في السجل السابق له وفي ارقام اخر العمود بيكررها

الكود 

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := strtoint(Edit1.Text) to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a;
ADOTable1.Next;
ADOTable1.Edit;
end;
end

ما المشكله فيه 


---

السلام عليكم ورحمه الله وبركاته

كيف حالك جميعا

عندي قاعده بيانات بها عمود اسمه set2 رقم الجلوس الطالب والعمود به 300 طالب
اريد كود لاعطاء كل تلميذ رقم دء من الرقم الموجود في edit1
جربت هذ الكود ولكنه اخر سجل بيكون نفس الرقم الموجود في السجل السابق له وفي ارقام اخر العمود بيكررها

الكود 

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := strtoint(Edit1.Text) to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a;
ADOTable1.Next;
ADOTable1.Edit;
end;
end

عندما اكتب 1 في edit  مفيش مشكله ولكن تبدء المشكله اذا كان العدد المكتوب في edit  غير 1
 ما المشكله فيه اخوتي 


---

السلام عليكم ورحمه الله وبركاته

كيف حالك جميعا

عندي قاعده بيانات بها عمود اسمه set2 رقم الجلوس الطالب والعمود به 300 طالب
اريد كود لاعطاء كل تلميذ رقم دء من الرقم الموجود في edit1
جربت هذ الكود ولكنه اخر سجل بيكون نفس الرقم الموجود في السجل السابق له وفي ارقام اخر العمود بيكررها

الكود 

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := strtoint(Edit1.Text) to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a;
ADOTable1.Next;
ADOTable1.Edit;
end;
end

ما المشكله فيه 


---

السلام عليكم ورحمه الله وبركاته

كيف حالك جميعا

عندي قاعده بيانات بها عمود اسمه set2 رقم الجلوس الطالب والعمود به 300 طالب
اريد كود لاعطاء كل تلميذ رقم دء من الرقم الموجود في edit1
جربت هذ الكود ولكنه اخر سجل بيكون نفس الرقم الموجود في السجل السابق له وفي ارقام اخر العمود بيكررها

الكود 

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := strtoint(Edit1.Text) to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a;
ADOTable1.Next;
ADOTable1.Edit;
end;
end

عندما اكتب 1 في edit  مفيش مشكله ولكن تبدء المشكله اذا كان العدد المكتوب في edit  غير 1
 ما المشكله فيه اخوتي 


كود :

عندما اكتب 1 في edit  مفيش مشكله ولكن تبدء المشكله اذا كان العدد المكتوب في edit  غير 1  ما المشكله فيه اخوتي

الحمد لله تم حل المشكله مع تعديل في الكود

PHP كود :

var a,b,c :integer;
begin
ADOTable1.First;
ADOTable1.Edit;
for a := 0 to ADOTable1.RecordCount-1 do
begin
ADOTable1.FieldByName('set2').AsInteger :=a+strtoint(Edit1.Text);
ADOTable1.Next;
ADOTable1.Edit;
end;
end;