You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
197 lines
6.5 KiB
Plaintext
197 lines
6.5 KiB
Plaintext
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.
|