كيف أضيف سجل جديد فى قواعد mysql

[gkaled2004]

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

التالى احد اكواد تسجيل فى برنامج تسيير عياده طبيه مفتاحه 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 مواضيع فقط

[format82]

اضافة سطر جديد

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;

[gkaled2004]

بعد تنفيذ ظهر الاخطا التالية

وتظهر عند ضغط مباشر على فورم ادخال الحاله

وتظهر عند كتابة على فورم بعد الادخال

[format82]

يوجد ليك حقل (pk) مفتاح اساسي وعند ادخال رقم موجود يظهر خطا من قاعدة البيانات

[gkaled2004]

يوجد ليك حقل (pk) مفتاح اساسي وعند ادخال رقم موجود يظهر خطا من قاعدة البيانات

حقل الاساسى هو id

[format82]

MyTable1.FieldValues['id']:=+1;
هذا خطا كيف تكرر القيمة
قم بادخالها من خلال ال Edit وقبل الحفظ قارن اذا كان الرقم موجود يظهر رسالة خطا وغير ذلك يحفظ البيانات
بهذه العبارة
if ADO.Locate('id',Edit1.Text,[]) then

[gkaled2004]

mytable1.fieldvalues['id']:=+1;

كود هدفه اضافة سجل جديد او ترقيم جديد هل يوجد بديل مثل

[format82]

يمكن عمل ترقيم تلقائي للحقل في قاعدة البيانات

[gkaled2004]

هذا ما ارغب فيه ولكن عند ادخال بيانات جديده سوف تضاف للسابقه وهذا ما حصل لدى

if ADO.Locate('id',Edit1.Text,[]) then

بخصوص هذا الكود فهو يضيف Edit1وهذا غير موجود
وبخصوص التاريخ
DateTimePicker:= date
لدى معطيات التالية اداةEdit9
فكيف صياغة كود بحيث يضع تاريخ على شكل رزنامه مثل ثم ينشر
ويطبع تاريخ اخر للتسجيل ويضاف فى سجل تلقائى

[gkaled2004]

شكر لك اخى كريم تم حل نصف مشكلة الوقت ولكن مازلت مشكلة سطر جديد قائمه حيث ان +1 لم تعد تعمل
وكذلك هل يوجد بديل لغلق فورم الاول بعد فتح الثانى غير صيغة hide;