B, Grids , DBGrids, DBTables; = class (TForm): TGroupBox;: TQuery;: TDBGrid;: TDataSource;: TEdit;: TLabel;: TButton; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm5;
{$ R *. dfm} TForm5.Button1Click (Sender: TObject);. Locate ('Familia', Edit1.Text, [loCaseInsensitive, loPartialKey]);;. Unit6;, Messages, SysUtils , Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls; = class (TForm): TGroupBox;: TDataSource;: TDBGrid;: TQuery;: TGroupBox;: TGroupBox;: TEdit; : TLabel;: TDateTimePicker;: TDateTimePicker;: TLabel;: TLabel;: TButton;: TButton;: TLabel;: TButton;: TButton;: TQuery;: TDataSource;: TDBGrid; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); FormCreate (Sender: TObject); Button4Click (Sender: TObject);
{Private declarations}
{Public d eclarations};: TForm6; Unit10;
{$ R *. dfm} TForm6.Button1Click (Sender: TObject); c, q, a: String;, sum: Integer;: = DateToStr (DateTimePicker2.Date);: = DateToStr ( DateTimePicker1.Date);: = Edit1.Text; Query2 do;. Clear;. Add ('select Yslyga, DataY, CenaY');. Add ('FROM Hot');. Add ('WHERE (NomerY =' + chr (39) + a + chr (39) + ') and (DataY between' + chr (39) + q + chr (39) + 'AND' + chr (39) + c + chr (39) + ')' );
Open;;
// ------- розрахунок на ім'я ---------
with Query1 do;. Clear;. Add ('SELECT *');. Add ('FROM HOT');. Add ('WHERE (Nomer =' + chr (39) + a + chr (39) + ') and (Sostoanie = "зайнятий")');;;; TForm6.Button2Click (Sender: TObject); i, sum, temp: Integer;. First;: = 0; not Query2.Eof do: = Query2.Fields [2]. AsInteger;: = sum + temp;. Next;;. Caption: = 'Ви повинні:' + FloatToStr (temp);; TForm6.Button3Click (Sender: TObject); i, j : Integer; i: = 0 to Query1.RecordCount-1if Query1.RecordCount <> 0 then Query1.Delete; j: = 0 to Query2.RecordCount-1if Query2.RecordCount <> 0 then Query2.Delete;; TForm6. FormCreate (Sender: TObject);. Date: = date;. Date: = date;; TForm6.Button4Click (Sender: TObject);. QuickRep1.Preview;;. Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls , Forms,, StdCtrls, ComCtrls; = class (TForm): TGroupBox;: TDateTimePicker;: TEdit;: TLabel;: TLabel;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormCreate ( Sender: TObject);
{Private declarations}
{Public declarations};: TForm7; Unit1, DB, DBTables;
{$ R *. dfm} TForm7.Button1Click (Sender: TObject); sost: String;: = 'на ремонті';. Query1.Close;. Query1.SQL.Clear;. Query1. SQL.Add ('SELECT * FROM HOT');. Query1.Op...
