home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kolekce / d3456 / ALEXSOFT.ZIP / RUSSIAN / _READ.ME next >
Encoding:
Text File  |  2001-09-04  |  8.8 KB  |  185 lines
  1.    AlexSoft Component Library (FreeWare edition).
  2.    └Γ≥ε≡ - ╨αßΦ≈≤Ω └δσΩ±σΘ
  3.    a_rabichooc@yahoo.com
  4.    alex@carmez.mldnet.com
  5.  
  6.    ─αφφ√Θ ∩αΩσ≥ ∩≡σΣφατφα≈σφ Σδ  ≤∩≡ε∙σφΦ  ≡ατ≡αßε≥ΩΦ ΩδΦσφ≥±ΩΦ⌡ ∩≡ΦδεµσφΦΘ Σδ 
  7. ≡αßε≥√ ± ßατα∞Φ Σαφφ√⌡. ╬φ ß√δ ≡ατ≡αßε≥αφ Γ 1998 πεΣ≤ Σδ  δΦ≈φ√⌡ φ≤µΣ,
  8. ∩ε²≥ε∞≤ ε≥±≤≥±≥Γ≤σ≥ Help Φ ΩαΩα -δΦßε ΣεΩ≤∞σφ≥α÷Φ .
  9. ▀ ≡σ°Φδ ε∩≤ßδΦΩεΓα≥ⁿ Σδ  εß∙σπε Φ±∩εδⁿτεΓαφΦ  φσ±ΩεδⁿΩε ≤∩≡ε∙σφφ√Θ Γα≡Φαφ≥
  10. "AlexSoft Component Library". ┼±δΦ ß≤Σσ≥ πδ■≈Φ≥ⁿ - ±εεß∙Φ≥σ, ≥.Ω.   φσ ∩≡εΓσ≡ δ
  11. ≡αßε≥ε±∩ε±εßφε±≥ⁿ ∩αΩσ≥α ∩ε±δσ σπε "≤∩≡ε∙σφΦ ". ┬ε∩≡ε±√, Ωε∞∞σφ≥α≡ΦΦ,
  12. ßδαπεΣα≡φε±≥Φ, Γετ∞≤∙σφΦ  Φ ∩≡ε≈. :-) - ∞√δε∞
  13.  
  14. ╩≡α≥Ωε ε∩Φ°≤ ≥εδⁿΩε Ωδ■≈σΓ√σ ±ΓεΘ±≥Γα Ωε∞∩εφσφ≥εΓ - ε±≥αδⁿφεσ φαΘΣσ≥σ Γ
  15. Φ±⌡εΣφΦΩα⌡.
  16. ╟α≡αφσσ ∩≡ε°≤ ∩≡ε∙σφΦ  τα ±≥Φδⁿ ΦτδεµσφΦ  -   φσ ∩Φ±α≥σδⁿ,   ≈Φ≥α≥σδⁿ ;-)
  17.  
  18. 1) TRaDbEdit - Dbedit/DbLookup/DbImage/DbMemo (Γ ταΓΦ±Φ∞ε±≥Φ ε≥ ≥Φ∩α Field) ∩εδσ
  19. ± ∞σ≥ΩεΘ.
  20.  
  21.  ╩δ■≈σΓ√σ ±ΓεΘ±≥Γα:
  22.  published
  23.   DataSource, DataField - ²≥ε ∩εφ ≥φε.
  24.   EditKind (ekCommon, ekView, ekControl) - ≥Φ∩ ∩εδ .
  25.     ekCommon - εß√≈φεσ ∩εδσ,
  26.     ekView - φσ ≡σΣαΩ≥Φ≡≤σ∞εσ ∩εδσ (≥Φ∩α dbText)
  27.     ekControl - ∩εδσ Ωεφ≥≡εδ  - ΣεßαΓδ σ≥±  Ωφε∩Ωα, ∩ε φαµα≥Φ■ φα Ωε≥ε≡≤■,
  28.     Γ ταΓΦ±Φ∞ε±≥Φ ε≥ ≥Φ∩α ∩εδ  ∩ε-≤∞εδ≈αφΦ■ ß≤Σ≤≥ ∩≡εΦτΓεΣΦ≥ⁿ±  ±δσΣ≤■∙Φσ
  29.     ΣσΘ±≥ΓΦ 
  30.     (±∞. ∞σ≥εΣ DoButtonClick):
  31.        ┼±δΦ Field.DataType = ftMemo, ftFmtMemo - Γ√τ√Γασ≥±  ≡σΣαΩ≥ε≡ ≥σΩ±≥α Σδ 
  32.         ∩εδ ;
  33.             ftGraphic, ftTypedBinary, ftBlob - Γ√τ√Γασ≥±  ≡σΣαΩ≥ε≡ Φτεß≡αµσφΦΘ
  34.                    Σδ  ∩εδ  (Γ Σαφφε∞ Γα≡Φαφ≥σ - Γσ±ⁿ∞  ≤∩≡ε∙σφφ√Θ)
  35.             ftDataSet - Γ√τ√Γασ≥±  ⌠ε≡∞α ≡σΣαΩ≥Φ≡εΓαφΦ  NestedDataSet'a
  36.             ftDate, ftDateTime - Γ√τ√Γασ≥±  ΩαδσφΣα≡ⁿ
  37.        ┼±δΦ ∩εδσ Lookup'φεσ, ΦδΦ  Γδ σ≥±  Ωδ■≈σΓ√∞ Σδ  Σ≡≤πεπε Lookup'φεπε,
  38.        Γ√τ√Γασ≥±  ⌠ε≡∞α ≡σΣαΩ≥Φ≡εΓαφΦ  ±εε≥Γσ≥±≥Γ≤■∙σπε LookupDataSet'a.
  39.     ─σΘ±≥ΓΦσ ∩ε-≤∞εδ≈αφΦ■ ∞εµφε ∩σ≡σΩ≡√≥ⁿ ε∩≡σΣσδΦΓ ±εß√≥Φσ OnButtonClick
  40.   ShowBLOB - Σδ  BLOB'εΓ σ±δΦ True, ∞σ∞ε ΦδΦ Ωα≡≥ΦφΩα ε≥εß≡αµασ≥±  Γ ±α∞ε∞ ∩εδσ,
  41.              Φφα≈σ Ωα≡≥ΦφΩα/∞σ∞ε φσ ε≥εß≡αµασ≥±  Γ ±α∞ε∞ ∩εδσ, φε φα φσσ ∞εµφε
  42.              Γ√Θ≥Φ φαµα≥Φσ∞ φα Ωφε∩Ω≤.
  43.  public
  44.   Field: TField - ≤Ωατ√Γασ≥ φα ±Γ ταφφεσ ± Ωε∞εφσφ≥ε∞ TField;
  45.   Glyph: TBitmap - Σδ  Ωφε∩ΩΦ
  46.   NumGlyphs - ≥ε µσ
  47.   ReadOnly - ≤Ωατ√Γασ≥, ∞εµσ≥ δΦ Ωε≡≡σΩ≥Φ≡εΓα≥ⁿ±  ∩εδσ.
  48.  
  49.  ╤εß√≥Φ :
  50.   OnButtonClick - ∩≡εΦ±⌡εΣΦ≥ ∩≡Φ φαµα≥ΦΦ φα Ωφε∩Ω≤
  51.       (ΣσΘ±≥ΓΦσ ∩ε ≤∞εδ≈αφΦ■ - DoEditButtonClick Γ unit dbtools)
  52.   OnReplaceField - ΓετφΦΩασ≥ ∩≡Φ Γ√⌡εΣσ Φτ ⌠ε≡∞√ ≡σΣαΩ≥Φ≡εΓαφΦ  Lookup'φεπε
  53.       DataSet'α ± ∩σ≡σφε±ε∞ ≥σΩ≤∙Φ⌡ τφα≈σφΦΘ Ωδ■≈σΓ√⌡ Lookup'φ√⌡ ∩εδσΘ Γ
  54.       Ωδ■≈σΓ√σ ∩εδ  Φ±⌡εΣφεπε DataSet'α (ΣσΘ±≥ΓΦσ ∩ε ≤∞εδ≈αφΦ■ - ReplaceField Γ
  55.       unit dbtools)
  56.  
  57. 2) TRaDBBox - ScrollBox, ±εΣσ≡µα∙ΦΘ TRaDbEdit'√ (∞εµσ≥ ±εΣσ≡µα≥ⁿ Φ Σ≡≤πΦσ
  58. Ωε∞∩εφσφ≥√) - ≥Φ∩α DBCtrlGrid'a.
  59.  
  60.  ╩δ■≈σΓ√σ ±ΓεΘ±≥Γα:
  61.   DataSource - ²≥ε ∩εφ ≥φε
  62.   CreateMode (cmAuto, cmManual) - ±∩ε±εß ±ετΣαφΦ  TRaDbEdit'εΓ.
  63.     ╧≡Φ cmAuto - ±ετΣασ≥ Φ⌡ αΓ≥ε∞α≥Φ≈σ±ΩΦ Φτ DataSource.DataSet'a,
  64.     ∩≡Φ cmManual - ╧εδⁿτεΓα≥σδⁿ ΣεßαΓδ σ≥/≤Σαδ σ≥/Φτ∞σφ σ≥ Φ⌡ ±α∞.
  65.   Orientation (orVertical, orHorizontal)- ≡α±∩εδεµσφΦσ TRaDbEdit'εΓ ∩≡Φ
  66.     CreateMode = cmAuto.
  67.   OriginX, OriginY - ε≥±≥≤∩ ∩≡Φ CreateMode = cmAuto.
  68.   ReadOnly - ²≥ε ∩εφ ≥φε
  69.   ShowBlobs - ≥ε µσ ≈≥ε Φ Σδ  TRaDbEdit
  70.   AllowMove, AllowDelete, AllowInsert - ε∩≡σΣσδ ■≥ Γετ∞εµφε±≥ⁿ ∩σ≡σ∞σ∙σφΦ  ∩ε
  71.     DataSet'≤, ≤ΣαδσφΦ  Φτ φσπε Φ Γ±≥αΓΩΦ φεΓ√⌡ τα∩Φ±σΘ ± ∩ε∞ε∙ⁿ■ ΩδαΓΦα≥≤≡√.
  72.   ConfirmDelete - ε∩≡σΣσδ σ≥, ß≤Σσ≥ δΦ Γ√Σαφε ∩≡σΣ≤∩≡σµΣσφΦσ ∩≡Φ ∩ε∩√≥Ωσ ≤ΣαδσφΦ 
  73.     τα∩Φ±Φ ± ∩ε∞ε∙ⁿ■ ΩδαΓΦα≥≤≡√.
  74.  ╩δαΓΦ°Φ φαΓΦπα÷ΦΦ
  75.     Ctrl-F1: ═αµα≥Φσ φα Ωφε∩Ω≤ TRaDbEdit
  76.     LEFT,RIGHT,UP,DOWN,TAB,SHIFT-TAB,ENTER: ╧σ≡σ∞σ∙σφΦσ ∩ε ∩εδ ∞
  77.     PgDn,PgUp,Ctrl-PgDn,Ctrl-PgUp: ╧σ≡σ∞σ∙σφΦσ ∩ε τα∩Φ± ∞
  78.     F2: ╧σ≡σΩδ■≈σφΦσ ≡σµΦ∞α ≡σΣαΩ≥Φ≡εΓαφΦ 
  79.     INSERT, Ctrl-INSERT: Append, Insert Γ DataSet.
  80.     F8: ╙ΣαδσφΦσ Φτ DataSet.
  81.  
  82. 3) TRaDBGrid - ∩ε≈≥Φ TDBGrid, τα Φ±Ωδ■≈σφΦσ∞ ≥επε, ≈≥ε αΓ≥ε∞α≥Φ≈σ±ΩΦ ε∩≡σΣσδ σ≥,
  83.      Σεδµσφ δΦ ß√≥ⁿ ≤ ΩεδεφΩΦ ButtonStyle=cbsEllipsis ∩ε ≥σ∞ µσ Ω≡Φ≥σ≡Φ ∞ Φ ±
  84.      ≥σ∞ µσ ²⌠⌠σΩ≥ε∞, ΩαΩ ≤ TRaDbEdit.EditKind = ekControl. ╩≡ε∞σ ≥επε, Φτ∞σφσφα
  85.      φαΓΦπα÷Φ  - ΣεßαΓδσφ√ ΩδαΓΦ°Φ Ctrl-F1, Enter, F8 (ΩαΩ ≤ TRaDBBox)
  86.    ±ΓεΘ±≥Γα:
  87.      RedMinus: boolean - ε∩≡σΣσδ σ≥, ß≤Σ≤≥ δΦ ε≥≡Φ÷α≥σδⁿφ√σ τφα≈σφΦ  ≈Φ±δεΓ√⌡
  88.      ∩εδσΘ Γ√Σσδ ≥ⁿ±  Ω≡α±φ√∞ ÷Γσ≥ε∞.
  89.      VisibleColCount, VisibleRowCount - ΩεδΦ≈σ±≥Γε ∩εδφε±≥ⁿ■ ΓΦΣΦ∞√⌡ ΩεδεφεΩ Φ
  90.      ±≥≡εΩ ±εε≥Γσ≥±≥Γσφφε.
  91.  ╤εß√≥Φ :
  92.   OnReplaceField - ΩαΩ ≤ TRaDbEdit.
  93.  
  94. 4) TRaDBPanel - ╤εΓεΩ≤∩φε±≥ⁿ TRaDBGrid Φ TRaDBBox - ≤Σεßφα Σδ  Master-Detail.
  95.  ╩δ■≈σΓ√σ ±ΓεΘ±≥Γα:
  96.   DataSource - ²≥ε ∩εφ ≥φε
  97.   PanelStyle (psAuto, psBox, psGrid) - Γφσ°φΦΘ ΓΦΣ ∩αφσδΦ.
  98.     ╧≡Φ psBox - ∩αφσδⁿ Γ√πδ ΣΦ≥ ΩαΩ TRaDBBox,
  99.     ∩≡Φ psGrid - ΩαΩ TRaDBGrid
  100.     ∩≡Φ psAuto - σ±δΦ DataSource.DataSet ±Γ ταφ ± ΩαΩΦ∞-δΦßε Σ≡≤πΦ∞ DataSet'ε∞
  101.       ε≥φε°σφΦσ∞ Master-Detail (Γ Ωα≈σ±≥Γσ Detail), ≥ε Γ ∩αφσδΦ ∩≡Φ±≤≥±≥Γ≤σ≥ Φ
  102.       TRaDBBox(Master) Φ TRaDBGrid(Detail), Γ ∩≡ε≥ΦΓφε∞ ±δ≤≈ασ - ∩αφσδⁿ Γ√πδ ΣΦ≥
  103.        ΩαΩ TRaDBGrid.
  104.     Box - ≤Ωατα≥σδⁿ φα TRaDBBox
  105.     Grid - ≤Ωατα≥σδⁿ φα TRaDBGrid
  106.     BoxFields - Γ√⌡εΣ φα TRaDbEdit'√ Γ Box'σ.
  107.     GridColumns - Γ√⌡εΣ φα Grid.Columns.
  108.     BoxHeight - Σδ  Master-Detail ∩≡Φ PanelStyle=psAuto Γ√±ε≥α Box'α.
  109.       ─δ  αΓ≥ε∞α≥Φ≈σ±Ωεπε ε∩≡σΣσδσφΦ  φσεß⌡εΣΦ∞εΘ Γ√±ε≥√, ≤±≥αφεΓΦ≥σ
  110.       BoxHeight = -1
  111.     CloseOnEscape - σ±δΦ ≤±≥αφεΓδσφε, ∩≡Φ φαµα≥ΦΦ Esc ταΩ≡√Γασ≥ ⌠ε≡∞≤.
  112.  
  113.  ╩δαΓΦ°Φ φαΓΦπα÷ΦΦ ≥σ µσ, ≈≥ε Φ ≤ TRaDBBox Φ TRaDBGrid ∩δ■±
  114.     Ctrl-1: ╧σ≡σ⌡εΣ φα Γσ≡⌡φΦΘ ≤≡εΓσφⁿ (Box)
  115.     Ctrl-2: ╧σ≡σ⌡εΣ φα φΦµφΦΘ ≤≡εΓσφⁿ (Grid)
  116.     Esc - ╧≡Φ ≤±≥αφεΓδσφφε∞ CloseOnEscape ταΩ≡√Γασ≥ ⌠ε≡∞≤.
  117.  
  118. 5) TRaDBSearch - ∩≡εΦτΓεΣΦ≥ ∩εΦ±Ω ∩ε ±Γ ταφφε∞≤ ± φΦ∞ DataSet'≤ (∩εΦ±Ω
  119.    ∩≡εΦτΓεΣΦ≥±  φα ±≥ε≡εφσ ΩδΦσφ≥α, α φσ φα ±≥ε≡εφσ ±σ≡Γσ≡α, ≥.σ. ≥εδⁿΩε ∩ε
  120.    ≥σ∞ τα∩Φ± ∞, Ωε≥ε≡√σ Γ Σαφφ√Θ ∞ε∞σφ≥ ∩≡Φ±≤≥±≥Γ≤■≥ Γ DataSet'σ)
  121.  ╤ΓεΘ±≥Γα:
  122.    DataSet - DataSet, ∩ε Ωε≥ε≡ε∞≤ ∩≡εΓεΣΦ≥±  ∩εΦ±Ω.
  123.    SearchKind(skNormal, skExtended, skContext) - ε∩≡σΣσδ σ≥ ≥Φ∩ ∩εΦ±Ωα: ∩≡ε±≥εΘ,
  124.      ≡α±°Φ≡σφφ√Θ Φ Ωεφ≥σΩ±≥φ√Θ ∩εΦ±Ω ±εε≥Γσ≥±≥Γσφφε
  125.  ╧≡Φ µσδαφΦΦ ∞εµφε Γ√ß≡α≥ⁿ ∩εδ , Ωε≥ε≡√σ ß≤Σ≤≥ ≤≈α±≥ΓεΓα≥ⁿ Γ ∩εΦ±Ωσ (ΣΓεΘφ√∞
  126.  ΩδΦΩε∞).
  127.  ─δ  Γ√∩εδφσφΦ  ∩εΦ±Ωα φσεß⌡εΣΦ∞ε Γ√τΓα≥ⁿ ∞σ≥εΣ
  128.  Execute(DefaultField: TField): Boolean;
  129.  Γ Ωα≈σ±≥Γσ ∩α≡α∞σ≥≡α ∩σ≡σΣα≥ⁿ ∩εδσ, ∩ε Ωε≥ε≡ε∞≤ ß≤Σσ≥ ∩≡εΓεΣΦ≥ⁿ±  ∩εΦ±Ω
  130.  (ΦδΦ nil).
  131.  
  132. 6) TRaDBNavigator - ∩ε≈≥Φ TDBNavigator.
  133.  ╩ ±εµαδσφΦ■ ─σδⁿ⌠ΦΘ±ΩΦΘ TDBNavigator φα∩Φ±αφ ≥αΩΦ∞ εß≡ατε∞, ≈≥ε ε≥ φσπε
  134.  φσΓετ∞εµφε ε≥φα±δσΣεΓα≥ⁿ±  Σδ  Φτ∞σφσφΦ  ⌠≤φΩ÷Φεφαδⁿφε±≥Φ, ∩ε²≥ε∞≤ ∩≡Φ°δε±ⁿ
  135.  ∩εδφε±≥ⁿ■ σπε ∩σ≡σ∩Φ±α≥ⁿ.
  136.  ─εßαΓδσφε:
  137.    - ╩φε∩Ωα ∩εΦ±Ωα ∩ε DataSource.DataSet.
  138.    - ±ΓεΘ±≥Γε DataSourceAuto - σ±δΦ True, φαΓΦπα≥ε≡ ≡αßε≥ασ≥ ∩ε DataSet'≤,
  139.         ±Γ ταφφε∞≤ ± αΩ≥ΦΓφ√∞ Γ φα±≥ε ∙ΦΘ ∞ε∞σφ≥ Control'ε∞.
  140.    - ±ΓεΘ±≥Γε SearchComponent - ≤Ωατα≥σδⁿ φα TRaDBSearch Σδ  Γ√∩εδφσφΦ  ∩εΦ±Ωα.
  141.         ┼±δΦ = nil, ∩≡εΦτΓεΣΦ≥±  ∩εΦ±Ω ∩ε Γ±σ∞ ∩εδ ∞.
  142.    - ±ΓεΘ±≥Γε DefaultAction - ε∩≡σΣσδ σ≥, ß≤Σσ≥ δΦ Γ√∩εδφ ≥ⁿ±  ΣσΘ±≥ΓΦσ ∩ε
  143.         ≤∞εδ≈αφΦ■, σ±δΦ ε∩≡σΣσδσφ εß≡αßε≥≈ΦΩ OnClick (ΣσΘ±≥ΓΦσ ∩ε ≤∞εδ≈αφΦ■ -
  144.         DoDefaultClick(Ωφε∩Ωα));
  145. 7) TRaDBInsert - CheckBox.
  146.   ┼±δΦ RaDBInsert.Checked = true, ∩≡Φ ΣεßαΓδσφΦΦ Γ ±Γ ταφφ√Θ ± φΦ∞ DataSet
  147.       αΓ≥ε∞α≥Φ≈σ±ΩΦ ταφε± ≥±  Σαφφ√σ Φτ ∩≡σΣ√Σ≤∙σΘ τα∩Φ±Φ. ╙Σεßφε, ΩεπΣα
  148.       φσεß⌡εΣΦ∞ε ταφε±Φ≥ⁿ Φφ⌠ε≡∞α÷Φ■, Γ Ωε≥ε≡εΘ Φτ∞σφ ■≥±  ≥εδⁿΩε φσΩε≥ε≡√σ
  149.       ±≥εδß÷√.
  150.  
  151. 8) TRaTable, TRaQuery, TRaStoredProc, TRaClientDataSet - Ωε∞∩εφσφ≥√,
  152. ε≥δΦ≈α■∙Φσ±  ε≥ ±ΓεΦ⌡ ≡εΣΦ≥σδσΘ (TTable, TQuery, TStoredProc, TClientDataSet
  153. ±εε≥Γσ≥±≥Γσφφε) ±δσΣ≤■∙Φ∞Φ ±ΓεΘ±≥Γα∞Φ:
  154.   FormCaption, FormClassName, ModalForm, FreeOnClose. ┬±σ ²≥Φ ±ΓεΘ±≥Γα ε≥φε± ≥± 
  155. Ω ⌠ε≡∞σ, Ωε≥ε≡α  ε≥Γσ≈ασ≥ τα ≡σΣαΩ≥Φ≡εΓαφΦσ/∩≡ε±∞ε≥≡ ±εε≥Γσ≥±≥Γ≤■∙σπε DataSet'a.
  156. ╧≡Φ Γ⌡εΣσ Γ ±∩≡αΓε≈φΦΩ ∩ε φαµα≥Φ■ Ctrl-F1 (±∞. Γ√°σ) Γ√τ√Γασ≥±  ⌠ε≡∞α Σδ 
  157. ∩≡ε±∞ε≥≡α/≡σΣαΩ≥Φ≡εΓαφΦ  DataSet-±∩≡αΓε≈φΦΩα (Lookup'φεπε DataSet'α). ┼±δΦ φσ
  158. ≤Ωαταφ FormClassName, ≥ε ²≥α ⌠ε≡∞α - TDefaultForm (unit DBForms), ±ε±≥ε ∙α  Φτ
  159. TRaDBPanel, TRaDBNavigator, TRaDBInsert. ╬ΣφαΩε ≈α±≥ε φσεß⌡εΣΦ∞ε ±ετΣαΓα≥ⁿ ßεδσσ
  160. ±δεµφ√σ ⌠ε≡∞√.
  161. ─δ  ²≥επε φσεß⌡εΣΦ∞ε:
  162.   α) ╤ετΣα≥ⁿ ²≥≤ ⌠ε≡∞≤
  163.   ß) ╚τ∞σφΦ≥ⁿ σσ εß· ΓδσφΦσ ≥αΩ, ≈≥εß√ εφα ∩≡εΦ±⌡εΣδα φσ ε≥ TForm, α ε≥ TDBForm
  164.      TmyForm1 = class(TDBForm)
  165.   Γ) ╟α≡σπΦ±≥≡Φ≡εΓα≥ⁿ σσ Ωδα±± (RegisterClass(TmyForm1))
  166.   π) ╤εε≥Γσ≥±≥Γ≤■∙σ∞≤ DataSet'≤ ≤Ωατα≥ⁿ FormClassName - Φ∞  Ωδα±±α ⌠ε≡∞√.
  167.      (FormClassName = TmyForm1)
  168.   Σ) ╙Ωατα≥ⁿ FormCaption - Caption ⌠ε≡∞√ (φσ εß τα≥σδⁿφε).
  169.  
  170.  ┼±δΦ Γ±σ ²≥ε ∩≡εΣσδα≥ⁿ, ≥ε Γ∞σ±≥ε ⌠ε≡∞√ ∩ε ≤∞εδ≈αφΦ■ ß≤Σσ≥ ∩ε Γδ ≥ⁿ±  ┬α°α
  171. ⌠ε≡∞α (TmyForm1)
  172.  
  173. ModalForm ε≥Γσ≈ασ≥ τα ∞εΣαδⁿφε±≥ⁿ ⌠ε≡∞√, FreeOnClose - φ≤µφε δΦ ≤φΦ≈≥εµα≥ⁿ ⌠ε≡∞≤
  174. ∩ε±δσ σσ ταΩ≡√≥Φ .
  175.  
  176. ─δ  Γ√τεΓα ⌠ε≡∞√, ±Γ ταφφεΘ ± DataSet'ε∞ Φ±∩εδⁿτ≤σ≥±  ⌠≤φΩ÷Φ :
  177. function InitDBForm(DataSet:TDataSet; Field:TField; AOwner:TComponent): Integer;
  178. DataSet - Φ±⌡εΣφ√Θ DataSet, Field - ∩εδσ Ωεφ≥≡εδ  (Lookup'φεσ ΦδΦ Ωδ■≈σΓεσ Σδ 
  179. Lookup'φεπε) ΦδΦ nil.
  180. ┬ετΓ≡α≥ - Γ ±δ≤≈ασ ∞εΣαδⁿφε±≥Φ ⌠ε≡∞√ ModalResult, Φφα≈σ - 0
  181.  
  182.   ╚∞σσ≥±  σ∙σ ≡ Σ QuickReport Ωε∞∩εφσφ≥εΓ - Σδ  ∩σ≈α≥Φ φα ∞α≥≡Φ≈φ√⌡ ∩≡Φφ≥σ≡α⌡
  183. Γ±≥≡εσφφ√∞Φ °≡Φ⌠≥α∞Φ. ▀ ε∩Φ±√Γα≥ⁿ Φ⌡ φσ ß≤Σ≤, σ±δΦ Ωε∞≤ ß≤Σσ≥ Φφ≥σ≡σ±φε - ε≥Γσ≈≤
  184. σ∞√δε∞.
  185.