При нажатии на кнопка “Возврат” наша программа возвращается на предыдущее окно
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
//Описание кнопки “Фильтр”