أشكرك أخي باسم_43
لقد طبقت عليه ما تفضل به اخونا عبدالعزيز
عمل معي في الحقل النصي string
لدي اربع حقول كلهم عملوا بشكل جيد الا هذا الحقل الذي هو من نوع float
لم يعمل معي لذا اعدت فتح المشاركة مرة اخرى
وجزاكم الله عنا كل خير
هده هي الدالة التي وعدتك بها
PHP كود :
function ExtractNumberInString( sChaine: String ): String ;
var
i: Integer ;
begin
Result := '' ;
for i := 1 to length( sChaine ) do
begin
if sChaine[ i ] in ['0'..'9'] then
Result := Result + sChaine[ i ] ;
end ;
end ;
واستخدامها بسيط فهي تحول رقمك الى شكل نصي واستعمالها بسيط
PHP كود :
edit1.text:= ExtractNumberInString(25.345,32);
بعدها طبق عليها ما قلناه سابقا
اما ادا كان رقمك بهدا الشكل 25345,32 بدون نقطة استخدم مباشرة الدالة floattostr لتحويله الى شكل نصي بعدها
tCpt := format('%.13d',[strtoint(Table1.FieldValues['Compte'])]);
بالتوفيق
بارك الله فيكم وجاري التجريب
وجمعة مباركة وتقبل الله منا ومنكم صالح الاعمال
(05-02-2016, 05:21 PM)medreg كتب : [ -> ]بارك الله فيكم وجاري التجريب
وجمعة مباركة وتقبل الله منا ومنكم صالح الاعمال
وفيك بركة اخي
وافينا بالنتائج
اظنك تحاول برمجة برنامج اجرة الموظفين بشكل ملف نصي بعدها يحرق على CD ؟؟
(05-02-2016, 09:06 PM)bassem_43 كتب : [ -> ] (05-02-2016, 05:21 PM)medreg كتب : [ -> ]بارك الله فيكم وجاري التجريب
وجمعة مباركة وتقبل الله منا ومنكم صالح الاعمال
وفيك بركة اخي
وافينا بالنتائج
اظنك تحاول برمجة برنامج اجرة الموظفين بشكل ملف نصي بعدها يحرق على CD ؟؟
فعلا يا احي لدي لرنامج للأجور واود ادراج تحوبل كشف الدفع البريدي الى ملف نصي
وعملت هذه المحاولة لكن لازالت ناقصة من ناحية قبول الملف النصي من طرف البرنامج الذي
سارفعه في قسم برامج من صنع الأعضاء لصاحبه (larbi_paradox)
وهذه هي محاولتي
[attachment=3148]
وسأوافيك بالمحتوى المطلوب بالكامل بعد قليل
وجزاكم الله عنا كل خير
(03-02-2016, 12:06 PM)bassem_43 كتب : [ -> ] (31-01-2016, 07:26 PM)medreg كتب : [ -> ] (26-01-2016, 07:58 PM)B.M.AbdelAziZ كتب : [ -> ]كود :
tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);
أخي عبدالعزيز
إذا كان الحقل من نوع FLOAT
وفي الملف النصي يجب ان يحتوي على 13 حرفا
اي لنفترض ان القيمة الموجودة في قاعدة البيانات بهذا الشكل : 25.345,32
في الملف النصي تكون بهذا الشكل : 0000002534532
كبف يكون الكود المتعلق بهذا السطر
وبارك الله فيكم
السلام عليكم
استخدم دالة تقوم بحدف الفاصلة من العدد 25.345,32 وتحويلها الى 2534532 بشكل string
بعدها استخدم طريقة الاستاد عبد العزيز
tCpt := format('%.13d',[strtoint(Table1.FieldValues['Compte'])]);
ساوافيك بالدالة ان لم تستطع كتابتها فيما بعد
بالتوفيق
(06-02-2016, 10:16 AM)medreg كتب : [ -> ] (05-02-2016, 09:06 PM)bassem_43 كتب : [ -> ] (05-02-2016, 05:21 PM)medreg كتب : [ -> ]بارك الله فيكم وجاري التجريب
وجمعة مباركة وتقبل الله منا ومنكم صالح الاعمال
وفيك بركة اخي
وافينا بالنتائج
اظنك تحاول برمجة برنامج اجرة الموظفين بشكل ملف نصي بعدها يحرق على CD ؟؟
فعلا يا احي لدي لرنامج للأجور واود ادراج تحوبل كشف الدفع البريدي الى ملف نصي
وعملت هذه المحاولة لكن لازالت ناقصة من ناحية قبول الملف النصي من طرف البرنامج الذي
سارفعه في قسم برامج من صنع الأعضاء لصاحبه (larbi_paradox)
وهذه هي محاولتي
وسأوافيك بالمحتوى المطلوب بالكامل بعد قليل
وهذا ما يجب ان يحتويه البرنامج المقصود انجازه
[attachment=3149]
وجزاكم الله عنا كل خير
اخي باسم بارك الله فيك
لقد اطلعت على البرنام الذي صنعته وهو برنامج جد رائع الا انه ينقصه انشاء الملف النصي
لذا لو تكرمت علينا بالتعديل على المحاوالة المرفقة حتى اضمها لبرنامج الاجور
بارك الله فيك على انت تكون بقاعدة البانات ابسوليت او بارادوكس
جزاك الله عنا حير الجزاء
(11-02-2016, 08:55 AM)medreg كتب : [ -> ]اخي باسم بارك الله فيك
لقد اطلعت على البرنام الذي صنعته وهو برنامج جد رائع الا انه ينقصه انشاء الملف النصي
لذا لو تكرمت علينا بالتعديل على المحاوالة المرفقة حتى اضمها لبرنامج الاجور
بارك الله فيك على انت تكون بقاعدة البانات ابسوليت او بارادوكس
جزاك الله عنا حير الجزاء
اهلا بك اخي
برنامجي ينشا الملف النصي اولا اضغط على
lire les donnees
ثم بعدها على
crier le cd ptt
واملاه بالبيانات الناقصة عند خلوه من الاخطاء يمكنك انشاء الملف النصي
بالنسبة للتعديل ساطلع على المرفقات فيما بعد واحاول التعديل ان لم يكن كثيرا لاني مشغول ببرنامج اخر
اي شيئ لم تسطع عمله اسال وسنساعدك بقدر المستطاع
بالتوفيق
اخي باسم بارك الله فيك فعلا لقد وجدت ببرنامجك انشاء الملف وفحصه
وان لم يكن هناك إحراج
فيكفيني ان تعطيني كود الإنشاء لملف النصي وكود فحص رقم الحساب
حتى اتمكن من اضافتهم لبرنامج الاجور الذي بحوذتي
(12-02-2016, 06:56 PM)medreg كتب : [ -> ]اخي باسم بارك الله فيك فعلا لقد وجدت ببرنامجك انشاء الملف وفحصه
وان لم يكن هناك إحراج
فيكفيني ان تعطيني كود الإنشاء لملف النصي وكود فحص رقم الحساب
حتى اتمكن من اضافتهم لبرنامج الاجور الذي بحوذتي
لا يوجد احراج اخي والبخيل لجنهم كما يقال
بالنسبة لكود حسابcle من ccp هو سهل تفضل
كود :
procedure TForm13.btn1Click(Sender: TObject);
var i,som:Integer;
begin
som:=0;
for i:=1 to Length(edt1.Text) do
som:=som+strtoint(edt1.text[i])*( (4+ Length(edt1.Text))-i);
edt2.Text:=IntToStr(som);
edt2.Text:=edt2.Text[Length(edt2.Text)-1]+edt2.Text[Length(edt2.Text)];
end;
تضعه في حدث الزر وتستعمل اثنان edite واحدة تضع في ccp والاخرى
بعد دلك للتاكد ان الحسابات ccp المدخلة صحيحة تقوم بمقارنة cle المدخل و المحفوظ في جدول عندك مع cle المحسوب كما هو مبين في الكود السابق
الطريقة باستخدام حلقة تمر بجميع cle الحساباتccp المخزنة في جدولك
بالنسبة للطلب الثاني ساحاول مساعدك فيه لانه ليس كود واحد و ربما لن تفهمه لانه مرتبط بمتغيرات كثيرة في البرنامج
احاول مساعدك كي تكتبه بنفسك و تتعلم انا ايضا مررت بما مررت به انت لا تياس
بالتوفيق لك