الجزء الثاني من التمرين مع الاكواد
Автор: Patron Bachir
Загружено: 2019-01-15
Просмотров: 485
Описание:
الجزء الثاني التابع لمشروع لمن لم يشاهد الجزء الاول ينظر الى الرابط التالي
• الاضافة والبحث و التعديل في الاسكيال الجزء...
الاكواد
الاضافة
ADOTable1.Open;
ADOTable1.Last;
if MessageDlg('هل تريد اضافة طالب جديد ',mtConfirmation,[mbYes,mbNo],0)=mRyes then
begin
ADOTable1.Append;
end;
الحذف
if MessageDlg('هل انت متاكد من حذف السجل الحالي نهائيا ',mtConfirmation,[mbYes,mbNo],0)= mryes then
ADOTable1.Delete;
end;
التعديل
ADOTable1.Edit;
البحث
if ADOTable1.Locate('NOM_AG',Edit1.Text,[loCaseInsensitive,loPartialKey]) then
ShowMessage('الاسم الدي تبحث عنه موجود لاحظ تغيرات في الجدول ') else
ShowMessage('ان الاسم غير موجود ');
Повторяем попытку...
Доступные форматы для скачивания:
Скачать видео
-
Информация по загрузке:
