+- 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 - محمد عبد العزيز - 28-02-2012
السلام عليكم ورحمة الله
+1 تعني واحد 1 ولاتعني ضف واحد
إقتباس :كود هدفه اضافة سجل جديد او ترقيم جديدكما قال لك format82 غير الحقل بقاعدة البيانات الى AUTO INCREMENT
انظر
كود :
http://dev.mysql.com/doc/refman/5.0/en/example-auto-increment.html
http://www.w3schools.com/sql/sql_autoincrement.aspكود :
MyTable1.FieldValues['id']:=+1;إقتباس :هل يوجد بديل لغلق فورم الاول بعد فتح الثانىفرضا الأول يستدعي الثاني بShowModal ويكون اكبر منه كي لايظهر ثم بعد غلق الثاني يظهر الأول
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 29-02-2012
شكر لك اخى كريم
ولكن عند تشغيل نموذج يظهر هذا خطا فما حل برمجيا
كيف أضيف سجل جديد فى قواعد mysql - kachwahed - 29-02-2012
جرب:
كود :
MyTable1.FieldValues['id'].Value:=1;http://www.delphi4arab.net/forum/showthread.php?tid=6820
بالتوفيق.
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 29-02-2012
شكر لك اخى كريم ولكن ظهر هذا الخطأ
إقتباس :MyTable1.Append;
MyTable1.Open;
MyTable1.Edit;
MyTable1.FieldValues['id'].Value:=1;
MyTable1.FieldValues['name']:=Edit1.text;
MyTable1.FieldValues['age']:=Edit2.text;
MyTable1.FieldValues['job']:=Edit4.text;
MyTable1.FieldValues['adress']:=Memo1.text;
MyTable1.FieldValues['phone number']:=Edit6.text;
MyTable1.FieldValues['time']:=DateTimePicker1.DateTime;
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;
كيف أضيف سجل جديد فى قواعد mysql - format82 - 29-02-2012
اخي الكريم قم بتنفيذ هذا الكود وارني النتيجة
كود :
MyTable1.Open;
MyTable1.Append;
MyTable1.FieldValues['name']:=Edit1.text;
MyTable1.FieldValues['age']:=Edit2.text;
MyTable1.FieldValues['job']:=Edit4.text;
MyTable1.FieldValues['adress']:=Memo1.text;
MyTable1.FieldValues['phone number']:=Edit6.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;
ShowMessage('Save');كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 01-03-2012
شكر جزيل لك اخى كريم لقد تم الحل بارك الله فيك
ولكن لم لايطبع التاريخ فى الجدول؟
كيف أضيف سجل جديد فى قواعد mysql - format82 - 06-03-2012
قم باضافة هذا الكود
كود :
MyTable1.FieldByName('time').AsDateTime:=StrToDate(FormatDateTime('dd/mm/yyyy',DateTimePicker1.date));كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 11-03-2012
format82 كتب :قم باضافة هذا الكود
كود :mytable1.fieldbyname('time').asdatetime:=strtodate(formatdatetime('dd/mm/yyyy',datetimepicker1.date));
شكر جزيل لكم وفى ميزان حسناتكم
كيف أضيف سجل جديد فى قواعد mysql - mobile - 11-03-2012
السلام عليكم ورحمة الله
في حدث ادراج سجل بجدولك اي AfterInsert
اضف query
PHP كود :
with Qtemp do
begin
Close;
SQL.Clear;
SQL.Text:='select max(id) from fournisseur';
Open;
end;
if Qtemp.Fields[0].Value>0 then
Mytable.FieldByName('id').Value:=Qtemp.Fields[0].Value+1
else Mytable.FieldByName('id').Value:=1;
Qtemp.Close;
كيف أضيف سجل جديد فى قواعد mysql - gkaled2004 - 23-03-2012
mobile كتب :في حدث ادراج سجل بجدولك اي AfterInsertاخى كريم لقد ظهر خطا مكرار فما الذى حصل لقد اضفت بيانات اخرى
اضف query
كود :
MyTable1.Open;
MyTable1.Append;
MyTable1.FieldValues['name']:=Edit1.text;
MyTable1.FieldValues['age']:=ComboBox19.text;
MyTable1.FieldValues['job']:=Edit4.text;
MyTable1.FieldValues['adress']:=ComboBox20.text;
MyTable1.FieldValues['phone number']:=ComboBox5.text;
MyTable1.FieldValues['sex']:=ComboBox1.text;
MyTable1.FieldValues['Marital Status']:=ComboBox2.text;
MyTable1.FieldValues['Sexual']:=ComboBox3.text;
MyTable1.FieldValues['Religion']:=ComboBox4.text;
MyTable1.FieldByName('time').AsDateTime:=StrToDate(FormatDateTime('dd/mm/yyyy',DateTimePicker1.date));
MyTable1.FieldValues['Location']:=ComboBox21.text;
MyTable1.FieldValues['Detective']:=Edit5.text;
MyTable1.FieldValues['relationship pain']:=ComboBox22.text;
MyTable1.FieldValues['pain']:=ComboBox23.text;
MyTable1.FieldValues['Location1']:=ComboBox24.text;
MyTable1.FieldByName('time2').AsDateTime:=StrToDate(FormatDateTime('dd/mm/yyyy',DateTimePicker2.date));
MyTable1.FieldValues['Location 2']:=ComboBox25.text;
MyTable1.FieldValues['Any activity related to pain']:=Edit12.text;
MyTable1.FieldValues['natural']:=ComboBox26.text;
MyTable1.FieldValues['the power of pain']:=ComboBox27.text;
MyTable1.FieldValues['types of liquids']:=ComboBox28.text;
MyTable1.FieldValues['Content']:=ComboBox29.text;
MyTable1.FieldValues['Location3']:=ComboBox7.text;
MyTable1.FieldValues['Place channels']:=ComboBox8.text;
MyTable1.FieldValues['Exit liquid']:=ComboBox9.text;
MyTable1.FieldValues['Signs of inflammation']:=ComboBox10.text;
MyTable1.FieldValues['Lymphatic glands']:=ComboBox11.text;
MyTable1.FieldValues['Pain2']:=ComboBox12.text;
MyTable1.FieldValues['Heart disease']:=memo2.text;
MyTable1.FieldValues['Chest']:=memo3.text;
MyTable1.FieldValues['Digestive ']:=memo4.text;
MyTable1.FieldValues['Tract ']:=memo5.text;
MyTable1.FieldValues['Nerves ']:=memo6.text;
MyTable1.FieldValues['Endocrinology ']:=memo7.text;
MyTable1.FieldValues['Motor ']:=memo8.text;
MyTable1.FieldValues['Sugar ']:=ComboBox13.text;
MyTable1.FieldValues['Pressure ']:=ComboBox14.text;
MyTable1.FieldValues['Crisis']:=ComboBox15.text;
MyTable1.FieldValues['Heart disease']:=ComboBox16.text;
MyTable1.FieldValues['Gerhat breast ancient']:=edit9.text;
MyTable1.FieldValues['Gerhat ovaries ancient']:=edit2.text;
MyTable1.FieldValues['Gerhat and other ancient']:=edit6.text;
MyTable1.FieldValues['The pill']:=ComboBox17.text;
MyTable1.FieldByName('time11').AsDateTime:=StrToDate(FormatDateTime('dd/mm/yyyy',DateTimePicker3.date));
MyTable1.FieldValues['Hormone therapy']:=ComboBox18.text;
MyTable1.FieldValues['Name of the medicine']:=edit10.text;
MyTable1.FieldValues['Duration of treatment']:=edit11.text;
MyTable1.FieldByName('time12').AsDateTime:=StrToDate(FormatDateTime('dd/mm/yyyy',DateTimePicker4.date));
MyTable1.FieldValues['The same disease in the family']:=ComboBox30.text;
MyTable1.FieldValues['Other types of cancer family']:=memo1.text;
MyTable1.FieldValues['Age at puberty']:=edit7.text;
MyTable1.FieldValues['Age at menopause']:=edit8.text;
MyTable1.FieldValues['Age first pregnancy']:=edit13.text;
MyTable1.FieldValues['Alradah']:=ComboBox32.text;
MyTable1.FieldValues['Public']:=edit14.text;
MyTable1.FieldValues['Private']:=edit35.text;
MyTable1.FieldValues['Asamthery']:=edit15.text;
MyTable1.FieldValues['Great']:=edit16.text;
MyTable1.FieldValues['Skin bump']:=edit17.text;
MyTable1.FieldValues['Mass']:=ComboBox33.text;
MyTable1.FieldValues['lymph glands']:=edit18.text;
MyTable1.FieldValues['move']:=ComboBox34.text;
MyTable1.FieldValues['Adhesion']:=ComboBox35.text;
MyTable1.FieldValues['Group']:=edit19.text;
MyTable1.FieldValues['The rest of the equipment']:=edit20.text;
MyTable1.FieldValues['waves']:=edit21.text;
MyTable1.FieldValues['Breast-ray']:=edit22.text;
MyTable1.FieldValues['MRI']:=edit23.text;
MyTable1.FieldValues['Sample']:=edit24.text;
MyTable1.FieldValues['Surgical specimen']:=edit25.text;
MyTable1.FieldValues['Hormonal receptors']:=ComboBox36.text;
MyTable1.FieldValues['Diagnosis']:=edit26.text;
MyTable1.FieldValues['Stages']:=ComboBox37.text;
MyTable1.FieldValues['Stages1']:=ComboBox38.text;
MyTable1.FieldByName('time13').AsDateTime:=StrToDate(FormatDateTime('dd/mm/yyyy',DateTimePicker5.date));
MyTable1.FieldValues['Details']:=edit28.text;
MyTable1.FieldValues['Complications']:=edit29.text;
MyTable1.FieldValues['Type']:=edit27.text;
MyTable1.FieldValues['time14']:=edit30.text;
MyTable1.FieldValues['Number of Courses']:=edit31.text;
MyTable1.FieldValues['Type2']:=edit32.text;
MyTable1.FieldValues['time15']:=edit33.text;
MyTable1.FieldValues['Number of Courses2']:=edit34.text;
MyTable1.FieldValues['Number of Courses3']:=edit36.text;
MyTable1.FieldValues['time16']:=edit7.text;
MyTable1.FieldValues['Other types of cancer family']:=memo9.text;
MyTable1.Post;
MyTable1.Close;
ShowMessage('Êã ÊÎÒíä ÇáÈíÇäÇÊ');
FORM3.SHOW;
Hide;وشكر على ********