Листинг приложения Запрос

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DataSource1: TDataSource;

Query1: TQuery;

Query1Tovar: TStringField;

Query1Cena: TCurrencyField;

Query1Oxotnik: TStringField;

Query1Adres: TStringField;

Query1Kol_wo: TSmallintField;

Query1summa: TCurrencyField;

procedure FormCreate(Sender: TObject);

procedure Query1CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

//Query1.Active:=true;

Label1.Top:=0;

DBGrid1.Top:=Label1.Height;

DBGrid1.Height:=220;

DBNavigator1.Top:=Label1.Height+DBGrid1.Height;

VertScrollBar.Visible:=False;

//ClientHeight:=566;

//ClientHeight:=283;

ClientHeight:=263;

//Убираются лишние неиспользуемые куски формы с экрана

Label1.Width:=747;

DBGrid1.Width:=747;

DBNavigator1.Width:=747;

ClientWidth:=747;

DBGrid1.Columns[0].Title.Alignment:=taCenter;

DBGrid1.Columns[1].Title.Alignment:=taCenter;

DBGrid1.Columns[2].Title.Alignment:=taCenter;

DBGrid1.Columns[3].Title.Alignment:=taCenter;

DBGrid1.Columns[4].Title.Alignment:=taCenter;

DBGrid1.Columns[5].Title.Alignment:=taCenter;

end;

procedure TForm1.Query1CalcFields(DataSet: TDataSet);

begin

Query1summa.Value:=Query1Kol_wo.Value*Query1Cena.Value;

end;

end.