USES MyUnitReport, Search7, Search7-1;
9. фамилиялар арқылы мәзір асты іздеу үшін OnClick оқиғасына келесі жолдарды еңгіземіз:
procedure TForm1.Family1-ptClick (Sender: TObject);
begin IF Form3.ShowModal = mrCancel THEN Exit;
Form1.Table1.IndexName := ‘FamilyIndex’;
Form1.Table1.SetKey;
Form1.Table1.FieldByName(‘Family’).AsString := Form3.Edit1.Text;
Form1.Table1.GotoNearest;
end; 10. «По дате рождения» пунктімен жұмыс істеу үшін OnClick оқиғасынын түрі мынандай болу керек:
procedure TForm1.Date-ptClick (Sender: TObject);
begin IF Form4.ShowModal = mrCancel THEN Exit;
Form1.Table1.IndexName := ‘BirthdayIndex’;
Form1.Table1.SetKey;
Form1.Table1.FieldByName(’Birthday’).AsString := Form4.Edit1.Text;
Form1.Table1.GotoNearest;
end;
