في ما يتعلق بفحص رقم الحساب
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
في ما يتعلق بفحص رقم الحساب
السلام عليكم ورحمة الله تعالى
هذا الكود هو لإنشاء مفتاح ccp
والمطلوب هو
كود لفحص رقم الحساب بمعنى يقرأ رقم الحساب ثم ينشئ له مفتاح وبعدها يقارنه مع رقم الحساب الخاص بكل سجل
إذا كان يساويه بتركه على حاله
واذا كان لا يساويه فيظلل رقم الحساب بلون أحمر مثلا
مع العلم يجب ان يقرأ الملف بالكامل بمجرد ادخاله في قاعدة البيانات
هذا الكود هو لإنشاء مفتاح ccp
والمطلوب هو
كود لفحص رقم الحساب بمعنى يقرأ رقم الحساب ثم ينشئ له مفتاح وبعدها يقارنه مع رقم الحساب الخاص بكل سجل
إذا كان يساويه بتركه على حاله
واذا كان لا يساويه فيظلل رقم الحساب بلون أحمر مثلا
مع العلم يجب ان يقرأ الملف بالكامل بمجرد ادخاله في قاعدة البيانات
- الكود:
procedure TFrmVmnt_CCP.Button5Click(Sender: TObject);
var i,som:Integer;
n:string;
h:string;
begin
som:=0;
with DMVirment do
begin
TVrment.Open;
n:=TVrment.Fieldvalues['Compte'];
for i:=1 to Length(n) do
som:=som+strtoint(n[i])*( (4+ Length(n))-i);
h:=IntToStr(som);
h:=h[Length(h)-1]+h[Length(h)];
end;
end;
medreg- مبرمج ممتاز جدا
- عدد المساهمات : 81
تاريخ التسجيل : 29/01/2015
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى