Зертханалық жұмыс №1 «Қойма» деректер қорын басқару жүйесін құру


USES MyUnitReport, Search7, Search7-1; 9



бет97/100
Дата06.02.2022
өлшемі1,89 Mb.
#53051
1   ...   92   93   94   95   96   97   98   99   100
Байланысты:
БД-зертханалық жұмыс

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;


11. Номерлары арқылы сорттау пунктінде OnClick ті активтендіру үшін келесі жолдарды жазу керек:


Достарыңызбен бөлісу:
1   ...   92   93   94   95   96   97   98   99   100




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет