1 Delphi i Acad cd.

2

3 l_poz := MSpace.Count; Label3.Caption:=IntToStr(l_poz); ent:=Mspace.Item(0); for l_poz := 0 to MSpace.Count-1 do begin; ent:=Mspace.Item(l_poz); if ent.layer = Edit1.text then if ent.EntityName = 'AcDbText' then begin ent.textString:=Edit3.Text; ent.Update; end; end;//for Delphi i Acad cd.

4 ……..i program zmienia obiekty na rysunku AutoCADa Delphi i Acad cd.

5

6 Acad 2k6 i SQL

7 Uwaga! Ważna jest kolejność wybierania pól Acad 2k6 i SQL

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23 Niestety nie chodzi taka składnia: SELECT u.nuc AS nazwisko,avg(s.oce) AS ocena FROM ((przedmioty p JOIN stopnie s ON (p.spr = s.spr)) JOIN uczniowie u ON u.id_uc = s.iuc) GROUP BY u.id_uc; Acad 2k6 i SQL

24

25 Ale to jest poprawne: SELECT u.nuc AS nazwisko,avg(s.oce) AS ocena FROM przedmioty p, stopnie s, uczniowie u WHERE (p.spr = s.spr) AND (u.id_uc = s.iuc) GROUP BY u.id_uc; SELECT u.nuc AS nazwisko,avg(s.oce) AS ocena FROM ((przedmioty p JOIN stopnie s ON (p.spr = s.spr)) JOIN uczniowie u ON u.id_uc = s.iuc) GROUP BY u.id_uc;

26 Acad 2k6 i SQL

27

28

29 Połącz Pokaż połączone obiekty na rysunku Pokaż połączone rekordy z bazy danych Pokaż automatycznie połączone rekordy z bazy danych Pokaż automatycznie połączone obiekty na rysunku Acad 2k6 i SQL

30 Pokaż połączone obiekty na rysunku (meble)

31 Acad 2k6 i SQL To nie jest mebel !!! Pokaż automatycznie połączone rekordy z bazy danych (pokaz meble)

32 Acad 2k6 i SQL