uqueryexportyf.~pas

物流行业

unit Uqueryexportyf;

interface

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

type
  Tfmqueryexportyf = class(TForm)
    DataSource1: TDataSource;
    Label1: TLabel;
    groupbox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn4: TBitBtn;
    StatusBar1: TStatusBar;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    ComboBox1: TComboBox;
    RadioGroup1: TRadioGroup;
    Table1: TTable;
    RadioGroup2: TRadioGroup;
    procedure BitBtn4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);

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

var
  fmqueryexportyf: Tfmqueryexportyf;

implementation

uses Uexportreport;

{$R *.dfm}

procedure Tfmqueryexportyf.BitBtn4Click(Sender: TObject);
begin
fmqueryexportyf.Close;
end;


procedure Tfmqueryexportyf.Button1Click(Sender: TObject);
var lempty,lcc:string;

begin
if  radiogroup1.ItemIndex=0 then lempty:=' and (lzt=''E'')';
if  radiogroup1.ItemIndex=1 then lempty:=' and (lzt=''F'')';
if  radiogroup1.ItemIndex=2 then lempty:='';

if  radiogroup2.ItemIndex=0 then lcc:=' and (ccc='+'''20'''''''+')';
if  radiogroup2.ItemIndex=1 then lcc:=' and (ccc='+'''40'''''''+')';
if  radiogroup2.ItemIndex=2 then lcc:=' and (ccc='+'''45'''''''+')';
if  radiogroup2.ItemIndex=3 then lcc:='';




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

end;

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



procedure Tfmqueryexportyf.BitBtn1Click(Sender: TObject);
begin
application.CreateForm(Tfmexportreport,fmexportreport);
fmexportreport.Table1.TableName:='exportcontainer.DB';
fmexportreport.Table1.Active:=true;
fmexportreport.Table1.Filtered:=false;
fmexportreport.Table1.Filter:=sstring;
fmexportreport.Table1.Filtered:=true;

fmexportreport.QuickRep1.DataSet:=fmexportreport.Table1;
fmexportreport.QRLabel18.Caption:=fmqueryexportyf.StatusBar1.Panels[0].Text;
fmexportreport.QRLabel19.Caption:='';
fmexportreport.QRLabel20.Caption:='';
fmexportreport.QRLabel21.Caption:='';
fmexportreport.QRLabel22.Caption:='';
fmexportreport.QRLabel23.Caption:='';
//fmimportreport.Table1.active:=true;
fmexportreport.QuickRep1.Preview;

end;

end.