GL23

.PAS

Скачиваний:

Добавлен:

28.06.2014

Размер:

25.83 Кб

Скачать

☆

ѓ‹Ђ‚Ђ 23

ђЂЃЋ’Ђ…Њ ‚ ‹ЋЉЂ‹њЌЋ‰ ‘…’€

Љ § «®бм Ўл, б®ў¬Ґбв®Ґ ЁбЇ®«м§®ў ЁҐ Ў § ¤ ле Ё
ЇҐаЁдҐаЁЁ - Ґб«®¦ п ўҐйм. Ћ¤ Є®, Є®Ј¤ Ї®«м§®ў вҐ«Ё
ЁбЇ®«м§гов ®ЎйЁҐ аҐбгабл, Є®«ЁзҐбвў® ЇҐаҐе®¤Ёв ў Є зҐбвў®, ®Ўлз®
- ег¤иҐҐ. Ќ® ЁвҐЈа жЁп ¤ ле Ё бҐвЁ - Ґг¬®«Ё¬®Ґ ваҐЎ®ў ЁҐ ўаҐ¬ҐЁ.
„ ¦Ґ ¤ўҐ Їа®Ја ¬¬л, Є®ааҐЄвлҐ ЇаЁ Ґ¤Ё®«Ёз®¬ ў« ¤ҐЁЁ аҐбгаб ¬Ё,
ЇаЁ ўлЇ®«ҐЁЁ ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп аҐбгаб®ў ¬®Јгв б®§¤ вм Їа®Ў«Ґ¬л.
‚ ¤ ®© Ј« ўҐ а бб¬ ваЁў Ґвбп бгйҐбвў® нвЁе Їа®Ў«Ґ¬ Ё п§лЄ®ў®Ґ
®ЎҐбЇҐзҐЁҐ а Ў®вл ў бҐвЁ. ђ бб¬ ваЁў Ґвбп Їа®бв п бҐвм Џќ‚Њ.

23.1. ‡ Є®¬Ё¬бп б «®Є «м®© бҐвмо Џќ‚Њ Ё вҐа¬Ё ¬Ё

