placebb.pas

delphi+sql server 我是delphi的初学者

unit PLACEBB;

interface

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

type
  TFRMPLACEBBRQ = class(TForm)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CDJZT: TComboBox;
    Label3: TLabel;
    Cdjlx: TComboBox;
    Label4: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMPLACEBBRQ: TFRMPLACEBBRQ;

implementation
uses UDM,BBFORPLACE;
{$R *.dfm}

procedure TFRMPLACEBBRQ.BitBtn2Click(Sender: TObject);
begin
  dm.ADOREPORT.Close;
   CLOSE;
end;

procedure TFRMPLACEBBRQ.BitBtn1Click(Sender: TObject);
begin
  FRMBBFORPLACE:=TFRMBBFORPLACE.Create(Self);
   with dm.ADOREPORT do
      begin
        Close;
        SQL.Add('select * from libnumberls');
        SQL.Add('where  sxdm=:dm and (rq between :krq and :jrq) and zt like :zt');
        SQL.Add('and numbertype like :type');
        SQL.Add('order by numberid');
        Parameters.ParamValues['krq']:=DateTimePicker1.Date;
        Parameters.ParamValues['jrq']:=DateTimePicker2.Date;
        Parameters.ParamValues['type']:='%'+cdjlx.Text+'%';
        Parameters.ParamValues['zt']:='%'+cdjzt.Text+'%';
        Parameters.ParamValues['dm']:=dm.HDM;
        Prepared;
        Open;
      end;
      FRMBBFORPLACE.frxReport1.ShowReport;
      FreeAndNil(FRMBBFORPLACE);
end;

procedure TFRMPLACEBBRQ.FormShow(Sender: TObject);
begin
  DateTimePicker1.Date:=Date;
  DateTimePicker2.Date:=Date;
  CDJZT.Text:='';
  Cdjlx.Text:='';
  WITH DM.ADOZTDJ DO
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from meun_zt');
     Prepared;
     Open;
   end;
   CDJZT.Items.Clear;
   while not dm.ADOZTDJ.Eof do
   begin
     CDJZT.Items.Append(dm.ADOZTDJ.fieldbyname('djzt').AsString);
     DM.ADOZTDJ.Next;
   end;
   with dm.ADOLX do
   begin
     Close;
     SQL.Clear;
     SQL.Add('SELECT * FROM typeunit');
     Prepared;
     Open;
   end;
   Cdjlx.Items.Clear;
   while not dm.ADOLX.Eof do
   begin
     Cdjlx.Items.Append(dm.ADOLX.fieldbyname('typename').AsString);
     DM.ADOLX.Next;
   end;

end;

procedure TFRMPLACEBBRQ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dm.ADOREPORT.Close;

end;

end.