frm_allimportbillsearch.pas

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

unit Frm_AllImportBillSearch;

interface

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

type
  TFrmAllImportBillSearch = class(TFrmCargo)
    Label10: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    EdtFileNo: TEdit;
    ComCusCode: TComboBox;
    EdtHAWB: TEdit;
    GoDate: TDateTimePicker;
    DGoDate: TDateTimePicker;
    ComYWY: TComboBox;
    ChkMain: TRadioButton;
    ChkHawb: TRadioButton;
    ChkFinish: TCheckBox;
    ChkNotFinish: TCheckBox;
    ComConsign: TComboBox;
    EdtCusCodeName: TEdit;
    EdtConsignName: TEdit;
    EdtBy: TEdit;
    ComLoad: TComboBox;
    ComAgent: TComboBox;
    ComTrustType: TComboBox;
    ComTrustSource: TComboBox;
    ChkConfirm: TCheckBox;
    ChkNotConfirm: TCheckBox;
    EdtOper: TEdit;
    ChkWt: TCheckBox;
    StartDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    ChkCY: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComCusCodeExit(Sender: TObject);
    procedure ComConsignExit(Sender: TObject);
    procedure ComLoadExit(Sender: TObject);
    procedure ComYWYExit(Sender: TObject);
    procedure ComTrustSourceExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAllImportBillSearch: TFrmAllImportBillSearch;

implementation

uses Frm_Main, Frm_AllImportBillInfo;

{$R *.dfm}

procedure TFrmAllImportBillSearch.FormCreate(Sender: TObject);
var
  Sqlstr: string;
begin
  inherited;
  SqlStr :=
    'Select CusCode,CusCName From CustomerInfo where CharIndex(''发货人'',CusTypeDesc)>0 ';
  FrmMain.Full_FilterCombobox(comcuscode, SqlStr, 'cuscode', 'CusCName');
  SqlStr :=
    'Select CusCode,CusCName From CustomerInfo where CharIndex(''收货人'',CusTypeDesc)>0 ';
  FrmMain.Full_FilterCombobox(comconsign, SqlStr, 'cuscode', 'CusCName');

  SqlStr :=
    'Select CusCode,CusCName From CustomerInfo where CharIndex(''目的港代理'',CusTypeDesc)>0 ';
  FrmMain.Full_FilterCombobox(comAgent, SqlStr, 'cuscode', 'CusCName');
  {港口代码}
  Sqlstr := 'Select PortCode,PortCName From PortInfo';
  FrmMain.Full_FilterCombobox(comload, SQLStr, 'portcode', 'portname');

  FrmMain.Full_ComboBox(comYWY, 'BussinessMan', 'code', 'name');

  {委托来源}
  SqlStr := 'Select CusCode,CusCName From CustomerInfo';
  FrmMain.Full_FilterCombobox(Comtrustsource, SqlStr, 'cuscode', 'CusCName');
  {委托类型}
  FrmMain.Full_ComboBox(comTrusttype, 'TrustTypeInfo', 'Code', 'CName');

  GoDate.date := Date;

  Dgodate.date := date;

  Startdate.date := Date;

  EndDate.date := date;
end;

procedure TFrmAllImportBillSearch.BitBtn2Click(Sender: TObject);
var
  sTmp: string;
  Flag: integer;
  i: integer;
  SqlText, sqltext1: string;
