كيف أضع قيمة في حقل text بعد تحديد حقل في combbox

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>''then
 begin
  with ADOQuery1 do
   begin
	Close;
	SQL.Clear;
	SQL.Add('SELECT * FROM tas WHERE m_tas="'+ComboBox1.Text+'"');
	Open;
	Edit1.Text:=FieldByName('tas_no').AsString;
   end;
 end;
end;

ارجو ان يكون الكود وضحاً ;)

ًصباح الخير

ومن عندي حل آخر :P

وبالتوفيق ;)

New_Folder.rar

:D السلام عليكم ورحمة الله وبركاته

شاكر جداً للاخوان سيف الدين 2 وlike delphi جزيل الشكر

المثالين كلهم مسكتات وشغالات تمام التمام.

على فكرة هذا جزء من مشروع مسابقة ناوي أبيعه في السوق ولكن أعد الرواد والأعضاء بعد نهايتي منه وتعبئة البيانات أن أضع نسخة خاصة لهذا المنتدى الرائع الذي استفدت منه الكثير ، ولقد بدأت تعلم لغة الدلفي من مدة وجيزة جدا لا تتعدى بضعة أشهر معنى اني أعرف هذه اللغة عندما كانت باسكال ولم أجد روعتها وجمالها وقوتها إلا في هذا المنتدى وهذا ما جعلني أبدأ بها فعليا.

شاكر لجميع الرواد والأعضاء

اخوكم ابوعبدالرحمن :D

عفوا

وهذا هدية مني وهو أول برنامج أسويه بنفسي وهو لإخواني وأبنائي الصغار برناج جدول الضرب عسى أن ينال إعجابكم وإعجابهم

:D :D :D

__________.zip

السلام عليكم ورحمة الله وبركاته

طيب يا شباب أنا حاولت أجرب العكس يعني إذا صارت مثلا القيمة 1 في edit يجيبلي التصنيف دينية ولكن يظهرلي خطأ أثناء التنفيذ .

الله لا يهينكم معنى اني وضعت نفس السورس اللي وضعه الأخ سبف وقلبت بدل الكومبو بوكس الإديت والعكس لكن بدون جدوى.

if Edit1.Text<>''then
begin
  with ADOQuery1 do
   begin
	Close;
	SQL.Clear;
	SQL.Add('SELECT * FROM tas WHERE tas_no='+Edit1.Text+'');
	Open;
	ComboBox1.Text:=FieldByName('m_tas').AsString;
   end;
end;

تفضال اخي الكريم ;)

:D السلام عليكم ورحمة الله وبركاته

اخوي سيف بصراحة انت استاذ

السورس شغال مائة في % وجزاك الله الف خير.

معليش بثقل عليك شوي بسؤال: قالي واحد يعرف دلفي ممتاز قال لي إن الدلفي ما يقبل العلامة " بأي شكل من الأشكال وها أنا رأيتها تعمل هنا في سورسك جزاك الله خير لكن هل تعمل في الاستعلام ADOQUERY فمثلا أنا وضعت في التعديل السورس التالي:

في كليك على البوتوم تعديل

================================

if not (adoquery1.IsEmpty) then

begin

adoquery4.Close;

adoquery4.Open;

adoquery4.Parameters.ParamByName('tas_nou').Value:=edit1.Text;

adoquery4.Parameters.ParamByName('m_tasu').Value:=edit2.Text;

adoquery4.ExecSQL;

showmessage('تم التعديل');

end;

if (adoquery1.IsEmpty) then

begin

showmessage('عفوا هذا السجل غير موجود ولا يمكن التعديل عليه');

end;

=======================================

وفي الـ ADOQUERY1 التعليمة التالية:

=================

select * from tas

where tas_no =:tt

==================

وفي الـ ADOquery4 التعليمة التالية:

=================

UPDATE tas SET m_tas = :m_tasu

WHERE (((tas_no)=:tas_nou))

==============

ومع ذلك يعطيني خطأ بعد التنفيذ مع أنه في الـ sql حق آكسس ينفذ فقط بالتعديل إذا ضغطت دبل كليك على الاستعلام وليس من داخله

:D

وجزاك الله ألف خير وهذه نسخة من السورس كامل علشان تمخمخ عليه إن جازلك الوضع

001.zip

مع جزيل شكري لهذا المنتدى

:D

