لغة الدالفي delphi كل ما يتعلق بالدالفي و الباسكال

قديم 15-04-2011, 05:04 PM
  #11
ING_HYD
مشرف منتدى هندسة الري
 الصورة الرمزية ING_HYD
 
La spécialité: Hydraulique
جامعة حسيبة بن بوعلي شلف
تاريخ التسجيل: 08-05-2010
الدولة: الجزائر
المشاركات: 1,127
ING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداعING_HYD عضو محترف الابداع
افتراضي رد: DELPHI ; Astuces

Salam

Astuce n°07 : comment faire une recherche dans une base données

je vais vous présenter une fonction qui peut-être utiliser comme un standard dans vos recherche avec comme contrainte l'utilisation des composants ibx puisque j'utilise en général des bases de données de type FireBird
كود:
function TfmMain.Verifier_Ref(IBQ : TIBQuery; Table, Champ, Val : string) :
boolean;
var
  ch : string;
begin
  Result := False;
  ch := '';
  try
    IBQ.Close;
    IBQ.SQL.Clear;
    if (Champ = '') then Exit
    else ch := 'Select * from ' + Table + ' Where ' + Champ + '=' + QuotedStr(Val);
    IBQ.SQL.Add(ch);
    IBQ.Open;
    if not(IBQ.IsEmpty) then Result := True;
  except
    on E : exception do
    begin
      Result := False;
      ShowMessage(E.Message);
    end;
  end;
end;
ING_HYD غير متواجد حالياً  

الكلمات الدلالية (Tags)
astuce, desphi

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
Castalia2011_1.7 for delphi 5 to delphi xe annabil23 لغة الدالفي delphi 7 18-12-2012 04:53 AM
astuces pour ne plus se faire piéger sur le Net sitayeb المنتدى الهندسي العام 0 25-09-2011 08:34 AM
Delphi 2010 or delphi 2011 info_megue لغة الدالفي delphi 1 29-11-2010 03:45 PM
{تطبيق} Guide des meilleures astuces Internet lystaf منتدى البرامج العام 0 05-08-2009 12:14 PM
l'encyclopedie des trucs et astuces windows xp chat11 الإعــلام الآلي والرياضيــات 3 19-12-2008 09:48 PM


الساعة الآن 04:38 AM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir