1. Delphining grafik imkoniyatlari. Chizma hosil bo`luvchi sirt

8.BitBtn1 kompanentamizni quyidagi ko’dni yozib chiqamiz
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * ');
ADOQuery1.SQL.Add('from jadval nomini kiriting');
ADOQuery1.Open;
end;
9.BitBtn2 kompanentamizga quyidagi ko’dni yozib chiqamiz.
begin
try
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL := Memo1.Lines;
ADOQuery1.Open;
Except
MessageDlg('So`rovda xato bor', mtError, [mbOk],0);
BitBtn1Click(Sender);

end;
10.Memo kompanentamizni vazifasi foydalanuvchi tomonidan kiritilgan sql so’rovlarini kiritishdan iborat.

Berilgan masalalar sahifani ohirida 1-ilovoda jadval va maydon nomlari keltirilgan.

1 - Masala: Narxi 500$ dan kam bo‘lgan kompyuterlarni aniqlang. Kompyuter rusumi, protsessori tezligi va qattiq disk o‘lchami ko‘rsatilishi kerak.

2 - Masala: Printerlar ishlab chiqaruvchi korxonalar ro‘yxatini aniqlang.

3 - Masala: Narxi 1000$ dan yuqori bo‘lgan noutbuklarni aniqlang. Rusumi, xotira o‘lchami va ekrani kengligi o‘lchami ko‘rsatilishi kerak.

4 - Masala: Rangli printerlarni aniqlang.

5 - Masala: Narxi 600$ dan past bo‘lgan xamda xotirasi o‘lchami 512 yoki 1024 MB ga teng bo‘lgan kompyuterlarni aniqlang. Rusumi, protsessor tezligi va qattiq disk o‘lchami ko‘rsatilishi kerak.

6 - Masala: Qattiq diski o‘lchami 120 GB dan yuqori bo‘lgan Noutbuklarni aniqlang. Noutbuk protsessori tezligi va uni ishlab chiqaruvchisini ko‘rsatish kerak.

7 - Masala: "TSTech" deb nomlangan korxona ishlab chiqargan barcha maxsulotlarni rusumi va narxlarini aniqlang.

8 - Masala: Faqat kompyuter (noutbuk emas) ishlab chiqaruvchi korxonalarni nomini aniqlang.

9 - Masala: Eng kamida 3 GGs tezlikda ishlovchi protsessorlar ishlab chiqaruvchi korxonalarni nomini aniqlang.

10 - Masala: Eng qimmat printerlarni rusumlarini va narxlarini aniqlang.