Реферат: Разработка приложений базы данных "Командировка"
DBEdit6. Visible:=true;
Label6. Visible:=true;
DBEdit7. Visible:=true;
Label7. Visible:=true;
end;
end;
end;
procedure TOsnForma. Ydalit1Click (Sender: TObject);
begin
if (MessageDlg('Вы уверены?', mtConfirmation, mbOkCancel, 0)=mrOk) then
OsnTable. Delete;
end;
procedure TOsnForma. Dobavit1Click (Sender: TObject);
begin
OsnTable. Insert;
Redakt;
RedForm. ShowModal;
if (OsnTable. Modified) then
OsnTable. Post;
end;
Поиск записей в наборе данных
Для поиска записей в наборе данных в компоненте TTable применяется следующий метод: function FindKey([список значений]): Boolean – ищет запись, точно удовлетворяющую условиям в списке значений; существует дублирующий его метод GoToKey;
Поиск осуществляется только по индексным полям. Состав полей, используемых для идентификации нужной записи при поиске в НД, определяется текущим индексом. Следовательно, в качестве текущего нужно установить индекс, построенный по полям, по значениям которых и планируется осуществить поиск.
При поиске на точное соответствие предпринимается попытка отыскать запись, у которой индексные поля соответствуют значениям, указанным в списке значений. Если такая запись найдена, данный метод возвращает True и указатель текущей записи в НД устанавливается на эту запись. Если запись не найдена, курсор не перемещается.
procedure TPoiskForm.OKClick (Sender: TObject);
begin
OsnForma. OsnTable. IndexName:= 'N'+IntToStr (PoiskBox. ItemIndex);
OsnForma. OsnTable. FindKey([PoiskEdit. Text]);
Close;
end;