uquerytdhyf.pas

物流行业

unit Uquerytdhyf;

interface

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

type
  Tfmquerytdhyf = 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;
    Label3: TLabel;
    ComboBox2: TComboBox;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    StatusBar2: TStatusBar;
    Table2: TTable;
    DataSource2: TDataSource;
    BitBtn2: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

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

var
  fmquerytdhyf: Tfmquerytdhyf;

implementation

uses Uinputtdhreport, Uinputtdhsubreport;

{$R *.dfm}

procedure Tfmquerytdhyf.BitBtn4Click(Sender: TObject);
begin
fmquerytdhyf.Close;
end;


procedure Tfmquerytdhyf.Button1Click(Sender: TObject);
var lbw,ldl:string;

begin
if  radiogroup1.ItemIndex=0 then lbw:=' and (lbw=true)';
if  radiogroup1.ItemIndex=1 then lbw:=' and (lbw=false)';
if  radiogroup1.ItemIndex=2 then lbw:='';

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

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

procedure Tfmquerytdhyf.FormActivate(Sender: TObject);
begin
statusbar1.Panels[0].Text:='共计: '+inttostr(table1.RecordCount)+' 条记录 ';
statusbar2.Panels[0].Text:='共计: '+inttostr(table2.RecordCount)+' 条记录 ';

combobox1.SetFocus;
end;



procedure Tfmquerytdhyf.Table1AfterScroll(DataSet: TDataSet);
//var t2string:string;
begin
if table1.RecordCount>0 then
begin
table2.Active:=true;
t2string:='ctdh='''+table1.FieldValues['ctdh']+'''';
table2.Filtered:=false;
table2.Filter:=t2string;
table2.Filtered:=true;
statusbar2.Panels[0].Text:='共计: '+inttostr(table2.RecordCount)+' 条记录 ';
end
else
begin
table2.Active:=false;
statusbar2.Panels[0].Text:='共计: 0 条记录 ';
end;
end;

procedure Tfmquerytdhyf.BitBtn1Click(Sender: TObject);
begin
application.CreateForm(Tfminputtdhreport,fminputtdhreport);
fminputtdhreport.Table1.TableName:='inputtdh.DB';
fminputtdhreport.Table1.Active:=true;
fminputtdhreport.Table1.Filtered:=false;
fminputtdhreport.Table1.Filter:=sstring;
fminputtdhreport.Table1.Filtered:=true;

fminputtdhreport.QuickRep1.DataSet:=fminputtdhreport.Table1;
fminputtdhreport.QuickRep1.Preview;
end;

procedure Tfmquerytdhyf.BitBtn2Click(Sender: TObject);
begin
if not table2.IsEmpty then
begin
application.CreateForm(Tfminputtdhsubreport,fminputtdhsubreport);
fminputtdhsubreport.Table1.TableName:='inputtdh.DB';
fminputtdhsubreport.Table1.Active:=true;
fminputtdhsubreport.Table1.Filtered:=false;
fminputtdhsubreport.Table1.Filter:=t2string;
fminputtdhsubreport.Table1.Filtered:=true;

fminputtdhsubreport.Table2.TableName:='operout.DB';
fminputtdhsubreport.Table2.Active:=true;
fminputtdhsubreport.Table2.Filtered:=false;
fminputtdhsubreport.Table2.Filter:=t2string;
fminputtdhsubreport.Table2.Filtered:=true;

fminputtdhsubreport.QuickRep1.DataSet:=fminputtdhsubreport.Table2;
//fminputtdhsubreport.Table2.Active:=true;
fminputtdhsubreport.QuickRep1.Preview;
end;
end;

end.