frm_farewhseek.pas

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

unit Frm_farewhseek;

interface

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

type
  TFrmfarewhseek = class(TFrmCargo)
    Label4: TLabel;
    Label7: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label9: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Panel1: TPanel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GoDate: TDateTimePicker;
    DGoDate: TDateTimePicker;
    EdtFileNo: TEdit;
    EdtMawb: TEdit;
    edthawb: TEdit;
    ChkIn: TCheckBox;
    ChkOut: TCheckBox;
    ComCuscode: TComboBox;
    EdtCusCodeName: TEdit;
    EdtBxNO: TEdit;
    EdtBillno: TEdit;
    Chkyw: TCheckBox;
    ChkCw: TCheckBox;
    ComKmdm: TComboBox;
    EdtOper: TEdit;
    ChkNull: TCheckBox;
    ChkNotNull: TCheckBox;
    StartDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    ChkWt: TCheckBox;
    ChkCy: TCheckBox;
    QryTemp: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmfarewhseek: TFrmfarewhseek;

implementation

uses Frm_Main, Frm_FareWh;

{$R *.dfm}

procedure TFrmfarewhseek.FormCreate(Sender: TObject);
var
  SqlStr:String;
begin
  inherited;
shortDateFormat:='yyyy-mm-dd';
 {发货人}
  sqlstr:='select * from customerinfo';
  FrmMain.Full_FilterCombobox(comcuscode,sqlstr,'cuscode','custcname');

  SqlStr:='select * from faretype ';
  FrmMain.Full_FilterCombobox(comkmdm,sqlstr,'farecode','cname');

  GoDate.date:=date;
  Dgodate.date:=date;

  StartDate.date:=date;
  Enddate.date:=date;
end;

procedure TFrmfarewhseek.BitBtn3Click(Sender: TObject);
var
  sTmp:String;
  SqlText:string;
  SqlText2:string;
  SqlText3,SqlText4:String;
  FilStr:String;
