08-05-2014, 11:21 AM
الصفحات : 1 2
08-05-2014, 05:15 PM
08-05-2014, 07:08 PM
السلام عليكم يااخي لدي هذا الكود بtable ابحث عن كيفية استخدامه بواسطة adotable
table3.first ;//table de ligne vent qui contient la quantite vendu
while not(table3.eof) do
begin
Table4.setkey ; // préparation de la recherche,table4 est la table de produit stock
Table4.fieldbyname(‘reference’).asinteger := Table3.fieldbyname(‘ref_prod’).asinteger ;/ /reference est le code de produit
If table4.gotokey then
Begin
Table4.edit; //préparation de la modification
Table4.fieldbyname(‘qte_stock’).asfloat:=Table4.fieldbyname(‘qte_stock’).asfloat-
Table3.fieldbyname(‘qte_vente’).asfloat;
Table4.post;
End;
Table3.next;
End;
table3.first ;//table de ligne vent qui contient la quantite vendu
while not(table3.eof) do
begin
Table4.setkey ; // préparation de la recherche,table4 est la table de produit stock
Table4.fieldbyname(‘reference’).asinteger := Table3.fieldbyname(‘ref_prod’).asinteger ;/ /reference est le code de produit
If table4.gotokey then
Begin
Table4.edit; //préparation de la modification
Table4.fieldbyname(‘qte_stock’).asfloat:=Table4.fieldbyname(‘qte_stock’).asfloat-
Table3.fieldbyname(‘qte_vente’).asfloat;
Table4.post;
End;
Table3.next;
End;
08-05-2014, 10:05 PM
إقتباس : السلام عليكم يااخي لدي هذا الكود بtable ابحث عن كيفية استخدامه بواسطة adotableنفس الشيئ table او adotable ..
09-05-2014, 03:24 PM
السلام عليكم جرب adotable.setkeyوadotable.gotokey ستلاحظ وجود خطا في ال compilation mlh hk
11-05-2014, 11:18 AM
السلام عليكم
احد البدائل Locate
احد البدائل Locate
كود :
table3.first
while not(table3.eof) do
begin
if Table4.Locate('reference’,Table3.fieldbyname(‘ref_prod’).AsString,[loCaseInsensitive]) then
Begin
Table4.edit;
Table4.fieldbyname(‘qte_stock’).asfloat:=Table4.fi eldbyname(‘qte_stock’).asfloat-
Table3.fieldbyname(‘qte_vente’).asfloat;
Table4.post;
End;
Table3.next;
End;18-05-2014, 02:36 PM
مشكور يا اخي والله مشكور فقد لو تعلمني عن معنى parameter locaseinsentive وبارك الله فيك
18-05-2014, 09:29 PM
mohaa كتب :مشكور يا اخي والله مشكور فقد لو تعلمني عن معنى parameter locaseinsentive وبارك الله فيكساجيبك بدلا من الاستاد عبد العزيز لو سمحت
نستعمل locaseinsentive ادا اردنا البحث عن قيمة دون التفريق بين الاحرف الصغيرة والكبيرة majuscules/minuscules.
بالتوفيق
20-05-2014, 01:21 PM
مشكور يا اخي وبارك الله فيك فقط لدي مشكل في auto increment في دلفي حيث انه يزداد تلقائيا في الاضافة لكن في الحدف يحدف السطر لكن القيمة لاتنقص علما اني اعمل ب SAL SERVER
20-05-2014, 03:26 PM
mohaa كتب :مشكور يا اخي وبارك الله فيك فقط لدي مشكل في auto increment في دلفي حيث انه يزداد تلقائيا في الاضافة لكن في الحدف يحدف السطر لكن القيمة لاتنقص علما اني اعمل ب SAL SERVERوفيك بركة يا اخي
تفضل تابع الموضوع حتى اخره
http://www.delphi4arab.net/forum/showthr...p?tid=3629
بالتوفيق
الصفحات : 1 2