hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '48f045977c'
${ noResults }
DS6JIEFENG/代码字典/u_code_fee_project_auto_con...

197 lines
6.5 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
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='<27><><EFBFBD><EFBFBD>') or (wwDBComboBox5.Text='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') or (wwDBComboBox5.Text='<27><>ע')or (wwDBComboBox5.Text='<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>') or (wwDBComboBox5.Text='<27>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>') 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='ҵ<><D2B5><EFBFBD><EFBFBD>Դ') 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='<27><>Դ<EFBFBD><D4B4>ϸ') 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='<27><><EFBFBD><EFBFBD>') 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='<27><><EFBFBD><EFBFBD>ֱװ<D6B1><D7B0><EFBFBD><EFBFBD>') or (wwDBComboBox5.Text='<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') 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='<27><><EFBFBD>ѷ<EFBFBD>ʽ') 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='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ') 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='<27><><EFBFBD><EFBFBD>') 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='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') 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.