‹®Є «м п бҐвм Ї®§ў®«пҐв ¤ўг¬ Ё«Ё Ў®«миҐ¬г зЁб«г Ї®«м§®ў вҐ«Ґ©
б®ў¬Ґбв® ЁбЇ®«м§®ў вм ¤ лҐ, ¤ЁбЄЁ Ё ЁлҐ ЇҐаЁдҐаЁ©лҐ гбва®©бвў .
‘®Ґ¤ЁҐЁҐ Џќ‚Њ ў бҐвм ваҐЎгҐв гбв ®ўЄЁ бҐвҐў®Ј® Їа®Ја ¬¬®Ј®
®ЎҐбЇҐзҐЁп Ё ®Ў®аг¤®ў Ёп: ®¤ Ї« в ў Є ¦¤®© Џќ‚Њ Ё б®Ґ¤ЁЁвҐ«мл©
Є ЎҐ«м. „«п ЁбЇ®«м§®ў Ёп FOXPRO ў бҐвЁ ваҐЎгҐвбп бҐвҐў п ўҐабЁп
FOXPRO - FOXPRO/LAN.
‚ Їа®бв®© бҐвЁ ®¤Ё Ј« ўл© Є®¬ЇмовҐа (‘ҐаўҐа «ЁЎ® ” ©«-бҐаўҐа)
б®¤Ґа¦Ёв ўЁзҐбвҐаҐ бҐвҐў®Ґ Їа®Ја ¬¬®Ґ ®ЎҐбЇҐзҐЁҐ Ё д ©«л,
ЁбЇ®«м§гҐ¬лҐ ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп ("а §¤Ґ«пҐ¬лҐ"): ў Їа®бв®© бҐвЁ
¤ўг¬ Ё Ў®«ҐҐ Ї®«м§®ў вҐ«п¬ а §аҐиҐ® ®вЄалў вм ®¤Ё Ё в®в ¦Ґ д ©«
‘ҐаўҐаҐ (” ©«-бҐаўҐаҐ) ¤«п а Ў®вл б ¤агЈЁе Џќ‚Њ бҐвЁ, §лў Ґ¬ле
а Ў®зЁ¬Ё бв жЁп¬Ё. Ћ¤ Є®, а §¤Ґ«ҐЁҐ д ©«®ў Ґ ўбҐЈ¤ ЇаЁҐ¬«Ґ¬®, Ё
Ї®нв®¬г ЇаҐ¤гб¬®ваҐ в Є¦Ґ ¬®®Ї®«мл© аҐ¦Ё¬ ЁбЇ®«м§®ў Ёп д ©« .
ЏаҐ¤бв ўмвҐ Ї®ЇҐаҐ¬Ґ®Ґ ЁбЇ®«м§®ў ЁҐ § ЇЁбҐ© а §¤Ґ«пҐ¬®© Ѓ„ Student,
ў Є®в®але гЄ § Єгаб ®ЎгзҐЁп, Їа®Ја ¬¬®©, ўла Ў влў ойҐ© ¤«п Є ¦¤®Ј®
Єгаб ®в¤Ґ«млҐ аҐ§г«мв вл, Ё Їа®Ја ¬¬®©, Ё§¬ҐпойҐ© § зҐЁп Ї®«п
"Љгаб" ў бўп§Ё б ЇҐаҐў®¤®¬ бвг¤Ґв®ў ®ўл© Єгаб. ЌҐ«ҐЇ®бвм в Є®Ј®
"а §¤Ґ«ҐЁп Ѓ„" ®зҐўЁ¤ . „ «ҐҐ аҐзм Ё¤Ґв ® а §¤Ґ«пҐ¬ле Ѓ„.
Ѓ„ ¬®¦® ®вЄалвм ў ¬®®Ї®«м®¬ аҐ¦Ё¬Ґ, Ґб«Ё ® Ґ ®вЄалв Ё
®¤®© ¤агЈ®© а Ў®зҐ© бв жЁЁ. •®вп Є®ЄгаЁагов Ё ўаҐ¬Ґ ¬Ё Є®д«ЁЄвгов
Ґ б ¬Ё Ї®«м§®ў вҐ«Ё, ЁбЇ®«м§гойЁҐ а §¤Ґ«пҐ¬л© д ©« Їа®жҐббл,
Ї®а®¦¤ Ґ¬лҐ Ї®«м§®ў вҐ«мбЄЁ¬Ё Їа®Ја ¬¬ ¬Ё, Ё§«®¦ҐЁҐ гЇа®й Ґвбп, Ґб«Ё
гЇ®¬Ё овбп Ї®«м§®ў вҐ«Ё. Џ®«м§®ў вҐ«м,Є®в®ал© ®вЄал« Ѓ„ ў ¬®®Ї®«м®¬
аҐ¦Ё¬Ґ, Ґ¤Ё®«Ёз® ў« ¤ҐҐв Ґо, Ё Ї®Є ® Ґ § Єа®Ґв Ѓ„, ЁЄв® ¤агЈ®©
¤®бвгЇ Є Ґ© Ґ Ї®«гзЁв. ќв®в б ¬л© "нЈ®ЁбвЁзл©" ў аЁ в ®Ја ЁзҐЁп
¤®бвгЇ §лў ов Ї®«л¬ Ў«®ЄЁа®ў ЁҐ¬. …б«Ё д ©« ®вЄалв ў аҐ¦Ё¬Ґ
а §¤Ґ«ҐЁп, ЁЄв® Ґ ¬®¦Ґв гбв ®ўЁвм ¬®®Ї®«мл© аҐ¦Ё¬, ® ®¤Ё Ё§
Ї®«м§®ў вҐ«Ґ© д ©« ¬®¦Ґв ҐЈ® § еў вЁвм (Ў«®ЄЁа®ў вм), Ї®б«Ґ зҐЈ® ¤агЈЁ¬
Ї®«м§®ў вҐ«п¬ ҐЈ® § ЇЁбЁ бв ®ўпвбп ¤®бвгЇл «Ёим ў аҐ¦Ё¬Ґ звҐЁп.
ђ §«Ёз ©вҐ Ў«®ЄЁа®ў ЁҐ Ё Ї®«®Ґ Ў«®ЄЁа®ў ЁҐ.
Ѓ«®ЄЁа®ў вм ¬®¦® Ё ўҐбм д ©«, Ё ®в¤Ґ«млҐ § ЇЁбЁ; б¤Ґ« вм нв®
¬®Јгв ҐбЄ®«мЄ® Ї®«м§®ў вҐ«Ґ© (Є ¦¤л© § еў влў Ґв бў®о "¤®«о").
Џ®«м§®ў вҐ«м, ўлЇ®«ЁўиЁ© Ў«®ЄЁа®ў ЁҐ, §лў Ґвбп ў« ¤Ґ«мжҐ¬ Ў«®ЄЁа®ў Ёп.
ђ §Ў«®ЄЁа®ў ЁҐ - нв® ®в¬Ґ Ў«®ЄЁа®ў Ёп. ‡ ЇЁбм ЇҐаҐ¤ ҐҐ Ё§¬ҐҐЁҐ¬
Ў«®ЄЁагов, ЁЎ® Ґв Ў®«ҐҐ бва и®© Є авЁл, зҐ¬ ®¤®ўаҐ¬Ґ®Ґ Ё§¬ҐҐЁҐ
§ ЇЁбЁ ҐбЄ®«мЄЁ¬Ё Ї®«м§®ў вҐ«п¬Ё. Џ®б«Ґ Ё§¬ҐҐЁп § ЇЁбм г¦® а §Ў«®ЄЁа®ў вм.
Џ®«м§®ў вҐ«о, ¤®«Ј® ¬®®Ї®«Ё§ЁагойҐ¬г Ё«Ё Ў«®ЄЁагойҐ¬г Ѓ„,
аҐЄ®¬Ґ¤гов бЁ¬ вм Є®ЇЁо Ѓ„ Ё ¤Ґ« вм б Ґ© ўбҐ, зв® § Ў« Ј®а ббг¤Ёвбп,
б ЇҐаҐалў ¬Ё з ҐЇЁвЁҐ, ®бв ўЁў Ёбе®¤го Ѓ„ ў а бЇ®ап¦ҐЁЁ ¤агЈЁе
Ї®«м§®ў вҐ«Ґ©. ЏаЁ Ґ®Ўе®¤Ё¬®бвЁ ЇҐаҐҐбвЁ ў ҐҐ Ё§¬ҐҐЁп Ї®¬®¦Ґв
Є®¬ ¤ UPDATE.
ЏаҐ¤бв ўмвҐ Ёго бЁвг жЁо: Ѓ„ § Ў«®ЄЁа®ў Ї®«м§®ў вҐ«Ґ¬,
Їа®зЁҐ Ё«Ё а Ў®в ов б Ґ© ў аҐ¦Ё¬Ґ звҐЁп, Ё«Ё ®¦Ё¤ ов а §Ў«®ЄЁа®ў Ёп.
…б«Ё Ўл Ї®«м§®ў вҐ«м г¤®ў«Ґвў®аЁ«бп § еў в®¬ Ґ ўбҐ© Ѓ„, ®в¤Ґ«мле
§ ЇЁбҐ©, ў®§¬®¦®, Ґ ЇаЁи«®бм Ўл ¦¤ вм ¤агЈЁ¬. ЏаҐ¤бв ўмвҐ ¤ «ҐҐ, зв®
¤«п § ўҐаиҐЁп а Ў®вл б Ѓ„ ЇҐаў®¬г Ї®«м§®ў вҐ«о г¦Ґ ¤®бвгЇ Є ¤агЈ®©
Ѓ„, ® Єв®-в® "Ї®¦ ¤Ёз «" Ё ®вЄал« ҐҐ ў ¬®®Ї®«м®¬ аҐ¦Ё¬Ґ. ’ҐЇҐам
ЇаЁе®¤Ёвбп ¦¤ вм Ё Ґ¬г ( б Ё¬ Ё ¤агЈЁ¬). —в®Ўл "бЈгбвЁвм Єа бЄЁ",
¤®Ў ўЁ¬, зв® ўв®а®¬г ў« ¤Ґ«мжг Ў«®ЄЁа®ў Ёп ¤«п § ўҐаиҐЁп а Ў®вл б
Ѓ„, ваҐЎгҐвбп ¤®бвгЇ Є ЇҐаў®© Ѓ„ б жҐ«мо Ё§¬ҐҐЁп § ЇЁбҐ©. Ќ® ЇҐаў п
Ѓ„ § еў зҐ . ’гЇЁЄ. ‚®в зв® Ї®«гз Ґвбп, Є®Ј¤ б«ЁиЄ®¬ амп® "впгв
®¤Ґп«® бҐЎп" Ё«Ё Ё§®Ўа ¦ ов "б®Ў Єг бҐҐ", ў« ¤Ґп Ў«®ЄЁа®ўЄ®©,
® ЁбЇ®«м§гп Ѓ„ «Ёим з бвЁз®. ’гЇЁЄЁ - ®¤ Ё§ Їа®Ў«Ґ¬ а Ў®вл ў бҐвЁ.
€в Є, ЇаЁ ЁвҐбЁў®© а Ў®вҐ б а §¤Ґ«пҐ¬л¬Ё Ѓ„ ¬®®Ї®«мл© аҐ¦Ё¬
¤®«¦Ґ ЁбЇ®«м§®ў вмбп в®«мЄ® ў ўЁ¤Ґ ЁбЄ«озҐЁп. —в®Ўл б®Єа вЁвм ®ЎйЁҐ
(Ё б®ЎбвўҐлҐ) Ї®вҐаЁ ўаҐ¬ҐЁ, Ї®«м§®ў вҐ«п¬ бҐвЁ б«Ґ¤гҐв:
)Ґ § еў влў вм ¤ лҐ Ў®«ҐҐ ¤«ЁвҐ«мл© ЇҐаЁ®¤, зҐ¬ ®ЎкҐЄвЁў®
Ґ®Ўе®¤Ё¬®; ЇаЁ¬Ґа, Ґ г¦® Ї®« Ј вмбп ўв®¬ вЁзҐбЄ®Ґ
а §Ў«®ЄЁа®ў ЁҐ ¤ ле Ї® ®Є®з ЁЁ аҐиҐЁп § ¤ зЁ;
Ў) ®вЄалў вм Ѓ„ ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп, Ґб«Ё Ё§¬ҐҐЁо ¤ ле
ЇаҐ¤иҐбвўгҐв Ё®Ґ Ёе ЁбЇ®«м§®ў ЁҐ, § еў в Ѓ„ ®бгйҐбвў«пвм Ї®§¤ҐҐ;
ў) бваҐ¬Ёвмбп Є Ї®«®© Ё«Ё ўаҐ¬Ґ®© § ¬ҐҐ Є ¦¤®Ј® § еў в Ѓ„
§ еў в®¬ ®в¤Ґ«мле § ЇЁбҐ© Ё«Ё - ў FOXPRO - ЈагЇЇ § ЇЁбҐ©;
Ј) Ґ¬Ґ¤«Ґ® ®в¬Ґпвм ўбҐ бў®Ё Ў«®ЄЁа®ў Ёп, Ґб«Ё ҐгбЇҐи Ї®ЇлвЄ
®зҐаҐ¤®Ј® Ў«®ЄЁа®ў Ёп Ё ®б®§ ЎҐбЇ®«Ґ§®бвм ¤ «мҐ©иҐЈ® ®¦Ё¤ Ёп;
¤) Ёбб«Ґ¤®ў вм ўҐа®пв®бвм вгЇЁЄ®ў Ё ®Ў¤г¬лў вм ¬Ґал Ёе ЇаҐ¤®вўа йҐЁп.
Џ®б«Ґ¤ҐҐ ¤Ґ« Ґвбп ў ЄагЈг Ї®«м§®ў вҐ«Ґ© б гз бвЁҐ¬ ¤¬ЁЁбва в®а Ѓ„.
Ћв¬ҐЁвм Ў«®ЄЁа®ў ЁҐ ¬®¦Ґв в®«мЄ® ў« ¤Ґ«Ґж. Ћв¬Ґ ¬®¦Ґв Ґ Ўлвм
пў®©: ў Ў §Ґ ¤ ле ®ў®Ґ Ў«®ЄЁа®ў ЁҐ ®в¬ҐпҐв ¤Ґ©бвўЁҐ ЇаҐ¤л¤гйҐЈ®.
€бЄ«озҐЁҐ (ў Ї®б«Ґ¤Ёе ўҐабЁпе ‘“Ѓ„) б¤Ґ« ® ¤«п ЈагЇЇ®ў®Ј® Ў«®ЄЁа®ў Ёп
§ ЇЁбҐ©, Є®Ј¤ ў®§¬®¦® б®еа ҐЁҐ ЇаҐ¤л¤гйҐЈ® Ў«®ЄЁа®ў Ёп § ЇЁбҐ©.
„®ЇгбвЁ¬, ¬л Ў«®ЄЁагҐ¬ § ЇЁбм, § вҐ¬ - ўбо Ѓ„. Џ®б«Ґ ®в¬Ґл Ў«®ЄЁа®ў Ёп
¤ ®© Ѓ„ ў Ґ© Ґ Ўг¤Ґв Ё ®¤®© Ў«®ЄЁа®ў ®© § ЇЁбЁ.
’ ЄЁ¬ ®Ўа §®¬, Ї®«м§®ў вҐ«м бҐвЁ ¬®¦Ґв
- ®вЄалў вм д ©« Ѓ„ «ЁЎ® ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп, «ЁЎ® ў ¬®®Ї®«м®¬ аҐ¦Ё¬Ґ;
- ўлЇ®«пвм Ў«®ЄЁа®ў ЁҐ Ѓ„, ®в¤Ґ«мле § ЇЁбҐ© Ё ЈагЇЇ § ЇЁбҐ©;
Ў«®ЄЁа®ў лҐ § ЇЁбЁ Ё Ў §л ¤®бвгЇл Ї® звҐЁо Ё «оЎ®¬г ¤агЈ®¬г
Ї®«м§®ў вҐ«о;
- ®в¬Ґпвм Ў«®ЄЁа®ў Ёп, Є®в®ал¬Ё ў« ¤ҐҐв;
- Їа®ўҐапвм вҐЄгйЁ© бв вгб Ў«®ЄЁа®ў Ёп Ѓ„ Ё«Ё § ЇЁбЁ Ѓ„;
- Їа®ўҐапвм гбЇҐи®бвм ўлЇ®«ҐЁп Є®¬ ¤ USE Ё APPEND BLANK, ЇаЁ¬ҐҐле
Є а §¤Ґ«пҐ¬®© Ѓ„ (ў CLIPPER ЁбЇ®«м§гҐвбп дгЄжЁп NetErr(), ў®§ўа й ой п .F.
ЇаЁ гбЇҐеҐ, ў FOXPRO Ґ®Ўе®¤Ё¬ ЇҐаҐеў в ЇаҐалў Ёп ¤«п ®Ўа Ў®вЄЁ ®иЁЎЄЁ).
Џ®«м§®ў вҐ«м, Ґ ЇаЁ®ЎйҐл© Є бҐвЁ, ¬®¦Ґв ®бв ў вмбп Ёўл¬ ¤®
б ¬®© бв а®бвЁ Ё Ґ гзЁвлў вм бгйҐбвў®ў ЁҐ бҐвЁ, ЁЎ® Ї® г¬®«з Ёо ‘“Ѓ„
®вЄалў Ґв Ѓ„ ў ¬®®Ї®«м®¬ аҐ¦Ё¬Ґ: ¤Ґ©бвўгҐв гбв ®ўЄ SET EXCLUSIVE ON.

23.2. ‚лЇ®«пҐ¬ Ў«®ЄЁа®ў ЁҐ Ё а §Ў«®ЄЁа®ў ЁҐ

—в®Ўл ®вЄалвм Ѓ„ ў ¬®®Ї®«м®¬ аҐ¦Ё¬Ґ, ў Є®¬ ¤Ґ USE § ЇЁблў ов
ваЁЎгв EXCLUSIVE, ваЁЎгв SHARED § з Ґв аҐ¦Ё¬ а §¤Ґ«ҐЁп Ѓ„. ‚
®вбгвбвўЁҐ ¤ ле ваЁЎгв®ў ўбҐ § ўЁбЁв ®в Ј«®Ў «м®© гбв ®ўЄЁ: ЇаЁ
гбв ®ўЄҐ SET EXCLUSIVE ON ўбҐ Ѓ„ ®вЄалў овбп ў ¬®®Ї®«м®¬ аҐ¦Ё¬Ґ,
Ґб«Ё ¤Ґ©бвўгҐв SET EXCLUSIVE OFF - ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп. Ќ®ў п Ј«®Ў «м п
гбв ®ўЄ Ґ ¬®¦Ґв Ё§¬ҐЁвм бв вгб а ҐҐ ®вЄалвле Ѓ„. €в Є, ваЁЎгвл
Є®¬ ¤л USE Ё¬Ґов Ў®«миго бЁ«г, зҐ¬ Ј«®Ў «м п гбв ®ўЄ . Љ®¬ ¤
SET EXCLUSIVE ®бв ў«Ґ ў п§лЄҐ ¤«п б®ў¬ҐбвЁ¬®бвЁ б ЇаҐ¤л¤гйЁ¬Ё
ўҐабЁп¬Ё, ® Ґ аҐЄ®¬Ґ¤гҐвбп Є ЁбЇ®«м§®ў Ёо, ЁЎ® Ј«®Ў «м п гбв ®ўЄ
- ЈагЎ®Ґ баҐ¤бвў® гЇа ў«ҐЁп ¤®бвгЇ®¬ Є ¤ л¬.
”гЄжЁп Flock() Їлв Ґвбп Ў«®ЄЁа®ў вм Ѓ„, ®вЄалвго ў аҐ¦Ё¬Ґ
а §¤Ґ«ҐЁп, Rlock() (¤агЈ®Ґ Ё¬п Lock()) - ҐҐ вҐЄгйго § ЇЁбм. ЋЎҐ
дгЄжЁЁ ў б«гз Ґ гбЇҐе ў®§ўа й ов .T. Ё ®в¬Ґпов ЇаҐ¤л¤гйҐҐ Ў«®ЄЁа®ў ЁҐ
ў ¤ ®© Ѓ„ (Ґб«Ё ®® Ўл«®). „«п Ёе ЇаЁ¬ҐҐЁп Є ®вЄалв®©, ® Ґ ЄвЁў®©
Ѓ„ ў FOXPRO § ЇЁблў ов аЈг¬Ґв - «Ё б Ѓ„, ў CLIPPER - гв®зпов
«Ё б®¬ ®Ўа йҐЁҐ Є дгЄжЁЁ, ЇаЁ¬Ґа: AA->(Lock()). Џ®б«Ґ¤ҐҐ ¤Ґ« ов,
ЇаЁ¬Ґа, ЇаЁ Ў«®ЄЁа®ў ЁЁ бўп§ ®© § ЇЁбЁ "¤®зҐаҐ© Ѓ„", ЁЎ®
Ў«®ЄЁа®ў ЁҐ "¬ вҐаЁбЄ®©" § ЇЁбЁ Ґ ў«ҐзҐв Ў«®ЄЁа®ў Ёп "¤®зҐаҐ©".
Flock(), ЁбЇ®«м§®ў п, Є®Ј¤ Ґв ®вЄалв®© Ѓ„, ў®§ўа й Ґв .F. .
Љ®¬ ¤®© UNLOCK Ї®«м§®ў вҐ«м ўлЇ®«пҐв а §Ў«®ЄЁа®ў ЁҐ ў ЄвЁў®©
Ѓ„, Є®¬ ¤®© UNLOCK ALL - ®в¬ҐпҐв ўбҐ бў®Ё Ў«®ЄЁа®ў Ёп, ЇаЁ¬Ґа,
Ў«®ЄЁа®ў Ёп § ЇЁбҐ© ў "¬ вҐаЁбЄ®©" Ё ў® ўбҐе "¤®зҐаЁе" Ѓ„. Њ®®Ї®«мл©
аҐ¦Ё¬ Ґ ¬®¦Ґв Ўлвм ®в¬ҐҐ Є®¬ ¤®© UNLOCK. ‚ FOXPRO Є®¬ ¤г UNLOCK
¬®¦® ¤®Ї®«пвм ваЁЎгв®¬ IN <ЋЎ«> (б¬. Ї.16.1), в.Ґ. ЇаЁ¬Ґпвм Є «оЎ®©
®вЄалв®© Ѓ„. ‚ CLIPPER ¤«п нв®© жҐ«Ё ЁбЇ®«м§гов дгЄжЁо DBUnlock(),
гв®зҐго «Ё б®¬.
”гЄжЁҐ© Rlock() Ў«®ЄЁагов ®¤Ё®зго § ЇЁбм ЇҐаҐ¤ ҐҐ Ё§¬ҐҐЁҐ¬
Є®¬ ¤ ¬Ё @ ... GET, DELETE, RECALL, REPLACE Ё«Ё ЇгвҐ¬ ЇаЁбў Ёў Ёп
§ зҐЁп Ї®«о. ”гЄжЁо Flock() ЇаЁ¬Ґпов ЇҐаҐ¤ вҐ¬, Є Є Ї®¤ўҐаЈгвм
«®ЈЁз®¬г Ё§¬ҐҐЁо ¬®¦Ґбвў® § ЇЁбҐ©. Џа ў¤ , ўҐабЁп CLIPPER 5.2
Ё FOXPRO ЇаҐ¤« Ј ов «мвҐа вЁўг - Ў«®ЄЁа®ў ЁҐ ЈагЇЇл § ЇЁбҐ© (Ї. 23.4).
„«п ўлЇ®«ҐЁп ў а §¤Ґ«пҐ¬®© Ѓ„ Є®¬ ¤ PACK, REINDEX, ZAP, MODIFY
STRUCTURE (FOXPRO), INSERT Ё INSERT BLANK (FOXPRO) ҐҐ ¤® ®вЄалвм ў
¬®®Ї®«м®¬ аҐ¦Ё¬Ґ, Ґб«Ё ¦Ґ Ѓ„ ®вЄалв ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп, Ї®ЇлвЄ
ўлЇ®«Ёвм нвЁ Є®¬ ¤л ўл§лў Ґв б®®ЎйҐЁҐ ®Ў ®иЁЎЄҐ.
ЏаЁ¬Ґа 23.1. ЏаЁ¬Ґал Ў«®ЄЁа®ў Ёп Ѓ„ ў бЁбвҐ¬Ґ CLIPPER
USE Student EXCLUSIVE
IF NetErr() && NetErr ў®§ўа й Ґв .F. ЇаЁ гбЇҐи®¬ ®вЄалвЁЁ Ѓ„
@ 24,0 SAY "ЏаЁ¤ЁвҐ ў б«Ґ¤гойЁ© а §" && --гвЄ --
ELSE
PACK && Ѓ„ гбЇҐи® ®вЄалв Ё вҐЇҐам ўбҐ ¦¤гв ®Є®з Ёп гЇ Є®ўЄЁ Ѓ„
USE && Ѓ„ § Єалў Ґвбп
ENDIF
USE Student SHARED && Ѓ„ ®вЄалў Ґвбп ў®ўм ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп
IF .NOT. NetErr() .AND. Flock() && Џ®ЇлвЄ Ў«®ЄЁа®ў Ёп Ѓ„
DELETE FOR Kurs=6 && …б«Ё Ѓ„ § еў зҐ , г¤ «повбп § ЇЁбЁ ¤ЁЇ«®¬ЁЄ®ў
UNLOCK
SET INDEX TO IndFam && ЋвЄалў Ґвбп Ё¤ҐЄб Ї® Є«озг Famil
SEEK "Ѓ…„ЌџЉЋ‚Ђ" && Џ®ЁбЄ г¦®© § ЇЁбЁ
IF Found()
ELSEIF Rlock() && ’®«мЄ® Ґб«Ё § ЇЁбм ©¤Ґ , ¤Ґ« Ґвбп Ў«®ЄЁа®ў ЁҐ
REPLACE Famil WITH "‘ЉЋђЋЃЋѓЂ’Ћ‚Ђ"
UNLOCK && ‡ ЇЁбм ЎҐ§®в« Ј вҐ«м® а §Ў«®ЄЁагҐвбп
ELSE
@ 24,0 SAY "€§¬ҐҐЁҐ д ¬Ё«ЁЁ Ґ б®бв®п«®бм; § ЇЁбм § пв "
ENDIF
ELSE
USE I:\RabBD && „«п аҐ¤ ЄвЁа®ў Ёп ®вЄалў Ґвбп а Ў®з п Ѓ„
Browse() && ‚ FOXPRO ¬л Ўл ЁбЇ®«м§®ў «Ё Є®¬ ¤г BROWSE
ENDIF
Џа® «Ё§ЁагҐ¬ Їа®Ја ¬¬г. ‚ "игвЄҐ" Ґбвм бҐамҐ§л© ¬®¬Ґв: гЇ Є®ўЄг Ѓ„
®Ўлз® Ґ ¤Ґ« ов, Є®Ј¤ а §¤Ґ«пҐ¬лҐ Ѓ„ ЁбЇ®«м§говбп ЁвҐбЁў®. Џ®«®Ґ
Ў«®ЄЁа®ў ЁҐ (¬®®Ї®«мл© аҐ¦Ё¬) ®в¬Ґпов § ЄалвЁҐ¬ Ѓ„. Џ®б«Ґ нв®Ј® ҐҐ
ў®ўм ®вЄал«Ё ¤«п г¤ «ҐЁп § ЇЁбҐ© ¤ЁЇ«®¬ЁЄ®ў. ќв а Ў®в Ґ ба®з п;
Ґб«Ё § еў вЁвм Ѓ„ Ґ г¤ «®бм, ўлЇ®«пҐвбп б«Ґ¤гой п а Ў®в - § ¬Ґ
§ зҐЁп Ї®«п Famil ў ®¤®© Ё§ § ЇЁбҐ©. ‡¤Ґбм Ґ«м§п Ўл«® ®ЎкҐ¤ЁЁвм
Found() Ё Rlock() ў ®¤® «®ЈЁзҐбЄ®Ґ ўла ¦ҐЁҐ Ё§-§ аЁбЄ Ў«®ЄЁа®ў Ёп
"Ї®бв®а®Ґ©" § ЇЁбЁ (Є®Ј¤ Found()=.F.). ‚ ЇаЁжЁЇҐ Rlock() ®в¬ҐпҐв
ЇаҐ¤л¤гйҐҐ Ў«®ЄЁа®ў ЁҐ, ®¤ Є® ўлиҐ § ЇЁб Є®¬ ¤ UNLOCK. Џа ўЁ«м®,
¤®«¦ Ўлвм ЎҐ§гб«®ў п ®в¬Ґ Ў«®ЄЁа®ў Ёп. ЌЁзҐЈ® - Ї® ў®«Ґ б«гз п!
„ л© Ї®«м§®ў вҐ«м ЇаЁ Ґг¤ зҐ а Ў®в Ґв б "«Ёз®© б®ЎбвўҐ®бвмо"
- ўаҐ¬Ґ®© Ѓ„ RabBD. —в®Ўл Ё§ЎҐ¦ вм ўҐиЁе ў®§¤Ґ©бвўЁ© в ЄЁҐ Ѓ„
( ЇаЁ¬Ґа, Ё§-§ б®ўЇ ¤ҐЁп Ё¬Ґ Ѓ„), Ёе еа пв «®ЈЁзҐбЄ®¬ ¤ЁбЄҐ
(§¤Ґбм - I:), § Єалв®¬ ®в Ї®бв®а®Ёе, «гзиҐ - ў «Ёз®© ¤ЁаҐЄв®аЁЁ.
‡ ¤ ЁҐ 23.2. ‡ ЇЁиЁвҐ Ї®б«Ґ¤®ў вҐ«м®бвм ¤Ґ©бвўЁ©, Їа®Ё§ў®¤Ё¬ле ў
а §¤Ґ«пҐ¬®© Ѓ„ Ё ваҐЎгойЁе )¬®®Ї®«м®Ј® аҐ¦Ё¬ ; Ў) Ў«®ЄЁа®ў Ёп
ўбҐ© Ѓ„; ў) Ў«®ЄЁа®ў Ёп ®в¤Ґ«мле § ЇЁбҐ©. Џа®Ё§ў®¤ЁвҐ бў®ҐўаҐ¬Ґ®Ґ
а §Ў«®ЄЁа®ў ЁҐ.

