me.pas

delphi+sql server 我是delphi的初学者

unit me;

interface

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

type
  Tfrmme = class(TForm)
    Panel1: TPanel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Czt: TComboBox;
    Clx: TComboBox;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmme: Tfrmme;

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



  procedure Tfrmme.Button2Click(Sender: TObject);
   begin
   close;
   end;

  procedure Tfrmme.FormShow(Sender: TObject);
     begin
           Clx.Text:='';
           Czt.Text:='';
      DateTimePicker1.Date:=Date;
      DateTimePicker2.Date:=Date;

          //设置单据状态
          WITH DM.ADOZTDJ DO
           begin
            Close;
            SQL.Clear;
            SQL.Add('select * from meun_zt');
            Prepared;
            Open;
           end;
          Czt.Items.Clear;
          while not dm.ADOZTDJ.Eof do
           begin
            Czt.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;
          Clx.Items.Clear;
           while not dm.ADOLX.Eof do
            begin
             Clx.Items.Append(dm.ADOLX.fieldbyname('typename').AsString);
             dm.ADOLX.Next;
            end;


     end;

  procedure Tfrmme.Button1Click(Sender: TObject);
   begin
       Formbbglls:=TFormbbglls.Create(Self);
        with dm.ADOrepotls do
          begin
            Close;
            SQL.Add('select * from lsdj_tb');
            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']:='%'+clx.Text+'%';
            Parameters.ParamValues['zt']:='%'+czt.Text+'%';
            Parameters.ParamValues['dm']:=dm.HDM;
            Prepared;
            Open;
          end;
       Formbbglls.frxReportls.ShowReport();
       Formbbglls.ShowModal;
       FreeAndNil(Formbbglls);
   end;

   end.