Variants, Classes, Graphics, Controls, Forms,, datamod, Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, ADODB; = class (TForm): TDBGrid;: TButton;: TButton;: TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TADOConnection;: TADOQuery;: TDataSource;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton; Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button1Click (Sender: TObject); Button5Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject);. Text: ='';. Text: ='';. Text: ='';. Text: = ' ';. Text: ='';; TForm1.Button2Click (Sender: TObject);. TSeason.Delete; (' Таблиця порожня! ');;; TForm1.Button3Click (Sender: TObject); datamodule1.TSeason.Modified then.TSeason.Post;; TForm1.Button4Click (Sender: TObject); ((Edit1.Text <>'') and (Edit2.Text <>'') and (Edit3.Text <> ' ') and
(Edit4.Text <>'') and (Edit5.Text <>'')) then.Close;. SQL.Clear;. SQL.Text: = (
'insert into сезон ([Номер сезону], [Назва сезону], [Дата початку сезону], [Дата кінця сезону], [Бюджет клубу]) values ​​(' + Edit1.Text + ', '+ Edit2.Text +', '+ char (39) + Edit3.Text + char (39) +', '+ char (39) + Edit4.Text + char (39) +', '+ char (39) + Edit5.Text + char (39) + ')');
ADOQuery1.Execsql; ('Помилка, ви заповнили не всі поля!');
end; TForm1.Button5Click (Sender: TObject);. TSeason.Close;. TSeason.open;;. unit Specializ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, datamod, Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, ADODB; = class (TForm): TDBGrid;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TADOConnection;: TADOQuery;: TEdit;: TEdit;: TEdit;: TButton;: TDataSource;: TButton;: TButton; Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button4Click (Sender: TObject); Button1Click (Sender: TObject); Button5Click (Sender: TObject);
{Private declarations}
{Public declarations};: TSpecial;
{$ R *. dfm} TSpecial.Button1Click (Sender: TObject);. TSpec.close;. TSpec.Open;; TSpecial.Button2Click (Sender: TObject); datamodule1.TSpec.Modified then . TSpec.Post;; TSpecial.Button3Click (Sender: TObject);. TSpec.Delete; ('Таблиця порожня!');;; TSpecial.Button4Click (Sender: TObject); ((Edit1.Text <> '') and (Edit2.Text <>'') and (Edit3.Text <>'')) then.close;. SQL.Clear;. SQL.Text: = (
'insert into спеціалізація ([Код спеціалізації], [Найменування спеціалізації], [Інформація]) values ​​(' + Edit1.Text + ',' + char (39) + Edit2.Text...
