bbrq.pas

来自「DELPHI应用一则」· PAS 代码 · 共 59 行

unit BBRQ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Buttons;

type
  TFRMBBRQ = class(TForm)
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DTkrq: TDateTimePicker;
    DTjrq: TDateTimePicker;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMBBRQ: TFRMBBRQ;

implementation
USES UDM, UnitDYFPMXBB;

{$R *.dfm}

procedure TFRMBBRQ.BitBtn1Click(Sender: TObject);
begin
 FormDYFPMXBB:=TFormDYFPMXBB.Create(Self);
  with DM.ADOrepot do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from xykmx');
    sql.Add('where ondate between :krq and :jrq');
    Parameters.ParamByName('krq').Value:=DTkrq.Date;
    Parameters.ParamByName('jrq').Value:=DTjrq.Date;
    Prepared;
    Open;
  end;
  FormDYFPMXBB.frxReport1.ShowReport;


end;

procedure TFRMBBRQ.BitBtn2Click(Sender: TObject);
begin
 CLOSE;
end;

end.