استخدام العنصر Grid

[ابا تراب]

السلام عليكم ورحمة الله وبركاته
الاخوة الافاضل كيف استخدم العنصر Grid
لعرض البيانات بهذا الشكل كما بالصورة التالية :
http://im60.gulfup.com/tyAi3o.jpg

تحميل الملف المفتوح

http://www.gulfup.com/G.png (http://www.gulfup.com/?lpkyx6)

[ثامر أبو بلقيس]

موفق بإذن الله ... لك مني أجمل تحية . :abc_152:

سنعتمد على ملف ايني لحجز الادخالات سيكون أسرع

سأحاول مساعدتك إن شاء الله :abc_138:

[ثامر أبو بلقيس]

اعتبرها محاولة ريثما يتدخل الزملاء
http://www.gulfup.com/?dk9Pbr

[ثامر أبو بلقيس]

قد تظهر أخطاء بسيطة يمكن التغلب عليها
موفق

في حدث الصفحة on show

في السطر 33 المكتوب فيه
for i = 1 ,n-1 do
حوله الى
for i = 1 ,n do
-------------------------------------
في الزر ادخال جديد و في السطر 46 نفس الشي نجعله
for i = 1 ,n do

في نفس الزر في الاعلى قليلا وبالضبط السطر 18 تجد
Input.SetText("Input6", n);

نحولها
Input.SetText("Input6", n+2);
-------------------------------------------------------------------------

فقط واذا بدى خلل نصححه إن شاء الله :abc_138:

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

[ثامر أبو بلقيس]

حسنا سأختم محاولتي بهذا التعديل ... الا أن يفيدنا الزملاء في استكمال
حذف البيانات أو سجل

في on show امسح الكل و أكتب :
Grid.SetCellText("Grid1", 0, 0, "الاسـم", true);
Grid.SetCellText("Grid1", 0, 1, "الهاتف", true);
Grid.SetCellText("Grid1", 0, 2, "الايميل", true);
Grid.SetCellText("Grid1", 0, 3, "الدولة", true);
Grid.SetCellText("Grid1", 0, 4, "العنوان", true);
Grid.SetCellText("Grid1", 0, 5, "الرقم الترتيبي", true);
-------------------------------------------------------
c = TextFile.ReadToTable("AutoPlay\\Docs\\nombre.txt");
n = String.ToNumber(c[1]);
-------------------------------------------------------
for i = 1 ,n+1 do
batch = "AutoPlay\\Docs\\BELKISS.ini"
fich1 = INIFile.GetValue(batch, i, "Nom et Prénom");
fich2 = INIFile.GetValue(batch, i, "téléphone");
fich3 = INIFile.GetValue(batch, i, "email");
fich4 = INIFile.GetValue(batch, i, "état");
fich5 = INIFile.GetValue(batch, i, "ADRESSE");
------
Grid.SetCellText("Grid1",i, 0,fich1, true);
Grid.SetCellText("Grid1",i, 1, fich2, true);
Grid.SetCellText("Grid1",i, 2, fich3, true);
Grid.SetCellText("Grid1",i, 3,fich4, true);
Grid.SetCellText("Grid1", i, 4, fich5, true);
end
--end
Input.SetText("Input6", n);
ter = Input.GetText("Input6");
ter = String.ToNumber(ter);
if ter >=0 then
Input.SetText("Input6", ter+1);
end
----------- ترقيم------------
for i = 1 ,n do
------
Grid.SetCellText("Grid1",i, 5,i, true);
end

--------------------------------------------------------------------------------------------

في زر ادخل اسم جديد امسح الكل و اكتب :
Name=Input.GetText("Input6")
Stream1=Input.GetText("Input1")
Stream2=Input.GetText("Input2")
Stream3=Input.GetText("Input3")
Stream4=Input.GetText("Input4")
Stream5=Input.GetText("Input5")
Path="AutoPlay\\Docs\\BELKISS.ini"
INIFile.SetValue(Path, Name, "Nom et Prénom", Stream1)
INIFile.SetValue(Path, Name, "téléphone", Stream2)
INIFile.SetValue(Path, Name, "email", Stream3)
INIFile.SetValue(Path, Name, "état", Stream4)
INIFile.SetValue(Path, Name, "ADRESSE", Stream5)
---------------------------------------------------------------------------
c = TextFile.ReadToTable("AutoPlay\\Docs\\nombre.txt");
n = String.ToNumber(c[1]);
vv=n+1
TextFile.WriteFromString("AutoPlay\\Docs\\nombre.txt", vv, false);
----------------
Input.SetText("Input6", vv+1);
-------------------------------------------------------
for i = 1 ,vv do
Grid.SetCellText("Grid1",i, 5,i, true);

batch = "AutoPlay\\Docs\\BELKISS.ini"
fich1 = INIFile.GetValue(batch, i, "Nom et Prénom");
fich2 = INIFile.GetValue(batch, i, "téléphone");
fich3 = INIFile.GetValue(batch, i, "email");
fich4 = INIFile.GetValue(batch, i, "état");
fich5 = INIFile.GetValue(batch, i, "ADRESSE");
------
Grid.SetCellText("Grid1",i, 0,fich1, true);
Grid.SetCellText("Grid1",i, 1, fich2, true);
Grid.SetCellText("Grid1",i, 2, fich3, true);
Grid.SetCellText("Grid1",i, 3,fich4, true);
Grid.SetCellText("Grid1", i, 4, fich5, true);
end
-------------

