+ char ( 39) + ',' + char (39) + Edit3.Text + char (39) + ')');
ADOQuery1.Execsql; ('Помилка, ви заповнили не всі поля!');
end; TSpecial.Button5Click (Sender: TObject);. Text: ='';. Text: ='';. Text: ='';;. unit Stadium;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, datamod, Grids, DBGrids, StdCtrls, Mask, DBCtrls; = class (TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet; : TDBGrid;: TDBGrid;: TDBGrid;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TDBEdit;: TDBEdit ;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button6Click (Sender: TObject); Button5Click (Sender: TObject); Button4Click (Sender: TObject); Button8Click (Sender: TObject); Button7Click (Sender: TObject); Button9Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm3;
{$ R *. dfm} TForm3.Button1Click (Sender: TObject);. TStadium.Append;; TForm3.Button2Click (Sender: TObject);. TStadium.Delete; ('Таблиця порожня!! ! ');;; TForm3.Button3Click (Sender: TObject); datamodule1.TStadium.Modified then.TStadium.Post;; TForm3.Button4Click (Sender: TObject); datamodule1.TTribun.Modified then.TTribun.Post;; TForm3. Button5Click (Sender: TObject);. TTribun.Delete; ('Таблиця порожня!');;; TForm3.Button6Click (Sender: TObject);. TTribun.Append;; TForm3.Button7Click (Sender: TObject);. TTickets . Delete; ('Таблиця порожня!');;; TForm3.Button8Click (Sender: TObject);. TTickets.Append;; TForm3.Button9Click (Sender: TObject); datamodule1.TTickets.Modified then.TTickets.Post; ;.