23.3. ‚лЇ®«пҐ¬ Є®¬ ¤л ў бҐвЁ

Ља®¬Ґ гЄ § ле ўлиҐ Є®¬ ¤, ваҐЎгойЁе ¬®®Ї®«Ё§ жЁЁ Ѓ„,
ап¤ Є®¬ ¤ ўв®¬ вЁзҐбЄЁ ®вЄалў Ґв б®§¤ ў Ґ¬лҐ Ѓ„ ў ¬®®Ї®«м®¬
аҐ¦Ё¬Ґ (б¬. в Ў«. 23.1, «Ґў п Є®«®Є ), в®Ј¤ Є Є ап¤ ¤агЈЁе -
®вЄалў ов Ё¬ҐойЁҐбп Ѓ„ Ё«Ё д ©«л ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп (в Ў«. 23.1,
Їа ў п Є®«®Є ). ђҐзм Ё¤Ґв ® Ѓ„ Ё д ©« е, Ё¬Ґ Є®в®але ®Ў®§ зҐл
ў в Ў«. 23.1. Џ®б«Ґ ўлЇ®«ҐЁп Є®¬ ¤л (ЁбЄ«оз п Є®¬ ¤г CREATE) Ѓ„
§ Єалў Ґвбп.

’ Ў«Ёж 23.1
---------------------------------------------------------------------
Љ®¬ ¤л, ®вЄалў ойЁҐ д ©« Љ®¬ ¤л, ®вЄалў ойЁҐ д ©«
ў ¬®®Ї®«м®¬ аҐ¦Ё¬Ґ ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп
----------------------------------------------------------------------
COPY STRUCTURE TO <€¬п Ѓ„> APPEND FROM <€¬п д ©« >
COPY TO <€¬п д ©« > CREATE ... FROM <€¬п д ©« >
CREATE <€¬п д ©« > LABEL FORM <€¬п д ©« >
INDEX ON ... TO <€¬п д ©« > REPORT FORM <€¬п д ©« >
JOIN ... TO <€¬п д ©« > RESTORE FROM <€¬п д ©« >
SAVE TO <€¬п д ©« > TYPE <€¬п д ©« >
SET ALTERNATE TO <€¬п д ©« > UPDATE ... FROM <€¬п Ѓ„>
SORT ... TO <€¬п Ѓ„>
TOTAL ... TO <€¬п Ѓ„>
-----------------------------------------------------------------------
Ќ ЇаЁ¬Ґа, ўл ўҐапЄ Ґ § е®вҐ«Ё Ўл, зв®Ўл ў ALTERNATE-д ©«
§ ЇЁблў « бм Ї®бв®а®пп Ёд®а¬ жЁп, Ґ Ё¬Ґой п ®в®иҐЁп Є ў иҐ¬г
¤Ё «®Јг б ќ‚Њ (ЇаЁ¬Ґа б ¬®®Ї®«мл¬ аҐ¦Ё¬®¬). ‘ ¤агЈ®© бв®а®л, Ўл«®
Ўл Ґа §г¬® «Ёи вм Ї®«м§®ў вҐ«Ґ© ў®§¬®¦®бвЁ зҐаЇ вм Ёд®а¬ жЁо Ё§
®ЎйҐЈ® Ёбв®зЁЄ (аҐ¦Ё¬ а §¤Ґ«ҐЁп). ‘гйҐбвўгҐв ¤агЈ®© бЇҐЄв
Їа®Ў«Ґ¬л. ‚®§м¬Ґ¬ Є®¬ ¤г REPORT FORM. …б«Ё ЇаЁ ўлў®¤Ґ ®взҐв ®¤Ё¬
Ї®«м§®ў вҐ«Ґ¬ ¤агЈ®© Ё§¬ҐЁв е®вп Ўл ®¤г § ЇЁбм ЄвЁў®© Ѓ„,
ЁбЇ®«м§гҐ¬®© Є Є ®б®ў ®взҐв , ¬®¦Ґв Ўлвм Ї®вҐап ҐЈ®
в®з®бвм, Ї®бЄ®«мЄг Ѓ„ ЇаЁ¬Ґв ҐЄ®в®а®Ґ Їа®¬Ґ¦гв®з®Ґ б®бв®пЁҐ.
‚ FOXPRO Ё¬ҐҐвбп гбв ®ўЄ SET LOCK ON, ®ЎҐбЇҐзЁў ой п ўв®¬ вЁзҐбЄ®Ґ
Ў«®ЄЁа®ў ЁҐ Ѓ„, гЄ § ле ў Є®¬ ¤ е ¬ бб®ў®© ®Ўа Ў®вЄЁ § ЇЁбҐ©
(Ї® г¬®«з Ёо ¤Ґ©бвўгҐв гбв ®ўЄ SET LOCK OFF). „«п ¤агЈЁе
Ї®«м§®ў вҐ«Ґ© ¤®бвгЇ Є нвЁ¬ Ѓ„ Ї® звҐЁо - б®еа пҐвбп. …йҐ ®¤Ё
ЇаЁ¬Ґа - б®авЁа®ўЄ Ѓ„. ЏаҐ¤бв ўмвҐ, зв® ў ҐҐ Їа®жҐббҐ "Ї®бв®а®Ё©"
Ё§¬ҐЁ« Ї®«Ґ - Є«оз б®авЁа®ўЄЁ е®вп Ўл ў ®¤®© § ЇЁбЁ. ‘ Ў®«ми®©
бвҐЇҐмо ўҐа®пв®бвЁ Ї®ап¤®Є б«Ґ¤®ў Ёп § ЇЁбҐ© Ўг¤Ґв агиҐ.
ЏаЁ ўв®¬ вЁзҐбЄ®¬ ®вЄалвЁЁ Ѓ„ ¬®Јгв Ўлвм вҐ ¦Ґ Їа®Ў«Ґ¬л, зв® Ё
ЇаЁ Ї®ЇлвЄҐ ®вЄалвм Є®¬ ¤®© USE Ў §г, Є®в®а п Ў«®ЄЁа®ў . ЏаЁзЁл
ҐгбЇҐиле Ї®Їлв®Є ®ва ¦Ґл ў в Ў«. 23.2.
’ Ў«Ёж 23.2
-----------------------------------------------------------------------
Љ®¬ ¤ ЏаЁзЁ ҐгбЇҐи®Ј® ўлЇ®«ҐЁп
-----------------------------------------------------------------------
USE <Ѓ„> SHARED Ѓ„ § еў зҐ ¤агЈЁ¬ Ї®«м§®ў вҐ«Ґ¬
(USE <Ѓ„> EXCLUSIVE)
USE <Ѓ„> EXCLUSIVE Ѓ„ г¦Ґ ®вЄалв Ё ЁбЇ®«м§гҐвбп
APPEND BLANK Ѓ„ Ў«®ЄЁа®ў (Flock() Ё«Ё USE <Ѓ„> EXCLUSIVE)
Ё«Ё Є®¬ ¤ APPEND BLANK г¦Ґ ўлЇ®«пҐвбп ¤агЈЁ¬
-----------------------------------------------------------------------
‚ ЇаЁ¬ҐаҐ 23.1 Ї®Є § ®, Є Є ¤Ґ©бвў®ў вм ў CLIPPER, зв®Ўл ҐгбЇҐи п
Ї®ЇлвЄ ®вЄалвЁп Ѓ„ Ґ бв « ЇаЁзЁ®© б®®ЎйҐЁ© ®Ў ®иЁЎЄҐ Ё ЇаҐалў Ёп
Їа®Ја ¬¬л. ‚ CLIPPER Ё¬ҐҐвбп Ў«®Є NetErr. ЏаЁ¬ҐЁ¬ ҐЈ® ў б«гз Ґ APPEND
BLANK, ®вў®¤п 5 бҐЄг¤ ¤«п Ї®Їлв®Є ¤®Ў ў«ҐЁп § ЇЁбЁ ў ЄвЁўго Ѓ„:
. . .
T = 5
APPEND BLANK
DO WHILE NetErr() .AND. T>0
Inkey(.5) && ќ ¤Ґа¦Є ў 1/2 бҐЄг¤л
T = T -.5
APPEND BLANK
ENDDO && ЋЄ®з вҐ«мл© Ёв®Ј ®ва ¦ Ґв Ї®б«Ґ¤ҐҐ § зҐЁҐ NetErr()
„®Ў ў«Ґ п § ЇЁбм ўв®¬ вЁзҐбЄЁ ®бв Ґвбп Ў«®ЄЁа®ў ®© Ё нв® а §г¬®Ґ
аҐиҐЁҐ, ЁЎ®, Є Є Їа ўЁ«®, ҐҐ ба §г § Ї®«пов, в.Ґ. Ё§¬Ґпов § зҐЁп
Ї®«Ґ©.
ЋЎа Ў®вЄ бҐвҐўле ®иЁЎ®Є ў FOXPRO а бб¬®ваҐ ў Ї. 23.5.
€¬ҐҐвбп ®Ја ЁзҐЁҐ ¬Ґбв® § ¤ Ёп Ё¤ҐЄб®ў а §¤Ґ«пҐ¬®© Ѓ„. €е Ґ
б«Ґ¤гҐв § ¤ ў вм ў Є®¬ ¤Ґ USE - в®«мЄ® ў Є®¬ ¤Ґ SET INDEX TO. „Ґ«® ў
в®¬, зв® ўлЇ®«ппбм, Є®¬ ¤ USE <Ѓ„> INDEX <‘ЇЁб®Є Ё¤ҐЄб®ў> ўл§®ўҐв
®иЁЎЄг, Ґб«Ё Ѓ„ ¬®®Ї®«м® ў« ¤ҐҐв ¤агЈ®© Ї®«м§®ў вҐ«м. “Є §лў п Ё¤ҐЄбл
ў SET INDEX TO, б з « Їа®ўҐапҐ¬, б®бв®п«®бм «Ё ®вЄалвЁҐ Ѓ„ (б¬.
ЇаЁ¬Ґа 23.1).
‡ ¤ ЁҐ 23.3. ‡ ЇЁиЁвҐ Ў«®Є ўлў®¤ ®взҐв Ї® д®а¬Ґ "ITOGI"
®б®ўҐ Ѓ„ Student, Ї®§ Ў®вЁўиЁбм ® § йЁвҐ Ѓ„ ®в § ЇЁбЁ ў ҐҐ ®ўле
¤ ле ¤агЈЁ¬Ё Ї®«м§®ў вҐ«п¬Ё.

23.4. ЋбгйҐбвў«пҐ¬ Ў«®ЄЁа®ў ЁҐ ЈагЇЇл § ЇЁбҐ©

‚ FOXPRO ЇаҐ¤гб¬®ваҐ Є®¬ ¤ SET MULTILOCK <Љ«оз>, Ј¤Ґ <Љ«оз> -
нв® ON Ё«Ё OFF, ўЄ«оз ой п (ON) Ё ўлЄ«оз ой п (OFF) аҐ¦Ё¬ Ў«®ЄЁа®ў Ёп
¬®¦Ґбвў § ЇЁбҐ©. ‚ аҐ¦Ё¬Ґ "ON" ¬®¦® ЁбЇ®«м§®ў вм дгЄжЁо Rlock()
(Ё«Ё Lock()) б а биЁаҐл¬ бЁв ЄбЁб®¬:
Rlock("<‘ЇЁб®Є ®¬Ґа®ў Ў«®ЄЁагҐ¬ле § ЇЁбҐ©>",<ЋЎ« бвм>),
Ј¤Ґ ®ЇжЁп <ЋЎ« бвм> -нв® ®¬Ґа а Ў®зҐ© ®Ў« бвЁ Ё«Ё «Ё б. Ќ ЇаЁ¬Ґа,
¤«п Ў«®ЄЁа®ў Ёп 3-©, 7-©, 8-©, 9-© § ЇЁбЁ ЄвЁў®© Ѓ„ § ЇЁблў Ґ¬
Rlock("3,7,8,9"). ‘ЇЁб®Є ®¬Ґа®ў ¬®¦Ґв Ўлвм в Є¦Ґ § зҐЁҐ¬
бЁ¬ў®«мле ЇҐаҐ¬Ґ®©, н«Ґ¬Ґв ¬ ббЁў , Ї®«п Ѓ„. ”гЄжЁп Rlock()
ў®§ўа й Ґв § зҐЁҐ .T. в®«мЄ® ў в®¬ б«гз Ґ, Ґб«Ё г¤ «®бм
Ў«®ЄЁа®ў вм ўбҐ гЄ § лҐ § ЇЁбЁ. Ѓ«®ЄЁа®ў Ёп, Є®в®алҐ ® б¬®Ј«
ўлЇ®«Ёвм, б®еа повбп, а ў® Є Є Ё Ў«®ЄЁа®ў Ёп § ЇЁбҐ©, б¤Ґ« лҐ
¤® ҐҐ.
€®Ј¤ г¤®ЎҐҐ Ў«®ЄЁа®ў вм ЈагЇЇг § ЇЁбҐ©, ЁбЇ®«м§гп Rlock()
®в¤Ґ«м® ¤«п Є ¦¤®© § ЇЁбЁ. Љ®¬ ¤ SET MULTILOCK ўбҐЈ¤ бЁ¬ Ґв
бгйҐбвўгойЁҐ Ў«®ЄЁа®ў Ёп § ЇЁбҐ©, в.Ґ. ЇҐаҐ¤ Ґо Ґ ¤®
ўлЇ®«пвм UNLOCK. —Ёб«® ®¤®ўаҐ¬Ґ® Ў«®ЄЁа®ў ле § ЇЁбҐ©
®Ја ЁзЁў Ґвбп ®ЎкҐ¬®¬ Ї ¬пвЁ бҐаўҐаҐ. …б«Ё Ї®¤¬®¦Ґбвў®
Ў«®ЄЁагҐ¬ле § ЇЁбҐ© ўҐ«ЁЄ®, Ў«®ЄЁагов ®Ўлз® ўбо Ѓ„ дгЄжЁҐ© Flock().
‚ ўҐабЁЁ CLIPPER 5.2 в Є¦Ґ ЇаҐ¤гб¬®ваҐ® Ў«®ЄЁа®ў ЁҐ ЈагЇЇ
§ ЇЁбҐ©, ЁбЇ®«м§гҐвбп дгЄжЁп DBRlock(). ’ҐЄгйЁ© бЇЁб®Є
Ў«®ЄЁа®ў ле § ЇЁбҐ© ў®§ўа й Ґв дгЄжЁп DBRLOCKLIST(). ‘ЇҐжЁ «млҐ
аҐ¦Ё¬л Ў«®ЄЁа®ў Ёп, Ё¬ҐойЁҐбп ў FOXPRO, Ґ ЇаҐ¤гб¬®ваҐл. ‚§ ¬Ґ -
®бва®г¬®Ґ аҐиҐЁҐ: DBRLock() ЎҐ§ аЈг¬Ґв бЁ¬ Ґв ў Ў §Ґ ўбҐ
Ў«®ЄЁа®ў Ёп § ЇЁбҐ© Ё Ў«®ЄЁагҐв вҐЄгйго § ЇЁбм; DBRlock() б
аЈг¬Ґв®¬ (®¬Ґа § ЇЁбЁ) Ў«®ЄЁагҐв гЄ § го (е®вп Ўл Ё вҐЄгйго -
гЄ ¦ЁвҐ Recno()Є Є ®¬Ґа § ЇЁбЁ) § ЇЁбм Ё ¤®Ў ў«пҐв Є бЇЁбЄг
Ў«®ЄЁа®ў ле § ЇЁбҐ©. ”гЄжЁп DBAppend(.T.) бЁ¬ Ґв Ў«®ЄЁа®ў Ёп
§ ЇЁбҐ©, ¤®Ў ў«пҐв ў Ѓ„ Ё Ў«®ЄЁагҐв Їгбвго § ЇЁбм, DBAppend(.F.),
¤®Ў ў«пп § ЇЁбм, «Ёим ЇаЁб®Ґ¤ЁпҐв ҐҐ Є бЇЁбЄг Ў«®ЄЁа®ў ле § ЇЁбҐ©.
”гЄжЁп DBRUnlock() ЎҐ§ аЈг¬Ґв бЁ¬ Ґв ўбҐ Ў«®ЄЁа®ў Ёп § ЇЁбҐ©,
Ґб«Ё гЄ § вм аЈг¬Ґв - ®¬Ґа § ЇЁбЁ, а §Ў«®ЄЁагҐвбп в®«мЄ® ® ®¤ .
‡ ¤ ЁҐ 23.4. ‡ ЇЁиЁвҐ Ё ®Їа®Ўг©вҐ Џќ‚Њ 2 ў аЁ в Їа®Ја ¬¬л
Ў«®ЄЁа®ў Ёп ЈагЇЇл § ЇЁбҐ© ЄвЁў®© Ѓ„: б® бЇЁбЄ®¬ ®¬Ґа®ў § ЇЁбҐ©
ў дгЄжЁЁ Rlock() Ё ЎҐ§ нв®Ј® бЇЁбЄ .

