دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)

مُساهمة  medreg في 5/7/2015, 8:48 pm

السلام عليكم ورحمة الله تعالى وبركاته
في المرحلة الاولى كنا قد ربطنا N_Groupe بـ Groupe
وكانت النتيجة في المستوى المطلوب
وفي هذه المرحلة سنربط N_Groupe بـ Groupe و S_Groupe
وفي حالة تكرار نفس القيمة في S_Groupe
هنا المطلوب
يجب ان يأخذ نفس الترقيم في N_Groupe
حسب ماهو موضح في هذه الصورة

وهذا هو الكود المستعمل في المرحلة الاولى
الكود:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Table1Cde: TFloatField;
    Table1N_Groupe: TFloatField;
    Table1Groupe: TStringField;
    Table1Montant: TFloatField;
    Table1S_Groupe: TStringField;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   num1, num2,num3,num4: integer; //Alger
   Cde1: Word; //Alger
begin
    num1 := 0; num2 := 0; num3 := 0;  num4 := 0;//Alger
    Cde1 := 0; //Alger
    Table1.Open;  //Alger
    Table1.First; //Alger

    Table1.DisableControls; //Alger
    while not Table1.Eof do
    begin
      if Table1Groupe.Text ='900' then
      begin
          num1 := num1 + 1; //Alger
          Table1.Edit;
          Table1N_Groupe.Value := num1;  //Alger
          Table1.Post; //Alger
      end;
      if Table1Groupe.Text ='901' then
      begin
          num2 := num2 + 1; //Alger
          Table1.Edit;
          Table1N_Groupe.Value := num2;  //Alger
          Table1.Post; //Alger
      end;
      if Table1Groupe.Text ='902' then
      begin
          num3 := num3 + 1; //Alger
          Table1.Edit;
          Table1N_Groupe.Value := num3;  //Alger
          Table1.Post; //Alger
      end;
      if Table1Groupe.Text ='903' then
      begin
          num4 := num4 + 1; //Alger
          Table1.Edit;
          Table1N_Groupe.Value := num4;  //Alger
          Table1.Post; //Alger
      end;
      Table1.Next; //Alger
    end;
   Table1.EnableControls; //Alger
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
end;

end.
وبالتوفيق وصحى لفطورك

medreg
مبرمج

عدد المساهمات : 66
تاريخ التسجيل : 29/01/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)

مُساهمة  alla في 7/7/2015, 4:16 pm

بسم الله الرحمن الرحيم

السؤال :


وفي هذه المرحلة سنربط N_Groupe بـ Groupe و S_Groupe

وفي حالة تكرار نفس القيمة في S_Groupe

هنا المطلوب

يجب ان يأخذ نفس الترقيم في N_Groupe

حسب ماهو موضح في هذه الصورة

الجواب :

أعتقد تمت الاجابة على السؤال

الكود:

procedure TForm2.Button1Click(Sender: TObject);//Alger
var
  num1, num2, num3: Word;  //Alger
  sga1,sga2: string;    //Alger
  sgb1,sgb2: string;  //Alger
  sgc1,sgc2: string; //Alger

begin
    num1 := 0; num2 := 0; num3 := 0; //Alger
    Table1.Open;  //Alger
    Table1.First;  //Alger

    Table1.DisableControls;  //Alger
    while not Table1.Eof do
    begin
      if Table1Groupe.Text = '900' then
      begin
          sga1 := Table1S_Groupe.text; //Alger
          if sga1 <> sga2 then num1 := num1 + 1; //Alger
          Table1.Edit;  //Alger
          Table1N_Groupe.Value := num1;  //Alger
          Table1.Post;  //Alger
          sga2 := sga1;  //Alger
      end
      else if Table1Groupe.Text = '901' then
      begin
          sgb1 := Table1S_Groupe.text;  //Alger
          if sgb1 <> sgb2 then num2 := num2 + 1;  //Alger
          Table1.Edit;
          Table1N_Groupe.Value := num2;  //Alger
          Table1.Post;  //Alger
          sgb2 := sgb1;  //Alger
      end
      else
      begin
          sgc1 := Table1S_Groupe.text;  //Alger
          if sgc1 <> sgc2 then num3 := num3 + 1;  //Alger
          Table1.Edit;  //Alger
          Table1N_Groupe.Value := num3; //Alger
          Table1.Post;  //Alger
          sgc2 := sgc1;  //Alger
      end; //Alger
      Table1.Next;  //Alger
    end;  //Alger
    Table1.EnableControls; //Alger
end;


وفي الاخير تقبل مني فائق الشكر التقدير

معذرة على تأخير

اذا كانت هناك أي ملاحظات فلا تتردد في طرحها

شكرا






_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

عدد المساهمات : 720
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)

مُساهمة  alla في 7/7/2015, 4:21 pm






_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

عدد المساهمات : 720
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)

مُساهمة  medreg في 7/7/2015, 6:19 pm

بارك الله فيك وجزاك الله عنا خير الجزاء
تقبل الله منا ومنكم صالح الاعمال
وثبت اقدامكم على السراط المستقيم
وتقبل الله منا ومنكم الصيام والقيام بمزيد من الأجر والثواب والمغفرة
آميـن آميـن آميـن آميـن آميـن آميـن آميـن

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

medreg
مبرمج

عدد المساهمات : 66
تاريخ التسجيل : 29/01/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)

مُساهمة  medreg في 10/7/2015, 5:57 pm

السلام عليكم ورحمة الله تعالى وبركاته
تقيل الله منا ومنكم الصيام والقيام وصالح الاعمال
وبارك الله فيكم أخي alla
العملية ناجحة 100/100
جزاكم الله عنا خير الجزاء ووفقكم الله لما يحبه وبرضاه
رمضان كريم

medreg
مبرمج

عدد المساهمات : 66
تاريخ التسجيل : 29/01/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)

مُساهمة  alla في 11/7/2015, 12:11 pm


الحمد لله رب العالمين

آميـن آميـن آميـن آميـن آميـن



جزاكم الله خير الجزاء ووفقكم الله لما يحبه وبرضاه
رمضان كريم

آميـن

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

عدد المساهمات : 720
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى