uqueryoutyf.pas

物流行业

unit Uqueryoutyf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBTables, Buttons, ExtCtrls, Grids,
  DBGrids, DBCtrls,StrUtils, ADODB;

type
  Tfmqueryoutyf = class(TForm)
    DataSource1: TDataSource;
    Label1: TLabel;
    groupbox1: TGroupBox;
    GroupBox2: TGroupBox;
    BitBtn4: TBitBtn;
    StatusBar1: TStatusBar;
    BitBtn1: TBitBtn;
    Table1: TTable;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Label4: TLabel;
    ComboBox3: TComboBox;
    Label5: TLabel;
    ComboBox4: TComboBox;
    Button1: TButton;
    procedure BitBtn4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    sstring:string;{ Public declarations }
  end;

var
  fmqueryoutyf: Tfmqueryoutyf;

implementation

uses Uoperoutreport;

{$R *.dfm}

procedure Tfmqueryoutyf.BitBtn4Click(Sender: TObject);
begin
fmqueryoutyf.Close;
end;


procedure Tfmqueryoutyf.FormActivate(Sender: TObject);
begin
statusbar1.Panels[0].Text:='共计: '+inttostr(table1.RecordCount)+' 条记录 ';
combobox1.SetFocus;
end;



procedure Tfmqueryoutyf.Button1Click(Sender: TObject);
var ldl,lcc,lxx:string;

begin

if combobox2.ItemIndex<>4 then ldl:=' and cdl='''+combobox2.Text+'''' else ldl:='';

if combobox3.ItemIndex<>3 then lcc:=' and ccc='''+combobox3.Text+'''''' else lcc:='';

if combobox4.ItemIndex<>4 then lxx:=' and cxx='''+combobox4.Text+'''' else lxx:='';



sstring:='drq='''+formatdatetime('yy-',now)+combobox1.Text+'*'+''''+ldl+lcc+lxx ;
table1.Filtered:=false;
table1.Filter:=sstring;
table1.Filtered:=true;
statusbar1.Panels[0].Text:='共计: '+inttostr(table1.RecordCount)+' 条记录 ';

end;

procedure Tfmqueryoutyf.BitBtn1Click(Sender: TObject);
begin
application.CreateForm(Tfmoperoutreport,fmoperoutreport);
fmoperoutreport.Table1.TableName:='operout.DB';
fmoperoutreport.Table1.Active:=true;
fmoperoutreport.Table1.Filtered:=false;
fmoperoutreport.Table1.Filter:=sstring;
fmoperoutreport.Table1.Filtered:=true;
fmoperoutreport.QuickRep1.DataSet:=fmoperoutreport.Table1;
fmoperoutreport.QRExpr3.Top:=fmoperoutreport.QRExpr2.Top;
//fmoperoutreport.QRExpr2.Expression:='''sum(table1.njs)''+'' 件/ ''';
fmoperoutreport.QuickRep1.Preview;

end;

end.