Тажриба иши. Borland Delphi дастурлаш тизимида ишлаш асослари. Ишдан максад: Borland Delphi

26. Unit1 модулининг Uses кисмига Unit4 ва Unit5 сўзларини ёзинг. Кидириш менюси пунктлари процедураларига куйидаги ўзгартиришларни киритинг:
procedure TForm1.N5Click(Sender: TObject);
begin
{Санаси бўйича фильтрлаш}
if Form4.ShowModal=mrOK then
begin
with DataModule2.ADOTable1 do
begin
Filter := 'DateS='+
DateToStr(Form4.MonthCalendar1.Date);
Filtered := True;
end
end;
end;
procedure TForm1.N6Click(Sender: TObject);
{Телефони бўйича фильтрлаш}
begin
if Form5.ShowModal=mrOK then
begin
with DataModule2.ADOTable1 do
begin
Filter := 'Phone = '+Form5.Edit1.Text;
Filtered := True;
end
end;
end;
procedure TForm1.N10Click(Sender: TObject);
{Фильтрни олиб ташлаш}
begin
DataModule2.ADOTable1.Filter := '';
DataModule2.ADOTable1.Filtered := False;
end;
27. Проектни сакланг ва уни ишга туширинг. Натижани ўкитувчига кўрсатинг.
Мустакил иш

1. 
   1. Янги проект тузинг: (File\New..\Application).
   
2. 
   2. Проектни ўзингизнинг папкангизга Lab4b номи билан сакланг.
   
3. 
   3. 2-тажриба ишидаги вариантлар топшириклари асосида (2-жадвал) дастур тузинг. Дастурда асосий майдонлар (устунлар) бўйича ёзувларни кидириш амали бажарилсин.
   
4. 
   4. Проектни сакланг ва уни ишга туширинг. Натижани ўкитувчига кўрсатинг.
   
5. 
   5. 4-тажриба иши бўйича хисобот тайёрланг ва уни химоя килинг.
   

Назорат саволлари.

1. 
   1. Маълумотлар базаси билан ишлаш усулларини айтинг.
   
2.