Разработка приложений баз данных в Delphi. Шейкер Т.Д. - 37 стр.

UptoLike

Составители: 

37
InsBtn.Enabled:=not DataSource1.Autoedit;
if not DataSource1.Autoedit
then
begin
DataSource1.Autoedit:=true;
RegLabel.Caption:='Режим редактирования';
end
else
begin
if Table1.State <> dsBrowse then Table1.Post;
DataSource1.Autoedit:=false;
RegLabel.Caption:='Режим просмотра';
end;
end;
procedure TForm1.InsBtnClick(Sender:TObject);
begin
Table1.Insert;
end;
procedure TForm1.DelBtnClick(Sender:TObject);
begin
Table1.Delete;
end;
procedure TForm1.CanBtnClick(Sender:TObject);
begin
Table1.Cancel;
end;
2.5. Работа с записями
Работа с записями подразумевает выполнение операций сортировки,
фильтрации и поиска.
Сортировкой называют упорядочение записей по некоторому признаку.
 InsBtn.Enabled:=not DataSource1.Autoedit;
  if not DataSource1.Autoedit
   then
    begin
       DataSource1.Autoedit:=true;
       RegLabel.Caption:='Режим редактирования';
    end
   else
    begin
       if Table1.State <> dsBrowse then Table1.Post;
       DataSource1.Autoedit:=false;
       RegLabel.Caption:='Режим просмотра';
    end;
end;
procedure TForm1.InsBtnClick(Sender:TObject);
begin
 Table1.Insert;
end;
procedure TForm1.DelBtnClick(Sender:TObject);
begin
 Table1.Delete;
end;
procedure TForm1.CanBtnClick(Sender:TObject);
begin
 Table1.Cancel;
end;


                         2.5. Работа с записями
       Работа с записями подразумевает выполнение операций сортировки,
фильтрации и поиска.
       Сортировкой называют упорядочение записей по некоторому признаку.


                                    37