+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أضيف سجل جديد فى قواعد mysql (/showthread.php?tid=3924)
الصفحات:
1
2
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 27-02-2012
السلام عليكم ورحمة الله وبركاته
التالى احد اكواد تسجيل فى برنامج تسيير عياده طبيه مفتاحه id
وهى مربوطه على سيرفر محلى بواسطه قاعدة بيانات mysql
العمل بدلفى 7
كود :
begin
MyTable1.Append;
MyTable1.Open;
MyTable1.Edit;
MyTable1.FieldValues['id']:=+1;
MyTable1.FieldValues['name']:=Edit1.text;
MyTable1.FieldValues['age']:=Edit2.text;
MyTable1.FieldValues['job']:=Edit4.text;
MyTable1.FieldValues['adress']:=Memo1.text;
MyTable1.FieldValues['number']:=Edit6.text;
MyTable1.FieldValues['time']:=Edit9.text;
MyTable1.FieldValues['sex']:=ComboBox1.text;
MyTable1.FieldValues['Marital Status']:=ComboBox2.text;
MyTable1.FieldValues['Sexual']:=ComboBox3.text;
MyTable1.FieldValues['Religion']:=ComboBox4.text;
MyTable1.Post;
MyTable1.Close;
FORM3.SHOW;
Hide;
end;1- سطر اضافتة سطر جديد لن قيمة(اضافة سطر جديد لاتعمل)
2- يوجد الاداة تايمر واحتاج منه لتخزين 3 انواع من التواريخ
تاريخ التسجيل الحاله- تاريخ خروج الحاله-وتاريخ تعديل جدول من دكتور
3- قيمة الانهاء بدل hide; لن اغلاق لن تعمل
ملاحظات: لدى بحث فى منتدى فقرتين 1 و 3 موجوده فكره فى مشر وع تسيير مخزن ولكنها لاتعمل وفقرة 2 لم اجد طريقه ماموجود 3 مواضيع فقط
كيف أضيف سجل جديد فى قواعد mysql - format82 - 27-02-2012
اضافة سطر جديد
إقتباس :MyTable1.Open;
MyTable1.Append;
MyTable1.FieldValues['id']:=+1;
MyTable1.FieldValues['name']:=Edit1.text;
MyTable1.FieldValues['age']:=Edit2.text;
MyTable1.FieldValues['job']:=Edit4.text;
MyTable1.FieldValues['adress']:=Memo1.text;
MyTable1.FieldValues['number']:=Edit6.text;
MyTable1.FieldValues['time']:=Edit9.text;
MyTable1.FieldValues['sex']:=ComboBox1.text;
MyTable1.FieldValues['Marital Status']:=ComboBox2.text;
MyTable1.FieldValues['Sexual']:=ComboBox3.text;
MyTable1.FieldValues['Religion']:=ComboBox4.text;
MyTable1.Post;
MyTable1.Close;
2- لتخزين التاريخ يمكنك استخدام DateTimePicker
ولادخال تاريخ اليوم من الجهاز اكتب DateTimePicker:= date
3- Hide;
FORM3.SHOW;
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 27-02-2012
بعد تنفيذ ظهر الاخطا التالية
وتظهر عند ضغط مباشر على فورم ادخال الحاله
وتظهر عند كتابة على فورم بعد الادخال
كيف أضيف سجل جديد فى قواعد mysql - format82 - 27-02-2012
يوجد ليك حقل (pk) مفتاح اساسي وعند ادخال رقم موجود يظهر خطا من قاعدة البيانات
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 27-02-2012
format82 كتب :يوجد ليك حقل (pk) مفتاح اساسي وعند ادخال رقم موجود يظهر خطا من قاعدة البياناتحقل الاساسى هو id
كيف أضيف سجل جديد فى قواعد mysql - format82 - 27-02-2012
MyTable1.FieldValues['id']:=+1;
هذا خطا كيف تكرر القيمة
قم بادخالها من خلال ال Edit وقبل الحفظ قارن اذا كان الرقم موجود يظهر رسالة خطا وغير ذلك يحفظ البيانات
بهذه العبارة
if ADO.Locate('id',Edit1.Text,[]) then
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 27-02-2012
إقتباس :mytable1.fieldvalues['id']:=+1;
كود هدفه اضافة سجل جديد او ترقيم جديد هل يوجد بديل مثل
كيف أضيف سجل جديد فى قواعد mysql - format82 - 27-02-2012
يمكن عمل ترقيم تلقائي للحقل في قاعدة البيانات
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 27-02-2012
هذا ما ارغب فيه ولكن عند ادخال بيانات جديده سوف تضاف للسابقه وهذا ما حصل لدى
إقتباس :if ADO.Locate('id',Edit1.Text,[]) thenبخصوص هذا الكود فهو يضيف Edit1وهذا غير موجود
وبخصوص التاريخ
DateTimePicker:= date
لدى معطيات التالية اداةEdit9
فكيف صياغة كود بحيث يضع تاريخ على شكل رزنامه مثل ثم ينشر
ويطبع تاريخ اخر للتسجيل ويضاف فى سجل تلقائى
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 28-02-2012
شكر لك اخى كريم تم حل نصف مشكلة الوقت ولكن مازلت مشكلة سطر جديد قائمه حيث ان +1 لم تعد تعمل
وكذلك هل يوجد بديل لغلق فورم الاول بعد فتح الثانى غير صيغة hide;