95
GroupBox2.Visible:=true;
Form5.Height:= 500;
end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
DataModule1.DDop_us.DataSet.Edit;
GroupBox2.Visible:=true;
Form5.Height:= 500;
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
DataModule1.DDop_us.DataSet.FieldByName('Реклама').AsString:=
DBText1.DataSource.DataSet.FieldByName('Код_рекламы').AsString;
DataModule1.DDop_us.DataSet.Post;
GroupBox2.Visible:=false;
Form5.Height:= 390;
DBGrid1.DataSource.DataSet.Filtered:=false;
DBGrid1.DataSource.DataSet.Filter:='
Реклама='+DBText1.DataSource.DataSet.FieldByName('Код_рекламы').AsString;
DBGrid1.DataSource.DataSet.Filtered:=true;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
DataModule1.DDop_us.DataSet.Cancel;
GroupBox2.Visible:=false;
Form5.Height:= 390;
96
end;
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
with Application do
begin
NormalizeTopMosts;
if (MessageBox('Вы уверены что хотите удалить?', 'Внимание!', MB_YESNO)
= ID_YES) and (DataModule1.DDop_us.DataSet.FieldByName('Код').IsNull =
False)
then DataModule1.DDop_us.DataSet.Delete;
RestoreTopMosts;
end;
end;
procedure TForm5.FormShow(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Filtered:=false;
DBGrid1.DataSource.DataSet.Filter:='
Реклама='+DBText1.DataSource.DataSet.FieldByName('Код_рекламы').AsString;
DBGrid1.DataSource.DataSet.Filtered:=true;
GroupBox2.Visible:=false;
Form5.Height:= 390;
end;
procedure TForm5.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
DBGrid1.DataSource.DataSet.Filtered:=false;
DBGrid1.DataSource.DataSet.Filter:='
Реклама='+DBText1.DataSource.DataSet.FieldByName('Код_рекламы').AsString;
97
DBGrid1.DataSource.DataSet.Filtered:=true;
end;
end.