03-08-2019, 12:32 PM
السلام عليكم ورحمة الله تعالى وبركاته
فيما يتعلق بإضافة ترقيم برمجيا حسب كل مجموع شريطة ان لايتجاوز الترقيم 5 حتى ولوكانت المجموعة تحتوي على اكثر من 5
يعني اذا كانت المجموعة تساوي 10 سجلات فالخمسة الاولى تكون من 1 الى 5
والخمسة الثانية تكون من 1 الى 5
وهذا هو الكود للتعديل عليه بارك الله فيكم
فيما يتعلق بإضافة ترقيم برمجيا حسب كل مجموع شريطة ان لايتجاوز الترقيم 5 حتى ولوكانت المجموعة تحتوي على اكثر من 5
يعني اذا كانت المجموعة تساوي 10 سجلات فالخمسة الاولى تكون من 1 الى 5
والخمسة الثانية تكون من 1 الى 5
وهذا هو الكود للتعديل عليه بارك الله فيكم
كود :
Var
D500,D501,D000,
R500,R501,R000: Word;
sga1,sga2: string;
sgb1,sgb2: string;
sgc1,sgc2: string;
begin
D500:=0; D501:=0; D000:=0; R500:=0; R501:=0; R000:=0;
With Dm do
Begin
Tab1.Open;
Tab1.First;
Tab1.DisableControls;
while not Tab1.Eof do
begin
if (Tab1Grp.Text = '500')and(Tab1Tpe.Text ='A') then
begin
sga1 := Tab1Opt.Text;
if (sga1 <> sga2) then D500 := D500 + 1;
Tab1.Edit;
Tab1Cln.Value := D500;
Tab1.Post;
sga2 := sga1;
اذا كانت قيمة هذا الحقل تصل الى اكثر من 5 سجلات بنفس القيمة يكون الترتيب المطلوب من 1 الى 5 لكل خمس سجلات
end
else if (Tab1Grp.Text = '500')and(Tab1Tpe.Text ='B') then
begin
sgb1 := Tab1Opt.Text;
if (sgb1 <> sgb2) then R500 := R500 + 1;
Tab1.Edit;
Tab1Cln.Value := R500;
Tab1.Post;
sgb2 := sgb1;
اذا كانت قيمة هذا الحقل تصل الى اكثر من 5 سجلات بنفس القيمة يكون الترتيب المطلوب من 1 الى 5 لكل خمس سجلات
end
else if (Tab1Grp.Text = '501')and(Tab1Tpe.Text = 'A') then
begin
sga1 := Tab1Opt.Text;
if (sga1 <> sga2) then D501 := D501 + 1;
Tab1.Edit;
Tab1Cln.Value := D501;
Tab1.Post;
sga2 := sga1;
اذا كانت قيمة هذا الحقل تصل الى اكثر من 5 سجلات بنفس القيمة يكون الترتيب المطلوب من 1 الى 5 لكل خمس سجلات
end
else if (Tab1Grp.Text = '501')and(Tab1Tpe.Text = 'B') then
begin
sgb1 := Tab1Opt.Text;
if (sgb1 <> sgb2)then R501 := R501 + 1;
Tab1.Edit;
Tab1Cln.Value := R501;
Tab1.Post;
sgb2 := sgb1;
اذا كانت قيمة هذا الحقل تصل الى اكثر من 5 سجلات بنفس القيمة يكون الترتيب المطلوب من 1 الى 5 لكل خمس سجلات
end
else
begin
sgc1 := Tab1Opt.Text;
if (sgc1 <> sgc2) then D000 := D000 + 1;
Tab1.Edit;
Tab1Cln.Value := D000;
Tab1.Post;
sgc2 := sgc1;
sgc1 := Tab1Opt.Text;
if (sgc1 <> sgc2) then R000 := R000 + 1;
Tab1.Edit;
Tab1Cln.Value := R000;
Tab1.Post;
sgc2 := sgc1;
end;
Tab1.Next;
end;
Tab1.EnableControls;
end;