unit u_code_fee_project_auto_condition;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, BusinessSkinForm, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
  dxDBCtrl, dxCntner, bsSkinCtrls, ExtCtrls, RxLookup, StdCtrls, Mask,
  wwdbedit, Wwdotdot, Wwdbcomb, DBCtrls;

type
  Tfrm_code_fee_project_auto_condition = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    wwDBComboBox5: TwwDBComboBox;
    wwDBComboBox1: TwwDBComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    bsSkinButton3: TbsSkinButton;
    RxDBLookupCombo2: TRxDBLookupCombo;
    RxDBLookupCombo16: TRxDBLookupCombo;
    RxDBLookupCombo17: TRxDBLookupCombo;
    RxDBLookupCombo20: TRxDBLookupCombo;
    DBEdit1: TDBEdit;
    wwDBComboBox53: TwwDBComboBox;
    RxDBLookupCombo15: TRxDBLookupCombo;
    wwDBComboBox8: TwwDBComboBox;
    wwDBComboBox20: TwwDBComboBox;
    RxDBLookupCombo3: TRxDBLookupCombo;
    procedure wwDBComboBox5Change(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_code_fee_project_auto_condition: Tfrm_code_fee_project_auto_condition;

implementation

uses u_data_share, my_sys_function, u_code_fee_project_auto;

{$R *.dfm}

procedure Tfrm_code_fee_project_auto_condition.wwDBComboBox5Change(
  Sender: TObject);
begin
  if (wwDBComboBox5.Text='船名') or (wwDBComboBox5.Text='主提单号') or (wwDBComboBox5.Text='备注')or (wwDBComboBox5.Text='收货人代码') then begin
    RxDBLookupCombo2.Visible:=false;
    DBEdit1.Visible:=true;
    DBEdit1.top:=RxDBLookupCombo2.top;
    DBEdit1.Left:=RxDBLookupCombo2.Left;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    RxDBLookupCombo20.Visible:=false;
    wwDBComboBox53.Visible:=False;
    RxDBLookupCombo15.Visible:=False;
    wwDBComboBox8.Visible:=false;
    wwDBComboBox20.Visible:=false;
    RxDBLookupCombo3.Visible:=false;
    
  end else if (wwDBComboBox5.Text='业务来源') then begin
    RxDBLookupCombo2.Visible:=false;
    RxDBLookupCombo16.Visible:=true;
    RxDBLookupCombo16.top:=RxDBLookupCombo2.top;
    RxDBLookupCombo16.Left:=RxDBLookupCombo2.Left;
    DBEdit1.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    RxDBLookupCombo20.Visible:=false;
    wwDBComboBox53.Visible:=False;
    RxDBLookupCombo15.Visible:=False;
    wwDBComboBox8.Visible:=false;
    wwDBComboBox20.Visible:=false;
    RxDBLookupCombo3.Visible:=false;

  end else if (wwDBComboBox5.Text='来源明细') then begin
    RxDBLookupCombo2.Visible:=false;
    RxDBLookupCombo17.Visible:=true;
    RxDBLookupCombo17.top:=RxDBLookupCombo2.top;
    RxDBLookupCombo17.Left:=RxDBLookupCombo2.Left;
    DBEdit1.Visible:=false;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo20.Visible:=false;
    wwDBComboBox53.Visible:=False;
    RxDBLookupCombo15.Visible:=False;
    wwDBComboBox8.Visible:=false;
    wwDBComboBox20.Visible:=false;
    RxDBLookupCombo3.Visible:=false;

  end else if (wwDBComboBox5.Text='航线') then begin
    RxDBLookupCombo2.Visible:=false;
    RxDBLookupCombo20.Visible:=true;
    RxDBLookupCombo20.top:=RxDBLookupCombo2.top;
    RxDBLookupCombo20.Left:=RxDBLookupCombo2.Left;
    DBEdit1.Visible:=false;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    wwDBComboBox53.Visible:=False;
    RxDBLookupCombo15.Visible:=False;
    wwDBComboBox8.Visible:=false;
    wwDBComboBox20.Visible:=false;
    RxDBLookupCombo3.Visible:=false;

  end else if (wwDBComboBox5.Text='车船直装货物') or (wwDBComboBox5.Text='是否自有箱')  then begin
    RxDBLookupCombo2.Visible:=false;
    wwDBComboBox53.Visible:=true;
    wwDBComboBox53.top:=RxDBLookupCombo2.top;
    wwDBComboBox53.Left:=RxDBLookupCombo2.Left;
    DBEdit1.Visible:=false;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    RxDBLookupCombo20.Visible:=False;
    RxDBLookupCombo15.Visible:=False;
    wwDBComboBox8.Visible:=false;
    wwDBComboBox20.Visible:=false;
    RxDBLookupCombo3.Visible:=false;

  end else if (wwDBComboBox5.Text='付费方式') then begin
    RxDBLookupCombo2.Visible:=false;
    wwDBComboBox8.Visible:=false;
    RxDBLookupCombo15.Visible:=true;
    RxDBLookupCombo15.top:=RxDBLookupCombo2.top;
    RxDBLookupCombo15.Left:=RxDBLookupCombo2.Left;
    DBEdit1.Visible:=false;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    RxDBLookupCombo20.Visible:=False;
    wwDBComboBox53.Visible:=False;
    wwDBComboBox20.Visible:=false;
    RxDBLookupCombo3.Visible:=false;

  end else if (wwDBComboBox5.Text='货物标识') then begin
    RxDBLookupCombo2.Visible:=false;
    wwDBComboBox8.Visible:=true;
    wwDBComboBox8.top:=RxDBLookupCombo2.top;
    wwDBComboBox8.Left:=RxDBLookupCombo2.Left;
    DBEdit1.Visible:=false;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    RxDBLookupCombo20.Visible:=False;
    wwDBComboBox53.Visible:=False;
    RxDBLookupCombo15.Visible:=false;
    wwDBComboBox20.Visible:=false;
    RxDBLookupCombo3.Visible:=false;

  end else if (wwDBComboBox5.Text='船代') then begin
    RxDBLookupCombo2.Visible:=false;
    wwDBComboBox20.Visible:=true;
    wwDBComboBox20.top:=RxDBLookupCombo2.top;
    wwDBComboBox20.Left:=RxDBLookupCombo2.Left;
    DBEdit1.Visible:=false;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    RxDBLookupCombo20.Visible:=False;
    wwDBComboBox53.Visible:=False;
    RxDBLookupCombo15.Visible:=false;
    wwDBComboBox8.Visible:=false;
    RxDBLookupCombo3.Visible:=false;

  end else if (wwDBComboBox5.Text='揽货人') then begin
    RxDBLookupCombo2.Visible:=false;
    wwDBComboBox8.Visible:=false;
    RxDBLookupCombo3.Visible:=true;
    RxDBLookupCombo3.top:=RxDBLookupCombo2.top;
    RxDBLookupCombo3.Left:=RxDBLookupCombo2.Left;
    DBEdit1.Visible:=false;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    RxDBLookupCombo20.Visible:=False;
    wwDBComboBox53.Visible:=False;
    wwDBComboBox20.Visible:=false;
    RxDBLookupCombo15.Visible:=false;    
  end else begin
    RxDBLookupCombo2.Visible:=True;
    wwDBComboBox8.Visible:=false;
    DBEdit1.Visible:=False;
    RxDBLookupCombo16.Visible:=false;
    RxDBLookupCombo17.Visible:=false;
    RxDBLookupCombo20.Visible:=false;
    RxDBLookupCombo15.Visible:=false;
   wwDBComboBox20.Visible:=false;
    RxDBLookupCombo3.Visible:=false;

  end;
end;

procedure Tfrm_code_fee_project_auto_condition.bsSkinButton3Click(
  Sender: TObject);
begin
  frm_code_fee_project_auto.t_ch_project_Condition.Post;
 close;
end;

end.