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

الصفحات : 1 2

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

+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 ويكون اكبر منه كي لايظهر ثم بعد غلق الثاني يظهر الأول

شكر لك اخى كريم

ولكن عند تشغيل نموذج يظهر هذا خطا فما حل برمجيا
[صورة: attachment.php?attachmentid=3290&stc=1&d=1330349653]

جرب:

كود :
MyTable1.FieldValues['id'].Value:=1;

راجع:
http://www.delphi4arab.net/forum/showthr...p?tid=6820
بالتوفيق.

شكر لك اخى كريم ولكن ظهر هذا الخطأ
[صورة: attachment.php?attachmentid=3297&stc=1&d=1330538380]

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

اخي الكريم قم بتنفيذ هذا الكود وارني النتيجة

كود :
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');

شكر جزيل لك اخى كريم لقد تم الحل بارك الله فيك
ولكن لم لايطبع التاريخ فى الجدول؟

قم باضافة هذا الكود

كود :
MyTable1.FieldByName('time').AsDateTime:=StrToDate(FormatDateTime('dd/mm/yyyy',DateTimePicker1.date));

format82 كتب :قم باضافة هذا الكود

كود :
mytable1.fieldbyname('time').asdatetime:=strtodate(formatdatetime('dd/mm/yyyy',datetimepicker1.date));

شكر جزيل لكم وفى ميزان حسناتكم

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

في حدث ادراج سجل بجدولك اي 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; 

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;

صورة الخطا
[صورة: attachment.php?attachmentid=3297&stc=1&d=1330538380]

وشكر على ********

الصفحات : 1 2

محمد عبد العزيز

gkaled2004

kachwahed

gkaled2004

format82

gkaled2004

format82

gkaled2004

mobile

gkaled2004