+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين (/showthread.php?tid=222)
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - pepsi - 24-05-2008
السلام عليكم
لقد قم بمحاولة لانشاء برنامج صغير يساعدني في عملي
انا مبتدئ بالدالفي ، و لقد ساعدنى الاخ bsm12 قليلا
لكن هو كذالك مبتدئ مثلي
المهم برنامجي عبارة عن برنامج اسجل فيه :
رقم ،النوع،عنوان الكتاب ، اسم المؤلف ؛ الرقم التسلسلي للكتاب ، رقم الايداع القانوني ، ردمك ISBN
بالعربية ، لقد حاولت في المثال المرفق لكن لم أجد نفسي
مثال :
01/ قانون/جرائم الصحافة الدولية/الاستاذ نبيل صقر المصري/ 105-2008 /154-2008/9925-245-26-22-07
02/مدرسي/القراءة للجميع/شريفة سعيدي/106-2008/170-2008-/9961-60-210-2
وهكذا مع امكانية البحث باسم الكتاب او المؤلف و طباعة عدد منها يحدد مثلا من 05 الى 20 فقط
و لكم جزيل الشكر
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - houssem3110 - 24-05-2008
السلام عليكم
ستجد ماتريده في هذا الكتاب...
للتحميل:
http://www.delphi4arab.net/forum/showthread.php?tid=22
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - أمير الدلفي - 24-05-2008
سلامي
اذا كان المرفق من انجازك فماشاء الله عليك فانت في تقدم حسن
سانجز مشروعا ان شاء الله ولكن لن اضع فيه كل شيئ فيجب عليك بالاجتهاد قليلا
ما رايك ؟
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - bsm12 - 25-05-2008
و عليكم السلام
كيف حالك يا اخ رابح
لقد حاولت التغير قليلا في برنامجك لكن هناك بعض الاخطاء لا أدري لماذا
ربما يساعدنا بعض الاعضاء في فهمها و حلها.
بالتوفيق.
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - merouane - 25-05-2008
قرأت من الأول إلى الأخير .. و لم أجد السؤال
ما هو السؤال ؟؟ أو أين المشكل ؟؟
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - pepsi - 25-05-2008
السلام عليكم و رحمة الله تعالى و بركاته
شكرا لكم على التفاعل
يا أخ مروان حمل السورس و سوف تفهم
انا اردت انشاء برنامج ييسر علي عملي
لكن لم استتطع التكملة لموني مبتدى
انظر البرنامج الذي قدمه bsm12 لقد حاول
لكن مازل هناك مشكل عند غضافة سجل جديد و كذلك البحث
اشكركم جميعا
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - merouane - 25-05-2008
و عليكم السلام و رحمة الله تعالى و بركاته
أرى من الأفضل أن تعدد المشاكل التي واجهتك ، و ليس الانتظار من الاعضاء استكشاف البرنامج ليعثروا على المشكل
الأمر الآخر استعمال خط تضمن قراءته في أغلب الحواسيب (لم اقرأ سوى ؟؟؟)
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - pepsi - 26-05-2008
السلام عليكم
احاو ان ادخل نوع الكتاب عن طريق combobox لكنني لا أستطيع
لا أدري لماذا؟؟
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - bsm12 - 26-05-2008
و عليكم السلام
نفس المشكل و جدته
هل من الممكن ايضاح ذلك
علما انني جربت مع dblookupcombobox
لكن لم استطع
محاولة لانشاء برنامج قواعد بيانات للكتب والمؤلفين - merouane - 28-05-2008
السلام عليكم
سأحاول التلميح لبعض الأمور ، لأن رأيي قبل البرمجة :
1-ماذا تريد أن تكون النتيجة،
2- إقرأ عن المكونات التي تريد استعمالها،
3-نظم أفكارك (لأن زمن البرمجة مباشرة على الشاشة قد ولّى منذ زمن)
أولا مكان قاعدة البيانات DataBaseName يكون دائما مشكل لمستعمل أخر، و لكي لا نحتاج دائما للتعديل بدل من D:\rabah\data يكون data\.
ثانيا : اللون الأحمر يمثل الخطأ
كود :
[color=Blue]// عند الضغط على الزر جديد[/color]
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
[color=Red]t02.Insert ;[/color]
end;
[color=Blue]// عند الضغط على الزر موافق[/color]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
[color=Red]t02.open ;[/color]
t02.First ;
if t02.FindKey([editnum.Text]) then
showmessage('هذا الرقم موجود')
else
begin
[color=Red]t02.Append ;[/color]
t02num.Value :=editnum.Text ;
t02nom_livre.Value :=editnom_livre.Text ;
t02nom_auteur.Value :=editnom_auteur.Text ;
t02n_taslsoli.Value :=editn_taslsoli.Text ;
t02n_idaa.Value :=editn_idaa.Text ;
t02isbn.Value :=editisbn.Text ;
t02code.Value := inttostr(combobox1.ItemIndex);
t02.post;
showmessage('تم إضافة الكناب ....');
end;
end;. ليس من المنطق Insert ثم Open
. لماذا T02.First ؟؟
. اختار واحد بين Append أو Insert طالع Help الخاص بالدلفي لمعرفة الفرق
ثانيا :
إقتباس :احاول ان ادخل نوع الكتاب عن طريق combobox لكنني لا أستطيع
لأن في قاعدة البيانات Code هي من نوع A من الحجم 2
و انت تريد ادخال ترتيب النوع في ComboBox علما بأن ItemIndex يبدأ من 0، لا أظن أنك تريد 0 ككود
و العقبة الأخرى هي كما قلت Code هي من نوع A من الحجم 2، لو كانت من نوع رقمي (I) لكان أحسن
لأنك استعملت ItemIndex الدي هو رقمي وجدولك يستعمل '01,02,03...' كنصوص
هناك فرق بين 1 (رقم) و 01 (نص)
لماذا لم تعملا مع t02.FieldByName('code').AsString
كود :
t02.FieldByName('code').AsString := '0'+inttostr(combobox1.ItemIndex+1);ثالثا :
الأهم من هذا كله لقد وضعت DBEdit و أردت استعمالها كـ Edit
DBEdit لها علاقة مباشرة مع قاعدة البيانات (أدخل التعديلات منها دون الضغط على الأزرار و لاحظ الجدول)
اعذرني ، لكن البرنامج غير منظم (و أحيانا غير منطقي)
و إذا أردت (كبداية) العمل بوضوح اجعل لكل عملية واجهة و برمجة خاصة بها (الإضافة ، التعديل، الحذف ، القراءة ..) ثم بعد التمكن منها ابدا بالعمل على واجهة متعددة العمليات.
سأتوقف هنا ونصيحتي : انسى ما قمت به، نظم أفكارك، اقرأ عن الهدف من المكون المستعمل و استعمالاته، في الأخير حاول دائما تصور ما تريد القيام به قبل البدئ به
هذا رأيي وقد تجد أحسن و أنفع منه
بالتوفيق