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

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.

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

Рисунок 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;

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

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

Рисунок 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.

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

Рисунок 20

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