новая запись
Код:
1 2 3 4 5 6 | ADOQuery1 . Active:= True ;
ADOQuery1 . insert;
ADOQuery1 . FieldByName( 'StudentID' ).AsString:= Edit1 . Text;
ADOQuery1 . FieldByName( 'StudentName' ).AsString:= Edit2 . Text;
ADOQuery1 . FieldByName( 'TeacherID' ).AsString:= Edit3 . Text;
ADOQuery1 . Post;
|
изменение записи
например двойной клик по гриду едиты получат значение
Код:
1 2 3 | Edit1 . Text:= DBGrid1 . DataSource . DataSet . FieldByName( 'StudentID' ).AsString;
Edit2 . Text := DBGrid1 . DataSource . DataSet . FieldByName( 'StudentName' ).AsString;
Edit3 . Text := DBGrid1 . DataSource . DataSet . FieldByName( 'TeacherID' ).AsString;
|
изменяешь значения едита
например кнопка " Изменить "
Код:
1 2 3 4 5 6 | ADOQuery1 . Active:= True ;
ADOQuery1 . Edit;
ADOQuery1 . FieldByName( 'surname' ).AsString:= Edt1 . Text;
ADOQuery1 . FieldByName( 'username' ).AsString:= Edt2 . Text;
ADOQuery1 . FieldByName( 'patronumic' ).AsString:= Edt3 . Text;
ADOQuery1 . Post;
|