Форма для просмотри и редактирования просроченных заказов

SELECT *

FROM Orders

Where (Status_oplati=False) AND (Date_oplati=Format(Date()))

Форма для выбора отчета за месяц

unit otchet;

interface

uses

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

Dialogs, StdCtrls;

var

month, monthname: string;

type

TOtchet_za_mec = class(TForm)

ComboBox1: TComboBox;

Button1: TButton;

procedure ComboBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Otchet_za_mec: TOtchet_za_mec;

implementation

uses otch;

{$R *.dfm}

procedure TOtchet_za_mec.ComboBox1Click(Sender: TObject);

begin

case ComboBox1.ItemIndex of

-1:ShowMessage('Выберите месяц!');

0: begin month:='__.01.2014'; monthname:='Январь 2014'; end;

1: begin month:='__.02.2014'; monthname:='Февраль 2014'; end;

2: begin month:='__.03.2014'; monthname:='Март 2014'; end;

3: begin month:='__.04.2014'; monthname:='Апрель 2014'; end;

4: begin month:='__.05.2014'; monthname:='Май 2014'; end;

5: begin month:='__.06.2014'; monthname:='Июнь 2014'; end;

6: begin month:='__.07.2014'; monthname:='Июль 2014'; end;

7: begin month:='__.08.2014'; monthname:='Август 2014'; end;

8: begin month:='__.09.2014'; monthname:='Сентябрь 2014'; end;

9: begin month:='__.10.2014'; monthname:='Октябрь 2014'; end;

10: begin month:='__.11.2014'; monthname:='Ноябрь 2014'; end;

11: begin month:='__.12.2014'; monthname:='Декабрь 2014'; end;

end;

end;

procedure TOtchet_za_mec.Button1Click(Sender: TObject);

begin

Form_otchet.QRLabel2.Caption:= monthname;

Form_otchet.ADOQuery1.Active:=False;

Form_otchet.ADOQuery1.SQL.Add('Where Data LIKE '''+month+'''');

Form_otchet.ADOQuery1.Active:=True;

Form_otchet.Show;

end;

end.