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

اذهب الى الأسفل

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

مُساهمة  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
مبرمج ممتاز جدا
مبرمج ممتاز جدا

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

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

الرجوع الى أعلى الصفحة


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