begin
  inherited;
  shortDateFormat := 'yyyy-mm-dd';
  SQLtext := 'select a.Filecode,a.filegroup,a.hawb,' +
    'a.Maincode,a.cuscodename,a.by1,a.agentcode,' +
    'goodsdesc,goodsnumber,goodsweight,goodssize,' +
    'a.dExecdate ' +
    ' from FileTable a ' +
    ' where a.inout=0 and ' +
    ' Substring(a.filecode,1,1)=''K'' ';

  {分单记录查询}
  if chkhawb.Checked then
  begin
    stmp := trim(edthawb.text);
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where hawb like ''%' + sTmp
        + '%'') ';

    Stmp := trim(edtfileno.text);
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where fileno like ''%' + sTmp
        + '%'') ';

    stmp := edtcuscodename.text;
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where cuscodename=''' + sTmp
        + ''') ';

    stmp := edtconsignname.text;
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where consignname=''' + sTmp
        + ''') ';

    stmp := FrmMain.getfieldtext(comload.text);
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where airport=''' + sTmp
        + ''') ';

    stmp := FrmMain.getfieldtext(comagent.text);
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where agentcode=''' + sTmp
        + ''') ';

    stmp := FrmMain.getfieldtext(comywy.text);
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where Bussiness=''' + sTmp
        + ''') ';

    stmp := edtby.Text;
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where by1=''' + sTmp +
        ''') ';

    stmp := edtoper.Text;
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where operate=''' + sTmp
        + ''') ';

    stmp := FrmMain.getfieldtext(comtrustsource.text);
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where trustsource=''' + sTmp
        + ''') ';

    stmp := FrmMain.getfieldtext(comtrusttype.text);
    if sTmp <> '' then
      sqltext := sqltext +
        ' And a.filecode in (select maincode from filetable where trusttype=''' + sTmp
        + ''') ';

    if chkfinish.Checked and chknotfinish.Checked then
    else
    begin
      if chkfinish.Checked then
        sqltext := sqltext +
          ' And a.filecode in (select maincode from filetable where befinish=1) ';

      if chknotfinish.Checked then
        sqltext := sqltext +
          ' And a.filecode in (select maincode from filetable where befinish=0) ';
    end;

    if chkconfirm.Checked and chknotconfirm.Checked then
    else
    begin
      if chkconfirm.Checked then
        sqltext := sqltext +
          ' And a.filecode in (select maincode from filetable where keydown=1) ';

      if chknotconfirm.Checked then
        sqltext := sqltext +
          ' And a.filecode in (select maincode from filetable where keydown=0) ';
    end;

    if (Chkwt.Checked) and (Chkcy.checked) then
      sqltext := sqltext + ' And a.filecode in (select maincode from ' +
        ' filetable where dexecdate>=''' + datetimetostr(int(godate.date)) +
          ''' ' +
        '  and dexecdate<=''' + datetimetostr(int(dgodate.date)) + ''') ' +
        ' and a.filecode in (select maincode from filetable where fdate1>=''' +
          datetimetostr(int(startdate.date)) + ''' ' +
        ' and fdate1<=''' + datetimetostr(int(enddate.date)) + ''') '
    else
    begin
      if chkwt.Checked then
        sqltext := sqltext + ' And a.filecode in (select maincode from ' +
          ' filetable where dexecdate>=''' + datetimetostr(int(godate.date)) +
            ''' ' +
          '  and dexecdate<=''' + datetimetostr(int(dgodate.date)) + ''') ';

      if chkcy.Checked then
        sqltext := sqltext +
          ' and a.filecode in (select maincode from filetable where fdate1>=''' +
          datetimetostr(int(startdate.date)) + ''' ' +
          ' and fdate1<=''' + datetimetostr(int(enddate.date)) + ''')';
    end;
  end
  else
  begin {主单记录}
    stmp := trim(edthawb.text);
    if sTmp <> '' then
      sqltext := sqltext + ' And a.maincode like ''%' + sTmp + '%'' ';

    Stmp := trim(edtfileno.text);
    if sTmp <> '' then
      sqltext := sqltext + ' And a.FileNo like ''%' + sTmp + '%'' ';

    stmp := edtcuscodename.text;
    if sTmp <> '' then
      sqltext := sqltext + ' And a.CusCodename=''' + sTmp + ''' ';

    stmp := edtconsignname.text;
    if sTmp <> '' then
      sqltext := sqltext + ' And a.consignname=''' + sTmp + ''' ';

    stmp := FrmMain.getfieldtext(comload.text);
    if sTmp <> '' then
      sqltext := sqltext + ' And a.airport=''' + sTmp + ''' ';

    stmp := FrmMain.getfieldtext(comagent.text);
    if sTmp <> '' then
      sqltext := sqltext + ' And a.agentcode=''' + sTmp + ''' ';

    stmp := FrmMain.getfieldtext(comywy.text);
    if sTmp <> '' then
      sqltext := sqltext + ' And a.Bussiness=''' + sTmp + ''' ';

    stmp := edtby.Text;
    if sTmp <> '' then
      sqltext := sqltext + ' And a.by1=''' + sTmp + ''' ';

    stmp := edtoper.Text;
    if sTmp <> '' then
      sqltext := sqltext + ' And a.operate=''' + sTmp + ''' ';

    stmp := FrmMain.getfieldtext(comTrustsource.text);
    if sTmp <> '' then
      sqltext := sqltext + ' And a.trustsource=''' + sTmp + ''' ';

    stmp := FrmMain.getfieldtext(comTrusttype.text);
    if sTmp <> '' then
      sqltext := sqltext + ' And a.trusttype=''' + sTmp + ''' ';

    if chkfinish.Checked and chknotfinish.Checked then
    else
    begin
      if chkfinish.Checked then
        sqltext := sqltext + ' And a.befinish=1 ';

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

    if chkconfirm.Checked and chknotconfirm.Checked then
    else
    begin
      if chkconfirm.Checked then
        sqltext := sqltext + ' And a.keydown=1 ';

      if chknotconfirm.Checked then
        sqltext := sqltext + ' And a.keydown=0 ';
    end;

    if (chkwt.checked) and (chkcy.checked) then
      sqltext := sqltext + ' And  a.Dexecdate>=''' +
        datetimetostr(int(godate.date)) + ''' ' +
        '  and a.Dexecdate<=''' + datetimetostr(int(dgodate.date)) + ''' ' +
        '  And  a.fdate1>=''' + datetimetostr(int(startdate.date)) + ''' ' +
        '  and a.fdate1<=''' + datetimetostr(int(enddate.date)) + ''' '
    else
    begin
      if Chkwt.Checked then
        sqltext := sqltext + ' And  a.Dexecdate>=''' +
          datetimetostr(int(godate.date)) + ''' ' +
          '  and a.Dexecdate<=''' + datetimetostr(int(dgodate.date)) + '''';

      if Chkcy.Checked then
        sqltext := sqltext + ' And  a.fdate1>=''' +
          datetimetostr(int(startdate.date)) + ''' ' +
          '  and a.fdate1<=''' + datetimetostr(int(enddate.date)) + '''';

    end;
  end;

  FrmAllImportBillInfo.QryTemp.Close;
  FrmAllImportBillInfo.QryTemp.sql.text := sqltext;
  FrmAllImportBillInfo.QryTemp.open;
  if (FrmAllImportBillInfo.QryTemp.RecordCount = 0) then
  begin
    ShowMessage('没有符合条件的记录,请继续!');
    Exit;
  end;
  FrmAllImportBillInfo.LV.Items.Clear;
  FrmMain.AddData(FrmAllImportBillInfo.lv, FrmAllImportBillInfo.QryTemp);
  FrmAllImportBillInfo.LblTs.Caption := '查询出的主单记录数为:  ' +
    INTTOSTR(FrmAllImportBillInfo.QryTemp.RecordCount) + ' 票';
  close;
end;

procedure TFrmAllImportBillSearch.BitBtn1Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrmAllImportBillSearch.ComCusCodeExit(Sender: TObject);
begin
  inherited;
  ComCusCode.Text := FrmMain.CheckComboBox(ComCusCode);
  EdtCuscodename.Text := FrmMain.GetFieldText(comcuscode.text, 2);
end;

procedure TFrmAllImportBillSearch.ComConsignExit(Sender: TObject);
begin
  inherited;
  ComConsign.Text := FrmMain.CheckComboBox(ComConsign);
  EdtCuscodename.Text := FrmMain.GetFieldText(ComConsign.text, 2);
end;

procedure TFrmAllImportBillSearch.ComLoadExit(Sender: TObject);
begin
  inherited;
  comload.Text:=FrmMain.CheckComboBox(comload);
end;

procedure TFrmAllImportBillSearch.ComYWYExit(Sender: TObject);
begin
  inherited;
ComYWY.Text:=FrmMain.CheckComboBox(ComYWY);
end;

procedure TFrmAllImportBillSearch.ComTrustSourceExit(Sender: TObject);
begin
  inherited;
 ComTrustSource.Text :=FrmMain.CheckComboBox(ComTrustSource);
end;

end.