|
procedure TForm1.Number-ptClick (Sender: TObject);
begin
|
| бет | 98/100 | | Дата | 06.02.2022 | | өлшемі | 1,89 Mb. | | #53051 |
| Байланысты: БД-зертханалық жұмысprocedure TForm1.Number-ptClick (Sender: TObject);
begin
Form1.Table1.IndexName := ‘Number’;
Form1.Table1.SetKey;
Form1.Table1.GotoNearest;
end;
12. Фамилиясы бойынша сорттауда OnClick оқиғасында келесі кодтты жазу керек:
procedure TForm1.Family2-ptClick (Sender: TObject);
begin
Form1.Table1.IndexName := ‘FamilyIndex’;
Form1.Table1.SetKey;
Form1.Table1.FieldByName(‘Family’).AsString := ‘A’;
Form1.Table1.GotoNearest;
end;
13. Run|Run командасы арқылы бағдарламаны іске қосамыз.
14. Қосымшаны шығу батырмасын басып,немесе файл\шығу арқылы жабамыз.
15. Жобадағы барлық өзгертулерді сақтаймыз.
Зертханалық жұмыс №4 «Кітапхана жүйесі» деректер қорын басқару жүйесін құру
Зертханалық жұмыстың мақсаты: «Кітапхана жүйесі» ДҚБЖ алдын ала жобалап, меңгерілген теориялық мәліметтерге сүйеніп жүйені құру.
Достарыңызбен бөлісу: |
|
|
