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

Form3.show;

Form1.hide;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.SQL1Click(Sender: TObject);

begin

Form4.show;

end;

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept:=Dataset['Name_lek'] = Edit1.text;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

Table1.Filtered:=CheckBox1.Checked;

Table1.Filtered:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnHint := ShowHint;

end;

procedure TForm1.ShowHint(Sender: TObject);

begin

StatusBar1.Panels[0].text := Application.Hint;

end;