">// k: = StrToInt (konec);: = konec-nach; (chislo, Year, Month, Day); inttostr (day +1) = '32 'then begin edit9.Text: = '1 '; Exit; end; inttostr (day +1) = '31' then begin edit9.Text: = '0 '; Exit; end;. Text: = inttostr (day +1);;. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, StdCtrls; = class (TForm): TGroupBox;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit ;: TEdit;: TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TMemo;: TGroupBox;: TEdit;: TEdit;: TEdit;: TLabel;: TDateTimePicker;: TDateTimePicker;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TLabel;: TGroupBox;: TEdit;: TLabel;: TButton;: TButton;: TLabel;: TButton; Button2Click (Sender : TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject); FormCreate (Sender: TObject); DateTimePicker2Change (Sender: TObject);
{Private declarations}
{Public declarations};: TForm3; Unit1, Unit5, Unit9;
{$ R *. dfm} TForm3.Button2Click (Sender: TObject);;; TForm3.Button1Click (Sender: TObject); sost: String;: Integer;: = 'зайнятий';. Query1 . Close;. Query1.SQL.Clear;. Query1.SQL.Add ('SELECT * FROM HOT');. Query1.Open; Form1.Query1
// - місце
// FieldByName ('Kol_dney'). AsInteger: = StrToInt (fKolDney.Text);
// FieldByName ('Cena_za_den'). AsInteger: = StrToInt (fCenaZaden.Text);
// do;// додати в 'Дані додані', mtInformation, [mbOk], 0); E: = 0 to ComponentCount -1 do (Components [E] IS TEdit) then
(Components [E] AS TEdit). Text: ='';;; TForm3.Button3Click (Sender: TObject);. Show;; TForm3.FormCreate (Sender: TObject);. Date: = date;. Date: = date;; TForm3.DateTimePicker2Change (Sender: TObject); nach, konec, chislo: TDateTime;, Month, Day: then begin edit13.Text: = '1 '; Exit; end; inttostr (day +1) = '31' then begin edit13.Text: = '0 '; Exit; end;. Text: = inttostr (day +1) ;;. Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, StdCtrls; = class (TForm): TGroupBox;: TLabel;: TDateTimePicker;: TButton; Button1Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};: TForm4; Unit1;
{$ R *. dfm} TForm4.Button1Click (Sender: TObject); q: String;: = DateToStr (DateTimePicker1.Date); Form1 do.Close;. SQL.Clear;. SQL. Add ('SELECT Familia, Ima, Otchestvo, DataVS, TipTransVS, ReysVS, TimeVS');. SQL.Add ('FROM HOT');. SQL.Add ('WHERE DataVS =' + chr (39) + q + chr (39));. Open;;; TForm4.FormCreate (Sender: TObject);. Date: = Date;;. Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, D...
