دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

في ما يتعلق بفحص رقم الحساب

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

في ما يتعلق بفحص رقم الحساب

مُساهمة  medreg في 6/5/2016, 12:19 am

السلام عليكم ورحمة الله تعالى
هذا الكود هو لإنشاء مفتاح 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
مبرمج

عدد المساهمات : 50
تاريخ التسجيل : 29/01/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى