+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اضيف السنة لمحتوى حقل من SpinEdit (/showthread.php?tid=1698)
كيف اضيف السنة لمحتوى حقل من SpinEdit - medreg - 21-02-2010
gلدي حقل من نوع Smallint
و اسمه Cde_Prd
والمطلوب هو عندما أضيف سجل يضف له السنة الموجودة بمكون SpinEdit1
احتاج لتعديل هذا الكود
وهو عبارة عن إضافة رقم تلقائي على ان يضيف الرقم التلقائي ويضيف له السنة
وكل ما تغيرت السنة في المكون SpinEdit
يبداء الرقم التلقائي برقم 1
يكون الرقم بعد اضافة السنة له على هذا الشكل 0001/2010 أو 2010/0001
PHP كود :
var x:integer;
h:integer;
begin
h:=spinedit1.value;
x:=0;
with DM_1 do begin
table1.Last;
x:=table1.FieldByName('Cde_Prd').AsInteger;
x:=x+1;
table1.Insert;
table1.FieldByName('Cde_Prd').AsInteger:=x;
end;
DBEdit1.SetFocus;
end;