تويت
استخدام العنصر Grid
for i = 1 ,n-1 do
for i = 1 ,n do
for i = 1 ,n do
Input.SetText("Input6", n);
Input.SetText("Input6", n+2);
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);
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");
تعليق