EasyDelphi Q&A
+3 تصويتات
133 مشاهدات
من بين اهم المشاكل التي اواجهها هي ان البرنامج ساخد وقت في البحت و في هده الفترة المستخدم لا يعرف اين وصلت عملة البحت

فاحببت ان اعمل او ان اعرض له المرحلة التي وصل لها البحت او الاجراء.

شكراا
سُئل في تصنيف SQL Server بواسطة (7,720 نقاط) | 133 مشاهدات
0
ماهو الكود الذي تستعمله في عملية البحث؟

2 إجابة

+4 تصويتات
أفضل إجابة

لتحميل المثال للتجريب من هنا و أتمنى لك حظا طيبا ..wink

procedure TFrmMain.ADOQuery_BookFetchComplete(DataSet: TCustomADODataSet;
  const Error: Error; var EventStatus: TEventStatus);
begin
  ds_Book.DataSet.EnableControls;
  if EventStatus = esOK then
  ShowMessage('لقد تمت عملية البحث بنجاح');
  ProgBar_Seek.Position := 0;
end;

procedure TFrmMain.ADOQuery_BookFetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  ds_Book.DataSet.DisableControls;
  ProgBar_Seek.Max      := MaxProgress;
  ProgBar_Seek.Position := Progress;
  Application.ProcessMessages;
end;

procedure TFrmMain.Btn_SeekClick(Sender: TObject);
begin
  with ADOQuery_Book do
  begin
    SQL.Clear;
    SQL.Add('select * from AT_Book where Book_Gender = :PBookType_LookUpNumber');
    Parameters.ParamByName('PBookType_LookUpNumber').Value := ADOTable_Gender.Lookup('Book_Gender', CmboBox_GenderList.Text, 'ID_Book_Gender');
    ExecuteOptions:=[eoAsyncFetch];
    Open;
  end;
end;

 

تم الرد عليه بواسطة (21,500 نقاط)
عُدل بواسطة
0
شكرا لك و من الكود يبدو انك استعملت FetchComplete للتاكد من تطور عملية البحت
شكراااا
0
نعم "FetchProgress" لإظهار تطور البحث و "FetchComplete " للتأكد من نهاية التطور .... حظا طيبا ...
0
برك الله فيك
0
بارك الله فيك و ليس برك الله فيك ...هههههه
الله يبارك فيك نتا تاني ...
0
هههههههههههههههههههههههههههههههههههههههه
بارك الله فيك
+3 تصويتات
اذا كنت تبحث بأن تجلب سجل سجل من البيانات إلى التطبيق فيمكنك ذلك من خلال عمل استعلام عدد السجلات قبل عملية البحث، ثم تقوم بجلب كل السجلات، لتعرض السجلات المناسب.
طيب فكر فيها، يعني انت عملت استعلامين، الاول يحسب عدد السجلات، الثاني يجلب كل السجلات حتى السجلات غير المرغوب فيها.

مقارنة مع جلب فقط السجلات التي تريدها فقط بعد استخدام استعلام يحوي where.

لاحظت الكلفة؟، كلفة الطريقة الاولى زمنه اضعاف مضاعفة عن الطريقة الثانية، هل انت مستعد لتحمل هذه الكلفة، هل سيكون زبونك مستعد لهذا، ربما سيكون مسرور في بداية الامر، لكن مع بدء العمل الحقيقي، سوف يطالبك بتسريع النتائج.
تم الرد عليه بواسطة (16,020 نقاط)
عُدل بواسطة
0
يعني  لا يوجد حل لها
0
لا  لا يوجد حل كمبرمج محترف.

اسئلة متعلقة

+5 تصويتات
2 إجابة
+3 تصويتات
1 إجابة
سُئل أغسطس 13، 2018 في تصنيف vcl بواسطة bravesofts (21,500 نقاط) | 89 مشاهدات
0 تصويتات
1 إجابة
سُئل أبريل 15، 2019 في تصنيف Delphi بواسطة العالم الاخضر (300 نقاط) | 24 مشاهدات
+4 تصويتات
2 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

483 سؤال
743 إجابة
1,395 تعليق
252 مستخدم