При нажатии на кнопка “Возврат” наша программа возвращается на предыдущее окно

procedure TForm2.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.DBGrid1TitleClick(Column: TColumn);

begin

adoquery1.Sort:=column.FieldName;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

form3.show;

AdoQuery1.Insert;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

AdoQuery1.Delete;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

If not DBGrid1.DataSource.DataSet.Locate('nazv',(Edit1.Text),[])

Then ShowMessage('не удается найти запись:(');

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

DBGrid1.DataSource.DataSet.Filter := Format('nazv LIKE ''%%%s%%''', [Edit2.Text]);

DBGrid1.DataSource.DataSet.Filtered := True; end;

end.

Кнопка “Выход”

При нажатии на кнопка “Возврат” наша программа возвращается на предыдущее окно - student2.ruРисунок 19

// описание кнопки «Выход»

Данная кнопка выходит из програмы.

procedure TForm2.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.DBGrid1TitleClick(Column: TColumn);

begin

adoquery1.Sort:=column.FieldName;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

form3.show;

AdoQuery1.Insert;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

AdoQuery1.Delete;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

If not DBGrid1.DataSource.DataSet.Locate('nazv',(Edit1.Text),[])

Then ShowMessage('не удается найти запись:(');

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

DBGrid1.DataSource.DataSet.Filter := Format('nazv LIKE ''%%%s%%''', [Edit2.Text]);

DBGrid1.DataSource.DataSet.Filtered := True; end;

End;

Для автоматизации своей программы я включил в нее такие возможности как “Поиск” и “Фильтр” :

Кнопка”Поиск”

При нажатии на кнопка “Возврат” наша программа возвращается на предыдущее окно - student2.ruРисунок 19

// описание кнопки “Поиск”

Смысл работы этой кнопки , в том ,чтобы вывести на первую строку тот компонент который нам нужен в этом так же нам поторебуется компонент Edit

procedure TForm2.Button6Click(Sender: TObject);

begin

If not DBGrid1.DataSource.DataSet.Locate('nazv',(Edit1.Text),[])

Then ShowMessage('не удается найти запись:(');

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

DBGrid1.DataSource.DataSet.Filter := Format('nazv LIKE ''%%%s%%''', [Edit2.Text]);

DBGrid1.DataSource.DataSet.Filtered := True; end;

end.

Кнопка “Фильтр”

При нажатии на кнопка “Возврат” наша программа возвращается на предыдущее окно - student2.ruРисунок 20

//Описание кнопки “Фильтр”

Наши рекомендации