-------------------------------------------------------------



-------

------------------------------------------------------------
Input.SetText("Input1", "");
Input.SetText("Input2", "");
Input.SetText("Input3", "");
Input.SetText("Input4", "");
Input.SetText("Input5", "");
----------------------------------------------------
xButton.SetEnabled(this, false);

------------------------------------------------------------------------------------

في زر تعديل امسح الكل و أكتب :
Name=Input.GetText("Input7")
Stream1=Input.GetText("Input1")
Stream2=Input.GetText("Input2")
Stream3=Input.GetText("Input3")
Stream4=Input.GetText("Input4")
Stream5=Input.GetText("Input5")
Path="AutoPlay\\Docs\\BELKISS.ini"
INIFile.SetValue(Path, Name, "Nom et Prénom", Stream1)
INIFile.SetValue(Path, Name, "téléphone", Stream2)
INIFile.SetValue(Path, Name, "email", Stream3)
INIFile.SetValue(Path, Name, "état", Stream4)
INIFile.SetValue(Path, Name, "ADRESSE", Stream5)
--------------------------------------------------------------------
c = TextFile.ReadToTable("AutoPlay\\Docs\\nombre.txt");
n = String.ToNumber(c[1]);
vv=n+1
TextFile.WriteFromString("AutoPlay\\Docs\\nombre.txt", vv, false);
----------------
-------------------------------------------------------
for i = 1 ,vv do

batch = "AutoPlay\\Docs\\BELKISS.ini"
fich1 = INIFile.GetValue(batch, i, "Nom et Prénom");
fich2 = INIFile.GetValue(batch, i, "téléphone");
fich3 = INIFile.GetValue(batch, i, "email");
fich4 = INIFile.GetValue(batch, i, "état");
fich5 = INIFile.GetValue(batch, i, "ADRESSE");
------
Grid.SetCellText("Grid1",i, 0,fich1, true);
Grid.SetCellText("Grid1",i, 1, fich2, true);
Grid.SetCellText("Grid1",i, 2, fich3, true);
Grid.SetCellText("Grid1",i, 3,fich4, true);
Grid.SetCellText("Grid1", i, 4, fich5, true);
end
-------------

-------------------------------------------------------------



-------

------------------------------------------------------------
Input.SetText("Input1", "");
Input.SetText("Input2", "");
Input.SetText("Input3", "");
Input.SetText("Input4", "");
Input.SetText("Input5", "");
----------------------------------------------------
xButton.SetEnabled(this, false);


---------------------------------------------------------------------

الملف النصي يكون في البداية هو و ملف الايني شاغرين لأول استعمال
---------------------------------------------------------------------------------
بهذا يمكن حجز بيانات و استدعائها
بالتوفيق :abc_138:

[ابا تراب]

استاذنا الفاضل ثامر أبو بلقيس
جزاك الله خيرا على هذا الجهد
اسأل الله ان يجزيك عنى خيرا

[ثامر أبو بلقيس]

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

اذ كان المطلوب متعلق بانزال البيانات الى الجدول دون حفظ للبيانات و استدعائها
مرة أخرى أي أداة فقط

نرجع للملف الأول في بداية مشاركتك
نحقق في grid الخصائص
http://im81.gulfup.com/T1KkNo.png (http://www.gulfup.com/?rWRNF5)

في on show
Grid.SetCellText("Grid1", 0, 0, "الاسـم", true);
Grid.SetCellText("Grid1", 0, 1, "الهاتف", true);
Grid.SetCellText("Grid1", 0, 2, "الايميل", true);
Grid.SetCellText("Grid1", 0, 3, "الدولة", true);
Grid.SetCellText("Grid1", 0, 4, "العنوان", true);
Name=1
في زر الادخال :
my_table = {Input.GetText("Input1"),Input.GetText("Input2"),Input.GetText("Input3"),Input.GetText("Input4"),Input.GetText("Input5")};
if Input.GetText("Input1") ~="" and Input.GetText("Input2") ~="" and Input.GetText("Input3") ~="" and Input.GetText("Input4") ~="" and Input.GetText("Input5") ~="" then
Grid.InsertRow("Grid1", -1, true);
for i = 1,5 do
Grid.SetCellText("Grid1",Name, i-1,my_table[i], true);
Input.SetText("Input"..i, "");
end
Name= Name+1
else
Dialog.TimedMessage(" ......هام", " ملأ كل الحقول ضروري", 1000, MB_ICONQUESTION);
end
-------------------------------
Page.SetFocus("Input1");

---------------------------------------------
بمعنى أداة فقط لنقل محتوى الانبوتات الى الــ grid
لمشروع فيه 5 أنبوتات مرتبة 1 الى 5
و زر ادخال
----------------------------------------------------

[زياد مقداد]

رجاء تحميل الملفات المفتوحة على الميديافاير أو كتابة السكريبت الذي يخص القلوبال مع شكري
لكل الإخوة ولثامر خاصة

[سليمان الثواب]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبد العزيز البسكري]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عظيمه]

بسم الله الرحمن الرحيم
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
موفق بإذن الله ... لك مني أجمل تحية .