begin
  inherited;
   shortDateFormat := 'yyyy-mm-dd';
   {应收的情况}
   sqltext:='select a.fareno,b.Fileno,b.hawb,e.maincode,a.cuscodename,'+
      ' a.faretype+d.cname,c.farecname,a.acount,'''' as blank,'+
      ' a.bxno,a.billno,a.writedate,a.operator '+
      'from fareinfo a,fareinformation c,Filetable b,faretype d,FileTable e '+
      ' where c.farecode=*a.farecode and b.filecode=a.filecode '+
      ' and d.farecode=*a.faretype '+
      ' and e.filecode=*b.maincode '+
      '  and a.filecode is not null '+
      ' and a.recedeal=1 ';

   {应付的情况}
    sqltext2:='select a.fareno,b.Fileno,b.hawb,e.maincode,a.cuscodename,'+
    ' a.faretype+d.cname,c.farecname,'''' as blank,a.acount,'+
    ' a.bxno,a.billno,a.writedate,a.operator '+
    ' from fareinfo a,fareinformation c,Filetable b,faretype d,FileTable e '+
    ' where c.farecode=*a.farecode and b.filecode=a.filecode '+
    '  and a.filecode is not null  '+
      ' and e.filecode=*b.maincode '+    
    '  AND d.farecode=*a.faretype '+
    ' and a.recedeal=-1 ';


   {应收的情况}
   sqltext3:='select b.Fileno,b.hawb,e.maincode,a.cuscodename,'+
      ' a.faretype+d.cname,sum(a.acount) as sumacount,'''' as blank,'+
      ' a.billno '+
      'from fareinfo a,Filetable b,faretype d,FileTable e '+
      ' where b.filecode=a.filecode '+
      ' and d.farecode=*a.faretype '+
      ' and e.filecode=*b.maincode '+
      '  and a.filecode is not null '+
      ' and a.recedeal=1 ';

   {应付的情况}
   sqltext4:='select b.Fileno,b.hawb,e.maincode,a.cuscodename,'+
      ' a.faretype+d.cname,'''' as blank,sum(a.acount) as sumacount,'+
      ' a.billno '+
      'from fareinfo a,Filetable b,faretype d,FileTable e '+
      ' where b.filecode=a.filecode '+
      ' and d.farecode=*a.faretype '+
      ' and e.filecode=*b.maincode '+
      '  and a.filecode is not null '+
      ' and a.recedeal=-1 ';




   FilStr:='';
   Stmp:=edtfileno.text;
    if sTmp <> '' then
        FilStr:=FilStr+FrmMain.SetSearchStr('b.fileno',Stmp);

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

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


   Stmp:=edtcuscodename.text;
    if sTmp <> '' then
        FilStr:=FilStr+'And a.cuscodename like ''%'+sTmp+'%'' ';


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

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

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

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

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

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

    if (ChkNull.checked) and (ChkNotNull.checked ) then
    else
      begin
        if ChkNull.Checked then
          FilStr:=FilStr+' And a.faretype='''' ';

        if ChkNotNull.Checked then
            FilStr:=FilStr+' And a.faretype<>'''' ';
      end;


    if (chkyw.Checked) and (chkcw.checked ) then
    else
      begin
        if chkyw.Checked then
          FilStr:=FilStr+' And a.opercwmark=''业务操作'' ';

        if chkcw.Checked then
            FilStr:=FilStr+' And a.opercwmark=''财务操作'' ';
      end;



      if chkwt.Checked and chkcy.Checked  then
        begin
          FilStr:=FilStr+' and b.dexecdate>='''+datetimetostr(int(godate.date))+''' and b.dexecdate<='''+datetimetostr(int(dgodate.date))+''' ';
          FilStr:=FilStr+' and b.fdate1>='''+datetimetostr(int(startdate.date))+''' and b.fdate1<='''+datetimetostr(int(enddate.date))+'''';
        end
      else
        begin
            if chkwt.Checked then
                FilStr:=FilStr+' and b.dexecdate>='''+datetimetostr(int(godate.date))+''' and b.dexecdate<='''+datetimetostr(int(dgodate.date))+''' ';

            if chkcy.Checked then
               FilStr:=FilStr+' and b.fdate1>='''+datetimetostr(int(startdate.date))+''' and b.fdate1<='''+datetimetostr(int(enddate.date))+'''';
        end;

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

   SqlText3:=sqltext3+filstr+' group by b.Fileno,b.hawb,e.maincode,a.cuscodename,'+
           ' a.faretype+d.cname,a.billno ';

   SqlText4:=sqltext4+filstr+' group by b.Fileno,b.hawb,e.maincode,a.cuscodename,'+
           ' a.faretype+d.cname,a.billno ';


   FrmFarewh.QryFare.close;
   FrmFarewh.QryFare.SQL.Text:=SqlText;
   FrmFarewh.QryFare.open;
   FrmFarewh.LV.Items.Clear;
   {重新刷新显示}

   FrmMain.AddData(FrmFarewh.lv,FrmFarewh.QryFare);

   FrmFarewh.QryFare.close;
   FrmFarewh.QryFare.SQL.Text:=SqlText2;
   FrmFarewh.QryFare.open;
   FrmMain.AddData(FrmFarewh.lv,FrmFarewh.QryFare);


   //统计汇总数据
   FrmFarewh.QryFare.close;
   FrmFarewh.QryFare.SQL.Text:=SqlText3;
   FrmFarewh.QryFare.open;
   FrmFarewh.LV2.Items.Clear;
   {重新刷新显示}
   FrmMain.AddData(FrmFarewh.lv2,FrmFarewh.QryFare);

   FrmFarewh.QryFare.close;
   FrmFarewh.QryFare.SQL.Text:=SqlText4;
   FrmFarewh.QryFare.open;
   FrmMain.AddData(FrmFarewh.lv2,FrmFarewh.QryFare);

   close;
end;

procedure TFrmfarewhseek.BitBtn4Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.