unitbbglls.pas

delphi+sql server 我是delphi的初学者

unit UnitBBGLLS;

interface

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

type
  TFormBBGLLS = class(TForm)
    Panel1: TPanel;
    frxPreview1: TfrxPreview;
    Clx: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    frxReportls: TfrxReport;
    Cdd: TComboBox;
    Label5: TLabel;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormBBGLLS: TFormBBGLLS;

implementation
USES UDM;
{$R *.dfm}

procedure TFormBBGLLS.FormShow(Sender: TObject);
begin

  with dm.qrydjlx do
   begin
    close;
    sql.Clear;
    sql.Add('select * from typeunit');
    prepared;
    open;
   end;
  Clx.Items.Clear;
  while not dm.qrydjlx.Eof do
   begin
    Clx.Items.Append(dm.qrydjlx.fieldbyname('typename').AsString);
    dm.qrydjlx.Next;
   end;

    with dm.qrytemp do
     begin
       close;
       sql.Clear;
       sql.Add('select * from ly_place');
       prepared;
       open;
     end;
    Cdd.Items.Clear;
    while not dm.qrytemp.Eof do
     begin
      Cdd.Items.Append(dm.qrytemp.FIELDBYNAME('placename').asstring);
      dm.qrytemp.Next;
     end;
     Clx.text:='';
     Cdd.Text:='';
     DateTimePicker1.Date:=Date;
     DateTimePicker2.Date:=Date;
end;

procedure TFormBBGLLS.Button1Click(Sender: TObject);
begin
  with dm.ADOreportls do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select * from lsdj_tb');
     SQL.Add('where rq between :krq and :jrq and libnnumberplace like :lyd and numbertype like :num');
     Parameters.ParamByName('krq').Value:=DateTimePicker1.Date;
     Parameters.ParamByName('jrq').Value:=DateTimePicker2.Date;
     Parameters.ParamByName('lyd').Value:='%'+cdd.Text+'%';
     Parameters.ParamByName('num').Value:='%'+clx.Text+'%';
     Prepared;
     Open;
    end;
   frxReportls.ShowReport();
end;

procedure TFormBBGLLS.Button2Click(Sender: TObject);
begin
    Close;
end;

end.