دخول

الكاسر الآخر · 24-03-2015, 09:35 PM

هناك عدة طرق للبحث
1- باستخدام ADOTable أو ADODataset عن طريقة خاصية الفلترة Filter

كود :
AdoTable1.Filtered := False
AdoTable1.Filter := 'FiledName = '+QuotedStr(Edit1.Text)
AdoTable1.Filtered := True;

أو عن طريق locate

كود :
if(Locate('Id;Name', VarArrayOf(['19665', 'Mohamed']), [loPartialKey])) Then
  Do Something;

2- عن طريق TadoQuery وذلك بارسال جملة استعلام sql لقاعدة البيانات ثم فحص عدد السجلات الناتجة ما إذا كانت أكبر من صفر ..

كود :
With Adoquery1 do
   begin
     Close;
     Sql.Clear;
sql.add('select fieldname from yourtable where fieldname = '+quotedstr(edit1.text))
open
if recordcount > 0 then
    do something
end;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة