Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:БД книги 2 / материалы по FoxPro / GL2
.PAS2. ‡ЌЂЉЋЊ€Њ‘џ ‘ ЃЂ‡ЂЊ€ „ЂЌЌ›•
‚ нв®© Ј« ўҐ ¬л ®бгйҐбвўЁ¬ ЇҐаў®Ґ § Є®¬бвў® б Ў § ¬Ё ¤ ле
(Ѓ„), вЁЇ ¬Ё ЁбЇ®«м§гҐ¬ле ў Ѓ„ Ї®«Ґ©, гзЁ¬бп ᮧ¤ ў вм Ё Ё§¬Ґпвм
Ѓ„, Ё¤ҐЄбЁа®ў вм Ё зЁбвЁвм Ёе ®в "¬гб®а ", гбв ў«Ёў вм бўп§Ё Ѓ„,
ќв Ј« ў Ї®б«г¦Ёв ®б®ў®© ¤«п Ў®«ҐҐ ¤Ґв «м®Ј® Ё§гзҐЁп Ѓ„ ў Ј«. 3.
2.1. ’ЁЇл Ї®«Ґ©, ЁбЇ®«м§гҐ¬ле ў Ў § е ¤ ле
ђ бᬮваЁ¬ Є®ЄаҐвл© ЇаЁ¬Ґа ЇаЁ¬ҐҐЁп Ѓ„ ў гзҐв®¬ бв®«Ґ
ҐЄ®в®а®© дЁа¬л (Є ЇаЁ¬Ґаг, б зЁб«®¬ б®ваг¤ЁЄ®ў 500 - 600). ‡ ¤ 祩
Ўг¤Ґв ўв®¬ вЁ§ жЁп гзҐв б«г¦ йЁе. „«п з « а §а Ў®в Ґ¬ ¬®¤Ґ«м
Ѓ„ ( «®Ј Є ав®вҐЄЁ). Љ ¦¤ п Є ав ў Є ав®вҐЄҐ - нв® § ЇЁбм ў
襩 Ѓ„, Є ¦¤л© ЇгЄв ў Ґ© - "€¬п", "” ¬Ё«Ёп", "ЋвзҐбвў®" Ё в.Ї.
- Ї®«Ґ § ЇЁбЁ. Љ ¦¤®Ґ Ї®«Ґ Ї®«гз Ґв гЁЄ «м®Ґ Ё¬п.
ђ §¬Ґа Ё Є®«ЁзҐбвў® Ї®«Ґ© ¬®¦Ґв Ё§¬Ґпвмбп ў 室Ґ нЄбЇ«г в жЁЁ
Ѓ„. ЏаҐ¤бв ў«пҐвҐ, бЄ®«мЄ® вॡ®ў «®бм Ўл а Ў®вл, зв®Ўл ¤®Ў ўЁвм Є®
ўбҐ¬ Є ав ¬ ®ў®Ґ Ї®«Ґ ? €«Ё гЎа вм Ґг¦®Ґ Ї®«Ґ, ЇаЁ¬Ґа, Ї®«Ґ
"Џ авЁ© п ЇаЁ ¤«Ґ¦®бвм"? Ђ ў Ѓ„ нвЁ ®ЇҐа жЁЁ ўлЇ®«повбп ¤ўг¬п-
ваҐ¬п Є®¬ ¤ ¬Ё. Ѓ„, Ё¬Ґп бЇҐжЁ «мл© д®а¬ в, еа пвбп ў ¤ЁбЄ®ў®©
Ї ¬пвЁ Є®¬ЇмовҐа - Є ¦¤ п Ѓ„ нв® д ©« б а биЁаҐЁҐ¬ Ё¬ҐЁ .DBF .
Ќ ўбҐ¬ ¬®¦Ґб⢥ § ЇЁбҐ© Ѓ„ ("Є ав®зҐЄ") Є ¦¤®Ґ Ї®«Ґ Ё¬ҐҐв
¦ҐбвЄЁ© а §¬Ґа Ё ЁбЇ®«м§гҐвбп ¤«п ¤ ле ®ЇаҐ¤Ґ«Ґ®Ј® вЁЇ :
- бЁ¬ў®«мл© вЁЇ (вЁЇ C) - ᮤҐа¦Ёв ⥪бв®ўго Ёд®а¬ жЁо (в ЄЁҐ
Ї®«п ¬®¦® ЁбЇ®«м§®ў вм ¤«п еа ҐЁп д ¬Ё«ЁЁ б«г¦ 饣®, ҐЈ® ¤аҐб ,
⥫Ґд® Ё в.Ї.);
- зЁб«®ў®© вЁЇ (вЁЇ N) - зЁб« б дЁЄбЁа®ў ®© § Їпв®© (в ЄЁҐ Ї®«п,
Ї®¤¤ ойЁҐбп зЁб«®ў®© ®Ўа Ў®вЄҐ, ¬®¦® ЁбЇ®«м§®ў вм ¤«п Ї®«Ґ© "‘в ¦",
"‡ аЇ« в " Ё в.Ї.); ў п§лЄҐ FOXPRO зЁб« ¬®Јгв Ўлвм б Ї« ў о饩
в®зЄ®© (вЁЇ F), нв® ЇаҐ¤бв ў«ҐЁҐ 㤮Ў® ¤«п ®зҐм ¬ «ле Ё«Ё б«ЁиЄ®¬
Ў®«миЁе зЁбҐ«, ЇаЁ¬Ґа, 123E+9 ®Ў®§ з Ґв зЁб«® 123 000 000 000;
- вЁЇ "„ в "(вЁЇ D) - ¤ вл ў ⮬ Ё«Ё Ё®¬ д®а¬ ⥠(Ї.1.3) (Є в ЄЁ¬
Ї®«п¬ ®в®бпвбп Ї®«п "„ в ஦¤ҐЁп", "„ в ЇаЁЄ § ® § зЁб«ҐЁЁ");
- «®ЈЁзҐбЄЁ© вЁЇ (вЁЇ L) - Ї®«Ґ б нвЁ¬ вЁЇ®¬ ЇаЁЁ¬ Ґв «®ЈЁзҐбЄЁҐ
§ 票п .TRUE. Ё .FALSE. (ҐЈ® ¬®¦® § ¤ вм, ЇаЁ¬Ґа, ¤«п Ї®«п
"Џ®«", ®ЇаҐ¤Ґ«Ёў ¬г¦бЄ®© Ї®« Є Є .TRUE., ¦ҐбЄЁ© - Є Є .FALSE.
Ё«Ё ®Ў®а®в; Є®Ґз®, ¬®¦® ЁбЇ®«м§®ў вм Ё Ї®«Ґ вЁЇ C);
- ЇаЁ¬Ґз ЁҐ (вЁЇ M) - нв® ®б®Ўл© вЁЇ Ї®«п, ®ЎкҐ¬ ¤ ле Є®в®а®Ј®
Ґ ®Ј®ў аЁў Ґвбп § а ҐҐ, ¤«п а §ле § ЇЁбҐ© ¬®¦Ґв Ўлвм а §«Ёзл¬,
ў ⮬ зЁб«Ґ Ё 0, Ё ¬®¦Ґв Ё§¬Ґпвмбп ў Їа®жҐббҐ а Ў®вл б Ѓ„ (в Є®Ґ
Ї®«Ґ ¬®¦Ґв ЁбЇ®«м§®ў вмбп ¤«п еа ҐЁп Ї®б«г¦®Ј® бЇЁбЄ , "¤®бмҐ").
Џ®«п Ї®б«Ґ¤Ёе 3 вЁЇ®ў Ё¬Ґов дЁЄбЁа®ў л© а §¬Ґа: вЁЇ D - 8,
вЁЇ L - 1, вЁЇ M - 10 (Ё¬ҐҐвбп ў ўЁ¤г ббл«Є ¤ лҐ вЁЇ M, б ¬Ё
¤ лҐ еа пвбп ў ®в¤Ґ«м®¬ д ©«Ґ, §лў Ґ¬®¬ Memo-д ©«®¬). ђ §¬Ґа
бЁ¬ў®«м®Ј® Ї®«п ў п§лЄҐ FOXPRO ®Ја ЁзҐ 254 Ў ©в ¬Ё, ў CLIPPER -
64 K, в.Ґ. Ў®«миҐ ў 256 а § б ҐЎ®«миЁ¬. Њ ЄбЁ¬ «мл© а §¬Ґа Ї®«п
вЁЇ N Ё«Ё F - 20 (гзЁвлў Ґвбп § Є зЁб« Ё ў®§¬®¦ п ¤ҐбпвЁз п
в®зЄ ).
„«п ®Ўа Ў®вЄЁ Ї®«Ґ© ¬®Јгв ЁбЇ®«м§®ў вмбп ®ЇҐа жЁЁ Ё дгЄжЁЁ,
а бᬮваҐлҐ ў ЇЇ. 1.2 - 1.6, ¤«п ўў®¤ Ё ўлў®¤ - Є®¬ ¤л,
а бᬮваҐлҐ ў ЇЇ. 1.11, 1.12.
2.2. ‘®§¤ Ґ¬ ЇҐаўго Ў §г ¤ ле. ‘вагЄвга
€¬п Ѓ„ - нв® Ё¬п д ©« , б®бв®п饥 Ё§ « вЁбЄЁе ЎгЄў Ё жЁда (¤®
8 бЁ¬ў®«®ў ЎҐ§ гзҐв а биЁаҐЁп Ё¬ҐЁ). €¬п Ї®«п ўЄ«оз Ґв ¤® 10
в ЄЁе бЁ¬ў®«®ў Ё зЁ Ґвбп б ЎгЄўл. ‚®§м¬Ґ¬ гЇ®¬Ё ўигобп ўлиҐ
«Ёзго Є авг б®ваг¤ЁЄ Ё а §а Ў®в Ґ¬ ҐҐ ®б®ўҐ бвагЄвгаг Ѓ„ б
Ё¬ҐҐ¬ Kadr:
ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
і Џ®«Ґ ’ЁЇ „«Ё ‘®¤Ґа¦ ЁҐ і
ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
і Famil C 30 ” ¬Ё«Ёп б®ваг¤ЁЄ і
і Imya C 20 €¬п б®ваг¤ЁЄ і
і Otch C 20 ЋвзҐбвў® б®ваг¤ЁЄ і
і Pol L 1 Џ®« б®ваг¤ЁЄ і
і Oklad N 8 ‡ а Ў®в п Ї« в і
і Dtr D 8 „ в ஦¤ҐЁп і
АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ
‚ ¤ ®© бвагЄвгॠҐ ®ва ¦Ґ 4-п б®бв ў«пой п - зЁб«® § Є®ў
Ї®б«Ґ в®зЄЁ ў зЁб«Ґ. ‚ 襬 ЇаЁ¬ҐаҐ зЁб«®ў®Ґ Ї®«Ґ Ґ Ё¬ҐҐв ¤а®Ўле
а §а冷ў, ў ®ЇЁб ЁЁ Ї®«Ґ© Ёле вЁЇ®ў нв б®бв ў«пой п а ў 0.
‘®§¤ ЁҐ Їгбв®© Ѓ„. ‡ ЇЁбм бвагЄвгал Ѓ„ ў ќ‚Њ ЇаЁў®¤Ёв Є ᮧ¤ Ёо
Їгбв®© Ѓ„. Џа®йҐ ўбҐЈ® нв® ¤Ґ« Ґвбп б Ї®¬®ймо Їа®Ја ¬¬л-гвЁ«Ёвл
DBU.EXE , ЇаЁ« Ј о饩бп Є бЁб⥬Ґ CLIPPER. Џ®б«Ґ § ЇгбЄ Їа®Ја ¬¬л
㦮 ўлЎа вм Ё§ ¬Ґо нЄа Ґ ЇгЄв "‘®§¤ вм-‘вагЄвгаг". Џ®пў«пҐвбп
Їгбв®© и Ў«® ®ЇЁб Ёп Ї®«п. ‚ў®¤Ё¬ Ё¬п Ї®«п, ў б«Ґ¤го饩 Є®«®ЄҐ -
ўлЎЁа Ґ¬ вЁЇ (б з « ® ᮤҐа¦Ёв вЁЇ Character - бЁ¬ў®«мл©). Њ®¦®
§ ¬ҐЁвм вЁЇ г¦л©, ¦Ё¬ п Є« ўЁиг Їа®ЎҐ« . ‡ ⥬ § з Ґ¬
а §¬Ґа Ї®«п, Ґб«Ё ® ®в«Ёз Ґвбп ®в 㦥 Ё¬Ґо饣®бп ў Є®«®ЄҐ "ЁаЁ ".
‘¤Ґ« ў нв® ¤«п ўбҐе Ї®«Ґ©, Ї®«гз Ґ¬ б«Ґ¤го饥:
ХННННННННННННННННННННННННННННННННННННННННё
і ‘вагЄвга Ѓ §л „ ле <®ўл© д ©«> і
і Џ®«Ґ 5 і
і €¬п Ї®«п ’ЁЇ Ї®«п ЁаЁ „Ґб.і
ЖННННННННННННННННННННННННННННННННННННННННµ
і FAMIL Character 30 і
і IMYA Character 20 і
і OTCH Character 20 і
і POL Logical 1 і
і OKLAD Numeric 8 0 і
і DTR Date 8 і
Љ®«®Є "„Ґб" ᮤҐа¦Ёв гЄ § ЁҐ Є®«ЁзҐбвў § Є®ў ў зЁб«Ґ
Ї®б«Ґ ¤ҐбпвЁз®© в®зЄЁ. ’ҐЇҐам Ґ®Ўе®¤Ё¬® б®еа Ёвм бвагЄвгаг Ѓ„
¤ЁбЄҐ. ‚лЎЁа Ґ¬ ЇгЄв ¬Ґо "‘®еа Ёвм-‘вагЄвгаг" Ё ў Ї®пўЁўиҐ¬бп
®ЄҐ ўў®¤
ХНННННННННННННННННННННННННННННННННННННННННННё
і ‘®еа ҐЁҐ бвагЄвгал Ў §л --- *.DBF --- і
і і
і ” ©« і
і і
і „ Ћв¬ҐЁвм і
ФНННННННННННННННННННННННННННННННННННННННННННѕ
бЇа ў ®в б«®ў "” ©«" ЎЁа Ґ¬ Ё¬п Kadr, § ўҐаи п б®еа ҐЁҐ
¤ў®©л¬ ¦ вЁҐ¬ Є« ўЁиЁ Enter, ЁЎ® гвЁ«Ёв вॡгҐв Ї®¤вўҐа¦¤ҐЁп.
‡ Ї®«ҐЁҐ Ѓ„ ¤ л¬Ё. ‚лЎЁа Ґ¬ ЇгЄв ¬Ґо "Џа®б¬®ва-Ѓ §л",
нЄа Ґ Ї®пў«пҐвбп ®Є® ўў®¤ б § Ј®«®ў®з®© з бвмо
ХФНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННё
і <‡ ¬Ґ > ‡ ЇЁбм 1/1 і
іFAMIL IMYA OTCH POL OKLAD DTR і
ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
Љ Є в®«мЄ® зЁ Ґ¬ ЎЁа вм д ¬Ё«Ёо ЇҐаў®Ј® б®ваг¤ЁЄ ,
ўв®¬ вЁзҐбЄЁ Ї®пў«пҐвбп Єгаб®а ў Ї®«Ґ Ў®а д ¬Ё«ЁЁ. Ќ ¦Ё¬ п Enter,
ЇҐаҐе®¤Ё¬ Є б«Ґ¤го饬㠯®«о IMYA Ё в.¤. „«п ЇҐаҐе®¤ Є б«Ґ¤го饩
§ ЇЁбЁ б«г¦Ёв Є« ўЁи "‘в५Є ўЁ§".
‘®§¤ ЁҐ Ѓ„ Ё§ б।л FOXPRO. ‡ ЇгбЄ Ґ¬ ўлЇ®«ҐЁҐ Їа®Ја ¬¬г
FOX.EXE, нЄа Ґ Ї®пў«пҐвбп ®б®ў®Ґ ¬Ґо. Љ« ўЁи F10 ЄвЁўЁ§ЁагҐв
¬Ґо. ‚лЎЁа Ґ¬ ЇгЄв File/New (б з « File, § ⥬ New - ў Ї®¤¬Ґо),
ў Ї®пў«по饩бп в Ў«ЁжҐ 㦥 ўлЎа (®Ў®§ зҐ в®зЄ®© . ) бва®Є
"Database". ЏҐаҐў®¤ ваҐе ўлЎа ле н«Ґ¬Ґв®ў: "” ©«/Ќ®ў п/Ѓ„".
ЏаЁ ¦ вЁЁ Enter Ї®пў«пҐвбп ®Є® Structure б § Ј®«®ўЄ®¬ б«Ґ¤го饣®
ўЁ¤ :
Structure: Untitled
Name Type Width Dec Field
ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї ЪДДДДДДДДДДДДї
і і і <Insert> і
і і і <Delete> і
Ќ ЎЁа Ґ¬лҐ Ё¬п Ї®«п (Є®«®Є Name), ҐЈ® вЁЇ (Type), ҐЈ® а §¬Ґа
(Width) § ©¬гв 1-о бва®Єг Ї®¤ ᮮ⢥вбвўгойЁ¬Ё ¤ЇЁбп¬Ё. ‚ Є®«®ЄҐ
Type ¤® ўў®¤Ёвм «Ёим 1-о ЎгЄўг. Ќ ЇаЁ¬Ґа, ЇаЁ ўў®¤Ґ ЎгЄўл N
ў®§ЁЄ Ґв б«®ў® Numeric. ЏҐаҐе®¤ Є б«Ґ¤го饩 (ЇаҐ¤л¤г饩) Є®«®ЄҐ
Їа®Ё§ў®¤Ёвбп Є« ўЁи ¬Ё гЇа ў«ҐЁп Єгаб®а®¬. Њ®¦® ЁбЇ®«м§®ў вм Є« ўЁиг
в Ўг«пжЁЁ, Є« ўЁиг Enter. Џ®б«Ґ § Ї®«ҐЁп бва®ЄЁ Єгаб®а ЇҐаҐе®¤Ёв
б«Ґ¤гойго. ‡ Є®зЁў ®ЇЁб ЁҐ Ї®«Ґ© Ѓ„, Ё¤ҐвЁз®Ґ Їа®Ё§ў®¤Ё¬®¬г
ў б।Ґ DBU Ё Ї®Є § ®¬г ўлиҐ, ¦Ё¬ Ґ¬ CTRL + W Ё ў Ё¦Ґ© бва®ЄҐ
Ї®пўЁўиҐЈ®бп ®Є § ЇЁблў Ґ¬ Ё¬п Ѓ„: Kadr. ‡ ⥬ Є« ўЁиҐ© в Ўг«пжЁЁ
ўлЎЁа Ґ¬ ў ®ЄҐ н«Ґ¬Ґв Save ("‘®еа Ёвм") Ё ¦Ё¬ Ґ¬ Enter. Џгбв п
Ѓ„ ᮧ¤ . Ћбв Ґвбп ®вўҐвЁвм Ї®пў«пойЁ©бп нЄа Ґ § Їа®б:
Input data records now ?
<Yes> <No>
„«п ўлЎ®а ®вўҐв <No> Є« ўЁиҐ© "бв५Є ўЇа ў®" ЇҐаҐе®¤Ё¬ Є Ґ¬г
Ё ¦Ё¬ Ґ¬ Enter. …б«Ё Ґ®Ўе®¤Ё¬® ба §г § Ї®«Ёвм Ѓ„, ўлЎЁа Ґ¬ Yes
( ¦Ё¬ Ґ¬ Enter). ‚ ў®§ЁЄ о饬 ®ЄҐ ўў®¤ , Ј¤Ґ гЄ § л Ё¬Ґ Ї®«Ґ©
Ѓ„, ЎЁа Ґ¬ § 票п. Џ®«Ґ § зҐЁп Є®ва бв® ўл¤Ґ«пҐвбп. Џ®б«Ґ
ўў®¤ ЇҐаў®© § ЇЁбЁ ўв®¬ вЁзҐбЄЁ Ї®пў«пҐвбп ¤®бвгЇ Є® 2-© Ё в.¤.
„«п б®еа ҐЁп Ї®«Ґ®© Ѓ„ ЁбЇ®«м§говбп Є« ўЁиЁ CTRL + W .
…б«Ё ўл ®вЄ ¦ҐвҐбм § Ї®«пвм Ѓ„, ¬®¦® ᤥ« вм нв® ўЇ®б«Ґ¤бвўЁЁ,
®вЄалў Ѓ„ Ё ўлЎа ў н«Ґ¬Ґв ¬Ґо "Database/Browse". Љ®Ґз®, ¤«п
ҐЄ®в®але Ї®«м§®ў ⥫Ґ© Ј«Ё©бЄЁҐ ®Ў®§ зҐЁп Ё ⥪бвл ®Є ¦гвбп
Ґг¤®Ўбвў®¬ ў ба ўҐЁЁ б агббЄЁ¬Ё, ЁбЇ®«м§гҐ¬л¬Ё ў б।Ґ DBU.
‚бо ®ЇЁб го ўлиҐ а Ў®вг ¬®¦® Їа®¤Ґ« вм, Ґ ўе®¤п ў ¬Ґо,
Ўа ў Є®¬ ¤г CREATE Kadr, Є®в®а п ЇаҐ¤кпў«пҐв ®Є® Structure.
Љ®¬ ¤ MODIFY STRUCTURE, Є®в®а п в Є¦Ґ ҐЈ® ЇаҐ¤кпў«пҐв, Ї®§ў®«пҐв
Ё§¬ҐЁвм бвагЄвга㠯।ў аЁвҐ«м® ®вЄалв®© Ѓ„. ЋвЄалвЁҐ Ѓ„
а бб¬ ваЁў Ґвбп ў ЇЇ. 2.3, 2.4. ђ Ў®в п ў ®ЄҐ Structure, ¬®¦®
Ё§¬Ґпвм Ї®а冷Є б«Ґ¤®ў Ёп ®ЇЁб Ё© Ї®«Ґ©, ўбв ў«пвм (г¤ «пвм)
®ЇЁб Ёп, ўлЎЁа п н«Ґ¬Ґв <Insert> (<Delete>).
‡ ¤ ЁҐ 2.2. 1.‘®§¤ ©вҐ Ё Ї®«ЁвҐ Ѓ„ Kadr (ҐбЄ®«мЄ® § ЇЁбҐ©).
2.ђ §а Ў®в ©вҐ бвагЄвгаг Ѓ„ Postavki б Ёд®а¬ жЁҐ© ® Ї®бв ўйЁЄ е.
‡ ЇЁбм ¤®«¦ ўЄ«оз вм Ё¬Ґ®ў ЁҐ дЁа¬л-Ї®бв ўйЁЄ , ҐҐ ⥫Ґд® Ё
д Єб, д ¬Ё«Ёо Ё ЁЁжЁ «л ЇаҐ¤бв ўЁвҐ«п, ¤аҐб, зЁб«® § Є«озҐле
¤®Ј®ў®а®ў ® Ї®бв ўЄҐ, ¤ вг Ї®б«Ґ¤ҐЈ® Ё§ Ёе. ЋжҐЁвҐ а §¬Ґа ®¤®©
§ ЇЁбЁ Ё Ї®¤бзЁв ©вҐ ЇаЁЎ«Ё§ЁвҐ«мл© ®ЎкҐ¬ Ѓ„ ў а бзҐвҐ 1000
Ї®бв ўйЁЄ®ў.
2.3. ЂЄвЁўЁ§Ёа㥬 Ў §г ¤ ле Ё ЇҐаҐ¬Ґй Ґ¬бп ў Ґ©.
‡ Єалў Ґ¬ Ў §л ¤ ле
„®бвгЇ Є § ЇЁбп¬ ¤«п звҐЁп Ё«Ё Ё§¬ҐҐЁп Ёе ᮤҐа¦Ё¬®Ј®
ў®§¬®¦Ґ б ¬®¬Ґв ®вЄалвЁп Ѓ„ Є®¬ ¤®© USE <€¬п Ѓ„>. ‚ Є ¦¤л©
¬®¬Ґв ¤®бвгЇ «Ёим ⥪гй п § ЇЁбм Ѓ„. Џ®«®¦ҐЁҐ ⥪г饩 § ЇЁбЁ
®ЇаҐ¤Ґ«пҐв гЄ § вҐ«м § ЇЁбЁ (Ґ¬г ᮮ⢥вбвўгҐв § 票Ґ дгЄжЁЁ
Recno()). Џ®б«Ґ ®вЄалвЁп Ѓ„ ⥪г饩 пў«пҐвбп ЇҐаў п § ЇЁбм. Љ®¬ ¤
GO <‚лаN>, Ё§¬Ґпп гЄ § вҐ«м § ЇЁбЁ, ¤Ґ« Ґв ⥪г饩 § ЇЁбм б ®¬Ґа®¬
<‚лаN>, Є®¬ ¤ GO BOTTOM - Ї®б«Ґ¤оо § ЇЁбм Ѓ„, Є®¬ ¤ GO TOP
- ЇҐаўго § ЇЁбм.
Џ®«®¦ҐЁҐ ®ў®© ⥪г饩 § ЇЁбЁ ¬®¦® § ¤ вм ®в®бЁвҐ«м®
ЇаҐ¦Ґ© Є®¬ ¤®© SKIP <‚лаN>, Ј¤Ґ <‚лаN> - ЇаЁа 饨Ґ ®¬Ґа § ЇЁбЁ
(¬®¦Ґв Ўлвм ®ваЁж ⥫мл¬). Ќ ЇаЁ¬Ґа, SKIP 5 ЇҐаҐ¬Ґй Ґв гЄ § ⥫м
5 § ЇЁбҐ© "ўЇҐаҐ¤", SKIP 1 (SKIP -1) - б®бҐ¤оо § ЇЁбм б
Ў®«миЁ¬ (¬ҐмиЁ¬) ®¬Ґа®¬. Љ®¬ ¤г SKIP 1 ¬®¦® ЇЁб вм Є®а®зҐ:
SKIP. Љ®¬ ¤ SKIP 㤮Ў ЇаЁ Ї®б«Ґ¤®ў ⥫쮩 ®Ўа Ў®вЄҐ § ЇЁбҐ©.
‘гйҐбвўгов ¤ўҐ дгЄжЁЁ (EOF() Ё BOF()), Є®в®алҐ Ё¬Ґов § 票Ґ
.F., Ї®Є гЄ § вҐ«м § ЇЁбЁ ЇҐаҐ¬Ґй Ґвбп ў ЇаҐ¤Ґ« е Ѓ„. ЏаЁ ўл室Ґ
§ Ї®б«Ґ¤оо § ЇЁбм Ѓ„ дгЄжЁп EOF() Ё§¬ҐпҐв бў®Ґ § 票Ґ .T.,
дгЄжЁп Recno() ў®§ўа й Ґв § 票Ґ (n+1), Ј¤Ґ n - зЁб«® § ЇЁбҐ©.
ЏаЁ Ї®ЇлвЄҐ ўл室 § з «® Ѓ„ § 票Ґ .T. ЇаЁ®ЎаҐв Ґв дгЄжЁп
BOF(), § 票Ґ Recno() - а ў® 1.
”гЄжЁп Reccount() ў®§ўа й Ґв зЁб«® § ЇЁбҐ© ў ®вЄалв®© Ѓ„.
ЏаЁ¬Ґа 2.1. Ќ ¬ Ї®вॡгҐвбп Ѓ„ Prima б Ґ¤ЁбвўҐл¬ зЁб«®ўл¬
Ї®«Ґ¬ Numb. ‘®§¤ ©вҐ Ё § Ї®«ЁвҐ ҐҐ в ЄЁ¬ ®Ўа §®¬, зв®Ўл § 票п
Ї®«п и«Ё Ї® ў®§а бв Ёо ®в з « Є Є®жг Ѓ„.
Ќ ©¤Ґ¬ ў Ѓ„ Prima § ЇЁбм б® § 票Ґ¬, а ўл¬ § ¤ ®¬г
§ 票о Z, Ё«Ё - ў ®вбгвбвўЁҐ а ў®Ј® § 票п - б Ў«Ё¦ ©иЁ¬
Ў®«миЁ¬ § 票Ґ¬. ЏаЁ¬ҐЁ¬ иЁа®Є® ЁбЇ®«м§гҐ¬л© ¬Ґв®¤ ¤Ёе®в®¬ЁЁ.
INPUT "‚ўҐ¤ЁвҐ § 票Ґ Z " TO Z
USE Prima && ЋвЄалў Ґ¬ Ў §г ¤ ле
I = 1 && ЌЁ¦пп Ја Ёж ®Ў« бвЁ Ї®ЁбЄ
J = Reccount() + 1 && ‚Ґаепп Ја Ёж ®Ў« бвЁ Ї®ЁбЄ
K = Int((I+J)/2) && ‘।пп в®зЄ ®Ў« бвЁ Ї®ЁбЄ
GO K && ЏҐаҐе®¤ Є "жҐва «м®©" § ЇЁбЁ ®Ў« бвЁ Ї®ЁбЄ
DO WHILE J > I
IF Numb > Z && Џа®ўҐаЄ § зҐЁп Ї®«п "жҐва «м®© § ЇЁбЁ"
J = K && ‡ ¬Ґ ўҐа奩 Ја Ёжл ®Ў« бвЁ Ї®ЁбЄ
ELSEIF Numb < Z
I = K+1 && ‡ ¬Ґ Ё¦Ґ© Ја Ёжл ®Ў« бвЁ Ї®ЁбЄ
ELSE
EXIT && ‚л室 Ё§ жЁЄ« , Ґб«Ё ©¤Ґ® а ў®Ґ Z § 票Ґ
ENDIF
K = Int((I+J)/2) && Ќ 宦¤ҐЁҐ б।Ґ© в®зЄЁ ®Ў« бвЁ Ї®ЁбЄ
GO K && ЏҐаҐе®¤ Є "жҐва «м®©" § ЇЁбЁ ®Ў« бвЁ Ї®ЁбЄ
ENDDO
? Recno(), Numb && ‚лў®¤ ®¬Ґа ©¤Ґ®© § ЇЁбЁ Ё § зҐЁп Ї®«п
…б«Ё ЁбЄ®¬®Ґ § 票Ґ ®Є §лў Ґвбп Ў®«миҐ ўбҐе Ё¬ҐойЁебп ў Ѓ„,
гЄ § вҐ«м § ЇЁбЁ гбв ў«Ёў Ґвбп ў Ї®§ЁжЁо (Reccount()+1). ‡ п,
зв® Ї®б«Ґ ®вЄалвЁп Ѓ„ ⥪г饩 пў«пҐвбп 1-п § ЇЁбм, ¬л ¬®Ј«Ё Ўл
Є®¬ ¤г GO K ў 6-© бва®ЄҐ Їа®Ја ¬¬л § ¬ҐЁвм Є®¬ ¤®© SKIP.
Љ®¬ ¤ USE ЎҐ§ Ї а ¬Ґва®ў § Єалў Ґв ЄвЁўго Ѓ„. Ља®¬Ґ в®Ј®,
§ Єалвм Ѓ„ ў¬Ґб⥠ᮠўбҐ¬Ё б®ЇгвбвўгойЁ¬Ё д ©« ¬Ё ¬®¦® Є®¬ ¤®©
CLOSE <€¬п Ѓ„>, Є®¬ ¤ CLOSE DATABASES § Єалў Ґв ўбҐ ®вЄалвлҐ Ѓ„.
‡ ¤ ЁҐ 2.3. ‚뢥¤ЁвҐ § ЇЁбЁ Ѓ„ Prima Ї®б«Ґ¤®ў ⥫м®, зЁ п
б Є®ж Ѓ„. “Їа ў«ҐЁҐ жЁЄ«®¬ ўлў®¤ ®бгйҐбвўЁвҐ б Ї®¬®ймо BOF().
2.4. €бЇ®«м§гҐ¬ ҐбЄ®«мЄ® Ў § ¤ ле. ”Ё«мвал
‚ ॠ«мле § ¤ з е, Є Є Їа ўЁ«®, ®ЇҐаЁагов б ҐбЄ®«мЄЁ¬Ё Ѓ„,
ЇаЁзҐ¬ ҐЄ®в®алҐ Ё§ Ёе ЁбЇ®«м§говбп ®¤®¬ Ё ⮬ ¦Ґ ®в१ЄҐ
ўаҐ¬ҐЁ, Ўг¤гзЁ ®вЄалвл¬Ё. Ћ¤ Є® «Ёим ®¤ Ё§ ®вЄалвле Ѓ„ ¬®¦Ґв
Ўлвм ЄвЁў®©, Ё¬Ґ® ў Ґ© ўлЇ®«повбп Є®¬ ¤л GO, LIST Ё в.¤.
ЂЄвЁўл¬Ё Ѓ„ ¬®Јгв бв ®ўЁвмбп в®«мЄ® Ї® ®зҐаҐ¤Ё. ‚ FOXPRO (ўҐабЁп
2.5 Ё ўлиҐ) ®¤®ўаҐ¬Ґ® ¬®Јгв Ўлвм ®вЄалвл¬Ё ¤® 225 Ѓ„, ў п§лЄҐ
CLIPPER 5.01 - ¤® 250 Ѓ„ Ї®«м§®ў ⥫п. ЋвЄалў Ґ¬ Є ¦¤го Ѓ„ Є®¬ ¤®© USE.
‘“Ѓ„ Ї®¤¤Ґа¦Ёў Ґв Ё««о§Ёо ҐЇ®б।б⢥®© а Ў®вл б® ўбҐ© Ѓ„.
Ќ б ¬®¬ ¤Ґ«Ґ, ¤«п ®Ўа Ў®вЄЁ § ЇЁбЁ Ѓ„ ўл§лў овбп ў а Ў®зго ®Ў« бвм
®ЇҐа вЁў®© Ї ¬пвЁ. Џ®н⮬г, Ґб«Ё Ѓ„ ®вЄалв ў ¤ўге Ё«Ё Ў®«ҐҐ
а Ў®зЁе ®Ў« бвпе (¤Ґ« вм нв® Ґ ४®¬Ґ¤гҐвбп), Ё§¬ҐҐЁп § ЇЁбҐ©,
Їа®Ё§ўҐ¤ҐлҐ ў ®¤®© ®Ў« бвЁ, ¬®Јгв Ґ Їа®пўЁвмбп ў ¤агЈ®©. Џа®бв®
з бвм Ё§¬ҐҐле § ЇЁбҐ© ҐйҐ Ґ ЇҐаҐи« Ё§ а Ў®зҐ© ®Ў« бвЁ ў д ©«
Ѓ„ Ё Ї®н⮬㠢 ¤агЈЁе ®Ў« бвпе ®Ё ®Є ¦гвбп ў Ёб室®¬ ўЁ¤Ґ. ЏаЁ
§ ЄалвЁЁ а Ў®зҐ© ®Ў« бвЁ (д ЄвЁзҐбЄЁ Є®¬ ¤л, гЄ § лҐ ў Є®жҐ
Ї. 2.3, ¤Ґ©бвўгов а Ў®зго ®Ў« бвм) ҐҐ ᮤҐа¦Ё¬®Ґ ЇҐаҐЇЁблў Ґвбп
ў д ©« Ѓ„, § пв п Ґо Ї ¬пвм ®бў®Ў®¦¤ Ґвбп.
Љ ¦¤ п ®вЄалв п Ѓ„ Ё¬ҐҐв бў®о а Ў®зго ®Ў« бвм. …б«Ё ¦Ґ ўл,
®вЄалў п ®зҐаҐ¤го Ѓ„, Ґ гЄ ¦ҐвҐ ®ўго ®Ў« бвм, ® ®вЄа®Ґвбп ў
⥪г饩 ®Ў« бвЁ, ўв®¬ вЁзҐбЄЁ § Єалў п ЄвЁўго Ѓ„.
ђ Ў®зЁҐ ®Ў« бвЁ ®Ў®§ з овбп ®¬Ґа®¬ Ё«Ё « вЁбЄ®© ЎгЄў®©,
зЁ п б ЎгЄўл A; ў FOXPRO 11-п - 25-п ®Ў« бвЁ ®Ў®§ з овбп Є Є
W11-W25. ђ Ў®зҐ© ®Ў« бвЁ ¬®¦® ЇаЁЇЁб вм Ё¬п - «Ё б ("ЇбҐў¤®Ё¬"),
Ґ б®ўЇ ¤ о饥 б ўлиҐгЄ § л¬Ё ®Ў®§ 票ﬨ ®Ў« б⥩, гЄ § ў ҐЈ®
ў Є®¬ ¤Ґ USE. ‚ ®вбгвбвўЁҐ ЇбҐў¤®Ё¬ ў Є зҐб⢥ «Ё б
ЁбЇ®«м§гов Ё¬п Ѓ„. Ќ ЇаЁ¬Ґа, ¤®Ў ў«пп ў Є®Ґж Є®¬ ¤л SKIP ваЁЎгв
ALIAS <ЏбҐў¤®Ё¬ Ё«Ё Ё¬п Ѓ„>, ¬®¦Ґ¬ ўлЇ®«пвм ЇҐаҐ¬ҐйҐЁп Ё Ґ ў
ЄвЁў®© а Ў®зҐ© ®Ў« бвЁ. „®ЇгбвЁ¬ в Є¦Ґ ваЁЎгв ALIAS <Ќ®¬Ґа
®Ў« бвЁ>, ЇаЁ¬Ґа, SKIP -1 ALIAS 1.
‡ ¤ ЁҐ Ё«Ё ЇҐаҐЄ«о票Ґ ®Ў« б⥩ ўлЇ®«пҐв Є®¬ ¤ SELECT <ЋЎ«>.
ЋЎ« бвм <ЋЎ«> бв ®ўЁвбп ⥪г饩. …б«Ё а ҐҐ ў Ґ© Ўл« ®вЄалв Ѓ„,
нв Ѓ„ бв ®ўЁвбп ЄвЁў®©. ЂаЈг¬Ґв <ЋЎ«> § ¤ ов Є Є ®¬Ґа (ў®§¬®¦®
зЁб«®ў®Ґ ўла ¦ҐЁҐ ў бЄ®ЎЄ е) Ё«Ё «Ё б. Љ®¬ ¤ SELECT 0 ¤Ґ« Ґв
⥪г饩 ЇҐаўго бў®Ў®¤го а Ў®зго ®Ў« бвм. Љ Є®Ґ-в® ўаҐ¬п ⥪гй п
®Ў« бвм ¬®¦Ґв Ґ Ўлвм ЇаЁб®Ґ¤ЁҐ®© Є Ѓ„.
ЏаЁ¬Ґа 2.2. ЋвЄа®Ґ¬ ваЁ Ѓ„ ў ®Ў« бвпе 1 - 3 ("A" - "C").
USE Kadr && Џ® 㬮«з Ёо 1-п Є®¬ ¤ USE ®вЄалў Ґв Ѓ„ ў ®Ў« бвЁ 1
SELECT 2 && ‚®§¬®¦ Є®¬ ¤ SELECT 0
USE Postavki && Ѓ„ Postavki ®вЄалў Ґвбп ў ®Ў« бвЁ 2
SELECT 3 && ‚®§¬®¦ Є®¬ ¤ SELECT 0
USE Finance ALIAS Ra && Ѓ„ Finance ®вЄалў Ґвбп ў ®Ў« бвЁ 3
SELECT 1 && ЏҐаҐЄ«о票Ґ а Ў®зго ®Ў« бвм Ѓ„ Kadr
* ЂЄвЁў Ѓ„ Kadr; Ѓ„ Postavki Ё Finance в Є¦Ґ ®вЄалвл, ® Ї ббЁўл
* ђ Ў®з п ®Ў« бвм 3 (®Ў« бвм C) ¬®¦Ґв ®Ў®§ з вмбп в Є¦Ґ «Ё ᮬ Ra
ЏҐаҐЄ«о票Ґ ®Ў« б⥩ Ґ ў«ЁпҐв Ї®«®¦ҐЁҐ гЄ § ⥫Ґ© ў Ѓ„.
„«п ®Ўа Ў®вЄЁ ¤®бвгЇл Ї®«п ⥪гйЁе § ЇЁбҐ© ®вЄалвле Ѓ„, ® Ґб«Ё
¤«п ¤®бвгЇ Є § ЇЁбЁ ЄвЁў®© Ѓ„ ¤®бв в®з® Ё¬ҐЁ Ї®«п, в® ЇаЁ
ЁбЇ®«м§®ў ЁЁ § ЇЁбҐ© Ї ббЁўле ®Ў« б⥩ Ё¬п Ї®«п ¤®«¦® гв®зпвмбп
Єў «ЁдЁЄ в®а®¬ - ЎгЄўҐл¬ ®Ў®§ 票Ґ¬ а Ў®зҐ© ®Ў« бвЁ Ё«Ё «Ё ᮬ.
Љў «ЁдЁЄ в®а § ЇЁблў ов б«Ґў ®в Ё¬ҐЁ Ї®«п, ®в¤Ґ«пп ҐЈ® § Є ¬Ё ->.
‚ FOXPRO а §¤Ґ«ЁвҐ«Ґ¬ ¬®¦Ґв Ўлвм в Є¦Ґ в®зЄ .
ЋЎа й пбм Є ЇаЁ¬Ґаг 2.2, § ЇЁиҐ¬ ®Ў®§ 票Ґ Ї®«п Data Ѓ„
Postavki Ё Ї®«п Credit Ѓ„ Finance: B->Data, C->Credit Ё«Ё
Ra->Credit. ‚ FOXPRO 㤮ЎҐҐ ®Ў®§ з вм в Є: B.Data, C.Credit Ё«Ё
Ra.Credit .
є ЌҐ § Ўлў ©вҐ гв®зпвм Єў «ЁдЁЄ в®а®¬ Ё¬Ґ Ї®«Ґ© Ѓ„, ў ⮬
єзЁб«Ґ ЄвЁў®© Ѓ„, бв®пйЁҐ б«Ґў ®в § Є ЇаЁбў Ёў Ёп, Ё зҐ ®Ё
єЎг¤гв ў®бЇаЁпвл Є Є ®Ў®§ 票Ґ ЇҐаҐ¬Ґле.
‚ CLIPPER Єў «ЁдЁЄ в®а в Є¦Ґ ЁбЇ®«м§гов ¤«п гв®зҐЁп ў§пвле ў
бЄ®ЎЄЁ ўла ¦ҐЁ© б Ё¬Ґ ¬Ё Ї®«Ґ© Ё«Ё дгЄжЁп¬Ё Ѓ„. Ќ ЇаЁ¬Ґа,
гв®зҐ®Ґ ўла ¦ҐЁҐ Ra->(Reccount()) ў®§ўа й Ґв зЁб«® § ЇЁбҐ© ў
Ї ббЁў®© (®вЄалв®©) Ѓ„ Finance. ‚ п§лЄҐ FOXPRO дгЄжЁЁ Ѓ„ ¬®Јгв
Ё¬Ґвм аЈг¬Ґв, гЄ §лў ойЁ© ®Ў« бвм, ЇаЁ¬Ґа: Reccount("Ra").
”Ё«мвал. …б«Ё ¤«п аҐиҐЁп § ¤ зЁ ў Ѓ„ вॡгҐвбп ўл¤Ґ«ҐЁҐ Ё
®Ўа Ў®вЄ Ї®¤¬®¦Ґбвў § ЇЁбҐ©, Їа®зЁҐ § ЇЁбЁ ¬®¦® ᤥ« вм
"ҐўЁ¤Ё¬л¬Ё", § зЁў дЁ«мва. ”Ё«мва § з Ґвбп, Є®Ј¤ Ѓ„ ЄвЁў ,
Ё ¤Ґ©бвўгҐв ¤® ҐҐ § ЄалвЁп Ё«Ё ¤® ўлЄ«о票п дЁ«мва . Љ®¬ ¤
SET FILTER TO <‚лаL> § ¤ Ґв гб«®ўЁҐ дЁ«мва жЁЁ <‚лаL>, Є®в®а®Ґ
¤®«¦® Ўлвм ЁбвЁ® «Ёим ¤«п § ЇЁбҐ© ®Ўа Ў влў Ґ¬®Ј® Ї®¤¬®¦Ґбвў .
ЏаЁ ЇҐаҐЄ«о票Ё а Ў®зЁе ®Ў« б⥩ дЁ«мва б®еа пҐвбп; ¤агЈго Ѓ„
ҐЈ® ¤Ґ©бвўЁҐ Ґ а бЇа®бва пҐвбп, ® Є ¦¤ п ®вЄалв п Ѓ„ ¬®¦Ґв Ё¬Ґвм
бў®© дЁ«мва. Љ®¬ ¤ SET FILTER TO (ЎҐ§ аЈг¬Ґв ) ЇаҐЄа й Ґв
¤Ґ©бвўЁҐ дЁ«мва ЄвЁў®© Ѓ„.
ЏаЁ¬Ґа 2.3.
‚뢥¤Ґ¬ бЇЁб®Є ¬г¦зЁ-б®ваг¤ЁЄ®ў, гЄ § ле ў Ѓ„ Kadr.
USE Kadr
SET FILTER TO Upper(Pol) =="Њ“†"
LIST Famil, Otdel && Љ®¬ ¤ LIST ®ЎҐбЇҐзЁў Ґв ¤ўЁ¦ҐЁҐ Ї® Ѓ„ Ё ўлў®¤
SET FILTER TO && ‚лЄ«о票Ґ дЁ«мва
”Ё«мва зЁ Ґв ¤Ґ©бвў®ў вм Ї ® б « Ґ «оЎ®Ј® ЇҐаҐ¬ҐйҐЁп
гЄ § вҐ«п ў Ѓ„. ЋЎлз® нв® ®бгйҐбвў«пов Є®¬ ¤®© GO TOP, Є®в®а п
бв ўЁв гЄ § вҐ«м ЇҐаўго § ЇЁбм, 㤮ў«Ґвў®апойго гб«®ўЁо
дЁ«мва жЁЁ (GO BOTTOM бв ўЁв ҐЈ® Ї®б«Ґ¤оо в Єго § ЇЁбм).
Љ®¬ ¤ LIST Ё ¤агЈЁҐ Є®¬ ¤л б Ґпўл¬ жЁЄ«®¬ ®Ўа Ў®вЄЁ § ЇЁбҐ©
б ¬Ё ўлЇ®«пов Ґ®Ўе®¤Ё¬®Ґ з «м®Ґ ЇҐаҐ¬ҐйҐЁҐ гЄ § вҐ«п § ЇЁбЁ.
„Ґ©бвўго饥 гб«®ўЁҐ дЁ«мва ¬®¦® § Ї®¬Ёвм, ЁбЇ®«м§гп дгЄжЁо
FOXPRO FILTER (<ЋЎ«>), Ј¤Ґ <ЋЎ«> - ®¬Ґа а Ў®зҐ© ®Ў« бвЁ Ё«Ё «Ё б,
Ё«Ё дгЄжЁо CLIPPER DBFilter(), гв®з塞го ЇаЁ Ґ®Ўе®¤Ё¬®бвЁ «Ё ᮬ
Ё«Ё ЎгЄўҐл¬ ®Ў®§ 票Ґ¬ а Ў®зҐ© ®Ў« бвЁ, ЇаЁ¬Ґа: B -> ( DBfilter()).
ЋЎҐ дгЄжЁЁ ў®§ўа й ов гб«®ўЁҐ дЁ«мва жЁЁ ў ўЁ¤Ґ бва®ЄЁ бЁ¬ў®«®ў.
ЏаЁ ®зҐаҐ¤®¬ § 票Ё нв®Ј® дЁ«мва ЁбЇ®«м§гҐвбп ¬ Єа®Ї®¤бв ®ўЄ .
‡ ¤ ЁҐ 2.4. ЋвЄа®©вҐ Ѓ„ Kadr, ᮧ¤ го ў ¬Ё ЇаЁ ўлЇ®«ҐЁЁ
§ ¤ Ёп 2.2, Ё Prima (ЇаЁ¬Ґа 2.1), ᤥ« ў ⥪гйЁ¬Ё Ї®б«Ґ¤ЁҐ § ЇЁбЁ
Ѓ„. ‚뢥¤ЁвҐ ®¤®© Є®¬ ¤®© ᮤҐа¦Ё¬®Ґ нвЁе § ЇЁбҐ©. “бв ®ўЁвҐ дЁ«мва
Ё ўлўҐ¤ЁвҐ ᮮ⢥вбвўго饥 Ї®¤¬®¦Ґбвў® § ЇЁбҐ© Ѓ„ Kadr.
2.5. €¤ҐЄбЁа㥬 Ў §л ¤ ле
ЋЎа вЁ¬бп Є ᮤҐа¦Ё¬®¬г Ѓ„ Kadr. „®ЇгбвЁ¬, д ¬Ё«ЁЁ б®ваг¤ЁЄ®ў
Ё¤гв Ґ Ї® «д ўЁвг: ЉгЇаЁп®ў, Ђ«Ё-Ѓ Ў ҐўЁз, ”Ё«Ё¬®Ё , €ў ®ў,
ЃҐ¤пЄ®ў , ЂЎ¤ге в Ў®ў . ЌҐ Ё§¬Ґпп Ѓ„ Kadr, ¬®¦Ґ¬ § ¤ вм г¦л©
Ї®а冷Є ¤®бвгЇ Є § ЇЁбп¬, Ї®бва®Ёў б«Ґ¤гойЁ© Ё¤ҐЄб ("®Ј« ў«ҐЁҐ"
Ѓ„):
ЂЎ¤ге в Ў®ў і 6 і
Ђ«Ё-Ѓ Ў ҐўЁз і 2 і
ЃҐ¤пЄ®ў і 5 і <-- ® ¬ Ґ а § Ї Ё б Ґ ©
€ў ®ў і 4 і (б б л « Є Ё)
ЉгЇаЁп®ў і 1 і
”Ё«Ё¬®Ё і 3 і
ЏаЁ ўЄ«о祮¬ Ё¤ҐЄбҐ Є®¬ ¤ SKIP ўл§лў Ґв ЇҐаҐе®¤ Є б«Ґ¤го饩
Ї® Ё¤ҐЄбг § ЇЁбЁ (б¬.ўлиҐ: ®в 6-© Є® 2-©, ®в 2-© Є 5-© Ё в.¤.)
Љ®¬ ¤ GO TOP ўл§лў Ґв ЇҐаҐе®¤ Є § ЇЁбЁ, гЄ § ®© ЇҐаў®© ў Ё¤ҐЄбҐ,
Є®¬ ¤ GO BOTTOM - Є § ЇЁбЁ, гЄ § ®© ў Ґ¬ Ї®б«Ґ¤Ґ©. Љ®¬ ¤
GO <Ќ®¬Ґа> а Ў®в Ґв Ї®ЇаҐ¦Ґ¬г. „«п ўлў®¤ § ЇЁбҐ© ў ®ў®¬ Ї®ап¤ЄҐ
¤®бв в®з® Ё¬Ґвм ў Ё¤ҐЄбҐ Ёе ®¬Ґа , ® ¤«п Ўлбва®Ј® Ї®ЁбЄ
Ї® д ¬Ё«ЁЁ ¤® еа Ёвм Ё б ¬Ё д ¬Ё«ЁЁ. Џ®«Ґ § ЇЁбҐ© Ё«Ё ўла ¦ҐЁҐ
б Ё¬Ґ ¬Ё Ї®«Ґ©, ®ЇаҐ¤Ґ«по饥 Ї®а冷Є ў Ё¤ҐЄбҐ, §лў ов Є«о箬
Ё¤ҐЄб , Ё¤ҐЄбл¬ ўла ¦ҐЁҐ¬. ‚ 襬 ЇаЁ¬ҐаҐ нв® Famil.
€¤ҐЄб § ЇЁблў Ґвбп ў ®в¤Ґ«м®¬ ®в Ѓ„ Ё¤ҐЄб-д ©«Ґ, Ё¬Ґо饬
а биЁаҐЁҐ .IDX Ё ¬®¦Ґв ЁбЇ®«м§®ў вмбп ¤«ЁвҐ«м®Ґ ўаҐ¬п ў а §«Ёзле
§ ¤ з е. Џ®бЄ®«мЄг ў а §ле б«гз пе ®Ўа Ў®вЄЁ Ѓ„ ®Є §лў Ґвбп
Ґ®Ўе®¤Ё¬®© ҐҐ гЇ®а冷祮бвм Ї® а §л¬ Є«оз ¬, ¬®¦Ґв Ўлвм ᮧ¤ ®
ҐбЄ®«мЄ® Ё¤ҐЄб®ў. ‘®§¤ ЁҐ Ё¤ҐЄб Їа®Ё§ў®¤Ёвбп, Є®Ј¤ Ѓ„ пў«пҐвбп
ЄвЁў®©, ҐЈ® ЁбЇ®«м§®ў ЁҐ - ЇаЁ «оЎ®¬ б®бв®пЁЁ ®вЄалв®© Ѓ„.
Ќ ЇаЁ¬Ґа, ¬®¦Ґв Ї® ¤®ЎЁвмбп гЇ®а冷祮бвм б®ваг¤ЁЄ®ў Ї®
ў®§а бвг. ’®Ј¤ ў Є зҐб⢥ Є«оз ў®§м¬Ґ¬ Ї®«Ґ Dtr, ЇаЁзҐ¬ "§ Є ¦Ґ¬"
гЎлў ойго Ї®б«Ґ¤®ў ⥫м®бвм ¤ в. ‚ Є зҐб⢥ Є«о祩 Ё¤ҐЄб
¤®ЇгбвЁ¬л Ї®«п (ўла ¦ҐЁп) а §ле вЁЇ®ў, Єа®¬Ґ «®ЈЁзҐбЄ®Ј®.
Џ®бва®Ёвм Ё¤ҐЄбл© д ©« ¬®¦® Є®¬ ¤®©
INDEX ON <Љ«оз> TO <€¬п Ё¤ҐЄб®Ј® д ©« > UNIQUE ;
ваЁЎгв UNIQUE Ґ ®Ўп§ ⥫Ґ. …Ј® ЁбЇ®«м§гов, Ґб«Ё Ё§ Є ¦¤®© ЈагЇЇл
§ ЇЁбҐ© б ®¤Ё Є®ўл¬ § 票Ґ¬ Є«оз «Ёим ®¤ , ЇҐаў п, ¤®«¦
ўЄ«оз вмбп ў Ё¤ҐЄб. „®бвгЇ Є Їа®зЁ¬ § ЇЁбп¬ в Є®© Ё¤ҐЄб Ґ
®ЎҐбЇҐзЁў Ґв. ЋЎп§ ⥫млҐ з бвЁ Є®¬ ¤ ¬л Ё ¤ «ҐҐ Ўг¤Ґ¬ ўл¤Ґ«пвм.
ЏаЁ¬Ґа 2.3. Џа®Ё¤ҐЄбЁа㥬 Ѓ„ Kadr Ї® Ї®«о Dtr (¤ в ஦¤ҐЁп):
INDEX ON Descend(Dtr) TO Birth (ў аЁ в ¤«п CLIPPER);
INDEX ON Dtr TO Birth DESCENDING (ў аЁ в ¤«п FOXPRO) .
”гЄжЁп Descend() Ё«Ё ваЁЎгв DESCENDING ®ЎҐбЇҐзЁў ов гЎлў ойго
Ї®б«Ґ¤®ў ⥫м®бвм § 票© Є«оз ў Ё¤ҐЄбҐ.
Џ®бЄ®«мЄг ў Ѓ„ ў®§¬®¦л Ё§¬ҐҐЁп Є«о祩 ( ЇаЁ¬Ґа, § ¬ҐпҐвбп
¤ҐўЁзмп д ¬Ё«Ёп) Ё ¤®Ў ў«ҐЁҐ § ЇЁбҐ©, вॡгҐвбп Є®а४вЁа®ўЄ
Ё¤ҐЄб (Ї®¤¤Ґа¦ ЁҐ гЇ®а冷祮бвЁ). ќв® ¤Ґ« Ґвбп ўв®¬ вЁзҐбЄЁ ¤«п
ўбҐе ®вЄалвле Ё¤ҐЄб®ў, в.Ґ. гЄ § ле ў ®¤®© Ё§ Є®¬ ¤
USE <€¬п Ѓ„> INDEX <‘ЇЁб®Є Ё¤ҐЄб®ў> ,
SET INDEX TO <‘ЇЁб®Є Ё¤ҐЄб®ў> .
Џ®б«Ґ¤пп Ё§ Ёе ®вЄалў Ґв Ё¤ҐЄбл 㦥 Ї®б«Ґ в®Ј®, Є Є ®вЄалв Ѓ„.
€¤ҐЄбл Ї®«гз ов ®¬Ґа б®Ј« б® Ї®«®¦ҐЁо ў бЇЁбЄҐ. ‹Ёим ®¤Ё
Ё§ ®вЄалвле Ё¤ҐЄб®ў ¬®¦Ґв Ўлвм ўҐ¤гйЁ¬, гЇа ў«пойЁ¬. ‚ з «Ґ нв®
ЇҐаўл© Ї® бЇЁбЄг Ё¤ҐЄб. €¬Ґ® ўҐ¤гйЁ© Ё¤ҐЄб ®ЇаҐ¤Ґ«пҐв Ї®а冷Є
¤®бвгЇ Є § ЇЁбп¬. Љ®¬ ¤ INDEX ON ¤Ґ« Ґв ўҐ¤гйЁ¬ (Ё а §г¬ҐҐвбп,
®вЄалвл¬) ᮧ¤ ў Ґ¬л© Ґо Ё¤ҐЄб, § Єалў п а ҐҐ ®вЄалвлҐ Ё¤ҐЄбл
(ў FOXPRO Ґбвм «мвҐа вЁў в Є®¬г аҐиҐЁо).
ЏаЁ § 票Ё ўҐ¤г饣® Ё¤ҐЄб ўлиҐгЄ § л¬Ё бЇ®б®Ў ¬Ё
⥪г饩 бв ®ўЁвбп § ЇЁбм, гЄ § п ЇҐаў®© ў ¤ ®¬ Ё¤ҐЄбҐ.
‚Ґ¤гйЁ© Ё¤ҐЄб § ¬ҐпҐвбп ¤агЈЁ¬ ®вЄалвл¬ Ё¤ҐЄб®¬ Ї® Є®¬ ¤Ґ
SET ORDER TO <‚лаN>, Ј¤Ґ <‚лаN> гЄ §лў Ґв ®¬Ґа ®ў®Ј® ўҐ¤г饣®
Ё¤ҐЄб . Љ®¬ ¤ SET ORDER TO ЎҐ§ аЈг¬Ґв®ў ў®®ЎйҐ ®в¬ҐпҐв ўҐ¤гйЁ©
Ё¤ҐЄб; а Ў®зҐ© Ї®б«Ґ¤®ў ⥫м®бвмо бв ®ўЁвбп Ї®б«Ґ¤®ў ⥫м®бвм
дЁ§ЁзҐбЄ®Ј® а §¬ҐйҐЁп § ЇЁбҐ© ў Ѓ„. ЏаЁ ЇҐаҐЄ«о票Ё Ё ®вЄ«о票Ё
ўҐ¤г饣® Ё¤ҐЄб гЄ § ⥫м ⥪г饩 § ЇЁбЁ б®еа пҐвбп.
“бв ®ўЄг ҐЈ® ®ўго з «мго § ЇЁбм ¤Ґ« ©вҐ Є®¬ ¤®© GO TOP.
ЏаЁ¬Ґа 2.4. ‚뢥¤Ґ¬ д ¬Ё«ЁЁ б®ваг¤ЁЄ®ў (б Ё¬ҐҐ¬, ¤ в®©
஦¤ҐЁп) ў Ї®б«Ґ¤®ў ⥫м®бвЁ гЎлў Ёп ў®§а бв б®ваг¤ЁЄ®ў:
USE Kadr && €¤ҐЄбЁа®ў вм ¬®¦® «Ёим ЄвЁўго Ѓ„
INDEX ON Dtr TO Birth
LIST Trim(Famil), Imya, Dtr && ”гЄжЁп Trim Ї®§ў®«пҐв гЎа вм
&& «ЁиЁҐ Їа®ЎҐ«л ¬Ґ¦¤г д ¬Ё«ЁҐ© Ё Ё¬ҐҐ¬
Џ®«гз Ґ¬ ¤ЁбЇ«ҐҐ бЇЁб®Є:
RECORD# TRIM(FAMIL) IMYA DTR
1 ЉгЇаЁп®ў ”Ё«Ё¬® 12/05/63
2 Ђ«Ё-Ѓ Ў ҐўЁз ‚ бЁ«Ё© 01/01/65
6 ЂЎ¤ге в Ў®ў ”Ґ¤®вмп 06/11/67
5 ЃҐ¤пЄ®ў Њ аЁ 05/10/69
4 €ў ®ў €ў 01/11/70
3 ”Ё«Ё¬®Ё Ђ 12/12/74
…б«Ё Ё§¬Ґпп (¤®Ї®«пп) Ѓ„, ўл § Ўл«Ё ®вЄалвм Ё¤ҐЄбл, Є®¬ ¤®©
REINDEX Ёе ¬®¦® ў®бᮧ¤ вм б гзҐв®¬ ᤥ« ле Ё§¬ҐҐЁ© ў Ѓ„. €®Ј¤
Ё¤ҐЄбл ®вЄ«оз ов ¬ҐаҐ®, бзЁв п Ў®«ҐҐ 楫Ґб®®Ўа §л¬ ЇаЁ¬ҐЁвм
REINDEX Ї®б«Ґ Ё§¬ҐҐЁп ЈагЇЇл § ЇЁбҐ©. ЏаЁ а Ў®вҐ б Ў®«миЁ¬Ё
Ѓ„ бв а овбп Ё§ЎҐЈ вм ЇаЁ¬ҐҐЁп Є®¬ ¤л REINDEX Ё§-§ ®йгвЁ¬ле
§ ва ⠢६ҐЁ ў®бᮧ¤ ЁҐ Ё¤ҐЄб®ў.
Љ®¬ ¤ REINDEX г¦ Ё Ї® в®© ЇаЁзЁҐ, зв® ЇаЁ бЎ®пе
®Ў®а㤮ў Ёп, ЇаЁ Ўа®бЄ е Їа殮Ёп ў бҐвЁ, б«гз ©®¬ ®вЄ«о票Ё ќ‚Њ
®Ўлз® бва ¤ ов Ё¤ҐЄбл. €е ЇаЁе®¤Ёвбп ў®ббв ў«Ёў вм.
‡ ¤ ЁҐ 2.5. ’аЁ¦¤л ўлўҐбвЁ бЇЁб®Є д ¬Ё«Ё© Ё§ Ѓ„ Kadr, ¤Ґ« п
Ї®®зҐаҐ¤® ўҐ¤гйЁ¬ Ё¤ҐЄб®¬ Ѓ„ Kadr Ё¤ҐЄб Fml (гЇ®а冷祮бвм Ї®
д ¬Ё«Ёп¬), Birth (гЇ®а冷祮бвм Ї® ¤ в ¬ ஦¤ҐЁп) Ё Okl
(гЇ®а冷祮бвм Ї® а §¬Ґаг § а Ў®в®© Ї« вл). ЏҐаҐ¤ Є ¦¤л¬ бЇЁбЄ®¬
ўлў®¤ЁвҐ Є«оз Ё¤ҐЄб .
2.6. Њ®¤ЁдЁжЁа㥬 бвагЄвгаг Ў §л ¤ ле.
‘ўп§Ё Ў § ¤ ле
‚ Їа®жҐбᥠнЄбЇ«г в жЁЁ Ѓ„ ЇаЁе®¤Ёвбп Ёе ¤®Ї®«пвм Ґ в®«мЄ®
®ўл¬Ё § ЇЁбп¬Ё, ® ҐаҐ¤Є® Ё ®ўл¬Ё Ї®«п¬Ё, Ё§¬Ґпп бвагЄвгаг Ѓ„.
€®Ј¤ 楫Ґб®®Ўа §® Ї®¬ҐбвЁвм ®ўлҐ ¤ лҐ ў ®в¤Ґ«мго Ѓ„. „®ЇгбвЁ¬,
Ґбвм Є ⥣®аЁп б®ваг¤ЁЄ®ў, 祩 ¤аҐб ¦Ґ« вҐ«м® Ё¬Ґвм ў Ѓ„ Kadr.
…б«Ё Ёе зЁб«® ҐўҐ«ЁЄ® ў ба ўҐЁЁ б зЁб«®¬ § ЇЁбҐ©, Ґа жЁ® «м®
¤®Ў ў«пвм Ї®«Ґ б ¤аҐб®¬; ®® з бв® Ўг¤Ґв Їгбв®ў вм. “¬ҐмиЁвм
а б室 Ї ¬пвЁ (Ё ўаҐ¬ҐЁ ®Ўа Ў®вЄг, Є®в®а®Ґ § ўЁбЁв ®в а §¬Ґа
§ ЇЁбЁ) ¬®¦®, Ї®¬ҐбвЁў ¤ лҐ ®Ў ¤аҐб е ў ®в¤Ґ«мго Ѓ„ Addr.
„«п ᮮ⢥вбвўЁп ¬Ґ¦¤г § ЇЁбп¬Ё Ѓ„ Kadr Ё § ЇЁбп¬Ё Ѓ„ Addr,
¤®Ў ўЁ¬ ў ⥠Ё ¤агЈЁҐ Ї®«Ґ TabNum ("в ЎҐ«мл© ®¬Ґа") б гЁЄ «мл¬
¤«п Є ¦¤®Ј® б®ваг¤ЁЄ § 票Ґ¬. €в Є, ¬л е®вЁ¬ Ё§¬ҐЁвм бвагЄвгаг
Ѓ„ Kadr. ђ бᬮваЁ¬, Є Є нв® ¤Ґ« Ґвбп гвЁ«Ёв®© DBU.EXE .
‡ ЇгбЄ Ґ¬ Їа®Ја ¬¬г DBU Ё ў Ї®пўЁўиҐ¬бп ¬Ґо ўлЎЁа Ґ¬ н«Ґ¬Ґв
"ЋвЄалвм/Ѓ §г", ў в Ў«ЁжҐ Ѓ„ ўлЎЁа Ґ¬ Ѓ„ Kadr, ¤ў ¦¤л ¦Ё¬ Ґ¬ Enter.
Ќ нЄа Ґ дЁЄбЁагҐвбп Ѓ„ Kadr. ’ҐЇҐам ўлЎЁа Ґ¬ ЇгЄв "‘®§¤ вм/‘вагЄвгаг",
Ё Ї®пў«пҐвбп ®Є® б ®ЇЁб ЁҐ¬ бвагЄвгал. „®Ў ў«пҐ¬ ®ЇЁб ЁҐ бЁ¬ў®«м®Ј®
Ї®«п TabNum Ё ўлЎЁа Ґ¬ н«Ґ¬Ґв "‘®еа Ёвм/‘вагЄвгаг". ЏаЁ Ї®«®¦ЁвҐ«м®¬
®вўҐвҐ ў®Їа®б "€§¬Ґпвм Ё¬Ґ Ї®«Ґ© Ѓ„?" Ѓ„ Kadr ў®бЇа®Ё§ў®¤Ёвбп б
®ў®© бвагЄвга®© § ЇЁбЁ. Ћбв «®бм § Ї®«Ёвм Ї®«Ґ TabNum ў ०Ё¬Ґ
Їа®б¬®ва Ѓ„. ‚лЎЁа Ґ¬ н«Ґ¬Ґв ¬Ґо "Џа®б¬®ва/Ѓ §л".
€§¬ҐҐЁҐ бвагЄвгал Ѓ„ ў FOXPRO. ‚ б।Ґ FOXPRO ўлЎЁа Ґ¬
н«Ґ¬Ґв ¬Ґо "Database/Setup", Ё FOXPRO ЇаҐ¤кпў«пҐв бЇЁб®Є Ѓ„ ¤«п
ўлЎ®а . ‚лЎЁа Ґ¬ Kadr.dbf Ё ¦Ё¬ Ґ¬ Enter, Ї®пў«пҐвбп 㦥 § Є®¬®Ґ
¬ ®Є® Structure. ЏҐаҐў®¤Ё¬ Єгаб®а ў ЇҐаўго Ґ§ Ї®«Ґго бва®зЄг
®ЇЁб Ёп Ї®«Ґ© Ё ўў®¤Ё¬ ў ҐҐ ®ЇЁб ЁҐ Ї®«п TabNum. Ќ ¦Ё¬ Ґ¬ CTRL+W,
нЄа Ґ ў®§ЁЄ Ґв ў®Їа®б "Make structure change permanent?"
ЋвўҐвЁ¬ "Yes", зв®Ўл § ЄаҐЇЁвм Ё§¬ҐҐЁҐ бвагЄвгал. Ѓ„
ў®бЇа®Ё§ў®¤Ёвбп б ®ў®© бвагЄвга®©. „«п § Ї®«ҐЁп Ѓ„ ¬®¦® ўлЎа вм
н«Ґ¬Ґв ¬Ґо "Database/Browse".
‘ўп§м "®¤ -Є-®¤®©" Ё«Ё "1:1". ‘®§¤ ¤Ё¬ бвагЄвгаг Ѓ„ Addr,
ўЄ«оз ойго Ї®«п TabNum Ё Address, Ї®«Ё¬ Ѓ„ Addr Ё ЇҐаҐ©¤Ґ¬ Є
гбв ®ў«ҐЁо бўп§Ґ© Ѓ„. Љ ¦¤®© § ЇЁбЁ Ѓ„ Kadr Ўг¤Ґв ᮮ⢥вбвў®ў вм
«Ёим ®¤ § ЇЁбм ў Ѓ„ Addr. ‘ўп§м "1:1" гбв ў«Ёў Ґвбп Є®¬ ¤®©
SET RELATION TO <‘ЇЁб®Є бўп§Ґ©> ADDITIVE,
ЇаЁзҐ¬ Ґ®Ўп§ ⥫мл© ваЁЎгв ADDITIVE ЇЁиҐвбп, Ґб«Ё гбв ў«Ёў Ґ¬лҐ
бўп§Ё ¤®Ї®«по⠯०Ё© ЇҐаҐзҐм бўп§Ґ©, Ё зҐ ЇаҐ¦ЁҐ бўп§Ё
г«Ёаговбп. ќ«Ґ¬Ґв бЇЁбЄ бўп§Ґ© Ё¬ҐҐв ўЁ¤
<Љ«о祢®Ґ ўла ¦ҐЁҐ> INTO <ЋЎ«> ,
<Љ«о祢®Ґ ўла ¦ҐЁҐ> - нв® ®Ўлз® Ї®«Ґ, ЁбЇ®«м§гҐ¬®Ґ ¤«п бўп§Ё (г
б - TabNum). <ЋЎ«> ®Ў®§ з Ґв а Ў®зго ®Ў« бвм Ї®¤зЁҐ®©,
"¤®зҐаҐ©" Ѓ„ Ї® ®в®иҐЁо Є ЄвЁў®© Ѓ„, §лў Ґ¬®© ў ¤ ®¬ б«гз Ґ
"¬ вҐаЁбЄ®©". “ б ¬ вҐаЁбЄ®© Ѓ„ пў«пҐвбп Ѓ„ Kadr, ¤®зҐаҐ© -
Ѓ„ Addr. „®зҐапп Ѓ„ ¤®«¦ Ўлвм ®вЄалв Ё ў ®Ўп§ ⥫쮬 Ї®ап¤ЄҐ
Їа®Ё¤ҐЄбЁа®ў Ї® Є«озг (ў 襬 б«гз Ґ - Ї® Ї®«о TabNum). ’ҐЇҐам
ЇаЁ Ё§¬ҐҐЁЁ гЄ § вҐ«п § ЇЁбЁ ў ¬ вҐаЁбЄ®© Ѓ„, гЄ § вҐ«м § ЇЁбЁ
ў ¤®зҐаҐ© Ѓ„ ўв®¬ вЁзҐбЄЁ ЇҐаҐ¬Ґй Ґвбп ᮮ⢥вбвўгойго § ЇЁбм,
Ґб«Ё ® Ґбвм Ё ©¤Ґ Ґпў® ўлЇ®«пҐ¬®© Є®¬ ¤®© Ї®ЁбЄ SEEK.
ЏаЁ н⮬ дгЄжЁп Found() Ї®«гз Ґв § 票Ґ .T., Ё зҐ - .F..
ЏаЁ¬Ґа 2.5. ‚뢥¤Ґ¬ д ¬Ё«ЁЁ б®ваг¤ЁЄ®ў Ё§ Ѓ„ Kadr б гЄ § ЁҐ¬
¤аҐб , Ґб«Ё ¤аҐб ¤ ®Ј® б®ваг¤ЁЄ еа Ёвбп ў Ѓ„ Addr.
* ‚ аЁ в ¤«п п§лЄ CLIPPER, ў FOXPRO Ї®б«Ґ¤пп Є®¬ ¤ ¤®«¦
* Ё¬Ґвм ўЁ¤ LIST Famil, Iif( Found("Addr"),Addr->Address, "")
USE Addr
INDEX ON TabNum TO Tbnm
SELECT 0 && …б«Ё ¬л Їа®ЇгбвЁ¬ SELECT, Ѓ„ Addr ®Є ¦Ґвбп § Єалв®©
USE Kadr
SET RELATION TO TabNum INTO Addr && €¬п Ѓ„ ЁбЇ®«м§гҐ¬ Є Є «Ё б
LIST Famil, Iif(Addr->(Found()), Addr->Address, "")
Љ®¬ ¤ LIST а Ў®в Ґв б ЄвЁў®© Ѓ„ Kadr, ®бгйҐбвў«пп ЇҐаҐ¬ҐйҐЁҐ
гЄ § вҐ«п § ЇЁбЁ. Ђўв®¬ вЁзҐбЄЁ ЇҐаҐ¬Ґй Ґвбп гЄ § вҐ«м Ё ў ¤®зҐаҐ©
Ѓ„. …б«Ё ў Ґ© ®Ў аг¦Ёў Ґвбп ¤аҐб б®ваг¤ЁЄ , в® дгЄжЁп Found()
¤«п ¤®зҐаҐ© ®Ў« бвЁ ЇаЁЁ¬ Ґв § 票Ґ .T., Є®Ј¤ ¦Ґ ҐҐ § 票Ґ
.F., ўлў®¤Ё¬ ў§ ¬Ґ ¤аҐб Їгбвго бва®Єг.
Љ®¬ ¤г LIST ¬®¦® § ЇЁб вм Їа®йҐ: LIST Famil, Addr->Address.
„Ґ«® ў ⮬, зв® ЇаЁ ®вбгвбвўЁЁ 㦮Ј® ¤аҐб ў ¤®зҐаҐ© ®Ў« бвЁ
гЄ § вҐ«м § ЇЁбЁ гбв ў«Ёў Ґвбп дЁЄвЁўго § ЇЁбм б ®¬Ґа®¬
(Reccount() + 1) - в Є а Ў®в Ґв Є®¬ ¤ SEEK ЇаЁ Ґгᯥ讬 Ї®ЁбЄҐ.
—Ёв вм нвг § ЇЁбм Ґ § ЇаҐй Ґвбп. ‚ᥠҐҐ Ї®«п - ЇгбвлҐ. ‚ н⮬
ў ਠ⥠Є®¬ ¤л LIST Ї®«Ґ Address ўлў®¤Ёвбп ўбҐЈ¤ (е®вп Ўл Ё
Їгб⮥ § 票Ґ).
‘ўп§м "®¤ -Є®-¬®ЈЁ¬" Ё«Ё "1:N". …б«Ё ў Ѓ„ Ґ®Ўе®¤Ё¬
Ёд®а¬ жЁп ® ¤Ґвпе б®ваг¤ЁЄ®ў, Ґбвм ўбҐ ®б®ў Ёп ўл¤Ґ«Ёвм ҐҐ ў®
ўбЇ®¬®Ј ⥫мго Ѓ„ Deti, ЁЎ® ® Ё¬ҐҐв ЇҐаҐ¬Ґл© ®ЎкҐ¬ (ў®§¬®¦®,
г«Ґў®©). ‚ Ѓ„ Deti § ЇЁбмо Ўг¤гв ᢥ¤ҐЁп ®Ў ®в¤Ґ«м®¬ "Ї®в®¬ЄҐ".
…б«Ё б®ваг¤ЁЄ Ё¬ҐҐв ҐбЄ®«мЄ® ¤ҐвҐ©, в® ҐбЄ®«мЄ® § ЇЁбҐ© Ѓ„ Deti
Ўг¤гв Ё¬Ґвм ®¤Ё Є®ўл© ®¬Ґа TabNum. ‚ Ѓ„, Їа®Ё¤ҐЄбЁа®ў ®© Ї®
Ї®«о TabNum, нвЁ § ЇЁбЁ Ё¤гв Ї®б«Ґ¤®ў ⥫м®. Џ®н⮬㠯Ґаўл¬ и Ј®¬
ЇаЁ гбв ®ў«ҐЁЁ бўп§Ё "1:N" пў«пҐвбп гбв ®ў«ҐЁҐ бўп§Ё "1:1".
ЏаЁ¬Ґа 2.6. ‘®§¤ ¤Ё¬ Ѓ„ Deti б Ї®«п¬Ё Famil, Imya, Pol, Dtr,
TabNum (¬®¦® бЄ®ЇЁа®ў вм бвагЄвгаг Ѓ„ Kadr Ё г¤ «Ёвм ®ЇЁб ЁҐ
Ї®«п Oklad) Ё ўҐбҐ¬ ў ҐҐ ҐЄ®в®алҐ ¤ лҐ ® ¤Ґвпе в Є, зв®Ўл Ґ
ўбҐ в ЎҐ«млҐ ®¬Ґа TabNum Ё§ Ѓ„ Kadr Ўл«Ё ЇаҐ¤бв ў«Ґл ў Ѓ„ Deti.
‚뢥¤Ґ¬ ўбҐ д ¬Ё«ЁЁ Ё§ Ѓ„ Kadr б гЄ § ЁҐ¬ Ё¬Ґ ¤ҐвҐ©
(ЁбЇ®«м§гҐ¬ Ѓ„ Deti) Ё«Ё б® б«®ў®¬ "ЎҐ§¤Ґвл©". ‚®бЇ®«м§гҐ¬бп
ЇаҐ¤гᬮв८© ў п§лЄҐ CLIPPER ў®§¬®¦®бвмо ЇаЁ¬Ґпвм Є®¬ ¤г
SKIP ў Ї ббЁў®© ®Ў« бвЁ, § ¤ ®© «Ё ᮬ. ЌЁ¦Ґ ¤ ў аЁ в ¤«п
п§лЄ CLIPPER.
USE Deti
INDEX ON TabNum TO Tb
SELECT 0
USE Kadr
SET RELATION TO TabNum INTO Deti
DO WHILE .NOT. EOF() && "„…‹Ђ‰ ЏЋЉЂ Ќ… § Є®зЁвбп д ©« Ѓ„"
? Famil, Iif(Deti->(Found()),"„ҐвЁ: ","ЃҐ§¤Ґвл©")
* ‘«Ґ¤гойЁ© жЁЄ« ॠ«Ё§гҐв бўп§м вЁЇ "®¤ -Є®-¬®ЈЁ¬"
DO WHILE TabNum = Deti->TabNum
?? Deti->Imya + " "
SKIP ALIAS Deti && ЏҐаҐе®¤ Є б«Ґ¤го饩 § ЇЁбЁ ў Ѓ„ Deti
ENDDO
SKIP && ЏҐаҐе®¤ Є б«Ґ¤го饩 § ЇЁбЁ ў Ѓ„ Kadr
ENDDO
‚® ўгв॥¬ WHILE-жЁЄ«Ґ ¬л Ґ Їа®ўҐа塞 ўл室 § Ја Ёжг
д ©« Deti, ЁЎ® § Ґ¬, зв® ЇаЁ ўл室Ґ Ё§ д ©« зЁв Ґвбп дЁЄвЁў п
§ ЇЁбм б Їгбвл¬ § 票Ґ¬ TabNum.
‚ п§лЄҐ FOXPRO бўп§м "1:N" в Є¦Ґ вॡгҐв ЇаҐ¤ў аЁвҐ«м®Ј®
гбв ®ў«ҐЁп бўп§Ё "1:1", ® ॠ«Ё§гҐвбп бЇҐжЁ «м®© Є®¬ ¤®©
SET SKIP TO <‘ЇЁб®Є ¤®зҐаЁе ®Ў« б⥩> .
ќ«Ґ¬Ґв®¬ бЇЁбЄ ¤®зҐаЁе ®Ў« б⥩ ¬®¦Ґв Ўлвм «оЎ®Ґ ®Ў®§ 票Ґ
®Ў« бвЁ. ђ бᬮваЁ¬ ў аЁ в Їа®Ја ¬¬л ЇаЁ¬Ґа 2.6 ¤«п FOXPRO:
USE Deti
INDEX ON TabNum TO Tb
SELECT 0
USE Kadr
SET RELATION TO TabNum INTO Deti
SET SKIP TO Deti
LIST Famil, Iif(Found("Deti"),"„ҐвЁ: ", "ЃҐ§¤Ґвл©"), Deti->Imya
Џа®Ја ¬¬ бв « Є®а®зҐ, ® ЇаЁ ўлў®¤Ґ ®¬Ґа § ЇЁбЁ, д ¬Ё«Ёп Ё
бва®Є "„ҐвЁ: " Ї®ўв®аповбп ¤«п Є ¦¤®Ј® ॡҐЄ , зв® Ґг¤®Ў®. ќвЁ
Ї®ўв®ал ¬®¦® ЁбЄ«озЁвм, ЁбЇ®«м§гп Є®¬ ¤г BROWSE ў¬Ґбв® LIST.
ЏаЁ ўЄ«о祮© бўп§Ё Ѓ„ ⥬Ї Їа®е®¦¤ҐЁп ¬ вҐаЁбЄ®© Ѓ„
㬥ми Ґвбп, Ї®н⮬г бўп§Ё ¤® ®вЄ«оз вм, Є®Ј¤ Ёе ¤®Ў®бвм
Ёб祧 Ґв.Љ®¬ ¤ SET RELATION TO ЎҐ§ Ї а ¬Ґва®ў а §алў Ґв ўбҐ бўп§Ё
Ѓ„. ‚ FOXPRO Ё¬ҐҐвбп ў®§¬®¦®бвм гбва ҐЁп ®в¤Ґ«мле бўп§Ґ© Є®¬ ¤®©
SET RELATION OFF INTO <„®зҐапп ®Ў« бвм> ,
<„®зҐапп ®Ў« бвм> ¬®¦Ґв Ўлвм «оЎл¬ ¤®ЇгбвЁ¬л¬ ®Ў®§ 票Ґ¬ ®Ў« бвЁ.
‘ўп§м Ї® ®¬Ґаг § ЇЁбЁ. „®зҐапп ®Ў« бвм ¬®¦Ґв Ґ Ўлвм
Їа®Ё¤ҐЄбЁа®ў ®© ў ®¤®¬ «Ёим б«гз Ґ: Є®Ј¤ Є«о祢®Ґ ўла ¦ҐЁҐ -
зЁб«®ў®Ґ. ќв® ®§ з Ґв, зв® Ї® ᮤҐа¦Ё¬®¬г "¬ вҐаЁбЄ®©" § ЇЁбЁ
ўлзЁб«пҐвбп ®¬Ґа § ЇЁбЁ ў ¤®зҐаҐ© Ѓ„ ¤«п ЁбЇ®«м§®ў Ёп ў Ґпў®©
Є®¬ ¤Ґ GO <Ќ®¬Ґа>. ”гЄжЁп Found() ЇаЁ н⮬ Ґ а Ў®в Ґв,
Їа®Ја ¬¬Ёбв б ¬ ¤®«¦Ґ Є®ва®«Ёа®ў вм ў®§¬®¦®бвм ўл室 § ЇаҐ¤Ґ«л
¤®зҐаҐ© Ѓ„.
Ќ ЇаЁ¬Ґа, ў¬Ґбв® Ѓ„ б § ЇЁбп¬Ё Ў®«ми®Ј® а §¬Ґа ᤥ« л ¤ўҐ
Ё«Ё ҐбЄ®«мЄ® Ѓ„ ¬Ґм襣® ®ЎкҐ¬ в Є, зв® ў б®ў®ЄгЇ®бвЁ ¤ лҐ Ёе
§ ЇЁбҐ©, Ё¬ҐойЁе ®¤Ё ®¬Ґа, ᮮ⢥вбвўгов ¤ л¬ ®¤®© § ЇЁбЁ
Ёб室®© Ѓ„. ’ Є®© "ўҐавЁЄ «мл©" а §аҐ§ в Ў«Ёжл ¤ ле ¬®¦Ґв Ўлвм
ᤥ« Ї®¤ § ¤ зЁ, ЁбЇ®«м§гойЁҐ ¤ лҐ «Ёим ®¤®© Ё§ Ї®«гзҐле Ѓ„,
б 楫мо гбЄ®аҐЁп ®Ўа Ў®вЄЁ ¤ ле. …б«Ё ¦Ґ ў®§ЁЄ ов § ¤ зЁ,
ЁбЇ®«м§гойЁҐ ¤ лҐ ¤ўге Ё«Ё ҐбЄ®«мЄЁе Ё§ нвЁе Ѓ„, ¬л гбв ў«Ёў Ґ¬
бўп§м нвЁе Ѓ„ Ї® ®¬Ґаг ⥪г饩 § ЇЁбЁ, ЁбЇ®«м§гп ўла ¦ҐЁҐ Recno().
‡ ¤ ЁҐ 2.6. 1. “бв ®ўЁвҐ бўп§м ¬ вҐаЁбЄ®© Ѓ„ Kadr ба §г б
¤ўг¬п Ѓ„: Addr Ё Deti. ЋбгйҐб⢨⥠ўлў®¤ ¤ ле ® д ¬Ё«ЁЁ, ¤аҐбҐ
Ё ¤Ґвпе б®ваг¤ЁЄ (Ёе Ё¬Ґ ) в Є, зв®Ўл Ї®¤ ¤аҐб ¬Ё ў ¤агЈЁе
бва®Є е, Ј¤Ґ ¤аҐб Ґв, Ґ ®Є §лў «Ёбм Ё¬Ґ ¤ҐвҐ©.
2. ‘®§¤ ©вҐ ®ўго Ѓ„ Gabarit, ᮤҐа¦ йго ¤ лҐ ® ўҐбҐ (Ї®«Ґ Ves)
Ё а®б⥠(Ї®«Ґ Rost) Є ¦¤®Ј® б®ваг¤ЁЄ , гз⥮Ј® ў Ѓ„ Kadr, б
楫мо ®Їа®Ў®ў Ёп бўп§Ё ¤ўге Ѓ„ Ї® ®¬Ґаг. ‚лў®¤ЁвҐ ®¤®© бва®Є®©
¤ лҐ ® б®ваг¤ЁЄҐ Ё§ нвЁе ¤ўге Ѓ„.
2.7. “¤ «пҐ¬ Ґг¦лҐ § ЇЁбЁ
Ќ бЄ®«мЄ® з бв® ЇаЁе®¤Ёвбп ¤®Ў ў«пвм ў Ѓ„ ®ўлҐ § ЇЁбЁ, бв®«мЄ®
з бв® ЇаЁе®¤Ёвбп ®Ўлз® Ёе Ё г¤ «пвм. …б«Ё ¤®Ў ў«ҐЁҐ § ЇЁбЁ Ґ в Є®©
г¦ б«®¦л© Ё ¤«ЁвҐ«мл© Їа®жҐбб, в® нв®Ј® Ґ бЄ ¦Ґим ®Ў г¤ «ҐЁЁ.
„Ґ«® ў ⮬, зв® ¤«п дЁ§ЁзҐбЄ®Ј® Ё§кпвЁп § ЇЁбЁ Ё§ Ѓ„ ЇаЁе®¤Ёвбп
ЇҐаҐЇЁблў вм ®ўлҐ ¬Ґбв б«Ґ¤гойЁҐ § Ґ© § ЇЁбЁ (гЇ«®впвм Ё«Ё
"гЇ Є®ўлў вм" Ѓ„). ќв® вॡгҐв ®йгвЁ¬ле § ва ⠢६ҐЁ. “Ї«®вҐЁҐ
Ѓ„ Ї®н⮬㠯ந§ў®¤пв, Є®Ј¤ ЎҐаҐвбп ¤®бв в®з®Ґ зЁб«® г¤ «пҐ¬ле
§ ЇЁбҐ©, ЇаЁ¬Ґа, ў Є®жҐ ᥠб а Ў®вл б Ѓ„. ЏаҐ¤ў аЁвҐ«м® нвЁ
§ ЇЁбЁ Ї®¬Ґз овбп, зв®Ўл ¬®¦® Ўл«® ЇаЁ ®Ўа Ў®вЄҐ Ѓ„ ЁбЄ«оз вм Ёе
Ё§ а бᬮв२п. €в Є, г¤ «ҐЁҐ § ЇЁбҐ© ॠ«Ё§гҐвбп ў ¤ў нв Ї .
ќв Ї 1. ‘ Ў¦ Ґ¬ § ЇЁбЁ Ї®¬ҐвЄ ¬Ё г¤ «ҐЁҐ. ЏаЁ Їа®б¬®ваҐ
Ѓ„ ў б।Ґ DBU ¦Ё¬ Ґ¬ Є« ўЁиг Del, Є®Ј¤ Єгаб®а 室Ёвбп ў бва®ЄҐ
г¤ «пҐ¬®© § ЇЁбЁ. Џ®ўв®а®Ґ ¦ вЁҐ Del бЁ¬ Ґв Ї®¬ҐвЄг.
‚ FOXPRO ў ®Є е । ЄвЁа®ў Ёп Ѓ„ ў®¤Ё¬ Єгаб®а вॡ㥬го
бва®Єг Ё ¦Ё¬ Ґ¬ Є« ўЁиЁ CTRL + T. Ђ«мвҐа вЁў : ў Є®¬ ¤®¬ ®ЄҐ
FOXPRO Ё«Ё ў Їа®Ја ¬¬Ґ (FOXPRO Ё CLIPPER) ЁбЇ®«м§гов Є®¬ ¤г DELETE,
зв®Ўл Ї®¬ҐвЁвм ⥪гйго § ЇЁбм г¤ «ҐЁҐ. ‘Ё¬ ов Ї®¬ҐвЄг ⥪г饩
§ ЇЁбЁ Є®¬ ¤®© RECALL (ЇаҐ¤бв ўмвҐ, зв® аҐзм Ё¤Ґв ® Ѓ„ Kadr;
гў®«Ґл© б®ваг¤ЁЄ ў®ббв ®ў«Ґ а Ў®вҐ зҐаҐ§ бг¤).
—в®Ўл Їа®Ја ¬¬л¬ Їг⥬ Ї®¬ҐвЁвм ¬®¦Ґбвў® § ЇЁбҐ© (бпвм б
Ёе Ї®¬ҐвЄЁ), § ЇЁблў Ґ¬ ў Є®¬ ¤Ґ DELETE (Є®¬ ¤Ґ RECALL) ®Ў« бвм
ҐҐ ¤Ґ©бвўЁп Ё«Ё гб«®ўЁҐ, Є®в®а®¬г ¤®«¦л 㤮ў«Ґвў®апвм ЁбЄ«оз Ґ¬лҐ
§ ЇЁбЁ (Ё«Ё в® Ё ¤агЈ®Ґ). ”®а¬г в Є®© § ЇЁбЁ Є®¬ ¤л ўл г§ ҐвҐ
ЇаЁ а бᬮв२Ё бвагЄвгал Є®¬ ¤ ў Ї. 3.3.
ќв Ї 2. ”Ё§ЁзҐбЄ®Ґ г¤ «ҐЁҐ Ї®¬ҐзҐле § ЇЁбҐ©. ‚ б।Ґ DBU
ўлЎЁа Ґ¬ ў ¬Ґо н«Ґ¬Ґв "‘ҐаўЁб/‘¦ вм" Ё ¦Ё¬ Ґ¬ Enter. ‚ б।Ґ
FOXPRO ўлЎЁа Ґ¬ ў ¬Ґо н«Ґ¬Ґв "Database/Pack" Ё ¦Ё¬ Ґ¬ Enter. ‚
«оЎ®¬ б«гз Ґ ЇаҐ¤ў аЁвҐ«м® 㦮 ®вЄалвм Ѓ„.
„«п гЇ«®вҐЁп Ѓ„ Їа®Ја ¬¬л¬ Їг⥬ ЇаҐ¤ § зҐ Є®¬ ¤ Pack.
‚ п§лЄҐ CLIPPER ® гЇ«®впҐв «Ёим .DBF-д ©«л, ў FOXPRO - Ё .DBF-
Ё Memo-д ©«л. Ћ ўЇ®«Ґ Ј®¤Ёвбп ¤«п "Ґ®вўҐвб⢥ле" ЇаЁ¬ҐҐЁ©,
ЇаЁ¬Ґа, ў г祡®¬ Їа®жҐббҐ. ‚ Ї.3.8 ў ¬ Ўг¤Ґв ४®¬Ґ¤®ў ® Ё®Ґ
б।бвў®.
Џа®ўҐаЁвм ў Їа®Ја ¬¬Ґ, Ї®¬ҐзҐ «Ё г¤ «ҐЁҐ ⥪гй п § ЇЁбм,
¬®¦® дгЄжЁҐ© Deleted(), ў®§ўа й о饩 § 票Ґ .T. ¤«п г¤ «Ґле
§ ЇЁбҐ©. ‘¤Ґ« вм ўаҐ¬Ґ® "ҐўЁ¤Ё¬л¬Ё" Ї®¬ҐзҐлҐ г¤ «ҐЁҐ § ЇЁбЁ
¬®¦®, ўлЇ®«Ёў Є®¬ ¤г SET DELETED ON. ЋЎа ⮥ ¤Ґ©бвўЁҐ Ё¬ҐҐв
Є®¬ ¤ SET DELETED OFF. €бЄ«о票Ґ¬ Ё§ Їа ўЁ« пў«пҐвбп ЇаאַҐ
гЄ § ЁҐ ў ҐЄ®в®а®© Є®¬ ¤Ґ ®¬Ґа § ЇЁбЁ: § ЇЁбм ®Є ¦Ґвбп ¤®бвгЇ ,
¤ ¦Ґ Ґб«Ё Ї®¬ҐзҐ г¤ «ҐЁҐ. ЏаЁ¬Ґал: GO 5, DISPLAY RECORD 7.
Љ®¬ ¤ ZAP дЁ§ЁзҐбЄЁ г¤ «пҐв ўбҐ § ЇЁбЁ ЄвЁў®© Ѓ„, Ґ г¤ «пп
б ¬г Ѓ„. Ќ ЇаЁ¬Ґа, ҐҐ ўлЇ®«пов ЇҐаҐ¤ ⥬, Є Є Ї®«Ёвм Ѓ„
®ўл¬Ё ¤ л¬Ё Ё§ ҐЄ®в®а®Ј® Ёбв®зЁЄ , ЁбЇ®«м§гп Є®¬ ¤г APPEND
FROM (б¬. Ї.3.8). ’ Є®Ґ а ¤ЁЄ «м®Ґ ®Ў®ў«ҐЁҐ "Є ¤а®ў®©" Ѓ„ ¬®¦Ґв
ᮮ⢥вбвў®ў вм Ї®«®© § ¬ҐҐ ЇҐаб® « бв жЁЁ, ў ев®ў®© ЎаЁЈ ¤л,
ў®ЁбЄ®Ј® Є®вЁЈҐв Ё в.Ї.
‡ ¤ ЁҐ 2.7. ЋвЄа®©вҐ Ѓ„ Kadr, ¤®Ў ўм⥠ў ҐҐ ®ўлҐ § ЇЁбЁ
(¬®¦® б® б«гз ©л¬Ё § 票ﬨ Ї®«Ґ©), § ⥬ г¤ «ЁвҐ Ёе.
€бЇлв ©вҐ а §лҐ ў аЁ вл а Ў®вл: зҐаҐ§ ¬Ґо, зҐаҐ§ Є®¬ ¤л.
‡ЂЉ‹ћ—…Ќ€… ЉЋ 2-‰ ѓ‹Ђ‚…
…б«Ё ўл гзЁ«Ёбм ᮧ¤ ў вм Ѓ„, Ё§¬Ґпвм Ёе бвагЄвгаг,
§ ¤ ў вм гЇ®а冷祮бвм Ё бўп§Ё Ѓ„, Ї®«гзҐ ®б®ў ¤«п ўлЇ®«ҐЁп
ў ¬Ё г祡ле § ¤ з б ЁбЇ®«м§®ў ЁҐ¬ Ѓ„. ‘®еа п©вҐҐ ᮧ¤ лҐ Ѓ„,
®Ё ¬®Јгв Ї®вॡ®ў вмбп ЇаЁ ўлЇ®«ҐЁЁ § ¤ Ё©, гЇа ¦ҐЁпе б
ЇаЁ¬Ґа ¬Ё Ё§ б«Ґ¤гойЁе Ј« ў. ‚ Їа®Ја ¬¬ е ЁЄ®Ј¤ Ґ ЇаЁ¬Ґп©вҐ
Є®¬ ¤г USE б Ё¬ҐҐ¬ ®вЄалв®© а ҐҐ Ѓ„, Ї®«м§г©вҐбм ЇҐаҐЄ«о票Ґ¬
®Ў« б⥩ (Є®¬ ¤ SELECT), зв®Ўл ᤥ« вм Ѓ„ ў®ўм ЄвЁў®©.
Соседние файлы в папке материалы по FoxPro