Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π½Π° ΡΠ·ΡΠΊΠ΅ Borland Delphi
Π ΠΎΠΊΠ½Π΅ «ΠΠ³ΡΠΎΠΊΠΈ» ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΏΠΎ ΠΈΠ³ΡΠΎΠΊΠ°ΠΌ. ΠΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π½Π°Π²ΠΈΠ³Π°ΡΠΈΠΈ ΠΏΠΎ ΠΈΠ³ΡΠΎΠΊΠ°ΠΌ, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΈΠ³ΡΠΎΠΊΠΎΠ², ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠΎΠ². Π’Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΠΈΠ·Π²Π΅ΡΡΠΈ ΠΏΠΎΠΈΡΠΊ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠΎΠ² ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ ΠΈ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ, ΠΈ ΡΠΈΠ»ΡΡΡ ΠΏΠΎ Π°ΠΌΠΏΠ»ΡΠ°, Π²Π΅ΡΡ ΠΈ ΡΠΎΡΡΡ. ΠΠ»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΈΡΡΠΎΡΠΈΠΈ ΡΡΠ°Π½ΡΡΠ΅ΡΠΎΠ² ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° «vspom». ΠΠ΄Π΅ΡΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠ°Π±Π»ΠΈΡΡ «transfer» ΠΈ ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Ρ Π½Π΅ΠΉ ΡΠ°Π±Π»ΠΈΡ «igroki… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π½Π° ΡΠ·ΡΠΊΠ΅ Borland Delphi (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π½Π°ΡΠΊΠΈ Π ΠΎΡΡΠΈΠΉΡΠΊΠΎΠΉ Π€Π΅Π΄Π΅ΡΠ°ΡΠΈΠΈ ΠΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΠΎΠ΅ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΡΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΠ΅ Π²ΡΡΡΠ΅Π³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ
«ΠΠ°ΠΌΡΠΊΠ°Ρ ΠΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½Π°Ρ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΠΎ-ΡΠΊΠΎΠ½ΠΎΠΌΠΈΡΠ΅ΡΠΊΠ°Ρ Π°ΠΊΠ°Π΄Π΅ΠΌΠΈΡ»
ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΠΠ£ ΠΠ£Π Π‘ΠΠΠΠ― Π ΠΠΠΠ’Π ΠΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅: «ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ »
ΠΠ° ΡΠ΅ΠΌΡ: «Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π½Π° ΡΠ·ΡΠΊΠ΅ Borland Delphi»
ΠΡΠΏΠΎΠ»Π½ΠΈΠ»ΠΈ Π‘ΡΡΠ΄Π΅Π½ΡΡ Π³ΡΡΠΏΠΏΡ 4267-Ρ ΠΠ°ΡΠ°Π½ΠΈΠ½ ΠΠ»Π΅ΠΊΡΠ°Π½Π΄Ρ ΠΠ»Π΅ΠΊΡΠ°Π½Π΄ΡΠΎΠ²ΠΈΡ Π½ΠΎΠΌΠ΅Ρ Π·Π°ΡΠ΅ΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠΆΠΊΠΈ 4 090 967
Π§Π΅Π»Π½ΠΈΠ½ΡΠΊΠΈΠΉ ΠΠ½ΡΠΎΠ½ ΠΠ½Π΄ΡΠ΅Π΅Π²ΠΈΡ Π½ΠΎΠΌΠ΅Ρ Π·Π°ΡΠ΅ΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠΆΠΊΠΈ 4 090 810
ΠΡΠΎΠ²Π΅ΡΠΈΠ» ΠΠΎΡΠ΅Π½Ρ ΠΊΠ°ΡΠ΅Π΄ΡΡ ΠΠΠ£ Π₯ΡΠ·ΡΡΠΎΠ² Π¨Π°ΡΠΈΠΊ Π¨Π°Π΅Ρ ΠΎΠ²ΠΈΡ ΠΠ°Π±Π΅ΡΠ΅ΠΆΠ½ΡΠ΅ Π§Π΅Π»Π½Ρ 2011 Π³.
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
Π€ΡΡΠ±ΠΎΠ» (Π°Π½Π³Π». football, ΠΎΡ foot Π½ΠΎΠ³Π° ΠΈ ball ΠΌΡΡ), ΠΊΠΎΠΌΠ°Π½Π΄Π½Π°Ρ ΡΠΏΠΎΡΡΠΈΠ²Π½Π°Ρ ΠΈΠ³ΡΠ° Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΠΉ ΠΏΠ»ΠΎΡΠ°Π΄ΠΊΠ΅ (ΠΏΠΎΠ»Π΅) ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ 100−110 ΠΌ Ρ 64−75 ΠΌ Ρ Π²ΠΎΡΠΎΡΠ°ΠΌΠΈ 7,32×2,44 ΠΌ; Π² ΠΊΠΎΠΌΠ°Π½Π΄Π΅ ΠΏΠΎ 11 ΡΠ΅Π»ΠΎΠ²Π΅ΠΊ Π½Π° ΠΏΠΎΠ»Π΅; ΡΠ΅Π»Ρ ΠΈΠ³ΡΡ Π·Π°Π±ΠΈΡΡ ΠΌΡΡ Π½ΠΎΠ³Π°ΠΌΠΈ ΠΈΠ»ΠΈ Π»ΡΠ±ΠΎΠΉ Π΄ΡΡΠ³ΠΎΠΉ ΡΠ°ΡΡΡΡ ΡΠ΅Π»Π° (ΠΊΡΠΎΠΌΠ΅ ΡΡΠΊ) Π² Π²ΠΎΡΠΎΡΠ° ΡΠΎΠΏΠ΅ΡΠ½ΠΈΠΊΠΎΠ².
Π Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ ΡΠ°ΠΌΡΠΉ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΠΉ ΠΈ ΠΌΠ°ΡΡΠΎΠ²ΡΠΉ Π²ΠΈΠ΄ ΡΠΏΠΎΡΡΠ° Π² ΠΌΠΈΡΠ΅.
Π‘ΠΎΠ³Π»Π°ΡΠ½ΠΎ Π·Π°ΡΠ²Π»Π΅Π½ΠΈΡ Π€ΠΠ€Π Π² 2001 Π³ΠΎΠ΄Ρ Π² ΡΡΡΠ±ΠΎΠ» Π½Π° ΠΏΠ»Π°Π½Π΅ΡΠ΅ ΠΈΠ³ΡΠ°Π»ΠΎ ΠΎΠΊΠΎΠ»ΠΎ 250 ΠΌΠΈΠ»Π»ΠΈΠΎΠ½ΠΎΠ² ΡΠ΅Π»ΠΎΠ²Π΅ΠΊ. ΠΠ· Π½ΠΈΡ Π±ΠΎΠ»Π΅Π΅ 20 ΠΌΠΈΠ»Π»ΠΈΠΎΠ½ΠΎΠ² — ΠΆΠ΅Π½ΡΠΈΠ½Ρ. ΠΠ°ΡΠ΅Π³ΠΈΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΎ ΠΎΠΊΠΎΠ»ΠΎ 1,5 ΠΌΠΈΠ»Π»ΠΈΠΎΠ½Π° ΠΊΠΎΠΌΠ°Π½Π΄ ΠΈ 300 000 ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΡ ΠΊΠ»ΡΠ±ΠΎΠ².
Π€ΡΡΠ±ΠΎΠ»ΡΠ½ΡΠΉ ΠΊΠ»ΡΠ± — Π±Π°Π·ΠΎΠ²Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° Π²ΡΠ΅ΠΉ ΡΡΡΠ±ΠΎΠ»ΡΠ½ΠΎΠΉ ΡΡΡΡΠΊΡΡΡΡ. ΠΠ½ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ²ΡΠ·ΡΡΡΠΈΠΌ Π·Π²Π΅Π½ΠΎΠΌ ΠΌΠ΅ΠΆΠ΄Ρ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠ°ΠΌΠΈ, ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΠΎΠΌ ΠΈ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΡΠΌΠΈ. ΠΠΎ ΡΡΡΠΈ ΡΡΠΎ ΠΊΠΎΠΌΠ°Π½Π΄Π° ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠΎΠ², Π²Ρ ΠΎΠ΄ΡΡΠ°Ρ Π² ΠΎΠ΄Π½Ρ ΠΈΠ· ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΉ, ΠΈΠΌΠ΅ΡΡΠ°Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ ΠΈΠ½ΡΡΠ°ΡΡΡΡΠΊΡΡΡΡ ΠΈ ΠΎΠ±ΡΠ»ΡΠΆΠΈΠ²Π°ΡΡΠΈΠΉ ΠΏΠ΅ΡΡΠΎΠ½Π°Π».
Π ΡΠ²ΡΠ·ΠΈ Ρ ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎ ΡΠ°ΡΡΡΡΠΈΠΌ ΡΠΈΡΠ»ΠΎΠΌ ΡΡΡΠ±ΠΎΠ»ΡΠ½ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ ΠΎΡΡΡΠΎ Π²ΡΡΠ°Π΅Ρ Π²ΠΎΠΏΡΠΎΡ ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² ΠΏΠΎ ΡΠ°Π±ΠΎΡΠ΅ Π² ΡΡΡΠ±ΠΎΠ»ΡΠ½ΠΎΠΌ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΈ.
ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° «Π€ΡΡΠ±ΠΎΠ»ΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΈ ΠΈΠ³ΡΠΎΠΊΠΈ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π° Π½Π° ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ Borland Delphi. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ:
Β· ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ , ΡΠΎΡΡΠΎΡΡΠ°Ρ ΠΈΠ· 6 ΡΠ°Π±Π»ΠΈΡ, ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ 4 ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ°, ΠΎΠ΄Π½Π° ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° ΠΈ ΠΎΠ΄Π½Π° Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ°;
Β· ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΡΠ°Π±ΠΎΡΡ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ ;
Β· ΠΠ°ΡΠΈΡΠ° ΠΎΡ Π²Π²ΠΎΠ΄Π° Π½Π΅Π²Π΅ΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ .
Π’Π°Π±Π»ΠΈΡΡ ΠΠ ΠΈ ΡΠ²ΡΠ·ΠΈ ΠΌΠ΅ΠΆΠ΄Ρ Π½ΠΈΠΌΠΈ ΠΡΠΈΠΌΠ΅Π½ΡΠ΅ΠΌΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ
1. strani. dbf ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΡΡΡΠ°Π½
2. komandi. dbf ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΊΠΎΠΌΠ°Π½Π΄
3. igroki. dbf ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΈΠ³ΡΠΎΠΊΠΎΠ²
4. stadioni ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΡΡΠ°Π΄ΠΈΠΎΠ½ΠΎΠ²
5. perehodi ΡΡΠ°Π½ΡΡΠ΅ΡΡ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠΎΠ²
6. vspom Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° Π‘Π’Π Π£ΠΠ’Π£Π Π Π€ΠΠΠΠΠ
Π€Π°ΠΉΠ» strani. DBF — ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΡΡΡΠ°Π½
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π€ΠΎΡΠΌΠ°Ρ ΠΏΠΎΠ»Ρ | Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΏΠΎΠ»Ρ | ||
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° | |||
nom_str | N | ΠΠΎΠΌΠ΅Ρ ΡΡΡΠ°Π½Ρ | ||
naim_str | C | ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΡΡΡΠ°Π½Ρ | ||
Π€Π°ΠΉΠ» komandi. DBF — ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΊΠΎΠΌΠ°Π½Π΄
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π€ΠΎΡΠΌΠ°Ρ ΠΏΠΎΠ»Ρ | Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΏΠΎΠ»Ρ | ||
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° | |||
nom_kom | N | ΠΠΎΠΌΠ΅Ρ ΠΊΠΎΠΌΠ°Π½Π΄Ρ | ||
naim | C | ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ | ||
nom_st | N | ΠΠΎΠΌΠ΅Ρ ΡΡΡΠ°Π½Ρ ΠΊΠΎΠΌΠ°Π½Π΄Ρ | ||
nom_stad | N | ΠΠΎΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΎΠ½Ρ ΠΊΠΎΠΌΠ°Π½Π΄Ρ | ||
osnov | N | ΠΠΎΠ΄ ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΡ | ||
prez | C | ΠΡΠ΅Π·ΠΈΠ΄Π΅Π½Ρ ΡΡΡΠ±ΠΎΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠ»ΡΠ±Π° | ||
tren | C | Π’ΡΠ΅Π½Π΅Ρ ΡΡΡΠ±ΠΎΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠ»ΡΠ±Π° | ||
kap | C | ΠΠ°ΠΏΠΈΡΠ°Π½ ΡΡΡΠ±ΠΎΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠ»ΡΠ±Π° | ||
gorod | C | ΠΠΎΡΠΎΠ΄ ΠΊΠΎΠΌΠ°Π½Π΄Ρ | ||
sait | C | Π‘Π°ΠΉΡ | ||
Π€Π°ΠΉΠ» igroki. DBF — ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΈΠ³ΡΠΎΠΊΠΎΠ²
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π€ΠΎΡΠΌΠ°Ρ ΠΏΠΎΠ»Ρ | Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΏΠΎΠ»Ρ | ||
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° | |||
nom_igr | N | ΠΠΎΠΌΠ΅Ρ ΠΈΠ³ΡΠΎΠΊΠ° | ||
fam | C | Π€Π°ΠΌΠΈΠ»ΠΈΡ ΠΈΠ³ΡΠΎΠΊΠ° | ||
ima | C | ΠΠΌΡ ΠΈΠ³ΡΠΎΠΊΠ° | ||
otch | C | ΠΡΡΠ΅ΡΡΠ²ΠΎ ΠΈΠ³ΡΠΎΠΊΠ° | ||
nom_kom | N | ΠΠΎΠΌΠ΅Ρ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΈΠ³ΡΠΎΠΊΠ° | ||
dat_rozd | D | ΠΠ°ΡΠ° ΡΠΎΠΆΠ΄Π΅Π½ΠΈΡ | ||
mest_rozd | C | ΠΠ΅ΡΡΠΎ ΡΠΎΠΆΠ΄Π΅Π½ΠΈΡ | ||
ampl | C | ΠΠΌΠΏΠ»ΡΠ° (ΠΏΠΎΠ·ΠΈΡΠΈΡ) ΠΈΠ³ΡΠΎΠΊΠ° | ||
ves | N | ΠΠ΅Ρ ΠΈΠ³ΡΠΎΠΊΠ° | ||
rost | N | Π ΠΎΡΡ ΠΈΠ³ΡΠΎΠΊΠ° | ||
Π€Π°ΠΉΠ» stadioni. DBF — ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΡΡΠ°Π΄ΠΈΠΎΠ½ΠΎΠ²
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π€ΠΎΡΠΌΠ°Ρ ΠΏΠΎΠ»Ρ | Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΏΠΎΠ»Ρ | ||
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° | |||
nom_stad | N | ΠΠΎΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΎΠ½Π° | ||
naim_st | C | ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΡΡΠ°Π΄ΠΈΠΎΠ½Π° | ||
mesto | C | ΠΠ΅ΡΡΠΎ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ | ||
vmest | N | ΠΠΌΠ΅ΡΡΠΈΠΌΠΎΡΡΡ ΡΡΠ°Π΄ΠΈΠΎΠ½Π° | ||
Π€Π°ΠΉΠ» perehodi. DBF — ΡΡΠ°Π½ΡΡΠ΅ΡΡ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠΎΠ²
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π€ΠΎΡΠΌΠ°Ρ ΠΏΠΎΠ»Ρ | Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΏΠΎΠ»Ρ | ||
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° | |||
nom_igr | N | ΠΠΎΠΌΠ΅Ρ ΠΈΠ³ΡΠΎΠΊΠ° | ||
st_nom_kom | N | ΠΠΎΠΌΠ΅Ρ ΡΡΠ°ΡΠΎΠ³ΠΎ ΠΊΠ»ΡΠ±Π° | ||
nw_nom_kom | N | ΠΠΎΠΌΠ΅Ρ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΊΠ»ΡΠ±Π° | ||
dat_per | D | ΠΠ°ΡΠ° ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° | ||
sym | N | Π‘ΡΠΌΠΌΠ° ΡΡΠ°Π½ΡΡΠ΅ΡΠ° | ||
Π€Π°ΠΉΠ» vspom. DBF — Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ°
ΠΠΌΡ ΠΏΠΎΠ»Ρ | Π€ΠΎΡΠΌΠ°Ρ ΠΏΠΎΠ»Ρ | Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΏΠΎΠ»Ρ | ||
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° | |||
famima | N | Π€Π°ΠΌΠΈΠ»ΠΈΡ ΠΈ ΠΈΠΌΡ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠ° | ||
s_kl | C | ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΠΏΡΠ΅ΠΆΠ½Π΅Π³ΠΎ ΠΊΠ»ΡΠ±Π° ΠΈΠ³ΡΠΎΠΊΠ° | ||
n_kl | C | ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΊΠ»ΡΠ±Π° ΠΈΠ³ΡΠΎΠΊΠ° | ||
data | D | ΠΠ°ΡΠ° ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° | ||
sym | N | Π‘ΡΠΌΠΌΠ° ΡΡΠ°Π½ΡΡΠ΅ΡΠ° | ||
Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ:
Β· N — ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΉ (Numeric);
Β· C — ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ (Character);
Β· D — Π΄Π°ΡΠ° (Data);
Π‘Π²ΡΠ·Ρ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Π½Π° ΡΠΈΡ. 1.
ΡΡΡΠ±ΠΎΠ»ΡΠ½ΡΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π±Π°Π·Π° Π΄Π°Π½Π½ΡΠ΅ Π ΠΈΡ. 1
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π²Π½Π΅ΡΠ½Π΅Π³ΠΎ Π²ΠΈΠ΄Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΠ°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°ΠΉΠ»ΠΎΠΌ football. exe, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ Π³Π»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΡΠΈΡ. 2).
Π ΠΈΡ.2
ΠΠ°Π²ΠΈΠ³Π°ΡΠΈΡ ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΌΠ΅Π½Ρ.
Π ΠΏΡΠ½ΠΊΡΠ΅ ΠΌΠ΅Π½Ρ «Π€Π°ΠΉΠ»» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ ΠΏΠΎΠ΄ΠΏΡΠ½ΠΊΡ ΠΡΡ ΠΎΠ΄, ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΠΈΠΉ Π²ΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΈ» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΠΎΠ΄ΠΏΡΠ½ΠΊΡΡ — «ΠΠ³ΡΠΎΠΊΠΈ», «ΠΠΎΠΌΠ°Π½Π΄Ρ», «Π‘ΡΠ°Π΄ΠΈΠΎΠ½Ρ».
ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΠΎΠ΄ΠΏΡΠ½ΠΊΡΡ — «ΠΠΎΠ²ΡΠΉ ΡΡΠ°Π½ΡΡΠ΅Ρ», «ΠΡΡΠΎΡΠΈΡ ΡΡΠ°Π½ΡΡΠ΅ΡΠΎΠ²».
ΠΠΎΠ΄ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΈ» — «ΠΠ³ΡΠΎΠΊΠΈ"(ΡΠΈΡ. 3).
Π ΠΈΡ. 3
Π ΠΎΠΊΠ½Π΅ «ΠΠ³ΡΠΎΠΊΠΈ» ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΏΠΎ ΠΈΠ³ΡΠΎΠΊΠ°ΠΌ. ΠΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π½Π°Π²ΠΈΠ³Π°ΡΠΈΠΈ ΠΏΠΎ ΠΈΠ³ΡΠΎΠΊΠ°ΠΌ, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΈΠ³ΡΠΎΠΊΠΎΠ², ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠΎΠ². Π’Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΠΈΠ·Π²Π΅ΡΡΠΈ ΠΏΠΎΠΈΡΠΊ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠΎΠ² ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ ΠΈ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ, ΠΈ ΡΠΈΠ»ΡΡΡ ΠΏΠΎ Π°ΠΌΠΏΠ»ΡΠ°, Π²Π΅ΡΡ ΠΈ ΡΠΎΡΡΡ.
ΠΠΎΠ΄ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΈ» — «ΠΠΎΠΌΠ°Π½Π΄Ρ» (ΡΠΈΡ.4).
Π ΠΈΡ. 4
Π ΠΎΠΊΠ½Π΅ «ΠΠΎΠΌΠ°Π½Π΄Ρ» ΡΠΎΠ±ΡΠ°Π½Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΏΠΎ ΠΊΠ°ΠΌΠ°Π½Π΄Π°ΠΌ. ΠΠΌΠ΅Π΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ, ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΠΊΠ»ΡΠ±ΠΎΠ², Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½Π° Π½Π°Π²ΠΈΠ³Π°ΡΠΈΡ ΠΏΠΎ ΠΊΠ»ΡΠ±Π°ΠΌ. Π’Π°ΠΊΠΆΠ΅ ΠΏΡΠΈΡΡΡΡΡΠ²ΡΠ΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΠΎΠΈΡΠΊΠ° ΠΊΠΎΠΌΠ°Π½Π΄. Π Π½ΠΈΠΆΠ½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΏΠΎ ΠΈΠ³ΡΠΎΠΊΠ°ΠΌ, Π²ΡΡΡΡΠΏΠ°ΡΡΠΈΠΌ Π·Π° ΡΠ΅ΠΊΡΡΠΈΠΉ ΡΡΡΠ±ΠΎΠ»ΡΠ½ΡΠΉ ΠΊΠ»ΡΠ±.
ΠΠΎΠ΄ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠΈ» — «Π‘ΡΠ°Π΄ΠΈΠΎΠ½Ρ» (ΡΠΈΡ. 5).
Π ΠΈΡ. 5
Π ΠΎΠΊΠ½Π΅ «Π‘ΡΠ°Π΄ΠΈΠΎΠ½Ρ» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΏΠΎ ΡΡΠ°Π΄ΠΈΠΎΠ½Π°ΠΌ Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ Π½Π°Π²ΠΈΠ³Π°ΡΠΈΠΈ, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ, ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ°Π΄ΠΈΠΎΠ½ΠΎΠ².
ΠΠΎΠ΄ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ» — «ΠΠΎΠ²ΡΠΉ ΡΡΠ°Π½ΡΡΠ΅Ρ» (ΡΠΈΡ. 6).
Π ΠΈΡ. 6
Π ΠΎΠΊΠ½Π΅ «ΠΠΎΠ²ΡΠΉ ΡΡΠ°Π½ΡΡΠ΅Ρ» ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΈΠ³ΡΠΎΠΊΠΎΠ² ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π² Π΄ΡΡΠ³ΡΡ.
Π ΠΎΠΊΠ½Π΅ «ΠΡΡΠΎΡΠΈΡ ΡΡΠ°Π½ΡΡΠ΅ΡΠΎΠ²» ΠΎΡΡΠ°ΠΆΠ΅Π½Π° ΠΈΡΡΠΎΡΠΈΡ ΡΠΎΡΡΠΎΡΠ²ΡΠΈΡ ΡΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΎΠ² ΠΈΠ³ΡΠΎΠΊΠΎΠ² (ΡΠΈΡ. 7).
Π ΠΈΡ. 7
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ , ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠΉ Π² ΡΡΠ΅Π΄Π΅ Visual Foxpro 9.0.
ΠΠ°Π·Π° Π΄Π°Π½Π½ΡΡ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΠΏΡΡΠΈ ΡΠ°Π±Π»ΠΈΡ.
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ³ΡΠΎΠΊΠΎΠ² ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Π² ΠΎΠΊΠ½Π΅ «ΠΠ³ΡΠΎΠΊΠΈ». ΠΠ°Π½Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Ρ ΡΠ°Π±Π»ΠΈΡΠ΅ΠΉ «igroki», Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ Π²ΡΠ΅ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΡΡΡΠ±ΠΎΠ»ΠΈΡΡΠ°Ρ .
Π Π°Π±ΠΎΡΠ° Ρ ΡΡΡΠ±ΠΎΠ»ΡΠ½ΡΠΌΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Π°ΠΌΠΈ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π² ΠΎΠΊΠ½Π΅ «ΠΠΎΠΌΠ°Π½Π΄Ρ» ΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ°Π±Π»ΠΈΡΡ «komandi». ΠΠ°Π½Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° ΡΠ²ΡΠ·Π°Π½Π° Ρ ΡΠ°Π±Π»ΠΈΡΠ΅ΠΉ «igroki».
Π’Π°Π±Π»ΠΈΡΠ° «strani» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²ΡΠ΅ ΡΡΡΠ°Π½Ρ ΠΈ Π½Π΅ ΠΏΠΎΠ΄Π΄Π°Π΅ΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠ»Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΈΠ³ΡΠΎΠΊΠ° ΠΈΠ· ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΊΠ»ΡΠ±Π° Π² Π΄ΡΡΠ³ΠΎΠΉ Π½ΡΠΆΠ½ΠΎ ΠΎΡΠΊΡΡΡΡ ΠΎΠΊΠ½ΠΎ «ΠΠΎΠ²ΡΠΉ ΡΡΠ°Π½ΡΡΠ΅Ρ». ΠΠ°Π½Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Ρ ΡΡΠ΅ΠΌΡ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌΠΈ — «igroki», «komandi», «transfer». ΠΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° ΠΈΠ³ΡΠΎΠΊΠ° ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π²ΡΠ±ΠΎΡ Π΅Π³ΠΎ ΠΊΠ»ΡΠ±Π° ΠΈΠ· ΡΠ°Π±Π»ΠΈΡΡ ΠΊΠΎΠΌΠ°Π½Π΄, ΠΏΠΎΡΠ»Π΅ Π²ΡΠ±ΠΎΡΠ° Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΊΠ»ΡΠ±Π° ΠΈ ΡΡΠΌΠΌΡ ΡΡΠ°Π½ΡΡΠ΅ΡΠ° ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π·Π°ΠΏΠΈΡΡ Π² ΡΠ°Π±Π»ΠΈΡΡ «transfer».
ΠΠ»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΈΡΡΠΎΡΠΈΠΈ ΡΡΠ°Π½ΡΡΠ΅ΡΠΎΠ² ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° «vspom». ΠΠ΄Π΅ΡΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠ°Π±Π»ΠΈΡΡ «transfer» ΠΈ ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Ρ Π½Π΅ΠΉ ΡΠ°Π±Π»ΠΈΡ «igroki» ΠΈ «komandi» ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠ΄ΠΎΠ±Π½ΠΎΠ΅ Π΄Π»Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΡΡΠ°Π½ΡΠ΅ΡΠΎΠ².
ΠΠ ΠΠΠΠΠΠΠΠ― Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° football. dpr
program Football;
uses
Forms,
gl_form in 'gl_form.pas' {Form1},
avtors in 'avtors.pas' {Form2},
gl_per in 'gl_per.pas',
avt in 'avt.pas' {Form3},
igroki in 'igroki.pas' {Form4},
komandi in 'komandi.pas' {Form5},
dob_klyb in 'dob_klyb.pas' {Form6},
stadioni in 'stadioni.pas' {Form7},
transfer in 'transfer.pas' {Form8},
ist_trans in 'ist_trans.pas' {Form9};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm (TForm1, Form1);
Application.CreateForm (TForm3, Form3);
Application.CreateForm (TForm6, Form6);
Application.Run;
end.
Π’Π΅ΠΊΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ gl_form.pas
unit gl_form;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, gl_per, ExtCtrls, StdCtrls, jpeg, Grids,
DBGrids, DB, DBTables;
type
TForm1 = class (TForm)
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N8: TMenuItem;
Timer1: TTimer;
N9: TMenuItem;
N13: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N2: TMenuItem;
N7: TMenuItem;
procedure N2Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure N8Click (Sender: TObject);
procedure Timer1Timer (Sender: TObject);
procedure N12Click (Sender: TObject);
procedure N9Click (Sender: TObject);
procedure N13Click (Sender: TObject);
procedure N7Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses avtors, avt, igroki, komandi, stadioni, transfer, ist_trans;
{$R *.dfm}
procedure TForm1. N2Click (Sender: TObject);
begin
if gp4=1 then begin
form7:=tform7.Create (application);
form7.Show;
gp4:=2;
end;
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
gp1:=1;
gp2:=1;
gp3:=1;
gp4:=1;
gp5:=1;
gp6:=1;
form1.statusbar1.Font.Style:=[fsbold];
kdr:=0;
end;
procedure TForm1. N8Click (Sender: TObject);
begin
form3.showmodal;
end;
procedure TForm1. Timer1Timer (Sender: TObject);
begin
statusbar1.Panels[0]. Text:=timetostr (now);
statusbar1.Panels[1].Text:=datetostr (now);
if GetKeyState (VK_CAPITAL) <> 0 then
statusbar1.panels[2]. text := ' CAP';
if GetKeyState (VK_CAPITAL) = 0 then
statusbar1.panels[2]. text := '';
if GetKeyState (VK_NUMLOCK) <> 0 then
statusbar1.panels[3]. text := ' NUM';
if GetKeyState (VK_NUMLOCK) = 0 then
statusbar1.panels[3]. text := '';
if GetKeyState (VK_SCROLL) <> 0 then
statusbar1.panels[4]. text := ' SCRL';
if GetKeyState (VK_SCROLL) = 0 then
statusbar1.panels[4]. text := '';
end;
procedure TForm1. N11Click (Sender: TObject);
begin
if gp2=1 then begin
form4:=tform4.Create (application);
form4.Show;
gp2:=2;
end;
end;
procedure TForm1. N12Click (Sender: TObject);
begin
if gp3=1 then begin
form5:=tform5.Create (application);
form5.Show;
gp3:=2;
end;
end;
procedure TForm1. N9Click (Sender: TObject);
begin
form1.Close;
end;
procedure TForm1. N13Click (Sender: TObject);
begin
if gp5=1 then begin
form8:=tform8.Create (application);
form8.Show;
gp5:=2;
end;
end;
procedure TForm1. N7Click (Sender: TObject);
begin
if gp6=1 then begin
form9:=tform9.Create (application);
form9.Show;
gp6:=2;
end;
end;
end.
Π’Π΅ΠΊΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ gl_per.pas
unit gl_per;
interface
var
gp1:byte;
gp2:byte;
gp3:byte;
gp4:byte;
gp5:byte;
gp6:byte;
kdr:byte;
implementation
end.
Π’Π΅ΠΊΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ igroki. pas
unit igroki;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, gl_per, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids,
DBGrids, Buttons, Spin;
type
TForm4 = class (TForm)
DataSource1: TDataSource;
Table1: TTable;
DBEdit1: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
Button1: TButton;
Button2: TButton;
Label13: TLabel;
Timer1: TTimer;
DataSource2: TDataSource;
Table2: TTable;
Timer2: TTimer;
Table3: TTable;
DataSource3: TDataSource;
Label17: TLabel;
Bevel2: TBevel;
Bevel4: TBevel;
Label18: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Edit1: TEdit;
Button9: TButton;
Label21: TLabel;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
Button10: TButton;
Label22: TLabel;
ComboBox1: TComboBox;
Button11: TButton;
Edit2: TEdit;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
Timer3: TTimer;
Label8: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
Label12: TLabel;
Label14: TLabel;
Button12: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
DBGrid1: TDBGrid;
Label15: TLabel;
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormCreate (Sender: TObject);
procedure Timer1Timer (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure FormActivate (Sender: TObject);
procedure Timer2Timer (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button9Click (Sender: TObject);
procedure Button10Click (Sender: TObject);
procedure Button11Click (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure Button12Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button8Click (Sender: TObject);
procedure Button7Click (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure Timer3Timer (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
tr:byte;
a:byte;
implementation
{$R *.dfm}
procedure a1(n:integer);
var
a:integer;
begin
form4.Table2.Locate ('nom_kom', n, [loCaseInsensitive,
loPartialKey]);
form4.Edit2.Text:=form4.Table2.fieldbyname ('naim').AsString;
end;
procedure klyb;
begin
form4.Table2.First;
while not form4. Table2. eof do
begin
orm4.ComboBox2.Items.Add (form4.Table2.fieldbyname ('naim').AsString);
form4.Table2.Next;
end;
end;
procedure TForm4. FormClose (Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
gp2:=1;
end;
procedure TForm4. FormCreate (Sender: TObject);
begin
table1.Active:=true;
table2.Active:=true;
table3.Active:=true;
table1.First;
tr:=0;
end;
procedure TForm4. Timer1Timer (Sender: TObject);
begin
label13.Caption:=inttostr (table1.Recordcount);
end;
procedure TForm4. Button2Click (Sender: TObject);
begin
if table1. RecordCount>0 then begin
table1.Next;
a1(table1.fieldbyname ('nom_kom').Value);
end;
end;
procedure TForm4. Button1Click (Sender: TObject);
begin
if table1. RecordCount>0 then begin
table1.Prior;
a1(table1.fieldbyname ('nom_kom').Value);
end;
end;
procedure TForm4. FormActivate (Sender: TObject);
begin
button8.Enabled:=false;
table1.Filtered:=false;
combobox2.Hide;
combobox3.Hide;
end;
procedure TForm4. Timer2Timer (Sender: TObject);
begin
a1(table1.fieldbyname ('nom_kom').Value);
klyb;
timer2.Enabled:=false;
end;
procedure TForm4. Button3Click (Sender: TObject);
begin
table1.First;
end;
procedure TForm4. Button4Click (Sender: TObject);
begin
table1.Last;
end;
procedure TForm4. Button9Click (Sender: TObject);
begin
if radiobutton5. Checked=true then begin //ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ
if edit1. text='' then exit;
if not Table1. Locate ('nom_igr', Edit1. Text, [loCaseInsensitive,
loPartialKey]) then
ShowMessage ('ΠΠ°ΠΏΠΈΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π°');
end;
if radiobutton6. Checked=true then
begin //ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ
if edit1. text='' then exit;
if not Table1. Locate ('fam', Edit1. Text, [loCaseInsensitive,
loPartialKey]) then
ShowMessage ('ΠΠ°ΠΏΠΈΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π°');
end;
end;
procedure TForm4. Button10Click (Sender: TObject);
begin
table1.Filtered:=true;
table1.Filter:='ampl='+''''+combobox1.Text+'''';
end;
procedure TForm4. Button11Click (Sender: TObject);
begin
table1.Filtered:=false;
end;
procedure TForm4. Button6Click (Sender: TObject);
begin
tr:=1;
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit4.Enabled:=true;
dbedit6.Enabled:=true;
dbedit7.Enabled:=true;
dbedit9.Enabled:=true;
dbedit10.Enabled:=true;
dbedit11.Enabled:=true;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button7.Enabled:=false;
button8.Enabled:=true;
combobox3.Top:=234;
combobox3.Left:=324;
combobox3.Show;
table1.Edit;
end;
procedure TForm4. Button12Click (Sender: TObject);
var
a, b: integer;
begin
if (radiobutton1.Checked=false) and (radiobutton2.Checked=false) then
begin
showmessage ('ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΡΠΈΡΠ΅ΡΠΈΠΉ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ');
exit;
end;
a:=spinedit1.Value;
b:=spinedit2.Value;
if (a>b) or (a=b) then begin
showmessage ('Π€ΠΈΠ»ΡΡΡΠ°ΡΠΈΡ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π°. ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ!');
exit;
end;
if radiobutton1. Checked then begin
table1.Filtered:=true;
table1.Filter:='ves>='+inttostr (a)+'and ves<='+inttostr (b);
end;
if radiobutton2. Checked then begin
table1.Filtered:=true;
table1.Filter:='rost>='+inttostr (a)+'and rost<='+inttostr (b);
end;
end;
procedure TForm4. Button5Click (Sender: TObject);
var
t:integer;
begin
table1.Filtered:=false;
tr:=2;
table1.last;
t:=table1.fieldbyname ('nom_igr').Value;
t:=t+1;
table1.Insert;
table1.FieldByName ('nom_igr').Value:=t;
combobox2.Top:=150;
combobox2.Left:=324;
combobox2.Show;
combobox3.Top:=234;
combobox3.Left:=324;
combobox3.Show;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button6.Enabled:=false;
button5.Enabled:=false;
button8.Enabled:=true;
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit4.Enabled:=true;
dbedit6.Enabled:=true;
dbedit7.Enabled:=true;
dbedit9.Enabled:=true;
dbedit10.Enabled:=true;
dbedit11.Enabled:=true;
end;
procedure TForm4. Button8Click (Sender: TObject);
var
s:string;
begin
if tr=2 then begin //ΠΎΡΠΊΡΡΠ»ΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅
a:=1;
if dbedit2. text='' then a:=2;
if dbedit3. text='' then a:=2;
if dbedit4. text='' then a:=2;
if dbedit6. text='' then a:=2;
if dbedit7. text='' then a:=2;
if dbedit10. text='' then a:=2;
if dbedit11. text='' then a:=2;
if combobox2. text='' then a:=2;
if combobox3. text='' then a:=2;
if a=2 then begin showmessage ('ΠΠ²Π΅Π΄Π΅Π½Ρ Π½Π΅ Π²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅'); exit; end;
Table2.Locate ('naim', combobox2. Text, [loCaseInsensitive,
loPartialKey]);
able1.FieldByName ('nom_kom').Value:=table2.FieldByName ('nom_kom').Value;
table1.FieldByName ('ampl').AsString:=combobox3.Text;
table1.Append;
table1.Refresh;
button1.Enabled:=true;
button2.Enabled:=true;
button3.Enabled:=true;
button4.Enabled:=true;
button6.Enabled:=true;
button5.Enabled:=true;
button8.Enabled:=false;
combobox2.Hide;
combobox3.Hide;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
dbedit6.Enabled:=false;
dbedit7.Enabled:=false;
dbedit9.Enabled:=false;
dbedit10.Enabled:=false;
dbedit11.Enabled:=false;
button7.Enabled:=true;
a:=1;
a1(table1.fieldbyname ('nom_kom').Value);
end; //Π·Π°ΠΊΡΡΠ»ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
if tr=1 then begin
if combobox3. text='' then begin showmessage ('ΠΡΡΡ ΠΏΡΡΡΡΠ΅ ΠΏΠΎΠ»Ρ'); exit;end;
table1.FieldByName ('ampl').AsString:=combobox3.Text;
table1.Append;
table1.Refresh;
button1.Enabled:=true;
button2.Enabled:=true;
button3.Enabled:=true;
button4.Enabled:=true;
button6.Enabled:=true;
button5.Enabled:=true;
button8.Enabled:=false;
combobox2.Hide;
combobox3.Hide;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
dbedit6.Enabled:=false;
dbedit7.Enabled:=false;
dbedit9.Enabled:=false;
dbedit10.Enabled:=false;
dbedit11.Enabled:=false;
button7.Enabled:=true;
a:=1;
table1.Refresh;
end;
end;
procedure TForm4. Button7Click (Sender: TObject);
begin
if application. MessageBox ('ΠΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ ΡΠ΅ΠΊΡΡΡΡ Π·Π°ΠΏΠΈΡΡ?','Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ',
mb_iconQuestion+mb_yesno)=idyes then
table1.delete;
button1.Enabled:=true;
button2.Enabled:=true;
button3.Enabled:=true;
button4.Enabled:=true;
button6.Enabled:=true;
button5.Enabled:=true;
button8.Enabled:=false;
combobox2.Hide;
combobox3.Hide;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
dbedit6.Enabled:=false;
dbedit7.Enabled:=false;
dbedit9.Enabled:=false;
dbedit10.Enabled:=false;
dbedit11.Enabled:=false;
end;
end.
Π’Π΅ΠΊΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ komandi. pas
unit komandi;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, gl_per, DB, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls,
Buttons, ExtCtrls;
type
TForm5 = class (TForm)
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
komandi: TTable;
igroki: TTable;
stadioni: TTable;
DBGrid2: TDBGrid;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
strani: TTable;
DataSource4: TDataSource;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
Button3: TButton;
Button4: TButton;
Label14: TLabel;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Label15: TLabel;
Edit1: TEdit;
Button8: TButton;
Label16: TLabel;
DBEdit1: TDBEdit;
DBEdit12: TDBEdit;
Label17: TLabel;
BitBtn1: TBitBtn;
Label19: TLabel;
Label21: TLabel;
Timer1: TTimer;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Label18: TLabel;
Label20: TLabel;
Label22: TLabel;
Bevel4: TBevel;
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormActivate (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button7Click (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure Button8Click (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure Timer1Timer (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses dob_klyb;
{$R *.dfm}
procedure TForm5. FormClose (Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
gp3:=1;
end;
procedure TForm5. FormActivate (Sender: TObject);
begin
komandi.Refresh;
komandi.First;
bitbtn1.Caption:='';
label20.Caption:=komandi.fieldbyname ('naim').AsString;
label18.Caption:=inttostr (igroki.recordcount);
end;
procedure TForm5. Button1Click (Sender: TObject);
begin
komandi.Prior;
label20.Caption:=komandi.fieldbyname ('naim').AsString;
label18.Caption:=inttostr (igroki.recordcount);
end;
procedure TForm5. Button2Click (Sender: TObject);
begin
komandi.Next;
label20.Caption:=komandi.fieldbyname ('naim').AsString;
label18.Caption:=inttostr (igroki.recordcount);
end;
procedure TForm5. Button5Click (Sender: TObject);
var
a:byte;
begin
kdr:=1; //Π²ΠΊΠ»ΡΡΠ°Π΅ΠΌ ΡΠ΅ΠΆΠΈΠΌ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ
komandi.Last;
a:=komandi.fieldbyname ('nom_kom').Value;
form6.komandi.Insert;
form6.komandi.FieldByName ('nom_kom').Value:=a+1;
form6.showmodal;
end;
procedure TForm5. Button7Click (Sender: TObject);
begin
if application. MessageBox ('ΠΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ ΡΠ΅ΠΊΡΡΡΡ Π·Π°ΠΏΠΈΡΡ?',
'Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ', mb_iconQuestion+mb_yesno)=idyes then
komandi.delete;
end;
procedure TForm5. Button6Click (Sender: TObject);
begin
kdr:=2; // Π²ΠΊΠ»ΡΡΠ°Π΅ΠΌ ΡΠ΅ΠΆΠΈΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠΌΠ°Π½Π΄
form6.komandi.Locate ('nom_kom', dbedit12. text, [loCaseInsensitive,
loPartialKey]);
form6.komandi.Edit;
form6.ComboBox1.text:=strani.fieldbyname ('naim_str').asstring;
form6.ComboBox2.Text:=stadioni.fieldbyname ('naim_st').AsString;
form6.Caption:='Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ
+komandi.fieldbyname ('naim').AsString;
form6.ShowModal;
end;
procedure TForm5. Button8Click (Sender: TObject);
begin
if edit1. text='' then exit;
if not komandi. Locate ('naim', Edit1. Text, [loCaseInsensitive,
loPartialKey]) then
ShowMessage ('ΠΠ°ΠΏΠΈΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π°');
end;
procedure TForm5. BitBtn1Click (Sender: TObject);
begin
edit1.text:='';
end;
procedure TForm5. Timer1Timer (Sender: TObject);
begin
label21.Caption:=inttostr (komandi.RecordCount);
end;
procedure TForm5. Button3Click (Sender: TObject);
begin
komandi.First;
label20.Caption:=komandi.fieldbyname ('naim').AsString;
label18.Caption:=inttostr (igroki.recordcount);
end;
procedure TForm5. Button4Click (Sender: TObject);
begin
komandi.Last;
label20.Caption:=komandi.fieldbyname ('naim').AsString;
label18.Caption:=inttostr (igroki.recordcount);
end;
end.
Π’Π΅ΠΊΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ dob_klyb.pas
unit dob_klyb;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls, gl_per;
type
TForm6 = class (TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
DataSource1: TDataSource;
DataSource2: TDataSource;
komandi: TTable;
strani: TTable;
stadioni: TTable;
DataSource3: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
ComboBox1: TComboBox;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
ComboBox2: TComboBox;
DBEdit8: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure FormActivate (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses komandi;
{$R *.dfm}
Procedure stran;
begin
form6.strani.First;
while not form6.strani.Eof do
begin
form6.ComboBox1.Items.Add (form6.strani.fieldbyname ('naim_str').AsString);
form6.strani.Next;
end;
end;
Procedure stadion;
begin
form6.stadioni.First;
form6.ComboBox2.Items.Clear;
while not form6.stadioni.Eof do
begin
form6.ComboBox2.Items.Add (form6.stadioni.fieldbyname ('naim_st').AsString);
form6.stadioni.Next;
end;
end;
procedure TForm6. FormActivate (Sender: TObject);
begin
stran; stadion;
komandi.Refresh;
end;
procedure TForm6. Button1Click (Sender: TObject);
var
a2:byte;
begin
a2:=0;
if kdr=1 then begin //ΡΠ΅ΠΆΠΈΠΌ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ»ΡΠ±Π°
if dbedit1. text='' then a2:=1;
if dbedit2. text='' then a2:=1;
if dbedit3. text='' then a2:=1;
if dbedit4. text='' then a2:=1;
if dbedit5. text='' then a2:=1;
if dbedit6. text='' then a2:=1;
if dbedit7. text='' then a2:=1;
if dbedit8. text='' then a2:=1;
if combobox1. text='' then a2:=1;
if combobox1. text='' then a2:=1;
if a2=1 then begin showmessage ('ΠΠ²Π΅Π΄Π΅Π½Ρ Π½Π΅ Π²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅');
exit; end;
strani.Locate ('naim_str', Combobox1. Text, [loCaseInsensitive,
loPartialKey]);
komandi.FieldByName ('nom_st').value:=strani.fieldbyname ('nom_str').Value;
stadioni.Locate ('naim_st', Combobox2. Text, [loCaseInsensitive,
loPartialKey]);
komandi.FieldByName ('nom_stad').value:=stadioni.fieldbyname ('nom_stad').Value;
komandi.Append;
komandi.Refresh;
kdr:=0;
form5.komandi.Refresh;
form6.Close;
end;
a2:=0;
if kdr=2 then begin //ΡΠ΅ΠΆΠΈΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ»ΡΠ±Π°
if dbedit1. text='' then a2:=1;
if dbedit2. text='' then a2:=1;
if dbedit3. text='' then a2:=1;
if dbedit4. text='' then a2:=1;
if dbedit5. text='' then a2:=1;
if dbedit6. text='' then a2:=1;
if dbedit7. text='' then a2:=1;
if dbedit8. text='' then a2:=1;
if combobox1. text='' then a2:=1;
if combobox1. text='' then a2:=1;
if a2=1 then begin showmessage ('ΠΡΡΡ ΠΏΡΡΡΡΠ΅ ΠΏΠΎΠ»Ρ'); exit; end;
komandi.Edit;
strani.Locate ('naim_str', Combobox1. Text, [loCaseInsensitive,
loPartialKey]);
komandi.FieldByName ('nom_st').value:=strani.fieldbyname ('nom_str').Value;
stadioni.Locate ('naim_st', Combobox2. Text, [loCaseInsensitive,
loPartialKey]);
komandi.FieldByName ('nom_stad').value:=stadioni.fieldbyname ('nom_stad').Value;
komandi.Append;
komandi.Refresh;
kdr:=0;
form5.komandi.Refresh;
form6.Close;
end;
end;
procedure TForm6. Button2Click (Sender: TObject);
begin
komandi.Cancel;
if kdr=1 then komandi. Delete;
form6.Close;
end;
procedure TForm6. FormClose (Sender: TObject; var Action: TCloseAction);
begin
form6.Caption:='ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ';
if kdr=1 then komandi. Delete;
end;
end.
Π’Π΅ΠΊΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ stadioni. pas
unit stadioni;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, gl_per, StdCtrls, Mask, DBCtrls, DB, DBTables, Buttons;
type
TForm7 = class (TForm)
DataSource1: TDataSource;
Table1: TTable;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Label5: TLabel;
Edit1: TEdit;
Button9: TButton;
BitBtn1: TBitBtn;
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button8Click (Sender: TObject);
procedure FormActivate (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure Button7Click (Sender: TObject);
procedure Button9Click (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
a:byte;
implementation
{$R *.dfm}
procedure TForm7. FormClose (Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
gp4:=1;
end;
procedure TForm7. Button1Click (Sender: TObject);
begin
table1.Prior;
end;
procedure TForm7. Button2Click (Sender: TObject);
begin
table1.next;
end;
procedure TForm7. Button3Click (Sender: TObject);
begin
table1.First;
end;
procedure TForm7. Button4Click (Sender: TObject);
begin
table1.Last;
end;
procedure TForm7. FormCreate (Sender: TObject);
begin
a:=0;
end;
procedure TForm7. Button5Click (Sender: TObject);
var
r:integer;
begin
a:=1; //Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅
table1.Last;
r:=table1.fieldbyname ('nom_stad').Value;
table1.Insert;
table1.fieldbyname ('nom_stad').Value:=r+1;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button6.Enabled:=false;
button5.Enabled:=false;
button8.Enabled:=true;
dbedit2.ReadOnly:=false;
dbedit3.ReadOnly:=false;
dbedit4.ReadOnly:=false;
end;
procedure TForm7. Button8Click (Sender: TObject);
var
a1:byte;
begin
a1:=0;
if a=1 then begin //Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅
if dbedit2. text='' then a1:=1;
if dbedit3. text='' then a1:=1;
if dbedit4. text='' then a1:=1;
if a1=1 then begin showmessage ('ΠΡΡΡ ΠΏΡΡΡΡΠ΅ ΠΏΠΎΠ»Ρ'); exit; end;
table1.Append;
table1.Refresh;
end;
if a=2 then begin //ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
table1.Append;
table1.Refresh;
end;
button1.Enabled:=true;
button2.Enabled:=true;
button3.Enabled:=true;
button4.Enabled:=true;
button6.Enabled:=true;
button5.Enabled:=true;
button8.Enabled:=false;
dbedit2.ReadOnly:=true;
dbedit3.ReadOnly:=true;
dbedit4.ReadOnly:=true;
end;
procedure TForm7. FormActivate (Sender: TObject);
begin
button8.Enabled:=false;
bitbtn1.Caption:='';
end;
procedure TForm7. Button6Click (Sender: TObject);
begin
a:=2; //ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
table1.Edit;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button8.Enabled:=true;
dbedit2.ReadOnly:=false;
dbedit3.ReadOnly:=false;
dbedit4.ReadOnly:=false;
end;
procedure TForm7. Button7Click (Sender: TObject);
begin
if application. MessageBox ('ΠΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ ΡΠ΅ΠΊΡΡΡΡ Π·Π°ΠΏΠΈΡΡ?','Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ',
mb_iconQuestion+mb_yesno)=idyes then
table1.delete;
end;
procedure TForm7. Button9Click (Sender: TObject);
begin
if edit1. text='' then exit;
if not table1. Locate ('naim_st', Edit1. Text, [loCaseInsensitive,
loPartialKey]) then
ShowMessage ('ΠΠ°ΠΏΠΈΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π°');
end;
procedure TForm7. BitBtn1Click (Sender: TObject);
begin
edit1.text:='';
edit1.SetFocus;
end;
end.
Π’Π΅ΠΊΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ transfer. pas
unit transfer;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, gl_per, DB, DBTables, Grids, DBGrids, StdCtrls, ComCtrls, Spin,
ExtCtrls, Buttons;
type
TForm8 = class (TForm)
igroki: TTable;
komandi: TTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
Label1: TLabel;
Label2: TLabel;
perehodi: TTable;
DBGrid1: TDBGrid;
Label3: TLabel;
Edit1: TEdit;
Button1: TButton;
Label4: TLabel;
Edit2: TEdit;
Label5: TLabel;
ComboBox1: TComboBox;
Label6: TLabel;
DateTimePicker1: TDateTimePicker;
SpinEdit1: TSpinEdit;
Label7: TLabel;
Button2: TButton;
Timer1: TTimer;
ComboBox2: TComboBox;
BitBtn1: TBitBtn;
Label8: TLabel;
Edit3: TEdit;
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button3Click (Sender: TObject);
procedure Timer1Timer (Sender: TObject);
procedure DBGrid1MouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DBGrid1KeyDown (Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid1KeyPress (Sender: TObject; var Key: Char);
procedure Button2Click (Sender: TObject);
procedure ComboBox2KeyPress (Sender: TObject; var Key: Char);
procedure Edit1KeyPress (Sender: TObject; var Key: Char);
procedure Button1Click (Sender: TObject);
procedure FormActivate (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
tkl, nkl: integer;
implementation
{$R *.dfm}
procedure new_klyb;
begin
form8.komandi.First;
form8.ComboBox1.Clear;
while not form8.komandi.Eof do
begin
form8.ComboBox1.Items.Add (form8.komandi.fieldbyname ('naim').AsString);
form8.komandi.next;
end;
end;
procedure tek_klyb;
var
a:integer;
begin
a:=form8.igroki.fieldbyname ('nom_kom').Value;
form8.komandi.Locate ('nom_kom', a, [loCaseInsensitive,
loPartialKey]);
form8.edit2.text:=form8.komandi.FieldByName ('naim').AsString;
tkl:=Form8.komandi.fieldbyname ('nom_kom').Value;
end;
procedure tek_igr;
var
s:string;
begin
s:=form8.igroki.fieldbyname ('fam').AsString+' '+
form8.igroki.fieldbyname ('ima').AsString+' '+
form8.igroki.fieldbyname ('otch').AsString;
form8.edit3.text:=s;
end;
procedure TForm8. FormClose (Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
gp5:=1;
end;
procedure TForm8. Button3Click (Sender: TObject);
begin
tek_klyb;
end;
procedure TForm8. Timer1Timer (Sender: TObject);
begin
new_klyb;
tek_klyb;
tek_igr;
timer1.Enabled:=false;
end;
procedure TForm8. DBGrid1MouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
tek_klyb;
tek_igr;
end;
procedure TForm8. DBGrid1KeyDown (Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
tek_klyb;
tek_igr;
end;
procedure TForm8. DBGrid1KeyPress (Sender: TObject; var Key: Char);
begin
tek_klyb;
tek_igr;
end;
procedure TForm8. Button2Click (Sender: TObject);
var
s:string;
a:byte;
begin
a:=0;
s:=combobox1.Text;
komandi.Locate ('naim', s, [loCaseInsensitive,
loPartialKey]);
nkl:=komandi.fieldbyname ('nom_kom').Value;
if edit2. text='' then a:=1;
if combobox1. text='' then a:=1;
if a=1 then begin showmessage ('ΠΠ²Π΅Π΄Π΅Π½Ρ Π½Π΅ Π²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅'); exit; end;
if edit2. text=combobox1.Text then begin
showmessage ('Π’ΡΠ°Π½ΡΡΠ΅Ρ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ΅Π½. ΠΠΎΠ²ΡΠΉ ΠΈ ΡΠ΅ΠΊΡΡΠΈΠΉ ΠΊΠ»ΡΠ±Ρ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ!');
exit;
end;
if spinedit1. Value<100 then begin
showmessage (`Π‘ΡΠΌΠΌΠ° ΡΡΠ°Π½ΡΡΠ΅ΡΠ° ΡΠ»ΠΈΡΠΊΠΎΠΌ ΠΌΠ°Π»Π°! Π’Π°ΠΊΠΎΠ³ΠΎ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ!!!');
exit;
end;
perehodi.Insert;
perehodi.FieldByName ('nom_igr').Value:=igroki.fieldbyname ('nom_igr').Value;
perehodi.FieldByName ('st_nom_kom').Value:=tkl;
perehodi.FieldByName ('nw_nom_kom').Value:=nkl;
perehodi.FieldByName ('dat_per').Value:=datetimepicker1.Date;
perehodi.FieldByName ('sym').Value:=spinedit1.Value;
perehodi.Append;
perehodi.Refresh;
igroki.Edit;
igroki.FieldByName ('nom_kom').Value:=nkl;
igroki.Append;
igroki.Refresh;
showmessage ('Π£ΡΠΏΠ΅ΡΠ½Π°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ!');
end;
procedure TForm8. ComboBox2KeyPress (Sender: TObject; var Key: Char);
begin
key:=#0;
end;
procedure TForm8. Edit1KeyPress (Sender: TObject; var Key: Char);
begin
if combobox2. text='' then begin
showmessage ('ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΡΠΈΡΠ΅ΡΠΈΠΉ ΠΏΠΎΠΈΡΠΊΠ°'); edit1. text:=''; exit; end;
if combobox2. text='ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ' then begin
if not (Key in ['0'.'9',#8,#13]) then
Key := #0;
end;
end;
procedure TForm8. Button1Click (Sender: TObject);
begin
if edit1. text='' then begin showmessage ('ΠΠ΅Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ°');
exit; end;
if combobox2. text='ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ' then begin
if not igroki. Locate ('nom_igr', edit1. text, [loCaseInsensitive,
loPartialKey]) then showmessage ('ΠΠ°ΠΏΠΈΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π°');
end;
if combobox2. text='ΠΏΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ' then begin
if not igroki. Locate ('fam', edit1. text, [loCaseInsensitive,
loPartialKey]) then showmessage ('ΠΠ°ΠΏΠΈΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π°');
end;
end;
procedure TForm8. FormActivate (Sender: TObject);
begin
bitbtn1.Caption:='';
end;
procedure TForm8. BitBtn1Click (Sender: TObject);
begin
edit1.Clear;
end;
end.
Π’Π΅ΠΊΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ ist_trans.pas
unit ist_trans;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, gl_per, DB, DBTables, StdCtrls, Grids, DBGrids, ExtCtrls, Spin;
type
TForm9 = class (TForm)
perehodi: TTable;
komandi: TTable;
igroki: TTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
Label1: TLabel;
vspom: TTable;
DataSource4: TDataSource;
DBGrid1: TDBGrid;
Timer1: TTimer;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
Edit2: TEdit;
Button4: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label4: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
Label5: TLabel;
Label6: TLabel;
Button5: TButton;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Button3: TButton;
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
procedure zap_vspom;
var
a1,a2,a3:integer;
s, s1, s2:string;
begin
form9.vspom.First;
while not form9.vspom.Eof do
begin
form9.vspom.Next;
form9.vspom.Delete;
end;
form9.perehodi.First;
while not form9.perehodi.eof do
begin
form9.vspom.insert;
s:='';
a1:=form9.perehodi.fieldbyname ('nom_igr').Value;
form9.igroki.Locate ('nom_igr', a1, [loCaseInsensitive,
loPartialKey]);
s:=form9.igroki.fieldbyname ('fam').AsString+' '
+form9.igroki.fieldbyname ('ima').AsString;
form9.vspom.FieldByName ('famima').asstring:=s;
a2:=form9.perehodi.fieldbyname ('st_nom_kom').Value;
form9.komandi.Locate ('nom_kom', a2, [loCaseInsensitive,
loPartialKey]);
s1:=form9.komandi.fieldbyname ('naim').AsString;
form9.vspom.FieldByName ('s_kl').AsString:=s1;
a3:=form9.perehodi.fieldbyname ('nw_nom_kom').Value;
form9.komandi.Locate ('nom_kom', a3, [loCaseInsensitive,
loPartialKey]);
s2:=form9.komandi.fieldbyname ('naim').AsString;
form9.vspom.FieldByName ('n_kl').AsString:=s2;
form9.vspom.FieldByName ('data').Value:=
form9.perehodi.fieldbyname ('dat_per').Value;
form9.vspom.FieldByName ('sym').Value:=
form9.perehodi.fieldbyname ('sym').Value;
form9.vspom.Append;
form9.vspom.Refresh;
form9.perehodi.Next;
end;
end;
procedure TForm9. FormClose (Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
gp6:=1;
end;
procedure TForm9. Timer1Timer (Sender: TObject);
begin
zap_vspom;
timer1.Enabled:=false;
end;
procedure TForm9. Button1Click (Sender: TObject);
begin
if edit1. text='' then exit;
vspom.Filtered:=true;
vspom.Filter:='famima='+''''+edit1.Text+'''';
end;
procedure TForm9. Button2Click (Sender: TObject);
begin
vspom.Filtered:=false;
end;
procedure TForm9. Button4Click (Sender: TObject);
begin
if edit2. text='' then exit;
vspom.Filtered:=true;
if radiobutton1. Checked=true then
vspom.Filter:='s_kl='+''''+edit2.Text+'''';
if radiobutton2. Checked=true then
vspom.Filter:='n_kl='+''''+edit2.Text+'''';
end;
procedure TForm9. Button5Click (Sender: TObject);
var
a, b: integer;
begin
a:=spinedit1.Value;
b:=spinedit2.Value;
if (a>b) or (a=b) then begin
showmessage ('Π€ΠΈΠ»ΡΡΡΠ°ΡΠΈΡ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π°. ΠΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΠΈ!');
exit; end;
vspom.Filtered:=true;
vspom.Filter:='sym>'+inttostr (a)+'and sym<'+inttostr (b);
end;
procedure TForm9. Button3Click (Sender: TObject);
begin
vspom.IndexFieldNames:='sym';
end;
procedure TForm9. FormCreate (Sender: TObject);
begin
button3.Hide;
end;
end.