en; Form1.Query1 TObject);;; TForm7.FormCreate (Sender: TObject);. Date: = date;;. Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls; = class (TForm): TButton;: TGroupBox;: TEdit;: TEdit;: TEdit;: TDateTimePicker;: TLabel;: TLabel;: TLabel;: TLabel; Button1Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};: TForm8; Unit1;
{$ R *. dfm} TForm8.Button1Click (Sender: TObject); Form1.Query1 do;. Clear;. Add ('SELECT * FROM HOT');;; Form1.Query1 додані ', mtInformation, [mbOk], 0);. Clear;. Clear;. Clear;; TForm8.FormCreate (Sender: TObject);. Date: = Date;;. Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, Grids, DBGrids, StdCtrls; = class (TForm): TGroupBox;: TDataSource;: TDBGrid;: TQuery;
{Private declarations}
{Public declarations};