23.5. ЋЎа Ў влў Ґ¬ ®иЁЎЄЁ ЇаЁ ЁбЇ®«м§®ў ЁЁ Ѓ„ ў бҐвЁ

ЏаЁ¬ҐЁвҐ«м® Є CLIPPER ¬®¦® Ј®ў®аЁвм Їа® ®Ўа Ў®вЄг ®вЄ §®ў ЇаЁ
Ў«®ЄЁа®ў ЁЁ, ® ў FOXPRO Ї®ЇлвЄ "Ґ¤®§ў®«Ґ®Ј®" ¤®бвгЇ Є
Ў«®ЄЁа®ў ®© Ѓ„ (Є®¤ ®иЁЎЄЁ 108) Ё«Ё Ў«®ЄЁа®ў ®© § ЇЁбЁ (Є®¤
®иЁЎЄЁ 109) ®Ўа Ў влў Ґвбп Ё¬Ґ® Є Є ®иЁЎЄ . Ќ ¤® Ё¬Ґвм ў ўЁ¤г,
зв® нвЁ Ї®ЇлвЄЁ ¬®Јгв Їа®Ёбе®¤Ёвм ў ЁвҐа ЄвЁў®¬ аҐ¦Ё¬Ґ, ЇаЁ
ЁбЇ®«м§®ў ЁЁ ®Є Є®¬ ¤ FOXPRO, в.Ґ. Ґ ®Ўп§ вҐ«м® ў Їа®Ја ¬¬Ґ.
„«п ®Ўа Ў®вЄЁ ®иЁЎ®Є г¦Ґ ERROR-Ў«®Є, ўл§лў Ґ¬л© Є®¬ ¤®© ON ERROR
(б¬. Ї. 22.5). ”гЄжЁЁ Flock(), Rlock() (Lock()) б ¬Ё ®иЁЎЄЁ Ґ
ўл§лў ов, ®иЁЎЄЁ ўл¤ овбп, Є®Ј¤ , Ґ ®Ўа й п ўЁ¬ Ёп Ёе
®ваЁж вҐ«мл© аҐ§г«мв в (.F.), Їлв овбп Ё§¬ҐЁвм ®ЎкҐЄв, § еў зҐл©
¤агЈЁ¬.
ЏаЁ¬Ґа 23.2. Џа®жҐ¤га ErrEx ®Ўа Ў®вЄЁ ®иЁЎ®Є ў бҐвЁ (ERROR-Ў«®Є).

