ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ SQLΠ·Π°ΠΏΡΠΎΡΠ°, Π΄Π°Π½Π½ΡΠ΅ Π²ΡΠ±ΠΈΡΠ°ΡΡΡΡ ΠΈΠ· ΡΠ°Π±Π»ΠΈΡ, ΡΠ²ΡΠ·ΡΠ²Π°ΡΡΡΡ, ΡΠΎΡΠΌΠΈΡΡΠ΅ΡΡΡ Π²ΡΡΠΈΡΠ»ΡΠ΅ΠΌΠΎΠ΅ ΠΏΠΎΠ»Π΅. ΠΠ»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ ΡΠ°Π±Π»ΠΈΡΡ «ΠΠ°ΠΊΠ°Π·Ρ» ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ: ΠΡΠ±ΠΎΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠ½ΠΊΡΠ°, Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ «ΠΠ°Π½Π½ΡΠ΅»: ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΡΡΡ ΡΠΎΡΠΌ. ΠΠ° Π³Π»Π°Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ: Π ΠΈΡΡΠ½ΠΎΠΊ 8 — ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΏΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ°… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΡΡΡ ΡΠΎΡΠΌ. ΠΠ° Π³Π»Π°Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ:
- 1. ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ TDataSetProvider, TClientDataSet, TDataSource Π΄Π»Ρ ΡΠ²ΡΠ·ΠΈ Ρ Π½Π°Π±ΠΎΡΠΎΠΌ Π΄Π°Π½Π½ΡΡ ;
- 2. ΠΏΡΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ²TSQLQueryΡ Π·Π°Π³ΠΎΡΠΎΠ²Π»Π΅Π½Π½ΡΠΌΠΈ Π·Π°ΠΏΡΠΎΡΠ°ΠΌΠΈ ΠΊ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ;
- 3. ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ TDBGrid Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ;
- 4. ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ TDBNavigator Π΄Π»Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΠΌΠΈ;
- 5. ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ TMainMenu Π΄Π»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ ΠΈ Π·Π°ΠΏΡΠΎΡΠ°ΠΌ.
ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΎΡΠΌΡ
ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΠ° ΠΈΠΌΠ΅Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΈΠ΄:
Π ΠΈΡΡΠ½ΠΎΠΊ 1 — ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΠ· Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² Π½Π° Π½Π΅ΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Ρ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ TDBGrid Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ Ρ ΡΠ°Π½ΡΡΠΈΡ ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΠ°Ρ ΠΈΠ»ΠΈ ΡΠΎΡΠΌΠΈΡΡΠ΅ΠΌΡΡ Π·Π°ΠΏΡΠΎΡΠ°ΠΌΠΈ, ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ TDBNavigator Π΄Π»Ρ Π½Π°Π²ΠΈΠ³Π°ΡΠΈΠΈ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΡΠΌΠΈ, Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠΌ TDBGrid ΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ TMainMenu ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΉ ΠΏΡΠ½ΠΊΡΡ ΠΌΠ΅Π½Ρ Π΄Π»Ρ Π²ΡΠ±ΠΎΡΠ° Π½Π°Π±ΠΎΡΠΎΠ² Π΄Π°Π½Π½ΡΡ ΠΈ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΏΡΠΎΡΠΎΠ².
ΠΡΠ±ΠΎΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠ½ΠΊΡΠ°, Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ «ΠΠ°Π½Π½ΡΠ΅»:
Π ΠΈΡΡΠ½ΠΎΠΊ 2 — ΠΡΠ½ΠΊΡ «ΠΠ°Π½Π½ΡΠ΅», Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ «ΠΠ»ΡΠ΄Π°», ΡΠΎΡΠΌΠ° ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΈΠ΄:
Π ΠΈΡΡΠ½ΠΎΠΊ 3 — ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΏΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° Π½Π°Π±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ «ΠΠ»ΡΠ΄Π°» .
Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π½Π° ΡΠΎΡΠΌΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠ΅ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ «ΠΠ»ΡΠ΄Π°», Π° ΠΈΠΌΠ΅Π½Π½ΠΎ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π±Π»ΡΠ΄Π°, Π΅Π³ΠΎ Π²Π΅Ρ ΠΈ ΡΠΎΡΡΠ°Π².
ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° Π½Π°Π±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ , ΠΏΠ°Π½Π΅Π»Ρ Π½Π°Π²ΠΈΠ³Π°ΡΠΈΠΈ ΠΏΡΠΈΠ½ΡΠ»Π° Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π²ΠΈΠ΄. ΠΡ ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ, Π΄Π»Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΠΌΠΈ.
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ «ΠΠ΅Π½Ρ», ΡΠΎΡΠΌΠ° ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΈΠ΄:
Π ΠΈΡΡΠ½ΠΎΠΊ 4 — ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΏΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° Π½Π°Π±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ «ΠΠ΅Π½Ρ» .
Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ΠΌ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΌΠ΅Π½Ρ, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π±Π»ΡΠ΄Π° ΠΈ ΡΠ΅Π½Π° Π² ΡΡΠ±Π»ΡΡ .
ΠΡΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ΅Π½Ρ ΠΈΠ»ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ, ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΎΠΊΠ½ΠΎ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ Π·Π°ΠΏΠΈΡΠΈ:
Π ΠΈΡΡΠ½ΠΎΠΊ 5 — ΠΠΊΠ½ΠΎ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ΅Π½Ρ.
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ «ΠΠ°ΠΊΠ°Π·Ρ», ΡΠΎΡΠΌΠ° ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΈΠ΄:
ΡΠ°Π±Π»ΠΈΡΠ° Π±Π°Π·Π° Π΄Π°Π½Π½ΡΠ΅ delphi.
Π ΠΈΡΡΠ½ΠΎΠΊ 6 — ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΏΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° Π½Π°Π±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ «ΠΠ°ΠΊΠ°Π·Ρ» .
Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ΠΌ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π·Π°ΠΊΠ°Π·Π°Ρ , Π° ΠΈΠΌΠ΅Π½Π½ΠΎ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π±Π»ΡΠ΄Π°, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ, Π²ΡΠ΅ΠΌΡ Π·Π°ΠΊΠ°Π·Π° ΠΈ ΡΠ°ΠΌΠΈΠ»ΠΈΡ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΠ°, ΠΎΡΠΎΡΠΌΠΈΠ²ΡΠ΅Π³ΠΎ Π·Π°ΠΊΠ°Π·.
ΠΠ»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ ΡΠ°Π±Π»ΠΈΡΡ «ΠΠ°ΠΊΠ°Π·Ρ» ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ:
Π ΠΈΡΡΠ½ΠΎΠΊ 7 — ΠΠΊΠ½ΠΎ Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ/ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ ΡΠ°Π±Π»ΠΈΡΡ «ΠΠ°ΠΊΠ°Π·Ρ» .
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ «ΠΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΡ», ΡΠΎΡΠΌΠ° ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΈΠ΄:
Π ΠΈΡΡΠ½ΠΎΠΊ 8 — ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΏΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° Π½Π°Π±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ «ΠΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΡ» .
Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ΠΌ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΠ°Ρ , Π° ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΡ, ΠΈΠΌΡ, ΠΎΡΡΠ΅ΡΡΠ²ΠΎ ΠΈ ΡΠ΅Π»Π΅ΡΠΎΠ½.
ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΠ΅ΠΉΡΡΠ²ΠΈΡ» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΠΎΠ΄ΠΏΡΠ½ΠΊΡ «Π ΠΎΠΏΠ»Π°ΡΠ΅…», ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠΉ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ Π²ΡΡΠΈΡΠ»ΡΠ΅ΠΌΡΠΉ Π·Π°ΠΏΡΠΎΡ ΠΊ Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ . ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠ½ΠΊΡΠ°, ΡΠΎΡΠΌΠ° ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ Π²ΠΈΠ΄:
ΠΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ Π΄Π»Ρ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π½Π° ΡΠΎΡΠΌΠ΅, ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΡ . Π ΠΎΠΏΠΈΡΠ°Π½Π½ΡΡ Π²ΡΡΠ΅ ΡΠ»ΡΡΠ°ΡΡ Π΄Π°Π½Π½ΡΡ ΠΏΡΠΎΡΡΠΎ Π²ΡΠ±ΠΈΡΠ°Π»ΠΈΡΡ ΠΈΠ· ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ ΡΠ°Π±Π»ΠΈΡ, Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π΄Π°Π½Π½ΡΠ΅ Π²ΡΠ±ΠΈΡΠ°ΡΡΡΡ ΠΈΠ· Π³ΡΡΠΏΠΏΡ ΡΠ°Π±Π»ΠΈΡ, ΡΠ²ΡΠ·Π°Π½Π½ΡΡ ΠΎΠ±ΡΠΈΠΌ ΠΏΡΠΈΠ·Π½Π°ΠΊΠΎΠΌ:
procedure TForm1. N9Click (Sender: TObject);
begin.
_state := ST_NONE;
Caption := 'ΠΡΠΎΠ³ΠΎ';
try.
ClientDataSet1.Close;
q.Close;
q.SQL.Text :=.
'select orders. id_orders as «ΠΠΎΠΌΠ΅Ρ Π·Π°ΠΊΠ°Π·Π°», dish. title as «ΠΠ»ΡΠ΄ΠΎ», ' +.
'orders.cnt as «ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ», menu. price as «Π¦Π΅Π½Π°», ' +.
'(orders.cnt * menu. price) as «ΠΡΠΎΠ³ΠΎ» ' +.
'from orders ' +.
'left join dish on (orders.id_dish = dish. id_dish) ' +.
'left join menu on (dish.id_dish = menu. id_dish)' +.
'order by orders. id_orders';
q.Open;
q.FieldByName ('Π¦Π΅Π½Π°').AsCurrency;
q.FieldByName ('ΠΡΠΎΠ³ΠΎ').AsCurrency;
DataSetProvider1.DataSet := q;
ClientDataSet1.Open;
DBGrid1.Columns[1]. Width := 200;
except on e: Exception do.
MessageBox (0, 'ΠΡΠΈΠ±ΠΊΠ° Π·Π°ΠΏΡΠΎΡΠ° «ΠΡΠΎΠ³ΠΎ» !', 'ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅', MB_OK + MB_ICONWARNING);
end;
DBGrid1.Options := DBGrid1. Options — [dgEditing];
end;
ΠΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ SQLΠ·Π°ΠΏΡΠΎΡΠ°, Π΄Π°Π½Π½ΡΠ΅ Π²ΡΠ±ΠΈΡΠ°ΡΡΡΡ ΠΈΠ· ΡΠ°Π±Π»ΠΈΡ, ΡΠ²ΡΠ·ΡΠ²Π°ΡΡΡΡ, ΡΠΎΡΠΌΠΈΡΡΠ΅ΡΡΡ Π²ΡΡΠΈΡΠ»ΡΠ΅ΠΌΠΎΠ΅ ΠΏΠΎΠ»Π΅.
Π Π°ΡΡΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅: ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ * Π¦Π΅Π½Π° Π·Π° Π΅Π΄ΠΈΠ½ΠΈΡΡ.
ΠΡ ΠΎΠ΄Π½ΡΠ΅ ΠΈ Π²ΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅
Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΡΡΠΈΠΈΡ Π΄Π°Π½Π½ΡΠΌΠΈ, Ρ ΡΠ°Π½ΡΡΠΈΡ ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΠ°Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . Π Π±Π»ΡΠ΄Π°Ρ , ΠΌΠ΅Π½Ρ, Π·Π°ΠΊΠ°Π·Π°Ρ , ΠΈ ΠΌΠ΅Π½Π΅Π΄ΠΆΠ΅ΡΠ°Ρ , ΡΠ°ΡΡΡΠΈΡΠ°ΡΡ ΠΈΡΠΎΠ³ΠΎΠ²ΡΠ΅ ΡΡΠΌΠΌΡ ΠΏΠΎ Π·Π°ΠΊΠ°Π·Π°ΠΌ.
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ·Π²Π»Π΅ΠΊΠ°ΡΡΡΡ ΠΈΠ· ΡΠ°Π±Π»ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·ΠΈΡΡΡΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° DBGrid Π½Π° ΡΠΎΡΠΌΠ΅.
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π²Π²ΠΎΠ΄ΡΡΡΡ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ, ΠΈΠ»ΠΈ Π²ΡΠ±ΠΈΡΠ°ΡΡΡΡ ΠΈΠ· ΡΠΏΠΈΡΠΊΠΎΠ² Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, Π² ΡΡΠ΅ΠΉΠΊΠΈ, ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° DBGrid Π½Π° ΡΠΎΡΠΌΠ΅.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΈ Π°ΠΏΠΏΠ°ΡΠ°ΡΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ Π΄Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ°:
- — ΠΏΡΠΎΡΠ΅ΡΡΠΎΡ Ρ ΡΠ°ΠΊΡΠΎΠ²ΠΎΠΉ ΡΠ°ΡΡΠΎΡΠΎΠΉ600 ΠΠ³Ρ;
- — Π½Π°Π»ΠΈΡΠΈΠ΅ ΠΌΠΎΠ½ΠΈΡΠΎΡΠ° VGA Ρ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠΊΡΠ°Π½Π° 800×600;
- — ΠΎΠ±ΡΡΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ 128 ΠΠ±
- — ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° WindowsXP;
- — 5 ΠΠ ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΌΠ΅ΡΡΠ° Π½Π° ΠΆΠ΅ΡΡΠΊΠΎΠΌ Π΄ΠΈΡΠΊΠ΅.