بصراحة أنا بديت أخاف من هذا المنتدى لأني قرأت مشاركة فيها رفعة ضغط الدم وغيره لأعضاء هذا المنتدى وأخاف إني ثقلت عليكم والضغط ارتفع وزادت البيانات على المنتدى ونكون سببنا مشكلة في المنتدى.

يا شباب من وضع منتدى على الإنترنت فبتحمل وهو يعرف مسبقاً أنه لا يمكن التحكم في كمية الناس الذين يشتركون معه وإن تكررت المشاركة افرض إن الرجال ما يعرف يبحث في المنتدى وهو غشيم ما يعرف حاجة ارفعله ضغطه؟ وأهربه من المنتدى وأخليه يلعن الساعة اللي دخل فيها هذا المنتدى ؟

لا وألف لا ما دمت وضعت منتدى على الإنترنت فيجب أن تتحمل كل المشتركين فيه وحتى الزوار لا بد أن يكون صدرك وسيع عليهم ليش حاطين المتدى للتفرج بس؟ ولا للفايدة؟

إن كان للتفرج فأرجو مسح مشاركاتي كلها وهي عدد يسير جدا لا حاجة لأحد أن يراها وإن كان للفايدة فأرجو من الأخوة المشرفين الرد على رسايل الناس وتحملهم.

يعني لا زم نبوس الأيادي علشان أحد يرد علينا ليش تاركينا مرمين على جنب علشان ما نرد ونزيد البيانات على المنتدى ويرتفع الضغط؟

ياخي حطوا الاشتراك بقيمة مالية علشان تعوض القيمة التافهة اللي ضغطك يرتفع علشانها ورد على الناس.

إن كان كلامي جرح أحد فأنا آسف جدا لكلامي ولاشتراكي في هذا المنتدى لأنه يبدو إني ضيقت صدر أحد بزيادة 500 كيلو بايت على المنتدى.

السلام عليكم ورحمة الله و بركاته

computer53 كتب:

بصراحة أنا بديت أخاف من هذا المنتدى لأني قرأت مشاركة فيها رفعة ضغط الدم وغيره لأعضاء هذا المنتدى وأخاف إني ثقلت عليكم والضغط ارتفع وزادت

لكل شيئ قواعد، للمنتدى قواعد، حافظ على القواعد و لا تخف من شيئ، و مرحبا بك

computer53 كتب:

يا شباب من وضع منتدى على الإنترنت فبتحمل وهو يعرف مسبقاً أنه لا يمكن التحكم في كمية الناس الذين يشتركون معه وإن تكررت المشاركة افرض إن الرجال ما يعرف يبحث في المنتدى وهو غشيم ما يعرف حاجة ارفعله ضغطه؟ وأهربه من المنتدى وأخليه يلعن الساعة اللي دخل فيها هذا المنتدى ؟

اقتباس

يجب ان تدرك انه هناك حد ادنى للمعرفة المطلوبة قبل البدء في عمل أي شئ

computer53 كتب:

لا وألف لا ما دمت وضعت منتدى على الإنترنت فيجب أن تتحمل كل المشتركين فيه وحتى الزوار لا بد أن يكون صدرك وسيع عليهم ليش حاطين المتدى للتفرج بس؟ ولا للفايدة؟

المنتدى علمي، لتبادل المعلومات بين المبرمجين العرب...

للإفادة و الإستفادة و هناك الكثير من استفاد من الموقع منذ نشاته...

computer53 كتب:

إن كان للتفرج فأرجو مسح مشاركاتي كلها وهي عدد يسير جدا لا حاجة لأحد أن يراها وإن كان للفايدة فأرجو من الأخوة المشرفين الرد على رسايل الناس وتحملهم.

يعني لا زم نبوس الأيادي علشان أحد يرد علينا ليش تاركينا مرمين على جنب علشان ما نرد ونزيد البيانات على المنتدى ويرتفع الضغط؟

ياخي حطوا الاشتراك بقيمة مالية علشان تعوض القيمة التافهة اللي ضغطك يرتفع علشانها ورد على الناس.

المشرف ليس مجيب عن الأسئلة

المشرف عضو مثل غيره

ان شاء اجاب على ما تيسر حسب الوقت المتاح...

اكتب سؤالك حسب قواعد المشاركة و انتظر...ان مرت ايام ولم تجد اجابة يمكنك رفع الموضوع...

-

راجع الموضوعين:

دعوة للنقد الذاتي

هل تريد معرفة أسباب قلة الردود

يمكنك النقاش في اخر رابط،

واي مشاركة اخرى في قسم دلفي لاعلاقة لها بدلفي ستحذف