frm_goodsstatseek.pas

这是一个基于delphi平台的物流空运管理系统！

unit frm_goodsstatseek;

interface

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

type
  Tfrmgoodsstatseek = class(TFrmCargo)
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label10: TLabel;
    Label8: TLabel;
    Panel1: TPanel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GoDate: TDateTimePicker;
    DGoDate: TDateTimePicker;
    EdtFileNo: TEdit;
    EdtMawb: TEdit;
    edthawb: TEdit;
    ChkIn: TCheckBox;
    ChkOut: TCheckBox;
    ChkDiscard: TCheckBox;
    EdtVoyage: TEdit;
    ComCompany: TComboBox;
    ChkFinish: TCheckBox;
    ChkNotFinish: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgoodsstatseek: Tfrmgoodsstatseek;

implementation

uses Frm_Main, frm_goodsstat;

{$R *.dfm}

procedure Tfrmgoodsstatseek.FormCreate(Sender: TObject);
VAR
 sqlstr:String;
begin
  inherited;
  shortDateFormat:='yyyy-mm-dd';
  sqlstr:='Select PlaneCompanyCode,PlaneCompanyCName from PlaneCompanyInfo';
  FrmMain.Full_FilterCombobox(comcompany,sqlstr,'PlaneCompanyCode','PlaneCompanyCName');
  GoDate.date:=Date;
  Dgodate.date:=date;
end;

procedure Tfrmgoodsstatseek.BitBtn3Click(Sender: TObject);
var
  sTmp:String;
  SqlText:string;
  SqlText2:string;
  FilStr:String;
begin
  inherited;
   shortDateFormat := 'yyyy-mm-dd';


   {分单的情况}
     SQLtext:='select a.filecode,a.fileno,a.hawb,b.maincode,a.by1,'+
        'c.portcname,d.portcname,a.cuscodename,'+
        ' a.goodsnumber,a.goodsweight,a.goodschargeweight  '+
       '  from Filetable a,portinfo c ,portinfo d,FileTable b  '+
       ' where b.filecode=*a.maincode  and  c.portcode=*a.airport and '+
       ' d.portcode=*a.airportto and substring(a.filecode,1,1)=''H'' ';

   {直单的情况}
   SQLtext2:='select a.filecode,a.fileno,a.hawb,A.maincode,a.by1,'+
     'c.portcname,d.portcname,a.cuscodename,'+
     ' a.goodsnumber,a.goodsweight,a.goodschargeweight  '+
    '  from Filetable a,portinfo c ,portinfo d  '+
    ' where c.portcode=*a.airport and '+
    ' d.portcode=*a.airportto and a.ifzhidan=''1'' ';


   FilStr:='';
   Stmp:=edtfileno.text;
    if sTmp <> '' then
        FilStr:=FilStr+'And a.fileno = '''+sTmp+''' ';

  stmp:=edtmawb.text;
   if sTmp <> '' then
       FilStr:=FilStr+'And a.maincode = '''+sTmp+''' ';

  stmp:=edthawb.text;
   if sTmp <> '' then
       FilStr:=FilStr+'And a.hawb = '''+sTmp+''' ';

   Stmp:=edtVoyage.text;
    if sTmp <> '' then
        FilStr:=FilStr+'And a.BY1 = '''+sTmp+''' ';

   Stmp:=FrmMain.getfieldtext(comcompany.text);
    if sTmp <> '' then
        FilStr:=FilStr+'And a.carrier = '''+sTmp+''' ';

   if chkdiscard.Checked then
        FilStr:=FilStr+' And a.ifdiscard=1 ';


    if (chkout.Checked) and (chkin.checked ) then
    else
      begin
        if chkout.Checked then
          FilStr:=FilStr+' And a.inout=1 ';

        if chkin.Checked then
            FilStr:=FilStr+' And a.inout=0 ';
      end;

    if (chkfinish.Checked) and (chknotfinish.checked ) then
    else
      begin
        if chkfinish.Checked then
          FilStr:=FilStr+' And a.befinish=1 ';

        if chknotfinish.Checked then
            FilStr:=FilStr+' And a.befinish=0 ';
      end;

   FilStr:=FilStr+' and a.dexecdate>='''+datetimetostr(int(godate.date))+''' and a.dexecdate<='''+datetimetostr(int(dgodate.date))+'''';

   SqlText:=Sqltext+filstr;
   SqlText2:=sqltext2+filstr;

   Frmgoodsstat.Qrystat.close;
   Frmgoodsstat.Qrystat.SQL.Text:=SqlText;
   Frmgoodsstat.Qrystat.open;
   Frmgoodsstat.LV.Items.Clear;
   Frmgoodsstat.LV2.Items.Clear;
   {重新刷新显示}
   FrmMain.AddData(Frmgoodsstat.lv,Frmgoodsstat.Qrystat);

   Frmgoodsstat.Qrystat.close;
   Frmgoodsstat.Qrystat.SQL.Text:=SqlText2;
   Frmgoodsstat.Qrystat.open;
   FrmMain.AddData(Frmgoodsstat.lv,Frmgoodsstat.Qrystat);
   close;
end;

procedure Tfrmgoodsstatseek.BitBtn4Click(Sender: TObject);
begin
  inherited;
  CLose;
end;

end.