Приложение 2. Отчет по поставщикам

unit OtchPosMPZ;

interface

uses

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

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

type

TOtPostMPZ = class(TForm)

Query1: TQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Label2: TLabel;

Label3: TLabel;

ComboBox1: TComboBox;

RadioGroup1: TRadioGroup;

MaskEdit1: TMaskEdit;

MaskEdit2: TMaskEdit;

Button1: TButton;

DBRadioGroup1: TDBRadioGroup;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

OtPostMPZ: TOtPostMPZ;

implementation

{$R *.dfm}

procedure TOtPostMPZ.Button1Click(Sender: TObject);

var a, b, c : string;

begin

case DBRadioGroup1.ItemIndex of

0: c:='Вспомогательные Материалы';

1: c:='Топливо';

2: c:='Тара';

3: c:='Запасные части';

4: c:='Канцелярские товары';

5: c:='Инвентарь';

6: c:='Спец одежда';

end;

case RadioGroup1.Itemindex of

0: case Combobox1.ItemIndex of

0: begin

a:='01.01.12';

b:='31.01.12';

end;

1: begin

a:='01.02.12';

b:='29.02.12';

end;

2: begin

a:='01.03.12';

b:='31.03.12';

end;

3: begin

a:='01.04.12';

b:='30.04.12';

end;

4: begin

a:='01.05.12';

b:='31.05.12';

end;

5: begin

a:='01.06.12';

b:='30.06.12';

end;

6: begin

a:='01.07.12';

b:='31.07.12';

end;

7: begin

a:='01.08.12';

b:='31.08.12';

end;

8: begin

a:='01.09.12';

b:='30.09.12';

end;

9: begin

a:='01.10.12';

b:='31.10.12';

end;

10: begin

a:='01.11.12';

b:='30.11.12';

end;

11: begin

a:='01.12.12';

b:='31.12.12';

end;

end;

1: Begin a:= MaskEdit1.Text;

b:= MaskEdit2.Text;

end;

end;

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('SELECT * FROM PostMPZ.db');

Query1.SQL.Add('WHERE Data BETWEEN ' + a + ' AND ' + b + 'AND Tip=' + c);

Query1.Open;

end;

end.