PROCEDURE ErrEx
Er = ERROR()
DO CASE
CASE Er = 108 OR Er = 109 && ‘«гз © ®Ўа йҐЁп Є Ў«®ЄЁа®ў ®© Ѓ„
ON KEY LABEL F8 DO Nowait && Ё«Ё Ў«®ЄЁа®ў ®© § ЇЁбЁ
DO Ermsg WITH Iif(Er=108,"Ѓ § ","‡ ЇЁбм")+" Ў«®ЄЁа®ў б®бҐ¤®¬"
DO Delay && ‘«гз © п § ¤Ґа¦Є ў ЇаҐ¤Ґ« е 5 б.
RELEASE WINDOW Ermsg && “Ёзв®¦ҐЁҐ ®Є б®®ЎйҐЁп
ON KEY LABEL F8 && Ћв¬Ґ Є« ўЁи®Ј® § зҐЁп
RETRY && ‚®§ўа в Є Є®¬ ¤Ґ, ўл§ў ўиҐ© ®иЁЎЄг
CASE Er = ... && ‘«гз © ®иЁЎЄЁ б ¤агЈЁ¬ Є®¤®¬
. . . && ЋЎа Ў®вЄ ®иЁЎ®Є б ¤агЈЁ¬Ё Є®¤ ¬Ё
ENDCASE
PROCEDURE Ermsg
PARAM Msg
IF NOT Wexist("Ermsg") && Џа®ўҐаЄ бгйҐбвў®ў Ёп ®Є
DEFINE WINDOW Ermsg FROM 10,5 TO 15,75 TITLE "Ћ € Ѓ Љ Ђ"
ENDIF
ACTIVATE WINDOW Ermsg SAME
@ 2,3 SAY Msg
@ 4,3 SAY "„«п ў®§ўа в ў Ј« ўл© Ў«®Є ¦¬ЁвҐ F8"
PROCEDURE Delay && ђҐ «Ё§гҐвбп § ¤Ґа¦Є б«гз ©®© ¤«ЁвҐ«м®бвЁ
PRIVATE tfin && (ў ЇаҐ¤Ґ« е 5 бҐЄг¤)
tfin = Seconds() + Rand()*5
DO WHILE Seconds() < tfin
ENDDO
PROCEDURE Nowait
ON KEY LABEL F8
RELEASE WINDOW Ermsg
RETURN TO MASTER && ‚®§ўа в ў Ј« ўл© Ў«®Є
ЏаЁ¬ҐҐЁҐ Ў«®Є ErrEx а бб¬®ваЁ¬ ЇаЁ¬ҐаҐ 23.1. ЏаҐ¤ў аЁвҐ«м®,
ЇаЁ¬Ґа, зҐаҐ§ ®Є® Є®¬ ¤ ¤® ўлЇ®«Ёвм Є®¬ ¤г ON ERROR DO ErrEx.
‚ FOXPRO з «® Їа®Ја ¬¬л § зЁвҐ«м® б®Єа вЁвбп (ўҐвў«ҐЁҐ гЎЁа Ґ¬):
USE Student EXCLUSIVE && ‚л§®ў ERROR-Ў«®Є Їа®Ёбе®¤Ёв §¤Ґбм
PACK
USE
Џ®Є Ґ Їа®Ё§®©¤Ґв § еў в Ѓ„, Ў«®Є ErrEx Ўг¤Ґв ў®§ўа й вм гЇа ў«ҐЁҐ
Є®¬ ¤г USE Student EXCLUSIVE. …б«Ё Ї® Їа®иҐбвўЁЁ ўаҐ¬ҐЁ
Ї®«м§®ў вҐ«м, ®вз пўиЁбм, ¦¬Ґв F8, гЇа ў«ҐЁҐ Ї®«гзЁв Є®¬ ¤ PACK
Ё в Є¦Ґ ўл¤ бв ®иЁЎЄг, ®Ўа Ў®вЄ Є®в®а®© ў вҐЄбвҐ Ў«®Є ErrEx Ґ Ї®Є § .
„ «ҐҐ гЇа ў«ҐЁҐ Ї®«гзЁв USE - ® Ґ ўл§®ўҐв Є ЄЁе-«ЁЎ® ¤Ґ©бвўЁ©,
§ вҐ¬ ¤Ґ« Ґвбп Ї®ЇлвЄ ®вЄалвм Ѓ„ ў аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп Ё Ў«®ЄЁа®ў вм ҐҐ:

USE Student SHARED && ‚л§®ў ERROR-Ў«®Є Їа®Ёбе®¤Ёв §¤Ґбм
IF Flock()
. . .
‘®ў ў®§¬®¦л ¬®Ј®Єа влҐ Ї®ЇлвЄЁ ®вЄалвм Ѓ„. …б«Ё Ўг¤Ґв ¦ в
F8 (Ў §г в Є Ё Ґ ®вЄал«Ё), Flock() ў®§ўа вЁв .F. Ё б«Ґ¤гой п а Ў®в
в Є¦Ґ Ўг¤Ґв Їа®ЇгйҐ . ‚ § ўҐаиҐЁҐ Їа®Ја ¬¬л Ўг¤Ґв ЁбЇ®«м§®ў вмбп
Є®¬ ¤ BROWSE. —Ёв вҐ«о ЇаҐ¤« Ј Ґвбп Їа®ўҐаЁвм Ї®«гзҐго FOXPRO-
Їа®Ја ¬¬г.
‡ ¤ ЁҐ 23.5. „Ґ©бвўгп б 2 а Ў®зЁе бв жЁ©, Їа®¬®¤Ґ«Ёаг©вҐ § еў в,
§ вҐ¬ - Ї®«®Ґ Ў«®ЄЁа®ў ЁҐ Ѓ„ Student б 1-© бв жЁЁ. Ќ 2-© бв жЁЁ
§ ЇгбвЁвҐ Їа®Ја ¬¬г ЇаЁ¬Ґа 23.1 б гзҐв®¬ Ґ®Ўе®¤Ё¬ле Ё§¬ҐҐЁ©.
€§гзЁвҐ ®Ўа Ў®вЄг ®иЁЎ®Є Ў«®Є®¬ ErrEx ў а §«Ёзле бЁвг жЁпе
Ў«®ЄЁа®ў Ёп.

23.6. ‚лЇ®«пҐ¬ § еў в Ў §л ¤ ле Ё«Ё § ЇЁбЁ
ў гб«®ўЁпе Є®ЄгаҐжЁЁ. ’а § ЄжЁЁ

