السلام عليكم ورحمة الله وبركاته
مشكلة في عملية الاضافة في الجدول عند ادخال البيانات عن طريق Edits على ال Form ويتم استعراض السجلات للجدول بواسطة DBGrid يضيف عادي وعند الخروج من الدلفي أي اغلاقها
والرجوع لل DBGrid أجد أن السجل لم يضاف وكأنه لم يفعل شيئ .
فكل من يعرف ماهي المشكلة يحلها وله الشكر .
وهذا الكود الذي استخدمه :
procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin;
Edit1.SetFocus;
table1.Active:=true;
table1.Insert;
with table1 do
begin
Edit;
FieldByName('Name').asstring:=(Edit2.Text);
FieldByName('Address').Asstring:=(Edit3.Text);
FieldByName('City').Asstring:=(Edit4.Text);
FieldByName('Phone').AsString:=(Edit5.Text);
FieldByName('Fax').Asstring:=(Edit6.Text);
Post;
end;
End;
Table1.Active:=false;
End;