Отвечает за перенос на другое диалоговое окно с последующими добавлениями строк(столбцов) в таблице
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.
Кнопка “Изменить”
Рисунок 16
//описание кнопки“Изменить”
Отвечает за перенос на другое диалоговое окно с последующим изменением в таблице.
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.
Кнопка “Удалить”
Рисунок 17
// описание кнопки “Удалить”
Отвечает за удаление лишних строк(столбцов) в раб.таблице.
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.
Кнопка “Возврат”
Рисунок 18
// описание кнопки “Возврат”