‚ Ї. 23.5 ЇаЁ¬ҐаҐ Ў«®Є ErrEx Ї®Є § ®, Є Є ®бгйҐбвўЁвм
¬®Ј®Єа влҐ Ї®ЇлвЄЁ Ї®«гз¬вм ¤®бвгЇ Є Ѓ„. ‚ FOXPRO Ґбвм ®б®Ў п
Є®¬ ¤ SET REPROCESS TO <‚лаN> SECONDS, Ї®§ў®«пой п § ¤ вм
зЁб«® <‚лаN> Ї®Їлв®Є Ё«Ё ўаҐ¬п, ў вҐзҐЁҐ Є®в®а®Ј® ®Ё Ўг¤гв
ЇаҐ¤ЇаЁЁ¬ вмбп (Ґб«Ё бЇа ў ®в <‚лаN> б«®ў® SECONDS, <‚лаN>
®Ў®§ з Ґв зЁб«® бҐЄг¤). „Ё Ї §® § зҐЁ© <‚лаN> - ®в 1 ¤® 32000.
“бЇҐе Ї®ЇлвЄЁ Ё«Ё ¦ вЁҐ Esc ®в¬Ґпов ¤ «мҐ©иЁҐ Ї®ЇлвЄЁ. ‚ е®¤Ґ
ўлЇ®«ҐЁп Є®¬ ¤ ўлў®¤Ёв ¤ЁбЇ«Ґ© б®®ЎйҐЁҐ ® ўлЇ®«пҐ¬ле
Ї®ЇлвЄ е Ў«®ЄЁа®ў Ёп. “бЇҐи п Ї®ЇлвЄ ЇаЁў®¤Ёв Є ЁбзҐ§®ўҐЁо
б®®ЎйҐЁп.
…б«Ё Ї®ЇлвЄЁ Ў«®ЄЁа®ў Ёп ®бгйҐбвў«п«Ёбм дгЄжЁҐ© Flock()
Ё«Ё Rlock() (Lock()), Ёе § зҐЁҐ .T. ®ва §Ёв Є®Ґзл© гбЇҐе.
…б«Ё ¦ в Esc Ё«Ё ўбҐ Ї®ЇлвЄЁ ЁбзҐаЇ л ЎҐ§ аҐ§г«мв в ,
§ зҐЁҐ¬ дгЄжЁЁ пў«пҐвбп .F. .
ERROR-Ў«®Є Ё¬ҐҐв ЇаЁ®аЁвҐв ў в®¬ б¬лб«Ґ, зв® ®вЄ § ў
®вЄалвЁЁ Ѓ„ Ґ¬Ґ¤«Ґ® ўл§лў Ґв ўлЇ®«ҐЁҐ ERROR-Ў«®Є (ЎҐ§
Ї®ўв®аҐЁп ўв®¬ вЁзҐбЄЁе Ї®Їлв®Є ®вЄалвЁп Ѓ„). ”гЄжЁЁ Ў«®ЄЁа®ў Ёп
Ґ ўл§лў ов ERROR-Ў«®Є.
Љ®¬ ¤ SET REPROCESS Ё¬ҐҐв ў аЁ в SET REPROCESS TO AUTOMATIC
(Ё«Ё SET REPROCESS TO 0), бЁ¬ ойЁ© ®Ја ЁзҐЁҐ зЁб«® Ї®Їлв®Є.
Љ« ўЁи Esc Ї®ЇаҐ¦Ґ¬г ®бгйҐбвў«пҐв Ёе ®в¬Ґг. ‚ ў аЁ вҐ
SET REPROCESS TO -1 ("¬ ЄбЁ¬ «ЁбвбЄ®¬") Ў«®ЄЁаговбп ¤Ґ©бвўЁҐ Esc
Ё ўле®¤ ERROR-Ў«®Є. …б«Ё ЇаЁ нв®¬ ў аЁ вҐ Є®¬ ¤л Ї®ЇлвЄЁ Ўг¤гв
ЎҐ§гбЇҐил, ЇаЁ¤Ґвбп ЇҐаҐ§ Јаг¦ вм Џќ‚Њ.
ЊЁгб®¬ Є®¬ ¤л пў«пҐвбп Ґ¤Ё®Ґ аҐиҐЁҐ ¤«п ўбҐ© Їа®Ја ¬¬л.
‚ CLIPPER ЇаҐ¤« Ј Ґвбп Ў®а Ё§ 4 дгЄжЁ©, ®Ўа §гойЁе д ©«
LOCKS.PRG, Є®в®ал© ¤® Ї®¤Є«оз вм Є®¬ ¤®© SET PROCEDURE TO.
”гЄжЁЁ RecLock(<‚лаN>) Ё FilLock(<‚лаN>) ў вҐзҐЁҐ <‚лаN>
бҐЄг¤ ўлЇ®«пов Ї®ЇлвЄЁ § еў в § ЇЁбЁ Ё«Ё д ©« Ѓ„
б®®вўҐвбвўҐ®. ”гЄжЁп NetUse("<€¬п Ѓ„>",<ђҐ¦Ё¬>, <‚лаN>) ў
вҐзҐЁҐ <‚лаN> бҐЄг¤ Їлв Ґвбп ®вЄалвм д ©« <€¬п Ѓ„> ў
¬®®Ї®«м®¬ аҐ¦Ё¬Ґ (<ђҐ¦Ё¬> = .T.) Ё«Ё аҐ¦Ё¬Ґ а §¤Ґ«ҐЁп
(<ђҐ¦Ё¬>) = .F.). Ќ Є®Ґж, дгЄжЁп AddRec(<‚лаN>) ў вҐзҐЁҐ
<‚лаN> бҐЄг¤ Їлв Ґвбп ¤®Ў ўЁвм Їгбвго § ЇЁбм ў ЄвЁўго Ѓ„.
€в Є, Ґг¤ зг (®вЄ §) ў ®вЄалвЁЁ Ѓ„, Ў«®ЄЁа®ў ЁЁ Ѓ„ Ё«Ё § ЇЁбЁ
Ѓ„ Їлв овбп ЇаҐ®¤®«Ґвм Ї®ўв®аҐЁҐ¬ Ї®Їлв®Є ®вЄалвЁп (Ў«®ЄЁа®ў Ёп) ў
вҐзҐЁҐ ҐЄ®в®а®Ј® ўаҐ¬ҐЁ Ё«Ё ¤® ўҐиҐЈ® ЇаҐалў Ёп (Esc). ЏаЁ
"Ї®«®© Ґг¤ зҐ" ¬®¦® ЇҐаҐЄ«озЁвмбп ®Ўа Ў®вЄг ¤агЈЁе ¤ ле,
§ вҐ¬ ў®ўм Ї®Їлв вмбп Ї®«гзЁвм ¦Ґ« л© ®ЎкҐЄв. Ќ ЁЎ®«ҐҐ Їа®бв®
нв® ®бгйҐбвўЁвм ў ¤ҐжҐва «Ё§®ў ле FOXPRO-Їа®Ја ¬¬ е, ®б®ў®©
Є®в®але пў«пҐвбп ¬Ґо б Ї®¤Є«озҐл¬Ё Є Ґ¬г Ў«®Є ¬Ё, Ґб«Ё ў Ёе
ЇаҐ¤гб¬®ваҐ аҐ ЄжЁп ®вЄ §л.
’а § ЄжЁЁ. ‚бҐ аҐи «®бм Ўл Їа®йҐ, Ґ Ўг¤м ва § ЄжЁ© -
«®ЈЁзҐбЄЁе Ґ¤ЁЁж а Ў®вл, ўлЇ®«ҐЁҐ Є®в®але ¤ ¦Ґ 99 %
а ў®бЁ«м® ҐўлЇ®«ҐЁо. ЏаҐ¤бв ўмвҐ ¤ўҐ Ѓ„: "Џа®¤ ¦Ё"
Ё "Џ®ЄгЇ вҐ«Ё", ў Є®в®але Ї®ЄгЇ вҐ«Ё ®Ў®§ зҐл Є®¤®¬
Ї®ЄгЇ вҐ«п. …б«Ё ¬л § ¬ҐпҐ¬ ҐЄ®в®ал© Є®¤ Ї®ЄгЇ вҐ«п, в®
б¤Ґ« вм нв® ¤®«¦л ў Є ¦¤®© Ѓ„. „®ЇгбвЁ¬, нв® б¤Ґ« ® «Ёим ў
®¤®© Ё§ Ёе, ¤агЈ п - Ўл« § еў зҐ Ё§ўҐ Ё ў®§ЁЄ вгЇЁЄ.
„ лҐ Ї®вҐап«Ё жҐ«®бв®бвм.
‘гйҐбвўгов ¤ў Ї®¤е®¤ Є ва § ЄжЁп¬. ЏҐаўл©: б з «
Ї®«гзЁвм ўбҐ Ґ®Ўе®¤Ё¬лҐ Ў«®ЄЁа®ў Ёп (ў иҐ¬ ЇаЁ¬ҐаҐ -
Ў«®ЄЁа®ў вм ®ЎҐ Ѓ„) Ё «Ёим § вҐ¬ ўлЇ®«пвм ®Ўа Ў®вЄг.
‚в®а®©: а §¬ҐвЁвм ў Їа®Ја ¬¬Ґ гз бвЄЁ, б®®вўҐвбвўгойЁҐ
ва § ЄжЁп¬; ЇаЁ Ґў®§¬®¦®бвЁ § ўҐаиЁвм з вго ва § ЄжЁо
Їа®Ё§ў®¤Ёвм "®вЄ в" Є з «г гз бвЄ Ё г«Ёа®ў вм нддҐЄв
з в®© ва § ЄжЁЁ. ‡ ¬ҐвЁ¬, зв® ўл¤Ґ«ҐЁҐ ва § ЄжЁ©
Ґ®Ўе®¤Ё¬® Ё ¤«п Їа®жҐ¤га ў®ббв ®ў«ҐЁп Ї®б«Ґ ў аЁ©®Ј®
ЇаҐЄа йҐЁп а Ў®вл Їа®Ја ¬¬л.
‡ ¤ ЁҐ 23.6. ЋЇа®Ўг©вҐ а §«ЁзлҐ ў аЁ вл Є®¬ ¤л
REPROCESS TO ¬®¤Ґ«Ё, а бб¬®ваҐ®© ў § ¤ ЁЁ 23.5.

‡ЂЉ‹ћ—…Ќ€… Љ ѓ‹Ђ‚… 23

ЌҐ§ ЁҐ § Є®®ў Ґ ®бў®Ў®¦¤ Ґв ®в ®вўҐвбвўҐ®бвЁ. •®вп
Ўл Ї®нв®¬г ¤ го Ј« ўг ¤® Ўл«® Їа®зҐбвм вҐ¬, Єв® б®ЎЁа Ґвбп
а Ў®в вм ў бҐвЁ Џќ‚Њ. Ља®¬Ґ § Ёп, г¦ нвЁЄ . ‘ нвЁЄ®©
"ЇҐйҐа®Ј® зҐ«®ўҐЄ " ¬®¦® а Ў®в вм Џќ‚Њ ў ®¤Ё®зЄг, ® Ґ
ў бҐвЁ. „«п Ў®«ҐҐ ¤Ґв «м®Ј® а бб¬®ваҐЁп бҐвҐўле Їа®Ў«Ґ¬,
ЇаЁ¬Ґа, Їа®Ў«Ґ¬л ва § ЄжЁ©, ®Ўа й ©вҐбм Є [4, 8] Ё ¤агЈЁ¬
Ёбв®зЁЄ ¬.

Соседние файлы в папке материалы по FoxPro

#
28.06.201432.66 Кб25GL19.PAS
#
28.06.201437.33 Кб25GL2.PAS
#
28.06.201450.06 Кб25GL20.PAS
#
28.06.201454.81 Кб25GL21.PAS
#
28.06.201417.37 Кб25GL22.PAS
#
28.06.201425.83 Кб25GL23.PAS
#
28.06.201463.97 Кб25GL3.PAS
#
28.06.20146.8 Кб25OGLA.PAS
#
28.06.20143.1 Кб25PRIL5.TXT
#
28.06.201422.79 Кб25VVED.TXT