гравця') ) then ('Введіть номер гравця'). Active: = False;. Close;. SQL.Clear;. SQL.Add (
'Select [Найменування спеціалізації], [Номер гравця], [Прізвище], [Ім'я], [По батькові] from спеціалізація, команда where спеціалізація. [код спеціалізації] = команда. [номер гравця] and команда. [номер гравця] = '+ Edit1.Text);
ADOQuery1.Open;. Active: = True;;; TMainForm.N1Click (Sender: TObject);. Show;; TMainForm.N2Click (Sender: TObject);. Show;; TMainForm.N3Click ( Sender: TObject);. Show;; TMainForm.N4Click (Sender: TObject);. Show;;. DataMod;, Classes, DB, ADODB; = class (TDataModule): TADOConnection;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;
{Private declarations}
{Public declarations};: TDataModule1;
{$ R *. dfm}. unit Players;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, datamod, Grids, DBGrids, ExtCtrls, StdCtrls, Mask, DBCtrls; = class (TForm): TPageControl;
Гравці: TTabSheet;: TGroupBox;: TButton;: TButton;: TButton;
Сезони: TTabSheet;: TDBGrid;: TGroupBox;: TButton;: TButton;: TButton;: TTabSheet;: TDBGrid;: TGroupBox;: TButton;: TButton;: TButton;: TDBGrid; Button1Click ( Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender : TObject); Button9Click (Sender: TObject); Button10Click (Sender: TObject); Button12Click (Sender: TObject); Button11Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm2;
{$ R *. dfm} TForm2.Button10Click (Sender: TObject);. TComand.Append;; TForm2.Button11Click (Sender: TObject); Datamodule1.TComand.modified then.TComand.Post; ; TForm2.Button12Click (Sender: TObject);. TComand.Delete; ('Таблиця порожня!');;; TForm2.Button1Click (Sender: TObject);. TZarplata.Append;; TForm2.Button2Click (Sender: TObject) ;. TZarplata.Delete; ('Таблиця порожня!');;; TForm2.Button3Click (Sender: TObject); Datamodule1.TZarplata.modified then.TZarplata.Post;; TForm2.Button4Click (Sender: TObject);. TSpec . Append;; TForm2.Button5Click (Sender: TObject);. TSpec.Delete; ('Таблиця порожня!');;; TForm2.Button6Click (Sender: TObject); Datamodule1.TSpec.modified then.TSpec.Post; ; TForm2.Button7Click (Sender: TObject);. TSeasons.Append;; TForm2.Button8Click (Sender: TObject);. TSeasons.Delete; ('Таблиця порожня!');;; TForm2.Button9Click (Sender: TObject) ; Datamodule1.TSeasons.modified then.TSeasons.Post;;. unit Seasons;, Messages, SysUtils,...
