home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / mn195.ha / ERMOLOV1.TXT < prev    next >
Text File  |  1994-12-19  |  38KB  |  1,003 lines
  1. é ñá¡¡«⌐ ßΓáΓ∞Ñ »α¿ó«ñ¿Γß∩ óáα¿á¡Γ «αúá¡¿ºáµ¿¿ ¬«¡ΓѬßΓ¡«-ºáó¿ß¿¼«⌐
  2. »«ñ߬Ậ¿ ó »α¿½«ªÑ¡¿∩σ Paradox 3.5, αÑ὿º«óá¡¡δσ ¡á óßΓα«Ñ¡¡«¼ ∩ºδ¬Ñ
  3. »α«úαá¼¼¿α«óá¡¿∩ PAL, á ΓᬪѠ¡Ñ¬«Γ«αδÑ «ß«íÑ¡¡«ßΓ¿ αáí«Γδ ó Paradox
  4. 3.5 ó ßÑΓÑó«¼ óáα¿á¡ΓÑ.
  5.  
  6. Ç. àମ½«ó
  7.  
  8. èᬠ«αúá¡¿º«óáΓ∞ »«ñ߬Ậπ ó »α¿½«ªÑ¡¿¿ Paradox 3.5 ¿ ÑΘÑ ¬«Ñ « τѼ
  9.  
  10. 1. Å«τѼπ «í φΓ«¼ ßΓ«¿Γ »¿ßáΓ∞ ?
  11.  
  12. éßѼ, ¬Γ« ¬«úñá-½¿í« »«½∞º«óá½ß∩ æôüä Paradox 3.5 ¿, ÑßΓÑßΓóÑ¡¡«,
  13. í«½ÑÑ αá¡¡¿¼¿ óÑαß¿∩¼¿ Paradox, »α¿σ«ñ¿½«ß∞ ¡Ñ αẠߠ߫ªá½Ñ¡¿Ñ¼
  14. ¬«¡ßΓáΓ¿α«óáΓ∞ »αá¬Γ¿τÑ߬¿ »«½¡«Ñ «ΓßπΓßΓó¿Ñ ó φΓ«⌐ »α«úαá¼¼Ñ
  15. ¬á¬¿σ-½¿í« »α¿º¡á¬«ó ¬«¡ΓѬßΓ¡«-ºáó¿ß¿¼«⌐ »«¼«Θ¿. æá¼«Ñ í«½∞ΦÑÑ, ¡á
  16. τΓ« ¼«ªÑΓ αáßßτ¿ΓδóáΓ∞ »«½∞º«óáΓѽ∞, - φΓ« ñóÑ ßΓα«τ¬¿ »«ñ߬Ậ¿
  17. ¡áóÑασπ φ¬αá¡á ¿ ß»αáó¬á, ó ¬«Γ«απε ¼«ª¡« »«»áßΓ∞, ¡áªá󠬽áó¿Φπ F10 ¿
  18. óδíαáó ó ú«α¿º«¡Γá½∞¡«¼ ¼Ñ¡ε »π¡¬Γ "Help" (¿½¿ "æ»αáó¬á", Ñß½¿ óáΦ
  19. φ¬ºÑ¼»½∩α Paradox απß¿Σ¿µ¿α«óá¡). é «ß¡«ó¡«¼ ¼Ñ¡ε óδ ¼«ªÑΓÑ »«½πτ¿Γ∞
  20. ñ«ßΓπ» ¬ »«½¡«¼π «»¿ßá¡¿ε »α«úαá¼¼δ »« ¬½áó¿ΦÑ F1. ê óßÑ. ìÑΓ ñáªÑ
  21. »«ñ߬Ậ¿ »« »π¡¬Γπ ¼Ñ¡ε, ó ¬«Γ«α«¼ óδ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ ¡áσ«ñ¿ΓÑß∞.
  22.  
  23. àßΓÑßΓóÑ¡¡«, »α¿ ¡á»¿ßá¡¿¿ »α¿½«ªÑ¡¿⌐ æôüä Paradox ¡á óßΓα«Ñ¡¡«¼ ∩ºδ¬Ñ
  24. 4-ú« »«¬«½Ñ¡¿∩ PAL Γᬫú« íѺ«íαế∩ ñ«»π߬áΓ∞ ¡Ñ½∞º∩. ì« »α¿ »«»δΓ¬Ñ
  25. αÑ὿º«óáΓ∞ ¬«¡ΓѬßΓ¡«-ºáó¿ß¿¼πε »«ñ߬Ậπ ¡á PAL »α«úαá¼¼¿ßΓá
  26. »«ñª¿ñáεΓ ¡Ñ¬«Γ«αδÑ Γαπñ¡«ßΓ¿, »πΓ¿ »αÑ«ñ«½Ñ¡¿∩ ¬«Γ«αδσ ¿º½áúáεΓß∩ ó
  27. ¡áßΓ«∩ΘÑ⌐ ßΓáΓ∞Ñ.
  28.  
  29. 2. é«º¼«ª¡δÑ »πΓ¿ αÑ὿ºáµ¿¿ ºáñáτ¿
  30.  
  31. ÅαѪñÑ τѼ ú«ó«α¿Γ∞ « »πΓ∩σ αÑ὿ºáµ¿¿ ºáñáτ¿, αáºπ¼¡« τÑΓ¬«
  32. ßΣ«α¼π½¿α«óáΓ∞ φΓπ ºáñáτπ. êΓá¬, ∩ ñπ¼áε, ¼«¿ τ¿ΓáΓѽ¿ ß«ú½áß∩Γß∩, τΓ«
  33. »α«úαá¼¼á ñ«½ª¡á »«ºó«½∩Γ∞ »«τΓ¿ óßÑúñá, ¡áªá󠬽áó¿Φπ F1, »«½πτ¿Γ∞
  34. óαáºπ¼¿Γѽ∞¡«Ñ «íΩ∩ß¡Ñ¡¿Ñ, τΓ« ¼«ª¡« ¿ ñ«½ª¡« ñѽáΓ∞ ß »α«úαá¼¼«⌐ ó
  35. ñá¡¡δ⌐ ¼«¼Ñ¡Γ (¿ß¬½ετÑ¡¿Ñ, ¼«ªÑΓ íδΓ∞, »αÑñßΓáó½∩εΓ ¡Ñ¬«Γ«αδÑ ñ¿á½«ú¿
  36. »« óδí«απ «τÑó¿ñ¡δσ áóáα¿⌐¡δσ αÑᬵ¿⌐). èα«¼Ñ Γ«ú«, σ«Γѽ«ß∞ íδ, ¡áªáó
  37. ¡Ñ¬«Γ«απε ñαπúπε ¬½áó¿Φπ ¿½¿ ¬«¼í¿¡áµ¿ε ¬½áó¿Φ (ó ¡áßΓ«∩ΘÑ⌐ ßΓáΓ∞Ñ
  38. ¿ß»«½∞ºπÑΓß∩ Shift+F1), »«½πτ¿Γ∞ ñ«ßΓπ» ¬ »«½¡«¼π «ú½áó½Ñ¡¿ε
  39. ñ«¬π¼Ñ¡Γᵿ¿ »« ¿ß»«½∞º«óá¡¿ε »α«úαá¼¼δ, óδíαáΓ∞ ¿¡ΓÑαÑßπεΘ¿⌐ »π¡¬Γ ¿
  40. »«τ¿ΓáΓ∞ Ñú«. àßΓÑßΓóÑ¡¡«, »αÑñ»«½áúáÑΓß∩, τΓ« óδ »« «»αÑñѽѡ¡«⌐
  41. ¬½áó¿ΦÑ (󠬫¡ΓѬßΓÑ ñá¡¡«⌐ ßΓáΓ∞¿ ¿ß»«½∞ºπÑΓß∩ Esc) ¼«ªÑΓÑ óÑα¡πΓ∞ß∩
  42. Γ«τ¡« ó Γ« ªÑ ß«ßΓ«∩¡¿Ñ, ¿º ¬«Γ«α«ú« íδ½á óδºóá¡á »«¼«Θ∞.
  43.  
  44. çñÑß∞ ªÑ ∩ σ«τπ »«ñτÑભπΓ∞, τΓ« ¡Ñ αáßß¼áΓα¿óáε ¡Ñß«¼¡Ñ¡¡« «τÑ¡∞
  45. ó᪡δ⌐ ó«»α«ß »«ßΓα«Ñ¡¿∩ ú¿»ÑαΓѬßΓ«ó«⌐ ß¿ßΓѼδ, ¬«Γ«αδ⌐ ñ«ßΓ«¿¡
  46. «Γñѽ∞¡«⌐ ßΓáΓ∞¿ ¿ ºáΓαáú¿óáÑΓ ¬απú »α«í½Ñ¼, ñ«ßΓáΓ«τ¡« ñá½Ñ¬¿⌐ «Γ
  47. «íßπªñáѼδσ ßÑ⌐τáß. èα«¼Ñ Γ«ú«, »« ¼«Ñ¼π ¼¡Ñ¡¿ε, ñ½∩ ¡Ñí«½∞Φ«ú«
  48. »α¿½«ªÑ¡¿∩, αáßßτ¿Γá¡¡«ú« ¿ß¬½ετ¿Γѽ∞¡« ¡á ¬«¡Ñτ¡«ú« »«½∞º«óáΓѽ∩, ó
  49. α∩ñÑ ß½πτáÑó ó«º¼«ª¡«ßΓÑ⌐, ¿º½«ªÑ¡¡δσ ó »αÑñδñπΘѼ áíºáµÑ, ó»«½¡Ñ
  50. ñ«ßΓáΓ«τ¡«.
  51.  
  52. äá¡¡á∩ ºáñáτá ¼«ªÑΓ íδΓ∞ αÑΦÑ¡á ñóπ¼∩ ß»«ß«íἿ: »α¿ »«¼«Θ¿ óδó«ñá ¡á
  53. φ¬αá¡ ¬«¼á¡ñ«⌐ TEXT ¿ »α¿ »«¼«Θ¿ »α«ß¼«Γαá Σá⌐½á »«ñ߬Ậ¿,
  54. «Σ«α¼½Ñ¡¡«ú« ¬á¬ íáºá ñá¡¡δσ (db-Σá⌐½) Paradox. é »«ß½Ññ¡Ñ¼ ß½πτáÑ
  55. Σá⌐½ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ Ññ¿¡ßΓóÑ¡¡«Ñ ΓѬßΓ«ó«Ñ »«½Ñ, »α¿¼Ñα¡«
  56. ß««ΓóÑΓßΓóπεΘÑÑ Φ¿α¿¡Ñ φ¬αá¡á.
  57.  
  58. éδó«ñ »α¿ »«¼«Θ¿ ¬«¼á¡ñδ TEXT ΓαÑíπÑΓ ªÑßΓ¬«⌐ αáºí¿ó¬¿ ¿¡Σ«α¼áµ¿¿ ¡á
  59. ßΓαá¡¿µδ ¿ »α«úαá¼¼¡«⌐ αÑ὿ºáµ¿¿ óßÑσ «»Ñαᵿ⌐ π»αáó½Ñ¡¿∩ »α«ß¼«Γα«¼,
  60. ñáªÑ Γᬿσ φ½Ñ¼Ñ¡Γáα¡δσ, ¬á¬ ½¿ßΓá¡¿Ñ ßΓαá¡¿µ. ¥Γ« »α¿ó«ñ¿Γ ¬
  61. ¿º½¿Φ¡Ñ⌐, ß ¼«Ñ⌐ Γ«τ¬¿ ºαÑ¡¿∩, ªÑßΓ¬«ßΓ¿ »«ñ߬Ậ¿. Åαá¬Γ¿τÑ߬¿ ¬áªñ«Ñ
  62. ¿º¼Ñ¡Ñ¡¿Ñ ó ñ«¬π¼Ñ¡Γᵿ¿ ó½ÑτÑΓ ºá ß«í«⌐ »ÑαÑñѽ¬¿, ¬«Γ«αδÑ ñ«½ªÑ¡
  63. «ßπΘÑßΓó½∩Γ∞ ñ«ßΓáΓ«τ¡« ¬óá½¿Σ¿µ¿α«óá¡¡δ⌐ »α«úαá¼¼¿ßΓ. éΓ«α«⌐ »πΓ∞
  64. »«ºó«½∩ÑΓ »«ñú«Γáó½¿óáΓ∞ ñ«¬π¼Ñ¡Γᵿε ó «íδτ¡«¼ ΓѬßΓ«ó«¼ Σ«α¼áΓÑ ¿
  65. ºáΓѼ φ¬ß»«αΓ¿α«óáΓ∞ ÑÑ ó Σá⌐½δ Σ«α¼áΓá db. Åα¿ φΓ«¼ »«½∞º«óáΓѽ∞
  66. ¼«ªÑΓ íѺ« óß∩¬¿σ πß¿½¿⌐ ß« ßΓ«α«¡δ »α«úαá¼¼¿ßΓá »α«ß¼áΓα¿óáΓ∞
  67. ßΓαá¡¿µδ »«ñ߬Ậ¿. Åα¿ ªÑ½á¡¿¿ ¼«ª¡« «íΩÑñ¿¡¿Γ∞ ¡Ñ߬«½∞¬« ½«ú¿τÑ߬¿
  68. ßó∩ºá¡¡δσ ΓѼ ó «ñ¿¡ Σá⌐½, τΓ« »«ºó«½¿Γ »α«ßΓδ¼ ½¿ßΓ᡿Ѽ »ÑαÑσ«ñ¿Γ∞
  69. «Γ «ñ¡«ú« »π¡¬Γá »«ñ߬Ậ¿ ¬ ñαπú«¼π.
  70.  
  71. 꺽«ªÑ¡¡δÑ ß««íαáªÑ¡¿∩ »α¿óѽ¿ ¼Ñ¡∩ ¬ óδí«απ óΓ«α«ú« »πΓ¿ αÑ὿ºáµ¿¿.
  72. èα«¼Ñ Γ«ú«, φëà»πΓ∞ «í½ÑúτáÑΓ αÑ὿ºáµ¿ε φ½Ñ¼Ñ¡Γ«ó ú¿»ÑαΓѬßΓá, ¡«
  73. «í φΓ«¼, ¬á¬ ∩ πªÑ ú«ó«α¿½, ó ñαπú«⌐ αáº.
  74.                              
  75. 3. é¡ÑΦ¡∩∩ ßΓαπ¬Γπαá ß¿ßΓÑ¼δ »«ñ߬Ậ¿
  76.  
  77. ÆÑ»Ñα∞ ∩ «»¿Φπ »αÑñ½áúáѼπε ¼¡«ε ß¿ßΓÑ¼π »«ñ߬Ậ¿, ¬á¬ «¡á óδú½∩ñ¿Γ ß
  78. Γ«τ¬¿ ºαÑ¡¿∩ »α¿¼Ñ¡∩εΘÑú« ÑÑ »α«úαá¼¼¿ßΓá.
  79.  
  80. üáºá ñá¡¡δσ, ¿ß»«½∞ºπѼá∩ »α¿ «αúá¡¿ºáµ¿¿ ß¿ßΓÑ¼δ »«¼«Θ¿, ß«ßΓ«¿Γ ó
  81. »αÑñ½áúáѼ«¼ ¼¡«ε óáα¿á¡ΓÑ ¿º Γáí½¿µδ-«ú½áó½Ñ¡¿∩ Index, ßΓαπ¬Γπαá
  82. ¬«Γ«α«⌐ »α¿óÑñÑ¡á ó Γáí½¿µÑ 1, ¿ α∩ñá Γáí½¿µ ß ΓѬßΓ«¼ αáºñѽ«ó »«¼«Θ¿.
  83.  
  84. ä½∩ ¿ß»«½∞º«óá¡¿∩ ó »α«úαá¼¼áσ ¡á PAL »αÑñ¡áº¡áτÑ¡δ ñóÑ »α«µÑñπαδ:
  85.  
  86. - HelpMnu - óδñáτá »«ñ߬Ậ¿ »« ΓѬπΘѼπ »π¡¬Γπ ¼Ñ¡ε;
  87.  
  88. - EditHelp - óδñáτá »«ñ߬Ậ¿ »α¿ αÑñá¬Γ¿α«óá¡¿¿ ¿ »α«ß¼«ΓαÑ Γáí½¿µ.
  89.  
  90. Åα¿¼Ñαδ ¿ß»«½∞º«óá¡¿∩ φΓ¿σ »α«µÑñπα »α¿óÑñÑ¡δ ó ½¿ßΓ¿¡úáσ 1 ¿ 2.
  91.  
  92. Åα«µÑñπαá HelpMnu »α¿¡¿¼áÑΓ ß½ÑñπεΘ¿Ñ »áαá¼ÑΓαδ: ¬«ñ »«ß½Ññ¡Ñ⌐ ¡áªáΓ«⌐
  93. ¬½áó¿Φ¿, ΓѬπΘπε »«º¿µ¿ε ¼Ñ¡ε ¿ ¡á¿¼Ñ¡«óá¡¿Ñ ¼Ñ¡ε, ß««ΓóÑΓßΓóπεΘÑÑ
  94. ¡á¿¼Ñ¡«óá¡¿ε ΓѼδ ó Γáí½¿µÑ Index. é«ºóαáΘáÑΓß∩ ½«ú¿τÑ߬«Ñ º¡áτÑ¡¿Ñ
  95. FALSE, Ñß½¿ »Ñαóδ⌐ »áαá¼ÑΓα Esc, ¿ TRUE ó »α«Γ¿ó¡«¼ ß½πτáÑ.
  96.  
  97. Åα«µÑñπαá óδºδóáÑΓß∩ »α¿ óδσ«ñÑ ¿º ¼Ñ¡ε »« ¬½áó¿ΦÑ Esc, Shift+F1 (F11)
  98. ¿½¿ F1. ÅÑαóδ⌐ ß½πτá⌐ Γαá¬ΓπÑΓß∩ ¬á¬ «Γ¬áº «Γ óó«ñá, ó« óΓ«α«¼ ß½πτáÑ
  99. óδñáÑΓß∩ »«½¡«Ñ «ú½áó½Ñ¡¿Ñ ß¿ßΓÑ¼δ »«¼«Θ¿, ó ΓαÑΓ∞Ѽ »«¼«Θ∞ »«
  100. ΓѬπΘѼπ »π¡¬Γπ ¼Ñ¡ε.
  101.  
  102. Åα«µÑñπαá EditHelp »α¿¡¿¼áÑΓ ß½ÑñπεΘ¿Ñ »áαá¼ÑΓαδ: ΓѼᠻ«ñ߬Ậ¿,
  103. »π¡¬Γ ΓÑ¼δ ¿ »α¿º¡á¬ »«½¡«⌐ »«ñ߬Ậ¿. Å«ß½Ññ¡¿⌐ »áαá¼ÑΓα ñ«½ªÑ¡
  104. ¿¼ÑΓ∞ ½«ú¿τÑ߬«Ñ º¡áτÑ¡¿Ñ TRUE, Ñß½¿ ΓαÑíπÑΓß∩ »«½¡«Ñ «ú½áó½Ñ¡¿Ñ
  105. ß¿ßΓÑ¼δ »«¼«Θ¿, ¿ FALSE, Ñß½¿ ¡Ñ«íσ«ñ¿¼ ºáñá¡¡δ⌐ αáºñѽ »«¼«Θ¿.
  106.  
  107. æἿ »α«µÑñπαδ HelpMnu ¿ EditHelp »α¿óÑñÑ¡δ ó ½¿ßΓ¿¡úáσ 3 ¿ 4.
  108.  
  109. HelpMnu ¿ EditHelp «íαáΘáεΓß∩ ¬ »α«µÑñπαá¼ HlpFool ¿ HlpPart (½¿ßΓ¿¡ú¿
  110. 5 ¿ 6) ñ½∩ óδñáτ¿ «ú½áó½Ñ¡¿∩ ß¿ßΓÑ¼δ »«ñ߬Ậ¿ ¿ ñ½∩ óδñáτ¿ »«ñ߬Ậ¿
  111. »« ñá¡¡«¼π αáºñѽπ ñá¡¡«⌐ ΓѼδ ß««ΓóÑΓßΓóÑ¡¡«.
  112.  
  113. 4. èᬿѠó«»α«ßδ ó«º¡¿¬½¿ »α¿ ¡á»¿ßá¡¿¿ ß¿ßΓÑ¼δ »«ñ߬Ậ¿
  114.  
  115. ÆÑ»Ñα∞ « Γαπñ¡«ßΓ∩σ. Äß¡«ó¡á∩ Γαπñ¡«ßΓ∞ ß«ßΓ«¿Γ ó Γ«¼, τΓ« Paradox 3.5
  116. »«ºó«½∩ÑΓ «Γ¬αδóáΓ∞ ¡á »α«ß¼«Γα ¡«óδÑ Σá⌐½δ Γ«½∞¬« ó αѪ¿¼Ñ Main, Γ«
  117. ÑßΓ∞ »α¿ »α«ß¼«ΓαÑ Γáí½¿µδ ¿½¿ ó «ß¡«ó¡«¼ ¼Ñ¡ε. àß½¿ ªÑ ∩ αÑñá¬Γ¿απε
  118. ¿½¿ óó«ªπ τΓ«-¡¿íπñ∞, á φΓ« «ß¡«ó¡«Ñ ß«ßΓ«∩¡¿Ñ í«½∞Φ¿¡ßΓóá »α¿½«ªÑ¡¿⌐,
  119. Γ« ñ½∩ ó맮óá ¡«ó«⌐ Γáí½¿µδ ¡áñ« ºáóÑαΦ¿Γ∞ αÑñá¬Γ¿α«óá¡¿Ñ. æἫ »«
  120. ßÑíÑ φΓ« ñÑ⌐ßΓó¿Ñ óα«ñÑ íδ ¡ÑΓαπñ¡«Ñ, Ñß½¿ íδ ¡Ñ ΓαÑí«óá¡¿Ñ ó«ºóαáΓá
  121. »«ß½Ñ »α«ß¼«Γαá »«¼«Θ¿ ó ¿ßσ«ñ¡«Ñ ß«ßΓ«∩¡¿Ñ.
  122.  
  123. êºóÑßΓ¡«, τΓ« ó æôüä Paradox ßπΘÑßΓóπÑΓ ñóá αѪ¿¼á αÑñá¬Γ¿α«óá¡¿∩ íáºδ
  124. ñá¡¡δσ: »α«ßΓ«Ñ ¿ ß«ó¼ÑßΓ¡«Ñ (Edit ¿ CoEdit). Åα¿ αáí«ΓÑ ó »Ñαó«¼
  125. αѪ¿¼Ñ ¼«¡«»«½∞¡« ºáσóáΓδóáÑΓß∩ óß∩ Γáí½¿µá (Σá⌐½ íáºδ ñá¡¡δσ), óßÑ
  126. ¿º¼Ñ¡Ñ¡¿∩ óδ»«½¡∩εΓß∩ "ó ßΓ«α«¡Ñ" ¿ »ÑαÑ»¿ßδóáεΓß∩ ó Γáí½¿µπ »α¿
  127. ºáóÑαΦÑ¡¿¿ αÑñá¬Γ¿α«óá¡¿∩. é« óΓ«α«¼ ß½πτáÑ ºáσóáΓ »α«¿ºó«ñ¿Γß∩ ¡á
  128. πα«ó¡Ñ ºá»¿ß¿ (¿ Γ« ¡Ñ »«ßΓ«∩¡¡«) ¿ ¿º¼Ñ¡Ñ¡¿∩ »ÑαÑ¡«ß∩Γß∩ ¬áªñδ⌐ αáº
  129. »« ºáóÑαΦÑ¡¿¿ αÑñá¬Γ¿α«óá¡¿∩ ºá»¿ß¿. àßΓÑßΓóÑ¡¡«, »α¿
  130. ¼¡«ú«»«½∞º«óáΓѽ∞߬«⌐ αáí«ΓÑ ó ßÑΓ¿, á ¼¡Ñ »α¿σ«ñ¿Γß∩ »α«úαá¼¼¿α«óáΓ∞
  131. ó «ß¡«ó¡«¼ ñ½∩ ßÑΓÑóδσ »α¿½«ªÑ¡¿⌐, ó «ß¡«ó¡«¼ ¿ß»«½∞ºπÑΓß∩ αѪ¿¼
  132. CoEdit. Ç ΓÑ»Ñα∞ óß»«¼¡¿¼, τΓ« »α«¿ßσ«ñ¿Γ, ¬«úñá ¼δ ó φΓ«¼ αѪ¿¼Ñ
  133. ¡áª¿¼áѼ ¬¡«»¬π F2 (ºáóÑαΦÑ¡¿Ñ αÑñá¬Γ¿α«óá¡¿∩). îδ τáΘÑ óßÑú«
  134. «¬áºδóáѼß∩ ó φΓ«¼ ß½πτáÑ ß«óßѼ ¡Ñ ¡á Γ«⌐ ºá»¿ß¿, ¬«Γ«απε
  135. αÑñá¬Γ¿α«ó὿, á ¡á ºá»¿ß¿ ß ΓѼ ªÑ ¡«¼Ñα«¼. æá¼á ªÑ ºá»¿ß∞ πΦ½á
  136. ¬πñá-Γ« ñá½Ñ¬«, Γᬠ¬á¬ ó «Γ«íαáªÑ¡¿¿ ºá»¿ß¿ ß«αΓ¿απεΓß∩ ß«ú½áß¡«
  137. »Ñαó¿τ¡«¼π ¿¡ñѬßπ. ç¡áτ¿Γ, ¡áñ« Ñ± ¬á¬-Γ« ºá»«¼¡¿Γ∞.
  138.  
  139. èα«¼Ñ Γ«ú«, »α¿ »ÑαÑσ«ñÑ ¬ »α«ß¼«Γαπ ñαπú«⌐ Γáí½¿µδ ¼δ óßÑúñá
  140. ó«ºóαáΘáѼß∩ ó Γáí½¿τ¡πε Σ«α¼π »α«ß¼«Γαá. àß½¿ ¼δ
  141. αÑñá¬Γ¿α«ó὿ ¼¡«ú«Γáí½¿τ¡πε Σ«α¼π, Γ« »α¿ »ÑαÑσ«ñÑ ¬ »α«ß¼«Γαπ ñαπú«⌐
  142. Γáí½¿µδ ¿ «íαáΓ¡«¼ ó«ºóαáΓÑ ¡á φ¬αá¡Ñ óßÑúñá »«∩ó¿Γß∩ ú«½«ó¡á∩
  143. Γáí½¿µá.
  144.  
  145. Æᬿ¼ «íαẫ¼, ñ½∩ «αúá¡¿ºáµ¿¿ ß¿ßΓÑ¼δ »«¼«Θ¿ ó Paradox ¡Ñ«íσ«ñ¿¼«
  146. αÑΦ¿Γ∞ »α«í½Ñ¼π ß«σαá¡Ñ¡¿∩ ¿ ó«ßßΓá¡«ó½Ñ¡¿∩ ΓѬπΘÑú« ß«ßΓ«∩¡¿∩ αáí«τÑ⌐
  147. «í½áßΓ¿.
  148.  
  149. ìÑΓαπñ¡« ºá¼ÑΓ¿Γ∞, τΓ« ΓᬫѠ«íÑß»ÑτÑ¡¿Ñ ß«σαá¡Ñ¡¿∩ ß«ßΓ«∩¡¿∩ αáí«τÑ⌐
  150. «í½áßΓ¿ ¿ ó«ºóαáΓá ó ¡Ñ± ¼«ªÑΓ »«¡áñ«í¿Γ∞ß∩ ¡Ñ Γ«½∞¬« ñ½∩ ß¿ßΓѼδ
  151. »«ñ߬Ậ¿, ¡« ¿ ó α∩ñÑ ñαπú¿σ ¼ÑßΓ. Åα¿ φΓ«¼ µÑ½Ñß««íαạ« ºá»«¼¿¡áΓ∞
  152. ¡Ñ Γ«½∞¬« «ñ¡« ß«ßΓ«∩¡¿Ñ, á ¿ í«½∞ΦÑÑ ¬«½¿τÑßΓó«. é««íΘÑ ú«ó«α∩,
  153. σ«α«Φ« íδ ºá»«¼¿¡áΓ∞ ßΓ«½∞¬« ß«ßΓ«∩¡¿⌐, ß¬«½∞¬« »«ºó«½∩ÑΓ «íΩѼ
  154. «»ÑαáΓ¿ó¡«⌐ »á¼∩Γ¿.
  155.                                    
  156. 5. ü¿í½¿«ΓѬá ß«σαá¡Ñ¡¿∩-ó«ßßΓá¡«ó½Ñ¡¿∩ ß«ßΓ«∩¡¿∩ αáí«τÑ⌐ «í½áßΓ¿
  157.  
  158. Æᬿ¼ «íαẫ¼ ∩ »α¿Φѽ ¬ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ¡á»¿ßáΓ∞ í¿í½¿«ΓѬπ »α«µÑñπα
  159. PAL, «íÑß»Ñτ¿óáεΘ¿σ ß«σαá¡Ñ¡¿Ñ ó »α«úαá¼¼¡«¼ ßΓѬѠ¿ ó«ßßΓá¡«ó½Ñ¡¿Ñ ¿º
  160. ¡Ñú« ß«ßΓ«∩¡¿∩ αáí«τÑ⌐ «í½áßΓ¿. é τÑßΓ∞ »«σ«ªÑú« »« ¡áº¡áτÑ¡¿ε «íΩѬΓá
  161. ¼¡«ú¿σ íẠñá¡¡δσ Oracle ∩ ¡áºóá½ φΓπ í¿í½¿«ΓѬπ Cursor. Åα«µÑñπαδ,
  162. óσ«ñ∩Θ¿Ñ ó ÑÑ ß«ßΓáó, »α¿óÑñÑ¡δ ó ½¿ßΓ¿¡úÑ 7.
  163.  
  164. æΓѬ«óá∩ «αúá¡¿ºáµ¿∩ ßΓαπ¬Γπαδ ß«σαá¡Ñ¡¿∩ ß«ßΓ«∩¡¿∩ «íÑß»Ñτ¿óáÑΓß∩
  165. ß«ºñ᡿Ѽ ¿ πñá½Ñ¡¿Ñ¼ ú½«íá½∞¡δσ »ÑαѼѡ¡δσ ß ¿¼Ñ¡á¼¿, «¬á¡τ¿óáεΘ¿¼¿ß∩
  166. ¡«¼Ñα«¼ ΓѬπΘÑú« πα«ó¡∩ ßΓѬá. ä½∩ σαá¡Ñ¡¿∩ πα«ó¡∩ ¿ß»«½∞ºπÑΓß∩
  167. ú½«íá½∞¡á∩ »ÑαѼѡ¡á∩ StackPointer.
  168.  
  169. èáªñ«¼π πα«ó¡ε ß«σαá¡Ñ¡¿∩ ß«ßΓ«∩¡¿∩ ß««ΓóÑΓßΓóπεΓ Γα¿ ú½«íá½∞¡δσ
  170. ¼áßß¿óá: ñ½∩ σαá¡Ñ¡¿∩ ¬«»¿¿ ΓѬπΘÑ⌐ ßΓ᫬¿ ú«½«ó¡«⌐ Γáí½¿µδ, ΓѬπΘÑ⌐
  171. ßΓ᫬¿ ó¬½ετáѼ«⌐ Γáí½¿µδ (Ñß½¿ Σ«α¼á ¼¡«ú«ºáñáτ¡á∩) ¿
  172. ¼áßß¿ó-ßΓαπ¬Γπαá ñ½∩ σαá¡Ñ¡¿∩ ñαπú¿σ »áαá¼ÑΓα«ó ß«ßΓ«∩¡¿∩. ü«½ÑÑ
  173. »«ñα«í¡πε ¿¡Σ«α¼áµ¿ε «í φΓ¿σ ¼áßß¿óáσ óδ ¡á⌐ñÑΓѠ󠬫¼¼Ñ¡Γáα¿∩σ ¬
  174. ½¿ßΓ¿¡úπ »α«µÑñπαδ SaveCur.sc (½¿ßΓ¿¡ú 7).
  175.         
  176. ü¿í½¿«ΓѬá Cursor ß«ßΓ«¿Γ ¿º τÑΓδαÑσ »α«µÑñπα: CurInit, SaveCur, Posit
  177. ¿ RestCur. Åα«µÑñπαá CurInit ó¬½ετÑ¡á Γ«½∞¬« ñ½∩ »α¿ñá¡¿∩ í¿í½¿«ΓѬÑ
  178. "«íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«ú«" ó¿ñá. Ä¡á ¿¡¿µ¿á½¿º¿απÑΓ »ÑαѼѡ¡πε
  179. StackPointer ¿ ΓѼ ßá¼δ¼ »«ºó«½∩ÑΓ, ¿ß»«½∞ºπ∩ í¿í½¿«ΓѬπ Cursor, ¡Ñ
  180. º¡áΓ∞ πª ß«óßѼ ¡¿τÑú« « ÑÑ ó¡πΓαÑ¡¡Ñ¼ πßΓα«⌐ßΓóÑ. Åα«µÑñπαá SaveCur
  181. ß«σαá¡∩ÑΓ ΓѬπΘÑÑ ß«ßΓ«∩¡¿Ñ αáí«τÑ⌐ «í½áßΓ¿ ó ßΓѬÑ, á RestCur
  182. ó«ßßΓá¡áó½¿óáÑΓ Ñú« ¿ π¼Ñ¡∞ΦáÑΓ π¬áºáΓѽ∞ ßΓѬá. Posit - φΓ«
  183. óß»«¼«úáΓѽ∞¡á∩ »α«úαá¼¼á, »«ºó«½∩εΘá∩ ó«ßßΓá¡«ó¿Γ∞ »«½«ªÑ¡¿Ñ ó
  184. Γáí½¿µÑ »« ¬«»¿¿ ÑÑ ßΓ᫬¿.
  185.  
  186. Åα¿¡µ¿» αáí«Γδ »α«µÑñπα ñ«ßΓáΓ«τ¡« »«¡∩ΓÑ¡ ¿º ¬«¼¼Ñ¡Γáα¿Ñó, »«¼ÑΘÑ¡¡δσ
  187. 󠽿ßΓ¿¡úáσ. çá¼Ñτπ, τΓ« ñ½∩ »«º¿µ¿«¡¿α«óá¡¿∩ ¡á ß«σαá¡Ñ¡¡πε ßΓ᫬π
  188. ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ÑÑ ¬«»¿∩ ¿½¿ ¡«¼Ñα ßΓ᫬¿, ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«,
  189. ¿¼ÑÑΓ ½¿ Γáí½¿µá »Ñαó¿τ¡δ⌐ ¿¡ñѬߠ¿½¿ ¡ÑΓ. û¿¬½
  190.     
  191. WHILE FORMTYPE ("Detail")
  192.  
  193. ó »α«µÑñπαÑ SaveCur ¿ß»«½∞ºπÑΓß∩ ñ½∩ óδσ«ñá ó ú«½«ó¡πε Γáí½¿µπ »α¿
  194. αáí«ΓѠ󠼡«ú«Γáí½¿τ¡«⌐ Σ«α¼Ñ. ê, ¡á¬«¡Ñµ, ó »α«µÑñπαÑ SaveCur
  195. ß«ñÑনΓß∩ ó맮ó »α«µÑñπαδ LeaveRec (), « ¬«Γ«α«⌐ ∩ αáß߬áªπ ó
  196. ß½ÑñπεΘѼ »π¡¬ΓÑ.
  197.          
  198. Åα¿óÑñÑ¡¡δÑ »α«µÑñπαδ ∩ó¡« ¿ºíδΓ«τ¡δ, Ñß½¿ αÑτ∞ ¿ñÑΓ Γ«½∞¬« «í
  199. «αúá¡¿ºáµ¿¿ »«¼«Θ¿ (ñ½∩ ¡ÑÑ ßΓѬ ó««íΘÑ ¡Ñ ¡πªÑ¡). ì« »«óΓ«α∩ε, τΓ« ∩
  200. αÑΦá½ í«½ÑÑ «íΘπε ºáñáτπ, »«ßΓáó½Ñ¡¡πε ó »αÑñδñπΘѼ αáºñѽÑ.
  201.  
  202. Åα¿óÑñÑ¡¡δÑ »α«úαá¼¼δ ¼«ª¡« «»Γ¿¼¿º¿α«óáΓ∞ »« óαѼѡ¿ ºá ßτÑΓ Γ«ú«,
  203. τΓ« »α¿ ó«ßßΓá¡«ó½Ñ¡¿¿ αѪ¿¼á Edit ¿ Main ñ½∩ »«º¿µ¿«¡¿α«óá¡¿∩ ¡á
  204. ßΓ᫬π óßÑúñá íπñÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ¡«¼Ñα ßΓ᫬¿. ÅαÑñ«ßΓáó½∩ε φΓ«
  205. ßñѽáΓ∞ τ¿ΓáΓѽε.
  206.  
  207. 6. èᬠ»ÑαÑ⌐Γ¿ ¡á ñαπúπε ßΓ᫬π ó αѪ¿¼Ñ CoEdit
  208.  
  209. ÆÑ»Ñα∞ óÑα¡Ñ¼ß∩ ¬ ½¿ßΓ¿¡úπ SaveCur ¿ «íαáΓ¿¼ ó¡¿¼á¡¿Ñ ¡á π»«¼∩¡πΓδ⌐
  210. ó맮ó LeaveRec (). ùΓ« ñѽáÑΓ φΓá »α«µÑñπαá?
  211.  
  212. èᬠ¿ºóÑßΓ¡«, ó αѪ¿¼Ñ CoEdit »α«óÑα¬á ¬«ααÑ¬Γ¡«ßΓ¿ ¬½ετá, á «¡ ó
  213. Paradox óßÑúñá π¡¿¬á½Ñ¡, »α«¿ºó«ñ¿Γß∩ óß∩¬¿⌐ αẠ»α¿ ß¼Ñ¡Ñ ºá»¿ß¿, á
  214. ΓᬪÑ, ¬«¡Ñτ¡«, »α¿ ºáóÑαΦÑ¡¿¿ αÑñá¬Γ¿α«óá¡¿∩. Åα¿ αáí«ΓÑ ó ßαÑñÑ
  215. Prardox ¡áαπΦÑ¡¿Ñ π¡¿¬á½∞¡«ßΓ¿ ¬½ετá óδºδóáÑΓ óδñáτπ ß««íΘÑ¡¿∩ «
  216. ¡Ñ«íσ«ñ¿¼«ßΓ¿ ¬á¬-Γ« αÑΦ¿Γ∞ φΓπ »α«í½Ñ¼π: ¿½¿ «ΓαÑñá¬Γ¿α«óáΓ∞ ¡«óπε
  217. ºá»¿ß∞, ¿½¿ ºá¼Ñ¡¿Γ∞ Ñε ßΓáαπε ß ΓѼ ªÑ ¡áí«α«¼ ¬½ετÑóδσ »«½Ñ⌐. àß½¿
  218. ªÑ óδ αáí«ΓáÑΓÑ ó »α¿½«ªÑ¡¿¿, ¡á»¿ßá¡¡«¼ ¡á ∩ºδ¬Ñ PAL ¿, óÑα«∩Γ¡ÑÑ
  219. óßÑú«, »«½∞ºπÑΓÑß∞ ñ½∩ «αúá¡¿ºáµ¿¿ óó«ñá ¿ αÑñá¬Γ¿α«óá¡¿∩ ¬«¼á¡ñ«⌐
  220. WAIT, Γ« »α¿ ¡áαπΦÑ¡¿¿ π¡¿¬á½∞¡«ßΓ¿ ¬½ετá ¬«¼á¡ñá »ÑαÑσ«ñá ¬ ñαπú«⌐
  221. ºá»¿ß¿ ¿½¿ ºáóÑαΦÑ¡¿∩ αÑñá¬Γ¿α«óá¡¿∩ »α«ßΓ« ¡Ñ íπñÑΓ óδ»«½¡Ñ¡á. Åα¿τѼ
  222. ¡¿¬á¬¿σ ß««íΘÑ¡¿⌐ ¡Ñ óδñáÑΓß∩. Å«φΓ«¼π »«½∞º«óáΓ∞ß∩ ó »α«úαá¼¼áσ ñ½∩
  223. ºáóÑαΦÑ¡¿∩ CoEdit »α«ßΓ« ¬«¼á¡ñ«⌐ DO_IT! »«ºó«½¿Γѽ∞¡« Γ«½∞¬« ó «τÑ¡∞
  224. αÑñ¬¿σ ß½πτá∩σ.
  225.  
  226. ä½∩ ¬«ααÑ¬Γ¡«⌐ «íαáí«Γ¬¿ «»¿ßá¡¡«⌐ ß¿Γπᵿ¿ ∩ ¿ ¡á»¿ßá½ »α«µÑñπαπ
  227. LeaveRec. Ä¡á ñѽáÑΓ ó «íΘѼ Γ« ªÑ, τΓ« ¿ ßαÑñá Paradox: óδñáÑΓ
  228. ß««íΘÑ¡¿Ñ « ¡áαπΦÑ¡¿¿ π¡¿¬á½∞¡«ßΓ¿ ¬½ετá ¿ »αÑñ½áúáÑΓ óδíαáΓ∞ ¿º
  229. ¼Ñ¡ε «ñ¡« ¿º ñóπσ ñÑ⌐ßΓó¿⌐ - αÑñá¬Γ¿α«óá¡¿Ñ ΓѬπΘÑ⌐ ºá»¿ß¿ ¿½¿ ºá¼Ñ¡á
  230. Ñε ßΓáα«⌐ ºá»¿ß¿. Åαáóñá, Ñß½¿ ¿ ó« óΓ«α«⌐ αáº π¡¿¬á½∞¡«ßΓ∞ ¬½ετá ¡Ñ
  231. ó«ßßΓá¡«ó½Ñ¡á, »α«¿ßσ«ñ¿Γ ºá¼Ñ¡á ºá»¿ß¿.
  232.                                                    
  233. æ«ßΓáó ¿ ß»«ß«íδ »αÑ«ñ«½Ñ¡¿∩ "»«ñó«ñ¡δσ ¬á¼¡Ñ⌐", »«ñßΓÑαÑúáεΘ¿σ
  234. »α«úαá¼¼¿ßΓá »α¿ »«»δΓ¬Ñ αáºαÑΦ¿Γ∞ ¬½ετÑóδÑ »α«í½Ñ¼δ, »«-¼«Ñ¼π, ∩ßÑ¡
  235. ¿º ΓѬßΓá »α«úαá¼¼δ (½¿ßΓ¿¡ú 8). ÄΓ¼Ñτπ Γ«½∞¬« «ñ¿¡ »α¿ß¬«αí¡δ⌐ Σá¬Γ:
  236. ¡Ñ ªÑ½áÑΓ »αáó¿½∞¡« «íαáíáΓδóáΓ∞ß∩ ¬«¼á¡ñá ºá¼Ñ¡δ ºá»¿ß¿ - LOCKKEY ó
  237. ¼¡«ú«Γáí½¿τ¡«⌐ Σ«α¼Ñ. Å«φΓ«¼π ∩ »«ßΓπ»¿½ ¡Ñ ß«óßѼ ¬«ααÑ¬Γ¡« - »α«ßΓ«
  238. ßΓÑα ΓѬπΘπε ºá»¿ß∞, σ«Γ∩ ¡áñ« íδ πñ὿Γ∞ ¬á¬ αẠñαπúπε ºá»¿ß∞ ß ΓѼ
  239. ªÑ ¬½ετ«¼. î¡Ñ ¬áªÑΓß∩, τΓ« ¡áªáΓ¿Ñ Alt-L (LOCKKEY) »α¿¼Ñ¡∩ÑΓß∩ αÑñ¬«
  240. ¿ ó «ß¡«ó¡«¼ Γ«úñá, ¬«úñá »«½∞º«óáΓѽε íѺαẽ¿τ¡«, ¬á¬πε ºá»¿ß∞
  241. «ßΓáó¿Γ∞ (¡á»α¿¼Ñα, ¡áñ« ¬«ααÑ¬Γ¿α«óáΓ∞ «íÑ). àß½¿ τ¿ΓáΓѽ∞ ¡Ñ
  242. αáºñѽ∩ÑΓ ¼«Ñú« ¼¡Ñ¡¿∩, ¼«ª¡« ß¬«ααÑ¬Γ¿α«óáΓ∞ »α«µÑñπαπ LeaveRec
  243. ß½ÑñπεΘ¿¼ «íαẫ¼: ºá»«¼¡¿Γ∞ ºá»¿ß∞ ó ¼áßß¿óÑ (COPYTOARRAY), πñ὿Γ∞
  244. ºá»¿ß∞, ¡á⌐Γ¿ ñαπúπε ß ΓѼ ªÑ ¬½ετ«¼ ¿ ºá»¿ßáΓ∞ ó ¡ÑÑ ß«ñÑন¼«Ñ
  245. ¼áßß¿óá ¬«¼á¡ñ«⌐ COPYFROMARRAY.
  246.  
  247. èα«¼Ñ Γ«ú«, ñ½∩ αáí«Γδ ß í¿í½¿«ΓѬ«⌐ Cursor ∩ ¡á»¿ßá½ »α«µÑñπαπ
  248. LeaveCur (½¿ßΓ¿¡ú 9), ¬«Γ«αá∩ ¬«ααÑ¬Γ¡« óδσ«ñ¿Γ ¿º αѪ¿¼á CoEdit ß
  249. ß«σαá¡Ñ¡¿Ñ¼ ß«ßΓ«∩¡¿∩ αáí«τÑ⌐ «í½áßΓ¿ ó ßΓѬÑ.
  250.  
  251. 7. æα«τ¡« ó ¡«¼Ñα, ¿½¿ ÑΘÑ ¡Ñ¬«Γ«αδÑ ßó«⌐ßΓóá Paradox 3.5
  252.  
  253. è«úñá ∩ πªÑ ºá¬á¡τ¿óá½ »¿ßáΓ∞ φΓπ ßΓáΓ∞ε, ßπñ∞íá ßΓ«½¬¡π½á ¼Ñ¡∩ ÑΘÑ ß
  254. ¡Ñ¬«Γ«α묨 ßó«⌐ßΓóἿ æôüä Paradox 3.5, ¬«Γ«αδÑ, ß¬áªπ »α∩¼«, ¡Ñ
  255. »α¿¡Ñß½¿ ¼¡Ñ αáñ«ßΓ¿. Å«φΓ«¼π ß»ÑΦπ »αÑñπ»αÑñ¿Γ∞ « ¡¿σ ú«ß»«ñ
  256. τ¿ΓáΓѽÑ⌐.
  257.  
  258. é«-»Ñαóδσ, «¬áºá½«ß∞, τΓ« ó αѪ¿¼Ñ CoEdit ¬«¼á¡ñá SKIP αáí«ΓáÑΓ ñá½Ñ¬«
  259. ¡Ñ óßÑúñá Γá¬, ¬á¬ φΓ« ÑßΓÑßΓóÑ¡¡« «ª¿ñáΓ∞. é τáßΓ¡«ßΓ¿, »α¿ óδ»«½¡Ñ¡¿¿
  260. SKIP -1 ó »«ß½Ññ¡Ñ⌐ ¡Ñºá»«½¡Ñ¡¡«⌐ ßΓα«¬Ñ Γáí½¿µδ »«º¿µ¿∩ ¬παß«αá
  261. »ÑαѼÑΘáÑΓß∩ ¡á  2ñóÑ 0 ßΓ᫬¿ óóÑασ. ƒ ¡á»¿ßá½ »α«µÑñπαπ SkipEd, ¬«Γ«αá∩
  262. αáí«ΓáÑΓ Γá¬, ¬á¬, ¼¡Ñ »αÑñßΓáó½∩ÑΓß∩, ñ«½ª¡á αáí«ΓáΓ∞ ¬«¼á¡ñá SKIP
  263. (½¿ßΓ¿¡ú 10).
  264.  
  265. é«-óΓ«αδσ, σ«τπ »αÑñπ»αÑñ¿Γ∞ óáß «í «ñ¡«¼ ßó«⌐ßΓóÑ úÑ¡ÑαáΓ«αá Σ«α¼.
  266. àß½¿ óδ ß«ºñáó὿ ñ«ßΓáΓ«τ¡« í«½∞Φ¿Ñ »α¿½«ªÑ¡¿∩ ó æôüä Paradox 3.5, Γ«
  267. º¡áÑΓÑ, τΓ« ¼¡«ú«Γáí½¿τ¡δÑ Σ«α¼δ αÑñ¬« ¼«ª¡« ß«ºñáóáΓ∞, ¡áσ«ñ∩ß∞ ó Γ«⌐
  268. ªÑ ñ¿αÑ¬Γ«α¿¿, úñÑ αẼÑΘÑ¡δ «ß¡«ó¡á∩ ¿ ó¬½ετáѼá∩ Γáí½¿µá. éÑñ∞
  269. Σ«α¼á, ß«ºñá¡¡á∩ ó Γᬿσ "ΓÑ»½¿τ¡δσ" πß½«ó¿∩σ, ¡¿ ó ¬á¬¿σ ñαπú¿σ
  270. αáí«ΓáΓ∞ »α«ßΓ« ¡Ñ íπñÑΓ. ¥Γ« «íΩ∩ß¡∩ÑΓß∩ ΓѼ, τΓ« ¿¼∩ ó¬½ετáѼ«⌐
  271. Γáí½¿µδ íπñÑΓ ºá»¿ßá¡« ó Σá⌐½ ¼¡«ú«Γáí½¿τ¡«⌐ Σ«α¼δ íѺ π¬áºá¡¿∩ »πΓ¿,
  272. (ñáªÑ Ñß½¿ óδ ∩ó¡« π¬áªÑΓÑ »πΓ∞ »α¿ αáºαáí«Γ¬Ñ Σ«α¼δ).
  273.                                                         
  274. ì« ßá¼ ∩ ½¿Φ∞ ¡Ññáó¡« πº¡á½, τΓ« «ß«íπε «ßë᫪¡«ßΓ∞ ¡áñ« ß«í½εñáΓ∞
  275. »α¿ αáºαáí«Γ¬Ñ Σ«α¼, ¬«Γ«αδÑ íπñπΓ ¿ß»«½∞º«óáΓ∞ß∩ ¿º ñ¿αÑ¬Γ«α¿¿ ¡á
  276. πßΓα«⌐ßΓóÑ, «Γ½¿τ¡«¼ «Γ Γ«ú«, ¡á ¬«Γ«α«¼ αẼÑΘÑ¡δ óσ«ñ∩Θ¿Ñ ó ß«ßΓáó
  277. Σ«α¼δ Γáí½¿µδ. ÅπßΓ∞, ¡á»α¿¼Ñα, óδ, ¡áσ«ñ∩ß∞ ó ¬á¬«⌐-½¿í« ñ¿αÑ¬Γ«α¿¿
  278. ¡á πßΓα«⌐ßΓóÑ F, σ«Γ¿ΓÑ ß«ºñáΓ∞ Σ«α¼π, ó¬½ετáεΘπε ñóÑ Γáí½¿µδ -
  279. MainTab («ß¡«ó¡á∩) ¿ EmbTab (óßΓα«Ñ¡¡á∩), ¡áσ«ñ∩Θ¿Ñß∩ ó ñ¿αÑ¬Γ«α¿¿
  280. g:\common. éδ ñ«íα«ß«óÑßΓ¡« π¬áºδóáÑΓÑ »α¿ úÑ¡Ñαᵿ¿ Σ«α¼δ ¿¼∩
  281. óßΓα«Ñ¡¡«⌐ Γáí½¿µδ g:\common\embtab. ê »«ß½Ñ ß«ºñá¡¿∩ Σ«α¼á αáí«ΓáÑΓ
  282. ¡«α¼á½∞¡«. ì« »α«σ«ñ¿Γ ¡Ñ߬«½∞¬« ñ¡Ñ⌐, ¿ óδ ß ¿ºπ¼½Ñ¡¿Ñ¼ ó¿ñ¿ΓÑ, τΓ«
  283. Σ«α¼á ¡Ñ óδºδóáÑΓß∩, ß ß««íΘÑ¡¿Ñ¼ « Γ«¼, τΓ« ¬áΓὫú ßó∩ºá¡¡«⌐ Γáí½¿µδ
  284. «ΓßπΓßΓóπÑΓ. Åα«óÑα¿ó, óδ πíѪñáÑΓÑß∞, τΓ« ¬áΓὫú g:\common ¡á ¼ÑßΓÑ
  285. ¿ Γáí½¿µá EmbTab ó ¡Ñ¼ »α¿ßπΓßΓóπÑΓ. ùΓ« ªÑ ß½πτ¿½«ß∞? Ç ñѽ« ó Γ«¼,
  286. τΓ«, ¬«úñá óδ ß«ºñáó὿ Σ«α¼π, ΓѬπΘ¿¼ ¬áΓὫú«¼ ¡á πßΓα«⌐ßΓóÑ g: íδ½
  287. ¬«α¡Ñó«⌐. é αáí«ΓÑ Paradox "«»Γ¿¼¿º¿α«óá½" »πΓ∞ ó¬½ετáѼ«⌐ Γáí½¿µδ,
  288. ºá»¿ßáó: g:common (íѺ ß½φΦá!). é αѺπ½∞ΓáΓÑ, Ñß½¿ ΓÑ»Ñα∞ ΓѬπΘ¿⌐
  289. ¬áΓὫú G: ¡Ñ ¬«α¡Ñó«⌐, Γáí½¿µá αáí«ΓáΓ∞ ¡Ñ íπñÑΓ.
  290.  
  291. Å«φΓ«¼π ¼«⌐ ß«óÑΓ: ß½Ññ¿ΓÑ, ¬á¬«⌐ ¬áΓὫú ∩ó½∩ÑΓß∩ ΓѬπΘ¿¼ ¡á
  292. πßΓα«⌐ßΓóÑ, úñÑ αẼÑΘÑ¡δ ¡πª¡δÑ óá¼ Γáí½¿µδ. ìáñ«, τΓ«íδ ΓѬπΘ¿¼ íδ½
  293. ¬áΓὫú, ¡Ñ ¡áσ«ñ∩Θ¿⌐ß∩ óδΦÑ ¬áΓὫúá ¿ß»«½∞ºπѼδσ Γáí½¿µ ¿ ¡Ñ
  294. ß«ó»áñáεΘ¿⌐ ß ¡¿¼ ó ¿Ñαáασ¿¿ ¬áΓὫú«ó.
  295.  
  296. ê, ¡á¬«¡Ñµ, ΓαÑΓ∞Ñ. Æá¬á∩ ªÑ "«»Γ¿¼¿ºáµ¿∩" »α«¿ßσ«ñ¿Γ »α¿ ó맮óÑ
  297. Γáí½¿µ ó αáí«τÑ⌐ «í½áßΓ¿. Å«φΓ«¼π, óδºóá󠬫¼á¡ñ«⌐ VIEW Γáí½¿µπ ß
  298. ¿¼Ñ¡Ñ¼, ß«ñÑαªáΘ¿¼ »πΓ∞ ÑÑ ¬áΓὫúá, óδ ¼«ªÑΓÑ «í¡áαπª¿Γ∞ ÑÑ ß«óßѼ
  299. »«ñ ñαπú¿¼ ¿¼Ñ¡Ñ¼, τΓ« ¼«ªÑΓ »«¼ÑΦáΓ∞, ¡á»α¿¼Ñα, »ÑαÑ⌐Γ¿ ¡á ¡ÑÑ
  300. ¬«¼á¡ñ«⌐ <MOVETO ¿¼∩ Γáí½¿µδ>.
  301.  
  302. 8. Ä»Γ¿¼¿ßΓ¿τÑ߬«Ñ ºá¬½ετÑ¡¿Ñ
  303.  
  304. éßÑ »ÑαÑτ¿ß½Ñ¡¡δÑ ¡Ñ»α¿∩Γ¡«ßΓ¿ í뫨 óδ∩ó½Ñ¡δ ó ß¡∩Γ«⌐ ß »α«¿ºó«ñßΓóá,
  305. ¡« ÑΘÑ αáß»α«ßΓαá¡Ñ¡¡«⌐ ó É«ßß¿¿ óÑαß¿¿ 3.5. ü«½ÑÑ ß«óαѼѡ¡πε óÑαß¿ε
  306. 4.0 ∩ Γ«½∞¬« τΓ« ¬π»¿½ ¿ ÑΘÑ ¡Ñ »«º¡á¬«¼¿½ß∩ ß ÑÑ »«ñó«σἿ.
  307. 髺¼«ª¡«, τΓ« π»«¼¿¡áóΦ¿Ñß∩ ó ñá¡¡«⌐ ßΓáΓ∞Ñ ¡Ñ»α¿∩Γ¡«ßΓ¿ πßΓαá¡Ñ¡δ.
  308.  
  309. é í½¿ªá⌐ΦÑÑ óαѼ∩, »«º¡á¬«¼¿óΦ¿ß∞ ß ¡«ó«⌐ óÑαß¿Ñ⌐, ∩ »«ßΓáαáεß∞
  310. ¡á»¿ßáΓ∞ ¿ « ¡Ñ⌐. ò«τÑΓß∩ óÑα¿Γ∞, τΓ« φΓ« íπñÑΓ πªÑ ¡Ñ ßΓáΓ∞∩, á ½¿Φ∞
  311. ¡Ñí«½∞Φá∩ ºá¼ÑΓ¬á.
  312.  
  313. Æáí½¿µá 1
  314.  
  315. æΓαπ¬Γπαá Γáí½¿µδ Index
  316.  
  317. ê¼∩ »«½∩                   Æ¿» »«½∩
  318. -------------------------  --------
  319. ÆѼᠠ                     A30*
  320. Åπ¡¬Γ                      A30*
  321. öá⌐½                       A8
  322. Å«º¿µ¿∩                    N
  323.  
  324. ï¿ßΓ¿¡ú 1
  325.  
  326. ;
  327. ;   Åα«úαἼᠫíß½πª¿óá¡¿∩ íáºδ ñá¡¡δ󠬫¼»½Ñ¬ΓπεΘ¿σ Å¥éî
  328. ;   Åα«úαἼᠫíß½πª¿óá¡¿∩ »«ñ¼Ñ¡ε Price
  329. ;
  330. ;   Åα¿¼Ñα ¿ß»«½∞º«óá¡¿∩ »/» HelpMnu
  331. PROC PrMnu ()
  332. ;
  333.     PRIVATE Choice, ; éδí«α ¿º ¼Ñ¡ε
  334.             ChKey   ; è½áó¿Φá óδσ«ñá ¿º ¼Ñ¡ε
  335. ;
  336.     Choice = "Price"
  337. ;
  338.     WHILE TRUE
  339.         SHOWMENU
  340.             "Price":"çừ½¡Ñ¡¿Ñ »αá⌐ß-½¿ßΓ«ó »« ¬½áßßá¼ Γ«óáα«ó",
  341.             "K½áßßδ":"Éáí«Γá ß ¬½áßß¿Σ¿¬áΓ«αἿ Γ«óáα«ó",
  342.             "Éáß»ÑτáΓ¬á":"Éáß»ÑτáΓ¬á »αá⌐ß-½¿ßΓ«ó",
  343.             "K«¡Ñµ":"Ĭ«¡τá¡¿Ñ αáí«Γδ ß »αá⌐ß-½¿ßΓἿ ¿ ¬½áßß¿Σ¿¬áΓ«α«¼"
  344.         UNTIL "F1","F11" KEYTO ChKey DEFAULT Choice TO Choice
  345.         IF NOT Retval THEN  ; ìÑ óδí«α
  346.             IF NOT HelpMnu (ChKey, "îÑ¡ε Price", Choice) THEN   ; Esc
  347.                 QUITLOOP
  348.             ENDIF
  349.         ELSE    ; éδí«α »«º¿µ¿¿ ¼Ñ¡ε
  350.             SWITCH
  351.             CASE Choice = "Price":
  352.                 READLIB SDIR () + "PropFunc" Price
  353.                 Price ()
  354.                 RELEASE PROCS Price
  355.             CASE Choice = "è½áßßδ":
  356.                 READLIB SDIR () + "PropFunc" Class
  357.                 Class ()
  358.                 RELEASE PROCS Class
  359.             CASE Choice = "Éáß»ÑτáΓ¬á":
  360.                 READLIB SDIR () + "PropFunc" PrtPrice
  361.                 PrtPrice ()
  362.                 RELEASE PROCS PrtPrice
  363.             CASE Choice = "諡ѵ":
  364.                 QUITLOOP
  365.             ENDSWITCH
  366.         ENDIF
  367.     ENDWHILE
  368. ;
  369. ENDPROC
  370.  
  371. ï¿ßΓ¿¡ú 2
  372.  
  373. ;
  374. ;   Åα«úαἼᠫíß½πª¿óá¡¿∩ íáºδ ñá¡¡δ󠬫¼»½Ñ¬ΓπεΘ¿σ Å¥éî
  375. ;   Åα«µÑñπαá π»αáó½Ñ¡¿∩ αáí«Γ«⌐ ß Σ«α¼«⌐ óó«ñá ßτÑΓá
  376. ;
  377. ;   Åα¿¼Ñα ¿ß»«½∞º«óá¡¿∩ »/» EditHelp
  378. PROC ProcAcc ()
  379. ;
  380.     MOVETO [Å«ßΓáóΘ¿¬]
  381. ;
  382.     WHILE TRUE
  383.         WAIT RECORD
  384.             PROMPT
  385. "F2-ó«ºóαáΓ ¬ Σ«α¼¿α«óá¡¿ε ß»Ñµ¿Σ¿¬áµ¿¿, F6-»ÑτáΓ∞ ßτÑΓá, F4-»α«ß¼«Γα",
  386. "»«º¿µ¿⌐ ßτÑΓá, »ÑτáΓ∞ ΓαÑí«óá¡¿⌐ ¿ ¡á¬½áñ¡δσ, F1-»«ñ߬Ậá"
  387.         UNTIL "F2", "F6", "F4", "F1", "F11", "F35"
  388.         SWITCH
  389.         CASE Retval = "F2": ; çáóÑαΦÑ¡¿Ñ
  390.             QUITLOOP
  391.         CASE Retval = "F6": ; ÅÑτáΓ∞
  392.             PrtAcc ()
  393.         CASE Retval = "F4": ; è ßΓ᫬á¼
  394.             DOWNIMAGE
  395.             ProcAcPs ()
  396.         ; Å«ñ߬Ậ¿
  397.         CASE Retval = "F1": ; è«¡ΓѬßΓ¡á∩
  398.             EditHelp ("æ»Ñµ¿Σ¿¬áµ¿¿", "ö«α¼¿α«óá¡¿Ñ ßτÑΓá", FALSE);
  399.         CASE Retval = "F11":    ; Äú½áó½Ñ¡¿Ñ »«ñ߬Ậ¿
  400.             EditHelp ("", "", TRUE)
  401.         ; ÉÑñá¬Γ¿α«óá¡¿Ñ »«½∩
  402.         CASE Retval = "F35":
  403.             StFieldV ()
  404.         ENDSWITCH
  405.     ENDWHILE
  406. ;
  407.     LeaveRec () ; ìá óß∩¬¿⌐ ß½πτá⌐
  408.     DO_IT!
  409.     CLEARIMAGE
  410.     CLEAR
  411. ;
  412. ENDPROC
  413.  
  414. ï¿ßΓ¿¡ú 3
  415.  
  416. ;
  417. ;   éδñáτá »«ñ߬ẫ¬ »α¿ αáí«ΓÑ ó ¼Ñ¡ε
  418. ;
  419. ;   Åáαá¼ÑΓαδ: è½áó¿Φá, »« ¬«Γ«α«⌐ »α«¿º«Φѽ óδσ«ñ, »π¡¬Γ ¼Ñ¡ε, ¡áºóá¡¿Ñ ¼Ñ¡ε
  420. ;   àß½¿ óδσ«ñ »« Esc ó«ºóαáΘáÑΓ FALSE, ¿¡áτÑ - TRUE
  421. ;   ôß½«ó¿∩ ºá»π߬á: ºáúαπªÑ¡δ »α«µÑñπαδ ¬«¡ΓѬßΓ¡«⌐ »«ñ߬Ậ¿ - HlpPart
  422. ; ¿ »«½¡«⌐ »«ñ߬Ậ¿ - HlpFool
  423. PROC HelpMnu (ChKey, Choice, MnuName)
  424. ;
  425.     SWITCH
  426.     CASE ChKey = FALSE:
  427.         RETURN FALSE
  428.     CASE ChKey = "F1":  ; è«¡ΓѬßΓ¡«-ºáó¿ß¿¼á∩ »«ñ߬Ậá
  429.         HlpPart (Choice, MnuName)
  430.         RETURN TRUE
  431.     CASE ChKey = "F11": ; Å«½¡á∩ »«ñ߬Ậá
  432.         HlpFool ()
  433.         RETURN TRUE
  434.     ENDSWITCH
  435. ;
  436. ENDPROC
  437.  
  438. ï¿ßΓ¿¡ú 4
  439.  
  440. ;
  441. ;   éδñáτá »«ñ߬ẫ¬ ó πß½«ó¿∩σ αÑñá¬Γ¿α«óá¡¿∩ (󫺼«ª¡«, ß«ó¼ÑßΓ¡«ú«)
  442. ;
  443. ;   Åáαá¼ÑΓαδ: ÆѼá, »π¡¬Γ ΓѼδ, »α¿º¡á¬ »«½¡«⌐ »«ñ߬Ậ¿
  444. ;   ôß½«ó¿∩ ºá»π߬á: ºáúαπªÑ¡δ »α«µÑñπαδ »«½¡«⌐ »«ñ߬Ậ¿ - HlpPart,
  445. ; »«½¡«⌐ »«ñ߬Ậ¿ - HlpFool, »«º¿µ¿«¡¿α«óá¡¿∩ »« ¬½ετπ - Posit,
  446. ; »«ß佬¿ ºá»¿ß¿ ó αѪ¿¼Ñ CoEdit - LeaveRec.
  447. ; ìáσ«ªñÑ¡¿Ñ ó Γáí½¿µÑ. ìÑ αѪ¿¼ αÑñá¬Γ¿α«óá¡¿∩ »«½∩.
  448. PROC EditHelp (Topic, Point, FoolSgn)
  449. ;
  450.     PRIVATE IndexSgn    ; Åਧ¡á¬ ¿¡ñѬ߿α«óá¡¡«⌐ Γáí½¿µδ
  451. ;
  452. ;   ì Ç ù ì à î,   Å Ä î Ä ï ƒ æ £    ! ! !
  453. ;
  454.     LeaveCur () ; éδσ«ñ¿¼ ó «ß¡«ó¡«⌐ αѪ¿¼ ß ºá»«¼¿¡á¡¿Ñ¼ »«½«ªÑ¡¿∩
  455.     ; Å«¬áºδóáѼ »«ñ߬Ậπ
  456.     IF FoolSgn THEN
  457.         HlpFool ()
  458.     ELSE
  459.         HlpPart (Topic, Point)
  460.     ENDIF
  461.     ; Ç¬¬παáΓ¡« óÑα¡Ñ¼ß∩
  462.     RestCur ()
  463. ;
  464. ENDPROC
  465.  
  466. ï¿ßΓ¿¡ú 5
  467.  
  468. ;
  469. ;   Åα«úαἼᠻ«ñ߬Ậ¿ »« óδí«απ ¿º «ú½áó½Ñ¡¿∩
  470. ;
  471. ;   ôß½«ó¿∩ ó맮óá: «ß¡«ó¡«⌐ αѪ¿¼; ñ¿αÑ¬Γ«α¿∩ »«ñ߬ẫ¬ ó« ó¡ÑΦ¡Ñ⌐
  472. ; »ÑαѼѡ¡«⌐ HelpDir;
  473. PROC HlpFool ()
  474. ;
  475.     PRIVATE DbName, ; ê¼∩ Γáí½¿µδ »«ñ߬Ậ¿
  476.             PointStr,   ; æΓα«¬á ¡áτá½á »π¡¬Γá
  477.             ZoomSgn ; Åਧ¡á¬ óó«ñá Φáí½«¡á »«¿ß¬á
  478. ;
  479.     ; çáσóáΓ Γáí½¿µδ-«ú½áó½Ñ¡¿∩
  480.     LOCK HelpDir+"Index" PFL
  481.     IF NOT Retval THEN
  482.         MESSAGE "çá¡∩Γá Γáí½¿µá »«ñ߬ẫ¬"
  483.         BEEP
  484.         SLEEP 1000
  485.         RETURN
  486.     ENDIF
  487.     ; éδí«α ΓÑ¼δ ¿ »π¡¬Γá
  488.     VIEW HelpDir+"Index"    ; Äú½áó½Ñ¡¿Ñ »«ñ߬ẫ¬
  489.     PICKFORM 1
  490.     ZoomSgn = FALSE
  491.     WHILE TRUE
  492.         WAIT TABLE
  493.             PROMPT "ìá⌐ñ¿ΓÑ ¿¡ΓÑαÑßπεΘπε éáß ΓÑ¼π ¿ ¡áª¼¿ΓÑ Enter",
  494.                    "Å«¿ß¬ - Alt-Z, Ctrl-Z; ÄΓ¼Ñ¡á - Esc"
  495.         UNTIL "Enter", "Zoom", "Esc"
  496.         SWITCH
  497.         CASE Retval = "Enter":
  498.             IF ZoomSgn THEN ; çáóÑαΦÑ¡¿Ñ óó«ñá Φáí½«¡á »«¿ß¬á
  499.                 ZoomSgn = FALSE
  500.                 ENTER
  501.             ELSE
  502.                 DbName = [öá⌐½]
  503.                 PointStr = [Å«º¿µ¿∩]
  504.                 QUITLOOP
  505.             ENDIF
  506.         CASE Retval = "Zoom":
  507.             ZoomSgn = TRUE
  508.             ZOOM
  509.         CASE Retval = "Esc":
  510.             QUITLOOP
  511.         ENDSWITCH
  512.     ENDWHILE
  513.     ;
  514.     CLEARIMAGE
  515.     CLEAR
  516.     UNLOCK HelpDir+"Index" PFL
  517.     IF NOT ISASSIGNED (DbName) THEN ; éδσ«ñ ¿º αѪ¿¼á »«ñ߬Ậ¿
  518.         RETURN
  519.     ENDIF
  520.     ; éδñáτá »«ñ߬Ậ¿
  521.     LOCK HelpDir+DbName PFL
  522.     IF NOT Retval THEN
  523.         MESSAGE "çá¡∩Γá Γáí½¿µá »«ñ߬ẫ¬"
  524.         BEEP
  525.         SLEEP 1000
  526.         RETURN
  527.     ENDIF
  528.     VIEW HelpDir+DbName
  529.     FIRSTSHOW
  530.     MOVETO RECORD PointStr
  531.     MOVETO [Text]
  532.     WAIT TABLE
  533.         PROMPT "ï¿ßΓá¡¿Ñ - PgDn, PgUp, »«¿ß¬ ΓѬßΓá - Ctrl-Z, Alt-Z",
  534.                "éδσ«ñ - Esc"
  535.     UNTIL "Esc"
  536.     ; é«ºóαáΓ
  537.     CLEARIMAGE
  538.     CLEAR
  539.     UNLOCK HelpDir+DbName PFL
  540. ;
  541. ENDPROC
  542.  
  543. ï¿ßΓ¿¡ú 6
  544.  
  545. ;
  546. ;   Åα«úαá¼¼á óδñáτ¿ »π¡¬Γá »«ñ߬Ậ¿
  547. ;
  548. ; Åáαá¼ÑΓαδ: ΓѼᠿ »π¡¬Γ ΓѼδ
  549. ; ù¿ΓáÑΓ, ¿º ¬á¬«ú« Σá⌐½á óδíαáΓ∞ »«ñ߬Ậπ, ¿ óδñáÑΓ φëàΣá⌐½ ¡á »α«ß¼«Γα,
  550. ; »«º¿µ¿«¡¿απ∩ ¡á ßΓ᫬π, ß ¬«Γ«α«⌐ ¡áτ¿¡áÑΓß∩ »π¡¬Γ
  551. ;   ôß½«ó¿∩ ó맮óá: «ß¡«ó¡«⌐ αѪ¿¼; ºáúαπªÑ¡á »α«µÑñπαá LockTabs, ñ¿αÑ¬Γ«α¿∩
  552. ; »«ñ߬ẫ¬ ó« ó¡ÑΦ¡Ñ⌐ »ÑαѼѡ¡«⌐ HelpDir
  553. PROC HlpPart (Topic,Point)
  554. ;
  555.     PRIVATE DbMame, ; ê¼∩ Γáí½¿µδ »«ñ߬Ậ¿
  556.             PointStr    ; æΓα«¬á ¡áτá½á »π¡¬Γá
  557. ;
  558.     ; çáσóáΓ Γáí½¿µδ-«ú½áó½Ñ¡¿∩
  559.     LOCK HelpDir+"Index" PFL
  560.     IF NOT Retval THEN
  561.         MESSAGE "çá¡∩Γá Γáí½¿µá »«ñ߬ẫ¬"
  562.         BEEP
  563.         SLEEP 1000
  564.         RETURN
  565.     ENDIF
  566.     ; ìá⌐ñѼ, úñÑ »«ñ߬Ậá
  567.     VIEW HelpDir+"Index"    ; Äú½áó½Ñ¡¿Ñ »«ñ߬ẫ¬
  568.     LOCATE Topic, Point
  569.     IF NOT Retval THEN  ; Å«ñ߬ẬᠫΓßπΓßΓóπÑΓ
  570.         MESSAGE "Å« ΓѼÑ: ",Topic," »π¡¬Γ: ",Point," ¡ÑΓ »«ñ߬Ậ¿"
  571.         BEEP
  572.         SLEEP 1000
  573.         CLEARIMAGE
  574.         UNLOCK HelpDir+"Index" PFL
  575.         RETURN
  576.     ENDIF
  577.     DbName = [öá⌐½]
  578.     PointStr = [Å«º¿µ¿∩]
  579.     CLEARIMAGE
  580.     UNLOCK HelpDir+"Index" PFL
  581.     ; éδñáτá »«ñ߬Ậ¿
  582.     LOCK HelpDir+DbName PFL
  583.     IF NOT Retval THEN
  584.         MESSAGE "çá¡∩Γá Γáí½¿µá »«ñ߬ẫ¬"
  585.         BEEP
  586.         SLEEP 1000
  587.         RETURN
  588.     ENDIF
  589.     VIEW HelpDir+DbName
  590.     FIRSTSHOW
  591.     MOVETO RECORD PointStr
  592.     MOVETO [Text]
  593.     WAIT TABLE
  594.         PROMPT "ï¿ßΓá¡¿Ñ - PgDn, PgUp, »«¿ß¬ ΓѬßΓá - Ctrl-Z, Alt-Z",
  595.                "éδσ«ñ - Esc"
  596.     UNTIL "Esc"
  597.     ; é«ºóαáΓ
  598.     CLEARIMAGE
  599.     CLEAR
  600.     UNLOCK HelpDir+DbName PFL
  601. ;
  602. ENDPROC
  603.  
  604. ï¿ßΓ¿¡ú 7
  605.  
  606. ;
  607. ;   ü¿í½¿«ΓѬá "¬παß«α"
  608. ;   Åα«µÑñπαá ¿¡¿µ¿á½¿ºáµ¿¿ ß¿ßΓѼδ.
  609. ;   ê¡¿µ¿á½¿º¿απÑΓ π¬áºáΓѽ∞ ßΓѬᠬπαß«α«ó.
  610. ;
  611. PROC CurInit ()
  612. ;
  613.     StackPointer = 0    ; èπαß«α »πßΓ
  614. ;
  615. ENDPROC
  616. _____________________________________________________________________
  617. ;
  618. ;   ü¿í½¿«ΓѬá "¬παß«α"
  619. ;   Åα«µÑñπαá ß«σαá¡Ñ¡¿∩ ΓѬπΘÑú« ß«ßΓ«∩¡¿∩ ó ú½«íá½∞¡δσ »ÑαѼѡ¡δσ
  620. ;   Åα¿ αáí«ΓѠ󠼡«ú«Γáí½¿τ¡«⌐ Σ«α¼Ñ »ÑαÑσ«ñ¿Γ ó ú«½«ó¡πε Γáí½¿µπ
  621. ;   ¿ óδ»«½¡∩ÑΓ »«ß佬π ßΓ᫬¿.
  622. ;
  623. ;   ôß½«ó¿∩ αáí«Γδ: íδ½á »α«¿ºóÑñÑ¡á ¿¡¿µ¿á½¿ºáµ¿∩ ¬παß«αá óδº«ó«¼ CurInit.
  624. ; êß»«½∞ºπѼδÑ »α«µÑñπαδ ºáúαπªÑ¡δ. é Γáí½¿µÑ ¿½¿ ó «ß¡«ó¡«¼ αѪ¿¼Ñ.
  625. ;   ôτ¿ΓδóáÑΓß∩ ß½ÑñπεΘÑÑ ¡Ñ»«½Ñº¡«Ñ ßó«⌐ßΓó« Paradox 3.5.: »α¿ αÑñá¬Γ¿α«óá-
  626. ; ¡¿¿ ó αѪ¿¼Ñ Edit, ¬á¬ Γ«½∞¬« ¡áτὫß∞ αÑñá¬Γ¿α«óá¡¿Ñ, «¡ »«¬áºδóáÑΓ ¬«½¿τÑ-
  627. ; ßΓó« ¬½ετÑóδσ »«½Ñ⌐ 0.
  628. ;   Å«φΓ«¼π óßÑúñᠺừ¼¿¡áÑΓß∩ ¿ ºá»¿ß∞, ¿ ÑÑ ¡«¼Ñα.
  629. ;   æΓαπ¬Γπαá ¼áßß¿óá-¬παß«αá
  630. ;   1 - SYSMODE ()
  631. ;   2 - â«½«ó¡á∩ Γáí½¿µá
  632. ;   3 - ö«α¼á ("T" - Ñß½¿ ó Γáí½¿τ¡«¼ ó¿ñÑ)
  633. ;   4 - ì«¼Ñα ºá»¿ß¿ ó ú«½«ó¡«⌐ Γáí½¿µÑ
  634. ;   5 - Å«½Ñ
  635. ;   6 - é¬½ετáѼá∩ Γáí½¿µá
  636. ;   7 - ì«¼Ñα ºá»¿ß¿ ó« ó¬½ετáѼ«⌐ Γáí½¿µÑ
  637. PROC SaveCur ()
  638. ;
  639.     PRIVATE EmbSgn, ; Åਧ¡á¬ ó¬½ετáѼ«⌐ Γáí½¿µδ
  640.             CurrentPlace,   ; æΓαπ¬Γπαá ß ¿¡Σ«α«¼áµ¿Ñ⌐ « ΓѬπΘѼ »«½«ªÑ¡¿¿
  641.             GlobCurName,    ; ê¼∩ ú½«íá½∞¡«⌐ ¬«»¿¿ CurrentPlace
  642.             GlobRecName,    ; ê¼∩ ú½«íá½∞¡ú« ¼áßß¿óá - ¬«»¿¿ ßΓ᫬¿ ú«½«ó¡«⌐
  643.                             ; Γáí½¿µδ
  644.             GlobRecEmbeddedName,    ; Æ« ªÑ ó¬½ετáѼ«⌐
  645.             i   ; æτÑΓτ¿¬ µ¿¬½á
  646. ;
  647.     ARRAY CurrentPlace [7]
  648.     FOR i FROM 1 TO 7   ; ê¡¿µ¿á½¿º¿απѼ ¼áßß¿ó
  649.         CurrentPlace [i] = ""
  650.     ENDFOR
  651.     ; Ä»αÑñѽѡ¿Ñ ¿¼Ñ¡ «τÑαÑñ¡δσ ú½«íá½∞¡δσ ¼áßß¿ó«ó
  652.     StackPointer = StackPointer + 1 ; ô¬áºáΓѽ∞ ßΓѬá
  653.     GlobCurName = "Cursor" + STRVAL (StackPointer)
  654.     GlobRecName = "CurrentRec" + STRVAL (StackPointer)
  655.     GlobRecNameEmbedded = "CurrentRecEmbedded" + STRVAL (StackPointer)
  656.     ; ìÑ ºáó¿ß¿Γ «Γ Γ«ú«, «ß¡«ó¡á∩ Γáí½¿µá ¿½¿ ó¬½ετáѼá∩
  657.     CurrentPlace [1] = SYSMODE ()
  658.     IF IMAGENO () = 0 THEN
  659.     ; Äß«íδ⌐ ß½πτá⌐ - ¼δ ¡Ñ ó Γáí½¿µÑ
  660.         CurrentPlace [2] = ""
  661.     ELSE    ; îδ ó Γáí½¿µÑ
  662.         IF ISFORMVIEW () THEN
  663.             EmbSgn = FORMTYPE ("Detail")
  664.         ELSE
  665.             EmbSgn = FALSE
  666.         ENDIF
  667.         CurrentPlace [5] = FIELD ()
  668.         IF ISFORMVIEW () THEN
  669.             CurrentPlace [3] = FORM ()
  670.         ELSE    ; Æáí½¿τ¡δ⌐ αѪ¿¼. é ¡áºóá¡¿Ñ Σ«α¼δ »«ßΓáó¿¼ "T"
  671.             CurrentPlace [3] = "T"
  672.         ENDIF
  673.         ; Äíαáí«Γ¬á ó¬½ετÑ¡¡«⌐ Γáí½¿µδ
  674.         IF EmbSgn THEN
  675.             CurrentPlace [7] = RECNO ()
  676.             EXECUTE
  677.            "COPYTOARRAY " + GlobRecName
  678.             CurrentPlace [6] = TABLE ()
  679.             ; ÅÑαÑσ«ñ ¬ ú«½«ó¡«⌐ Γáí½¿µÑ ¿ ÑÑ ºá»«¼¿¡¡á¡¿Ñ
  680.             IF CurrentPlace [1] = "CoEdit" THEN
  681.                 LeaveRec ()
  682.             ENDIF
  683.             EXECUTE
  684.             "COPYTOARRAY " + GlobRecNameEmbedded
  685.             WHILE FORMTYPE ("Detail")
  686.                 UPIMAGE
  687.             ENDWHILE
  688.             CurrentPlace [4] = [#]
  689.             EXECUTE
  690.            "COPYTOARRAY " + GlobRecName
  691.             CurrentPlace [2] = TABLE ()
  692.             CurrentPlace [3] = FORM ()
  693.         ELSE
  694.         ; Äíαáí«Γ¬á ú«½«ó¡«⌐ Γáí½¿µδ (¿½¿  «ñ¡«Γáí½¿τ¡á∩ Σ«α¼á)
  695.             IF NOT ISEMPTY (TABLE ()) THEN
  696.                 CurrentPlace [4] = [#]
  697.                 EXECUTE
  698.                 "COPYTOARRAY " + GlobRecName
  699.             ELSE
  700.                 CurrentPlace [4] = 1
  701.             ENDIF
  702.             CurrentPlace [2] = TABLE ()
  703.             CurrentPlace [6] = ""   ; Åਧ¡á¬ ú«½«ó¡«⌐ Γáí½¿µδ
  704.         ENDIF
  705.     ENDIF
  706.     ; ÅÑαÑ»¿ßδóáѼ ßó«⌐ ¬παß«α ó ú½«íá½∞¡δ⌐
  707.     EXECUTE
  708.    "ARRAY " + GlobCurName + "[7]"
  709.     EXECUTE
  710.    "FOR i FROM 1 TO 7 "+
  711.        "IF ISASSIGNED (CurrentPlace [i]) THEN " +
  712.             GlobCurName + "[i] = CurrentPlace [i] " +
  713.        "ENDIF " +
  714.    "ENDFOR"
  715. ;
  716. ENDPROC
  717. ________________________________________________________________
  718. ;
  719. ;   ü¿í½¿«ΓѬá "¬παß«α"
  720. ;   Åα«µÑñπαá ó«ºóαáΓá ó ºáΣ¿¬ß¿α«óá¡¡«Ñ SaveCur ß«ßΓ«∩¡¿Ñ
  721. ;
  722. ;   ôß½«ó¿∩ αáí«Γδ: íδ½á »α«¿ºóÑñÑ¡á ¿¡¿µ¿á½¿ºáµ¿∩ ¬παß«αá óδº«ó«¼ CurInit.
  723. ; êß»«½∞ºπѼδÑ »α«µÑñπαδ ºáúαπªÑ¡δ. Å«º¿µ¿∩ íδ½á ß«σαá¡Ñ¡á óδº«ó«¼ SaveRec.
  724. ; ÅÑαó«¡áτá½∞¡« ¿ß»«½∞º«óá¡¡á∩ Γáí½¿µá ¡Ñ íδ½á ºá¬αδΓá.
  725. ;   éìêîÇìêà ! ìÑ ¼Ñ¡∩ÑΓ αѪ¿¼ Edit ¡á CoEdit ¿ ¡á«í«α«Γ!
  726. PROC RestCur ()
  727.     ;
  728.     PRIVATE CurrentPlace,   ; æΓαπ¬Γπαá ß ¿¡Σ«α¼áµ¿Ñ⌐ « ΓѬπΘѼ »«½«ªÑ¡¿¿
  729.             GlobCurName,    ; ê¼∩ ú½«íá½∞¡«⌐ ¬«»¿¿ CurrentPlace
  730.             GlobRecName,    ; ê¼∩ ú½«íá½∞¡ú« ¼áßß¿óá - ¬«»¿¿ ßΓ᫬¿ ú«½«ó¡«⌐
  731.                             ; Γáí½¿µδ
  732.             GlobRecEmbeddedName,    ; Æ« ªÑ ó¬½ετáѼ«⌐
  733.             i   ; æτÑΓτ¿¬ µ¿¬½á
  734.     ; ôßΓá¡«ó¿¼ ¿¼Ñ¡á ¼áßß¿ó«ó ß óÑαΦ¿¡δ ßΓѬá
  735.     GlobCurName = "Cursor" + STRVAL (StackPointer)
  736.     GlobRecName = "CurrentRec" + STRVAL (StackPointer)
  737.     GlobRecNameEmbedded = "CurrentRecEmbedded" + STRVAL (StackPointer)
  738.     ; æ«ºñáѼ ó¡πΓαÑ¡¡¿⌐ ¼áßß¿ó
  739.     ARRAY CurrentPlace [7]
  740.     ; ÅÑαÑ»¿ßδóáѼ ó ¼áßß¿óδ
  741.     EXECUTE
  742.    "FOR i FROM 1 TO 7 "+
  743.         "CurrentPlace [i] =" + GlobCurName + "[i] " +
  744.    "ENDFOR"
  745.     ;
  746.     IF CurrentPlace [2] = "" THEN   ; îδ ¿ ¡Ñ í뫨 ó Γáí½¿µÑ
  747.         ; Ä»π߬áѼ ßΓѬ
  748.         StackPointer = StackPointer - 1
  749.         EXECUTE
  750.         "RELEASE VARS " + GlobCurName+","+GlobRecName+","+GlobRecNameEmbedded
  751.         RETURN
  752.     ENDIF
  753.     ; ì«α¼á½∞¡á∩ αáí«Γá
  754.     MOVETO CurrentPlace [2]
  755.     IF NOT ISEMPTY (TABLE ()) THEN  ; Å«º¿µ¿«¡¿α«óá¡¿Ñ «ß¼δ߽ѡ«
  756.         IF NKEYFIELDS (TABLE ()) = 0 THEN   ; ìÑ¿¡ñѬ߿α«óá¡¡á∩ Γáí½¿µá
  757.             MOVETO RECORD CurrentPlace [4]  ; çừ¼¡¿¼ ¡«¼Ñα ºá»¿ß¿
  758.         ELSE
  759.             Posit (GlobRecName) ; çừ¼¡¿½¿ ºá»¿ß∞
  760.         ENDIF
  761.     ENDIF
  762.     ; ÆÑ»Ñα∞ ó«ßßΓá¡«ó¿¼ αѪ¿¼
  763.     IF CurrentPlace [1] = "Edit" THEN
  764.         EDITKEY
  765.     ENDIF
  766.     IF CurrentPlace [1] = "CoEdit" THEN
  767.         COEDITKEY
  768.     ENDIF
  769.     IF CurrentPlace [3] <> "T" THEN ; üδ½á αáí«Γá ó φ¬αá¡¡«⌐ Σ«α¼Ñ
  770.         PICKFORM CurrentPlace [3]
  771.     ENDIF
  772.     IF CurrentPlace [6] <> "" THEN  ; é¬½ετáѼá∩
  773.         MOVETO CurrentPlace [6]
  774.         IF NKEYFIELDS (TABLE ()) = 0 THEN   ; ìÑ¿¡ñѬ߿α«óá¡¡á∩ Γáí½¿µá
  775.             MOVETO RECORD CurrentPlace [7]
  776.             ; çừ¼¡¿¼ ¡«¼Ñα ºá»¿ß¿
  777.         ELSE
  778.             Posit (GlobRecNameEmbedded) ; çừ¼¡¿½¿ ºá»¿ß∞
  779.         ENDIF
  780.     ENDIF
  781.     IF NOT ISEMPTY (TABLE ()) THEN
  782.         MOVETO FIELD CurrentPlace [5]
  783.     ENDIF
  784.     ; Ä»π߬áѼ ßΓѬ
  785.     StackPointer = StackPointer - 1
  786.     EXECUTE
  787.    "RELEASE VARS " + GlobCurName+","+GlobRecName+","+GlobRecNameEmbedded
  788. ;
  789. ENDPROC
  790. ___________________________________________________________________
  791. ;
  792. ;   ÅαµÑñπαá »«º¿µ¿«¡¿α«óá¡¿∩ ¡á ßΓ᫬π ß ºáñá¡¡δ¼ ¬½ετ«¼
  793. ;
  794. ;   Åáαá¼ÑΓα: ¿¼∩ ¼áßß¿óá, ó ¬«Γ«αδ⌐ ¬«¼á¡ñ«⌐ COPYTOARRAY ºá»¿ßá¡á ¬«»¿∩
  795. ; ßΓ᫬¿ ΓѬπΘÑ⌐ Γáí½¿µδ.
  796. ;   é«ºóαáΘáÑΓ »α¿º¡á¬ πß»Ñσá.
  797. ;   ôß½«ó¿∩ óδ»«½¡Ñ¡¿∩: ¡áσ«ªñÑ¡¿Ñ ó Γáí½¿µÑ, Γáí½¿µá ¿¡ñѬ߿α«óá¡á.
  798. ;   éìêîÇìêà! æ««ΓóÑΓßΓó¿Ñ Γ¿»«ó φ½Ñ¼Ñ¡Γ«ó ¼áßß¿óá Γ¿»á¼ »«½Ñ⌐ Γáí½¿µδ
  799. ; ìà ÅÉÄéàɃàÆæƒ!
  800. PROC Posit (ArrName)
  801. ;
  802.     PRIVATE LKey,   ; è«½¿τÑßΓó« »«½Ñ⌐ ó ¬½ετÑ
  803.             LocCom, ; è«¼á¡ñá ¡áσ«ªñÑ¡¿∩ ßΓ᫬¿
  804.             CurrentFld, ; ÆѬπΘÑÑ »«½Ñ
  805.             i   ; æτÑΓτ¿¬ µ¼¬½á
  806. ;
  807. ; Ä»αÑñѽѡ¿Ñ ñ½¿¡δ ¬½ετá
  808.     LKey = NKEYFIELDS (TABLE ())
  809.     IF LKey = 0 THEN    ; è½ετÑóδσ »«½Ñ⌐ ¡ÑΓ
  810.         RETURN FALSE
  811.     ENDIF
  812. ; Å«º¿µ¿«¡¿α«óá¡¿Ñ
  813.     IF LKey = 1 THEN
  814.         CurrentFld = FIELD ()   ; Å«Φ½¿ ¡á »Ñαó«Ñ »«½Ñ
  815.         MOVETO [#]
  816.         RIGHT
  817.         EXECUTE "LOCATE "+ArrName+"[2]"
  818.         MOVETO FIELD CurrentFld ; é«ºóαáΓ ¡á ßó«Ñ »«½Ñ
  819.         RETURN Retval
  820.     ELSE
  821.         ; æ«ßΓáó¿¼ ¬«¼á¡ñπ »«¿ß¬á ßΓ᫬¿
  822.         LocCom = "LOCATE "
  823.         FOR i FROM 2 TO LKey+1
  824.            LocCom = LocCom + " " + ArrName + "[" + STRVAL (i) + "],"
  825.         ENDFOR
  826.         LocCom = SUBSTR (LocCom, 1, LEN (LocCom)-1) ; ôíα὿ ºá»∩Γπε ¡á ¬«¡µÑ
  827.         ; Å«¿ß¬
  828.         EXECUTE LocCom
  829.         RETURN Retval
  830.     ENDIF
  831. ;
  832. ENDPROC
  833.  
  834. ï¿ßΓ¿¡ú 8
  835. ;
  836. ; Å«ñ»α«úαἼᠻα«óÑન ¬«ααÑ¬Γ¡«ßΓ¿ ¬½ετá »α¿ CoEdit
  837. ;
  838. ;  è«ααÑ¬Γ¡«ßΓ∞ ¬½ετá »α«óÑα∩ÑΓß∩ »«»δΓ¬«⌐ í½«¬¿α«ó¬¿ ºá»¿ß¿
  839. ;  é«ºóαáΘáÑΓ FALSE »α¿ ¬«ααѬµ¿¿ ¬½ετá »α¿ »«¼«Θ¿ Alt-L, TRUE - ó ñαπú¿σ
  840. ; ß½πτá∩σ
  841. PROC LeaveRec ()
  842. ;
  843.     PRIVATE Choice, ; ÄΓóÑΓ ¡á ó«»α«ß, τΓ« ñѽáΓ∞ ß »½«σ«⌐ ºá»¿ß∞ε
  844.             MultiFormSgn, ; Åਧ¡á¬ ú«½«ó¡«⌐ Γáí½¿µδ ó ¼¡«ú«Γáí½¿τ¡«⌐ Σ«α¼Ñ
  845.             Forma,  ; ÆѬπΘá∩ Σ«α¼á
  846.             RecArray,   ; îáßß¿ó ΓѬπΘÑ⌐ ºá»¿ß¿ (ñ½∩ ó«ºóαáΓá)
  847.             RetSgn  ; Æ«, τΓ« ó«ºóαáΘáѼ
  848. ;
  849.     ; àß½¿ ¡«óá∩ »πßΓá∩ ßΓ᫬á - ΓπΓ ñѽáΓ∞ ¡ÑτÑú«
  850.     IF RECORDSTATUS ("New") AND (NOT RECORDSTATUS ("Modified")) THEN
  851.         RETURN TRUE
  852.     ENDIF
  853.     IF ISFORMVIEW () THEN   ; Åα«óÑα¬á ¡áσ«ªñÑ¡¿∩ ó ¡ÑαÑñá¬Γ¿απѼ«⌐ Σ«α¼Ñ
  854.         IF FORMTYPE ("DisplayOnly") THEN    ; ìÑαÑñá¬Γ¿απѼá∩ Σ«α¼á
  855.             RETURN TRUE
  856.         ENDIF
  857.     ENDIF
  858. ;
  859.     RetSgn = TRUE
  860.     IF ISFORMVIEW () THEN
  861.         MultiFormSgn = ISMULTIFORM (TABLE (), FORM ())
  862.     ELSE
  863.         MultiFormSgn = FALSE
  864.     ENDIF
  865.     LOCKRECORD  ; Åα«óÑα¬á ¬«ααÑ¬Γ¡«ßΓ¿
  866.     IF ERRORCODE  ()   =  9  THEN  ; çỿß∞ ºáí½«¬¿α«óá¡á ñαπú¿¼
  867.         UNLOCKRECORD    ; »«½∞º«óáΓѽѼ
  868.         RETURN  ; æἫѠ»α«ßΓ«Ñ αÑΦÑ¡¿Ñ
  869.     ENDIF
  870.     IF ERRORCODE () = 53 THEN   ; ìѬ«ααÑ¬Γ¡δÑ ¬½ετ¿
  871.         MESSAGE "Å«óΓ«α ¬½ετÑóδσ »«½Ñ⌐"
  872.         BEEP
  873.         SLEEP 1000
  874.         SHOWMENU
  875.             "çá¼Ñ¡¿Γ∞":"çá¼Ñ¡¿Γ∞ ßΓáαπε ºá»¿ß∞ ¡á ¡«óπε",
  876.             "ÉÑñá¬Γ¿α«óáΓ∞":"ÉÑñá¬Γ¿α«óáΓ∞ ΓѬπΘπε ºá»¿ß∞"
  877.         TO Choice
  878.         IF Retval AND Choice = "çá¼Ñ¡¿Γ∞" THEN
  879.             IF MultiFormSgn THEN
  880.                 CTRLBREAK   ; Åα«ßΓÑ¡∞¬« ¿ ß« ó¬πß«¼!
  881.                 COEDITKEY
  882.             ELSE
  883.                 LOCKKEY
  884.             ENDIF
  885.             RetSgn = FALSE
  886.         ELSE
  887.             IF NOT MultiFormSgn THEN
  888.                 KEYLOOKUP   ; ÉÑñá¬Γ¿απѼ ¬½ετ¿
  889.             ENDIF
  890.             WAIT RECORD
  891.                 PROMPT "ÄΓαÑñá¬Γ¿απ⌐ΓÑ ΓѬπΘπε ºá»¿ß∞",
  892.                        "¿ ¡áª¼¿ΓÑ F2"
  893.             UNTIL "F2"
  894.             LOCKRECORD  ; Å«ß½Ñ αÑñá¬Γ¿α«óá¡¿∩ óßÑúñá ºá¼Ñ¡á
  895.             IF ERRORCODE () = 53 THEN   ; è½ετÑóá∩ «Φ¿í¬á
  896.                 IF MultiFormSgn THEN
  897.                     CTRLBREAK   ; Åα«ßΓÑ¡∞¬« ¿ ß« ó¬πß«¼!
  898.                     COEDITKEY
  899.                 ELSE
  900.                     LOCKKEY
  901.                 ENDIF
  902.             ENDIF
  903.         ENDIF
  904.     ELSE    ; è½ετÑóδσ »α«í½Ñ¼ ¡ÑΓ
  905.         IF ERRORCODE () <> 55 THEN  ; çỿß∞ ¡Ñ íδ½á í½«¬¿α«óá¡á αá¡ÑÑ
  906.             UNLOCKRECORD
  907.         ELSE    ; Éáºí½«¬¿α«óá¡¿Ñ ºáí½«¬¿α«óá¡¡«⌐ ºá»¿ß¿
  908.             COPYTOARRAY RecArray
  909.             UNLOCKRECORD
  910.             ; ä½∩ »«º¿µ¿«¡¿α«óá¡¿∩ ¡áñ« »ÑαÑ⌐Γ¿ ó Γáí½¿τ¡πε Σ«α¼π
  911.             IF ISFORMVIEW () THEN
  912.                 Forma = FORM ()
  913.                 FORMKEY
  914.             ELSE
  915.                 Forma = "T"
  916.             ENDIF
  917.             Posit ("RecArray")  ; UNLOCKRECORD πó«ñ¿Γ ß ºá»¿ß¿
  918.             IF Forma <> "T" THEN
  919.                 PICKFORM Forma
  920.             ENDIF
  921.         ENDIF
  922.     ENDIF
  923.     RETURN RetSgn
  924. ;
  925. ENDPROC
  926.  
  927. ï¿ßΓ¿¡ú 9
  928. ;
  929. ;   Åα«µÑñπαá óδσ«ñá ¿º Γáí½¿µδ ó «ß¡«ó¡«⌐ αѪ¿¼ ß ß«σαá¡Ñ¡¿Ñ¼ ß«ßΓ«∩¡¿∩
  930. ;
  931. ;   ôß½«ó¿∩ αáí«Γδ: íδ½á »α«¿ºóÑñÑ¡á ¿¡¿µ¿á½¿ºáµ¿∩ ¬παß«αá óδº«ó«¼ CurInit.
  932. ; êß»«½∞ºπѼδÑ »α«µÑñπαδ ºáúαπªÑ¡δ.
  933. PROC LeaveCur ()
  934. ;
  935.     PRIVATE CurrentMode ; ÆѬπΘ¿⌐ αѪ¿¼ »α«úαá¼¼δ
  936. ;
  937.     CurrentMode = SYSMODE ()
  938.     ; àß½¿ ¡áñ«, αÑΦ¿¼ ¬½ετÑóδÑ »α«í½Ñ¼δ
  939.     IF CurrentMode = "CoEdit" THEN   ; Ç αÑΦáΓ∞ ¿σ ¡áñ«
  940.         LeaveRec ()
  941.     ENDIF
  942.     SaveCur ()  ; çừ¼¡¿¼ ¼ÑßΓ« (»«½Ñ ¼«ú½« íδΓ∞ ¿º¼Ñ¡Ñ¡« ó LeaveRec ())
  943.     ; éδσ«ñ ó «ß¡«ó¡«⌐ αѪ¿¼
  944.     IF (CurrentMode = "CoEdit") OR (CurrentMode = "Edit") THEN
  945.         DO_IT!
  946.     ENDIF
  947. ;
  948. ENDPROC
  949.  
  950. ï¿ßΓ¿¡ú 10
  951. ;
  952. ; Å«ñ»α«úαá¼¼á ñѽáÑΓ Γ« ªÑ, τΓ« SKIP, ¡« »α¿ ß«ºñáÑΓ ¡«óπε ßΓ᫬π »α¿ »«»δΓ¬Ñ
  953. ; »α«ñó¿¡πΓ∞ß∩ ó»ÑαÑñ ß »«ß½Ññ¡Ñ⌐ ßΓ᫬¿ (ó αѪ¿¼Ñ EDIT ¿½¿ COEDIT)
  954. ;
  955. ; ä«½ª¡á íδΓ∞ ºáúαπªÑ¡á »α«µÑñπαá LeaveRec ñ½∩ ½«¬á½¿ºáµ¿¿ ºá»¿ß¿ »ÑαÑñ
  956. ; óδ»«½¡Ñ¡¿Ñ¼ »ÑαÑσ«ñá.
  957. ; è«¼»Ñ¡ß¿απÑΓ ß½ÑñπεΘπε «Φ¿í¬π Paradox 3.5: »α¿ »«»δΓ¬Ñ ßñѽáΓ∞ SKIP -n, ¡á-
  958. ; σ«ñ∩ß∞ ¡á »«ß½Ññ¡Ñ⌐ ¡Ñ¼«ñ¿Σ¿µ¿α«óá¡¡«⌐ ¡«ó«⌐ ßΓα«¬Ñ (αѪ¿¼ CoEdit), óδ»«½¡∩-
  959. ; ÑΓß∩ Γ«, τΓ« σ«Γѽ«ß∞ íδ ßτ¿ΓáΓ∞ SKIP-(n+1). ¥Γ«, »«-ó¿ñ¿¼«¼π, ñÑ⌐ßΓó¿Γѽ∞¡«
  960. ; «Φ¿í¬á: »α¿ ¡Ñ»«ß½Ññ¡Ñ⌐ ßΓα«¬Ñ ó á¡á½«ú¿τ¡δσ «íßΓ«∩Γѽ∞ßΓóáσ óßÑ αáí«ΓáÑΓ
  961. ; ó ß««ΓóÑΓßΓó¿¿ ß ¿¡Γπ¿Γ¿ó¡δ¼ ß¼δß½«¼.
  962. ; èα«¼Ñ Γ«ú«, »α¿ αáí«ΓÑ ó CoEdit »α¿ óδ»«½¡Ñ¡¿¿ SKIP 0 ¡á ¡«ó«⌐ »πßΓ«⌐ ßΓ᫬Ñ
  963. ; »α«¿ßσ«ñ¿Γ Γ«, τΓ« í«½∞ΦÑ σ«Γѽ«ß∞ íδ ¡áºóáΓ∞ DEL SKIP -1. äá¡¡á∩ »α«µÑñπαá
  964. ; ó ½εí«¼ ß½πτáÑ ó«ß»α¿¡¿¼áÑΓ 0 ¬á¬ π¬áºá¡¿Ñ ¡Ñ ñѽáΓ∞ ¡¿τÑú«.
  965. ; Åáαá¼ÑΓαδ: »áαá¼ÑΓα ¬«¼á¡ñδ SKIP
  966. PROC SkipEd (n)
  967. ;
  968.     PRIVATE CurentRec
  969. ;
  970.     IF n = 0 THEN
  971.         RETURN  ; ï¿ßΓá¡¿Ñ ¡á 0 - íѺπß½«ó¡« »πßΓá∩ ¬«¼á¡ñá
  972.     ENDIF
  973.     ; è«¼»Ñ¡ßᵿ∩ π¬áºá¡¡«⌐ ó ΦỬѠ«ß«íÑ¡¡«ßΓ¿
  974.     IF SYSMODE () = "CoEdit" THEN
  975.         IF ATLAST () AND RECORDSTATUS ("New")
  976.            AND NOT RECORDSTATUS ("Modified") AND n < 0 THEN
  977.             DEL ; Åα«ßΓ« πñá½∩Ѽ ßΓ᫬π
  978.             SKIP n+1
  979.             RETURN
  980.         ENDIF
  981.     ENDIF
  982.     ; ì«α¼á½∞¡á∩ αáí«Γá
  983.     ; ô⌐ñѼ ¬«ααÑ¬Γ¡«
  984.     IF SYSMODE () = "CoEdit" THEN
  985.         LeaveRec ()
  986.     ENDIF
  987.     ; æá¼ »ÑαÑσ«ñ ¬ ¡«ó«⌐ ºá»¿ß¿
  988.     ; Åα«óÑα¿¼ πß½«ó¿∩ ß«ºñá¡¿∩ »πßΓ«⌐ »«ß½Ññ¡Ñ⌐ ßΓ᫬¿
  989.     IF (SYSMODE () = "Edit" OR SYSMODE () = "CoEdit") AND
  990.        (RECNO () + n  >  NIMAGERECORDS ()) THEN
  991.         END ; ÅÑαÑσ«ñ ¬ »«ß½Ññ¡Ñ⌐ ºá»¿ß¿
  992.         ; æ«ºñá¡¿Ñ »πßΓ«⌐ ßΓ᫬¿
  993.         CurentRec = RECNO ()
  994.         WHILE RECNO () = CurentRec  ; ÅÑαÑí¿αáѼß∩ ¡á ¡«óπε ºá»¿ß∞
  995.             DOWN
  996.         ENDWHILE
  997.     ELSE
  998.         SKIP n
  999.     ENDIF
  1000.     LeaveRec ()    ; ìá óß∩¬¿⌐ ß½πτá⌐ 
  1001. ;
  1002. ENDPROC
  1003.