Курсовая работа: Автоматизация продажи и учета лекарственных средств

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Button1: TButton;

Query1: TQuery;

Edit1: TEdit;

Button3: TButton;

RadioGroup1: TRadioGroup;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

pole :shortstring;

implementation

{$R *.DFM}

procedure TForm4.Button1Click(Sender: TObject);

begin

Query1.Filtered:=false;

Query1.Active:=true;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Query1.Active:=false;