123
uses unit2, Unit1;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
Label1.Visible:=false;
with DM do begin
if CheckBox1.Checked or CheckBox2.Checked then begin
FIND.SQL.Clear;
FIND.SQL.Add('select * from Posetiteli,Trenera,Yclygi,Zanyatiya,Zapis');
FIND.SQL.Add('where Posetiteli.kod_posetitelya=Zapis.Kod_posetitelya and
Zanyatiya.kod_zanyztiya=Zapis.kod_zanyztiya and Zanyatiya.kod_trenera=Trenera.kod_trenera
and Trenera.kod_yclygi=Yclygi.kod_yclygi');
end
else FIND.Close;
if CheckBox1.Checked then
if CheckBox3.Checked then
FIND.SQL.Add('and Posetiteli.familiya like '+#39+'%'+Edit1.Text+'%'+#39)
else
DM.FIND.SQL.Add('and Posetiteli.familiya='+#39+Edit1.Text+#39);
if CheckBox2.Checked then
if CheckBox3.Checked then
FIND.SQL.Add('and Yclygi.Naim_yclygi like '+#39+'%'+Edit2.Text+'%'+#39)
else
FIND.SQL.Add('and Yclygi.Naim_yclygi='+#39+Edit2.Text+#39);
if CheckBox1.Checked or CheckBox2.Checked then begin
FIND.SQL.Add('order by Posetiteli.kod_posetitelya,Yclygi.kod_yclygi');
FIND.Open;