320 likes | 459 Views
Delphi i Acad cd. Delphi i Acad cd. Delphi i Acad cd. 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
E N D
Delphi i Acad cd. • 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. ……..i program zmienia obiekty na rysunku AutoCADa
Acad 2k6 i SQL Uwaga! Ważna jest kolejność wybierania pól
Acad 2k6 i SQL • Niestety nie chodzi taka składnia: SELECT u.nuc ASnazwisko,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 • 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; 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;
Acad 2k6 i SQL Pokaż automatycznie połączone rekordy z bazy danych Pokaż automatycznie połączone obiekty na rysunku Pokaż połączone rekordy z bazy danych Pokaż połączone obiekty na rysunku Połącz
Acad 2k6 i SQL Pokaż połączone obiekty na rysunku (meble)
Pokaż automatycznie połączone rekordy z bazy danych (pokaz meble) Acad 2k6 i SQL To nie jest mebel !!!