30-04-2019, 07:10 AM
السلام عليكم
مثال توضيحي:
مثال توضيحي:
كود :
// open the table
ADOTable1.Open; // Mode = dsBrowse
// Enter in Edit mode
ADOTable1.Edit; //Mode = dsEdit
// Change field values
ADOTAble1.FieldByName('Qut').AsInteger := ADOTAble1.FieldByName('Qut').AsInteger-20;
...
// Try to save
try
ADOTable1.Post;
except
// Capture the error
// Show Message
//...
end;
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي