delphi4arab منتديات دلفي للعرب

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

التالى احد اكواد تسجيل فى برنامج تسيير عياده طبيه مفتاحه id
وهى مربوطه على سيرفر محلى بواسطه قاعدة بيانات mysql
العمل بدلفى 7
ماهو :
1- سطر اضافتة سطر جديد لن قيمة(اضافة سطر جديد لاتعمل)
2- يوجد الاداة تايمر واحتاج منه لتخزين 3 انواع من التواريخ
تاريخ التسجيل الحاله- تاريخ خروج الحاله-وتاريخ تعديل جدول من دكتور
3- قيمة الانهاء بدل hide; لن اغلاق لن تعمل
ملاحظات: لدى بحث فى منتدى فقرتين 1 و 3 موجوده فكره فى مشر وع تسيير مخزن ولكنها لاتعمل وفقرة 2 لم اجد طريقه ماموجود 3 مواضيع فقط

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

إقتباس :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;

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

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

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

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

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

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

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

إقتباس :mytable1.fieldvalues['id']:=+1;

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

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

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

إقتباس :if ADO.Locate('id',Edit1.Text,[]) then

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

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