ترقيم تلقائي للحقل ID2 مع توفر شرط ID1

[AbdouProg]

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

اريد الحصول على ترقيم تلقائي للحقل ID2 و دالك بتوفر الشرط ID كما هو مبين في الشكل أدناه




 استعمل الكود الثالي و لكنه لا يعمل في الصورة العلوية ينقص التارخ بالطبع 
ما الدي يجب تعديله في هدا الكود و اذا كان هناك طريقة اخرى افيدونا و شكرا

مع العلم ان ID2 من نوع string
 

PHP كود :

function Tform1.Autoid_id: String;

var
  n_annee: string;
  a_Num, Err: integer;
  a_Key: variant;

begin
  with Qry1 do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add('SELECT Max(ID2 ) as ID2  ');
    SQL.Add('FROM teste a             ');
    SQL.Add('WHERE ID1 > ID2          ');
    Active := True;
  end;

  n_annee := formatdatetime('YY', Now);
  a_Key := QryID2.Value;

  if (a_Key = NULL) or (copy(a_Key, length(a_Key) - 1, 2) <> n_annee) then
    a_Num := 0
  else
  begin   
  
    val(copy(a_Key, 1, 1), a_Num, Err);
    if Err <> 0 then
      a_Num := 0;
  end;
  result := format('%1.1d/', [a_Num + 1]) + n_annee;
  Qry1.FieldByName('ID2').Text :=  copy(result,length(result) - 5, 3) + '-' + n_annee;
end; 


[Delphi4Us]

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

كود :

SQL.Add('SELECT Max(ID2 ) as ID2  ');     SQL.Add('FROM teste a            ');     SQL.Add('WHERE ID1 = 1          ');

بمعلومية الترقيم الاول يمكنك عمل ترقيم ثاني متسلسل للرقم الاول

[AbdouProg]

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

كود :

SQL.Add('SELECT Max(ID2 ) as ID2  ');     SQL.Add('FROM teste a             ');     SQL.Add('WHERE ID1 = 1           ');

بمعلومية الترقيم الاول يمكنك عمل ترقيم ثاني متسلسل للرقم الاول

السلام عليكم

الكود أخي لا يعمل هل من طريقة اخرى

[Delphi4Us]

الكود يعمل وانا استخدمه في برنامج لي بنفس الفكرة تقريبا

كود :

SELECT Max(ID2 ) + 1

[AbdouProg]

الكود يعمل وانا استخدمه في برنامج لي بنفس الفكرة تقريبا

كود :

SELECT Max(ID2 ) + 1

السلام عليكم

للاسف الكود لا يعمل و لا يلبي الطلب

[Delphi4Us]

هذا جدولك بالضبط



سوف اجري استعلام للحصول على الترقيم التالي للحقل ID2 في المجال رقم (1) للحقل ID1

كود :

select     max(test.id2) +1 from test where test.id1=1

النتيجة تكون الرقم 4 مع وضع بالاعتبار ان تقوم بعملية تحويل للحقل ID2 الى رقم بحال كان نص او تغييره الى النوع Integer

[AbdouProg]

هذا جدولك بالضبط



سوف اجري استعلام للحصول على الترقيم التالي للحقل ID2 في المجال رقم (1) للحقل ID1

كود :

select     max(test.id2) +1 from test where test.id1=1

النتيجة تكون الرقم 4 مع وضع بالاعتبار ان تقوم بعملية تحويل للحقل ID2 الى رقم بحال كان نص او تغييره الى النوع Integer

السلام عليكم
لكن مع  [b]ID2  - ID1 من نوع string  لا يعمل[/b]

[Delphi4Us]

اولا لماذا لاتحوله الى النوع رقمي ...؟

ثانيا يمكنك التحويل باستخدام احدى الدوال

كود :

SELECT CAST(ID2 AS int) + 1