+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO (/showthread.php?tid=4001)
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - hanipino - 18-03-2012
الاخ mobile كيف تقوم بادخال البيانات الى قاعدة البيانات
1- هل تعتمد على ZStoredProc + الحدث BoforPost ...
2- هل عن طريق TDBNavigator + DBGrid + TZTable (مباشرتا)
3- ???
----------------
ارفق قاعدة بيانات بها جدول واحد + مثال بالدالفى للاتصال بها
لنحاول معا .
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - mobile - 18-03-2012
للاسف جربت ولم تنجح ويبدو ان مشكلة zeos عند مشهورة وجدت الاكثير من الاسئلة منها في النت
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - mobile - 18-03-2012
تفضل المثال zeos & UIB
ولو اجد مكون مجاني غير لتركته لقد اتعبني وانا قليل المعرفة بالبرمجة
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - hanipino - 19-03-2012
الاخ موبيل ربما يوجد طرق احسن من هذه الطريقة ... المهم كبداية
اطلع على الخطوات فى الشرح الفلاشى .
بالتوفيق .
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - mobile - 19-03-2012
بارك الله فيك اخي hanipino لقد نجحت معي
جزاك الله الف خير
لقد اتعبتك معي لكن ان شاء الله لن يذهب عملك يوم الجزاء سدا .
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - mobile - 20-03-2012
السلام عليكم ورحمة الله
لكن اخي hanipino اذا استعملنا query ونعطيعا الاستعلام اثناء التطبيق اي متغير استعلامها اين نضع الكودين؟
بارك الله فيك
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - hanipino - 20-03-2012
و عليكم السلام
فى هذه الحالة ننشىء الاجراءات بشكل مستقل
اولا - عرف الاجراءات التالية
PHP كود :
private
procedure AllOnGetText(Sender: TField; var Text: string; DisplayText: Boolean);
procedure AllOnSetText(Sender: TField; const Text: string);
public
procedure GetSetText(DataSet: TDataSet);
فى قسم implementation
PHP كود :
implementation
{$R *.dfm}
procedure TForm1.AllOnGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if Sender.DataType in [ftString, ftMemo, ftFmtMemo, ftFixedChar, ftWideString] then
Text := WideCharToString(PWideChar(UTF8Decode(Sender.AsString)))
else
Text := Sender.AsString;
end;
procedure TForm1.AllOnSetText(Sender: TField; const Text: string);
begin
if Sender.DataType in [ftString, ftMemo, ftFmtMemo, ftFixedChar, ftWideString] then
Sender.AsVariant := UTF8Encode(widestring(Text))
else
Sender.AsString := Text;
end;
procedure TForm1.GetSetText(dataset: TDataSet);
var
i: Integer;
begin
if not Assigned(dataset.Fields[0].OnGetText) then
for I := 0 to dataset.Fields.Count - 1 do
begin
dataset.Fields[i].OnGetText := AllOnGetText;
dataset.Fields[i].OnSetText := AllOnSetText;
end;
end;
ثم بالنسبة لكل query فى الحدث fterScroll نكتب مايلى فقـــــــــــــــــــــــط .
PHP كود :
procedure TForm1.ZQuery1AfterScroll(DataSet: TDataSet);
begin
GetSetText(DataSet);
end;
بعد كل Scroll بتم اجراء عملية مقرانة بعد اول Scroll فقط .
يوجد ما احسن من هذه الطريقة
.. من الافضل استعمال الحدث BeforOpen مثلا لاكن نتقص بعض الامور ساحاول اجادها .
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - hanipino - 20-03-2012
اكتب هذا فى الحدث AfterOpen مع نزل اول شرط فى الاجراء GetSetText
كود :
procedure TForm1.ZQuery1AfterOpen(DataSet: TDataSet);
begin
GetSetText(DataSet);
end;احسن من الحدث AfterScroll
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - mobile - 23-03-2012
السلام عليكم ورحمة الله
اخي hanipino يبدو ان الدالة settext لاتعمل مع هذا الحل
اللغة العربية مع قواعد البيانات فايربيرد ودلفي 2006 باستخدام مكوناتZeosDBO - hanipino - 24-03-2012
انا تعمل عندى بشكل عادى
اطلع على هاذا و اعد الكرة
كود :
http://www.mirorii.com/fichier/10/537556/query-rar.html