SELECT organization.*, department.*, Personal.* ;
   FROM organization ;
INNER JOIN department ON  organization.Id_org = department.fid_org ;
INNER JOIN Personal ON  department.Id_dep = Personal.fid_dep ;
   INTO CURSOR cur_one NOFILTER READWRITE

Я во все дела суюсь -> всесторонне разовьюсь   
                                                        Visual FoxPro 8.0

	CREATE TABLE data_s\Organization.dbf FREE (Kod_org I NOT NULL, Name_org C( 250 ), Street C( 250 ), House C( 50 ), Flat C( 50 ))
	MODIFY STRUCTURE 
	CREATE TABLE data_s\Department.dbf FREE (Kod_dep I NOT NULL, fKod_org I NOT NULL, Name_dep C( 250 ))
	MODIFY STRUCTURE 
	CREATE TABLE data_s\Personal.dbf FREE (Kod_per I NOT NULL, fKod_dep I NOT NULL, fName C( 50 ), fPatron C( 50 ), fSurName C( 50 ))
	MODIFY STRUCTURE 

	INSERT INTO Organization (Name_org, Street, House, Flat) VALUES ("ОА Икра Красная", "ул. Рыбная", "14/8", "строение 2")
	INSERT INTO Organization (Name_org, Street, House, Flat) VALUES ("ОА Пивко", "ул. Разливочная", "7", "корпус 1")
	INSERT INTO Organization (Name_org, Street, House, Flat) VALUES ("ЗАО Холод", "пер. Тупиковый", "7", "10")

	SELECT Organization
	GO TOP 
*!* Для "ОА Икра Красная" заводим отделы
	gnKod_org=Organization.Kod_org 
	INSERT INTO Department (fKod_org, Name_dep) VALUES (gnKod_org, "Управление")
	INSERT INTO Department (fKod_org, Name_dep) VALUES (gnKod_org, "Технологический")
	INSERT INTO Department (fKod_org, Name_dep) VALUES (gnKod_org, "Экономический")
	SELECT Organization
	SKIP 
*!* Для "ОА Пивко" заводим
	gnKod_org=Organization.Kod_org 
	INSERT INTO Department (fKod_org, Name_dep) VALUES (gnKod_org, "Генеральный директор")
	INSERT INTO Department (fKod_org, Name_dep) VALUES (gnKod_org, "Отдел главного технолога")
	INSERT INTO Department (fKod_org, Name_dep) VALUES (gnKod_org, "Металлургический отдел")
	INSERT INTO Department (fKod_org, Name_dep) VALUES (gnKod_org, "Бухгалтерия")

	SELECT Department
	GO TOP 
	gnKod_dep=Department.Kod_dep
	INSERT INTO Personal (fKod_dep, fName, fPatron, fSurName) VALUES (gnKod_dep, "Андрей", "Андреевич", "Андреев")
	INSERT INTO Personal (fKod_dep, fName, fPatron, fSurName) VALUES (gnKod_dep, "Борис", "Борисович", "Борисов")
	INSERT INTO Personal (fKod_dep, fName, fPatron, fSurName) VALUES (gnKod_dep, "Виталий", "Витальевич", "Витальев")
	SELECT Department
	SKIP 
	gnKod_dep=Department.Kod_dep
	INSERT INTO Personal (fKod_dep, fName, fPatron, fSurName) VALUES (gnKod_dep, "Гурий", "Гурьевич", "Гурьев")
	INSERT INTO Personal (fKod_dep, fName, fPatron, fSurName) VALUES (gnKod_dep, "Дмитрий", "Дмитриевич", "Дмитрев")
	SELECT Department
	SKIP 
	gnKod_dep=Department.Kod_dep
	INSERT INTO Personal (fKod_dep, fName, fPatron, fSurName) VALUES (gnKod_dep, "Евгений", "Евгеньевич", "Евгеньев")
	INSERT INTO Personal (fKod_dep, fName, fPatron, fSurName) VALUES (gnKod_dep, "Жанна", "Жандармовна", "Жаннон")

	SELECT Organization.*, Department.*, Personal.* ;
	 FROM Organization ;
	LEFT OUTER JOIN Department ON  Organization.kod_org = Department.fkod_org ;
    LEFT OUTER JOIN Personal   ON  Department.kod_dep = Personal.fkod_dep ;
     INTO CURSOR cur_one NOFILTER READWRITE 
	SELECT cur_one
	BROWSE NORMAL 

	SELECT Organization
	GO TOP 
	gnKod_org=Organization.Kod_org 
	SELECT Department.name_dep FROM Department WHERE Department.fkod_org == gnKod_org 
*!* Далее он выбирает "Технологический"
	SELECT Department
	LOCATE FOR ALLTRIM(Department.name_dep)=="Технологический" && на случай если ты указатель премещял
	gnKod_dep=Department.Kod_dep
	SELECT Personal.fname, Personal.fpatron, Personal.fsurname FROM Personal WHERE Personal.fkod_dep == gnKod_dep

*!* запоминаешь Id записи на которой он стоял и все остальные отрибуты
	SELECT Organization
	GO TOP 
	gnKod_org=Organization.Kod_org 
	pcName_org=Organization.Name_org
	pcStreet=Organization.Street
	pcHouse=Organization.House
	pcFlat=Organization.Flat
*!* например вызываешь форму на редактирование с TextBox'ами и передаешь в них параметры, стало:
	pcName_org="ООО Икра Чёрная"
	pcStreet="ул. Овражная"
	pcHouse="47"
	pcFlat="строение 2"
*!* далее находишь по Id запись в таблице и меняешь данные
	UPDATE Organization SET Organization.Name_org=pcName_org, Organization.Street=pcStreet, ;
		Organization.House=pcHouse, Organization.Flat=pcFlat WHERE Organization.Kod_org == gnKod_org 
	SELECT Organization.*, Department.*, Personal.* ;
	 FROM Organization ;
	LEFT OUTER JOIN Department ON  Organization.kod_org = Department.fkod_org ;
    LEFT OUTER JOIN Personal   ON  Department.kod_dep = Personal.fkod_dep ;
     INTO CURSOR cur_one NOFILTER READWRITE 
	SELECT cur_one
	BROWSE LAST

Я во все дела суюсь -> всесторонне разовьюсь   
                                                        Visual FoxPro 8.0